Dim Lockappid As String
        Dim Lockmchid As String
        Dim Idkey As String
        Dim IdkeyLock As Integer
        Dim TotalFee As String
        Dim OrdNum As String
        Dim AuthCode As String
        Dim outinf As IntPtr
        Dim real As Integer

        Lockappid = Trim(WXGZH.Text)                            '加密后的微信公众账号
        Lockmchid = Trim(WXSFH.Text)                            '加密后的商户号
......................