lyfz_repos/经典版源码/旧的后台处理/LYFZMsgManage/DLL-demo/MWDemos/VBdemo.net/Form1.vb

Public Class FrmDemo
    Inherits System.Windows.Forms.Form
    ''MonGatekf.dll
    'Private Declare Function MongateConnect Lib "mongatekf.dll" (ByVal ip As String, ByVal port As Integer, ByVal account As String, ByVal pwd As String) As Integer
    'Private Declare Function MongateDisConnect Lib "mongatekf.dll" (ByVal clientsock As Integer) As Integer
    'Private Declare Function MongateSendSms Lib "mongatekf.dll" (ByVal clientsock As Integer, ByVal mobi As String, ByVal note As String, ByRef msgnumber As Byte) As Integer
    ''Private Declare Function MongateSendSingleSms Lib "mongatekf.dll" (ByVal clientsock As Integer, ByVal mobi As String, ByVal note As String, ByRef msgnumber As Byte) As Integer
    ''Private Declare Function MongateSendMultSms Lib "mongatekf.dll" (ByVal clientsock As Integer, ByVal mobi As String, ByVal note As String, ByVal mobinum As Integer, ByRef msgnumber As Byte) As Integer
    'Private Declare Function MongateGetSms Lib "mongatekf.dll" (ByVal clientsock As Integer, ByRef recvbuf As Byte) As Integer
    Private Declare Function MongateGetStatus Lib "mongatekf.dll" (ByVal clientsock As Integer, ByRef recvbuf As Byte) As Integer
    'MWGateway.dll
    Private Declare Function MongateConnect Lib "MWGateway.dll" (ByVal serverip As String, _
       ByVal port As Integer, ByVal account As String, ByVal pwd As String) As Integer
    Private Declare Function MongateSendSms Lib "MWGateway.dll" (ByVal socket As Integer, _
      ByVal mobi As String, ByVal msg As String) As Integer
    Private Declare Function MongateTestConn Lib "MWGateway.dll" (ByVal socket As Integer) As Integer
    Private Declare Function MongateQueryBalance Lib "MWGateway.dll" (ByVal socket As Integer) As Integer
    Private Declare Function MongateQueryUsed Lib "MWGateway.dll" (ByVal socket As Integer) As Integer
    Private Declare Function MongateRecharge Lib "MWGateway.dll" (ByVal socket As Integer, _
       ByVal cardno As String, ByVal cardpwd As String) As Integer
    Private Declare Function MongateChangePwd Lib "MWGateway.dll" (ByVal socket As Integer, _
       ByVal account As String, ByVal oldpwd As String, ByVal newpwd As String) As Integer
    Private Declare Sub MongateDisconnect Lib "MWGateway.dll" (ByVal socket As Integer)
    Private Declare Function MongateVasGetSms Lib "MWGateway.dll" (ByVal socket As Integer, _
       ByRef recvmsg As Byte) As Integer
    Private Declare Function MongateVasSendSms Lib "MWGateway.dll" (ByVal socket As Integer, _
       ByVal feecode As String, ByVal spno As String, ByVal opercode As String, _
       ByVal linkid As String, ByVal mobis As String, ByVal msg As String, _
       ByVal icount As Integer) As Integer
    Private Declare Function MongateCsGetSms Lib "MWGateway.dll" (ByVal socket As Integer, _
       ByRef statereport As Byte) As Integer
    Private Declare Function MongateCsSendSms Lib "MWGateway.dll" (ByVal socket As Integer, _
       ByVal mobi As String, ByVal note As String, ByVal icount As Integer, _
       ByRef msgno As Byte) As Integer
    Private Declare Function MongateCsGetStatusReport Lib "MWGateway.dll" _
      (ByVal socket As Integer, ByRef recvmsg As Byte) As Integer

    Dim clientsock As Integer

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents CkSingle As System.Windows.Forms.CheckBox
    Friend WithEvents CkVas As System.Windows.Forms.CheckBox
    Friend WithEvents Ckkf As System.Windows.Forms.CheckBox
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents TxtPort As System.Windows.Forms.TextBox
    Friend WithEvents TxtIp As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label19 As System.Windows.Forms.Label
    Friend WithEvents TxtPwd As System.Windows.Forms.TextBox
    Friend WithEvents TxtAccount As System.Windows.Forms.TextBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents BtnConn As System.Windows.Forms.Button
    Friend WithEvents BtnTest As System.Windows.Forms.Button
    Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents TxtMsg As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents BtnDisConn As System.Windows.Forms.Button
    Friend WithEvents Btnreport As System.Windows.Forms.Button
    Friend WithEvents BtnRecv As System.Windows.Forms.Button
    Friend WithEvents BtnSend As System.Windows.Forms.Button
    Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents ListInfo As System.Windows.Forms.ListBox
    Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents TxtCount As System.Windows.Forms.TextBox
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents Label10 As System.Windows.Forms.Label
    Friend WithEvents TxtPhone As System.Windows.Forms.TextBox
    Friend WithEvents Label11 As System.Windows.Forms.Label
    Friend WithEvents TxtLinkid As System.Windows.Forms.TextBox
    Friend WithEvents TxtFee As System.Windows.Forms.TextBox
    Friend WithEvents TxtSPort As System.Windows.Forms.TextBox
    Friend WithEvents TxtNewPwd As System.Windows.Forms.TextBox
    Friend WithEvents BtnChangePwd As System.Windows.Forms.Button
    Friend WithEvents BtnLeft As System.Windows.Forms.Button
    Friend WithEvents BtnUsed As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.Ckkf = New System.Windows.Forms.CheckBox
        Me.CkVas = New System.Windows.Forms.CheckBox
        Me.CkSingle = New System.Windows.Forms.CheckBox
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.BtnDisConn = New System.Windows.Forms.Button
        Me.BtnTest = New System.Windows.Forms.Button
        Me.BtnConn = New System.Windows.Forms.Button
        Me.TxtPwd = New System.Windows.Forms.TextBox
        Me.TxtAccount = New System.Windows.Forms.TextBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.Label1 = New System.Windows.Forms.Label
        Me.TxtPort = New System.Windows.Forms.TextBox
        Me.TxtIp = New System.Windows.Forms.TextBox
        Me.Label5 = New System.Windows.Forms.Label
        Me.Label19 = New System.Windows.Forms.Label
        Me.GroupBox3 = New System.Windows.Forms.GroupBox
        Me.TxtPhone = New System.Windows.Forms.TextBox
        Me.Label11 = New System.Windows.Forms.Label
        Me.TxtLinkid = New System.Windows.Forms.TextBox
        Me.Label10 = New System.Windows.Forms.Label
        Me.TxtCount = New System.Windows.Forms.TextBox
        Me.Label9 = New System.Windows.Forms.Label
        Me.TxtFee = New System.Windows.Forms.TextBox
        Me.Label8 = New System.Windows.Forms.Label
        Me.Btnreport = New System.Windows.Forms.Button
        Me.BtnRecv = New System.Windows.Forms.Button
        Me.BtnSend = New System.Windows.Forms.Button
        Me.TxtMsg = New System.Windows.Forms.TextBox
        Me.TxtSPort = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.GroupBox4 = New System.Windows.Forms.GroupBox
        Me.ListInfo = New System.Windows.Forms.ListBox
        Me.GroupBox5 = New System.Windows.Forms.GroupBox
        Me.TxtNewPwd = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.BtnChangePwd = New System.Windows.Forms.Button
        Me.BtnLeft = New System.Windows.Forms.Button
        Me.BtnUsed = New System.Windows.Forms.Button
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.GroupBox3.SuspendLayout()
        Me.GroupBox4.SuspendLayout()
        Me.GroupBox5.SuspendLayout()
        Me.SuspendLayout()
        '
        'GroupBox1
        '
        Me.GroupBox1.Controls.Add(Me.Ckkf)
        Me.GroupBox1.Controls.Add(Me.CkVas)
        Me.GroupBox1.Controls.Add(Me.CkSingle)
        Me.GroupBox1.Location = New System.Drawing.Point(9, 0)
        Me.GroupBox1.Name = "GroupBox1"
        Me.GroupBox1.Size = New System.Drawing.Size(415, 40)
        Me.GroupBox1.TabIndex = 14
        Me.GroupBox1.TabStop = False
        Me.GroupBox1.Text = "帐户类型"
        '
        'Ckkf
        '
        Me.Ckkf.Location = New System.Drawing.Point(296, 15)
        Me.Ckkf.Name = "Ckkf"
        Me.Ckkf.Size = New System.Drawing.Size(112, 23)
        Me.Ckkf.TabIndex = 18
        Me.Ckkf.Text = "客服双向帐户"
        '
        'CkVas
        '
        Me.CkVas.Location = New System.Drawing.Point(156, 15)
        Me.CkVas.Name = "CkVas"
        Me.CkVas.Size = New System.Drawing.Size(112, 23)
        Me.CkVas.TabIndex = 17
        Me.CkVas.Text = "增值双向帐户"
        '
        'CkSingle
        '
        Me.CkSingle.Checked = True
        Me.CkSingle.CheckState = System.Windows.Forms.CheckState.Checked
        Me.CkSingle.Location = New System.Drawing.Point(19, 15)
        Me.CkSingle.Name = "CkSingle"
        Me.CkSingle.Size = New System.Drawing.Size(112, 23)
        Me.CkSingle.TabIndex = 16
        Me.CkSingle.Text = "单向帐户"
        '
        'GroupBox2
        '
        Me.GroupBox2.Controls.Add(Me.BtnDisConn)
        Me.GroupBox2.Controls.Add(Me.BtnTest)
        Me.GroupBox2.Controls.Add(Me.BtnConn)
        Me.GroupBox2.Controls.Add(Me.TxtPwd)
        Me.GroupBox2.Controls.Add(Me.TxtAccount)
        Me.GroupBox2.Controls.Add(Me.Label2)
        Me.GroupBox2.Controls.Add(Me.Label1)
        Me.GroupBox2.Controls.Add(Me.TxtPort)
        Me.GroupBox2.Controls.Add(Me.TxtIp)
        Me.GroupBox2.Controls.Add(Me.Label5)
        Me.GroupBox2.Controls.Add(Me.Label19)
        Me.GroupBox2.Location = New System.Drawing.Point(8, 40)
        Me.GroupBox2.Name = "GroupBox2"
        Me.GroupBox2.Size = New System.Drawing.Size(416, 73)
        Me.GroupBox2.TabIndex = 15
        Me.GroupBox2.TabStop = False
        Me.GroupBox2.Text = "帐户登陆"
        '
        'BtnDisConn
        '
        Me.BtnDisConn.Enabled = False
        Me.BtnDisConn.Location = New System.Drawing.Point(354, 16)
        Me.BtnDisConn.Name = "BtnDisConn"
        Me.BtnDisConn.Size = New System.Drawing.Size(55, 23)
        Me.BtnDisConn.TabIndex = 18
        Me.BtnDisConn.Text = "断开"
        '
        'BtnTest
        '
        Me.BtnTest.Location = New System.Drawing.Point(296, 43)
        Me.BtnTest.Name = "BtnTest"
        Me.BtnTest.Size = New System.Drawing.Size(113, 23)
        Me.BtnTest.TabIndex = 17
        Me.BtnTest.Text = "测试连接"
        '
        'BtnConn
        '
        Me.BtnConn.Location = New System.Drawing.Point(296, 16)
        Me.BtnConn.Name = "BtnConn"
        Me.BtnConn.Size = New System.Drawing.Size(55, 23)
        Me.BtnConn.TabIndex = 15
        Me.BtnConn.Text = "连接"
        '
        'TxtPwd
        '
        Me.TxtPwd.Location = New System.Drawing.Point(212, 42)
        Me.TxtPwd.Name = "TxtPwd"
        Me.TxtPwd.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.TxtPwd.Size = New System.Drawing.Size(60, 21)
        Me.TxtPwd.TabIndex = 14
        Me.TxtPwd.Text = "807778"
        '
        'TxtAccount
        '
        Me.TxtAccount.Location = New System.Drawing.Point(48, 42)
        Me.TxtAccount.Name = "TxtAccount"
        Me.TxtAccount.Size = New System.Drawing.Size(120, 21)
        Me.TxtAccount.TabIndex = 13
        Me.TxtAccount.Text = "13888888888"
        '
        'Label2
        '
        Me.Label2.Location = New System.Drawing.Point(176, 44)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(40, 21)
        Me.Label2.TabIndex = 12
        Me.Label2.Text = "密码:"
        '
        'Label1
        '
        Me.Label1.Location = New System.Drawing.Point(7, 44)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(40, 21)
        Me.Label1.TabIndex = 11
        Me.Label1.Text = "帐号:"
        '
        'TxtPort
        '
        Me.TxtPort.Location = New System.Drawing.Point(212, 16)
        Me.TxtPort.Name = "TxtPort"
        Me.TxtPort.Size = New System.Drawing.Size(60, 21)
        Me.TxtPort.TabIndex = 10
        Me.TxtPort.Text = "8018"
        '
        'TxtIp
        '
        Me.TxtIp.Location = New System.Drawing.Point(48, 16)
        Me.TxtIp.Name = "TxtIp"
        Me.TxtIp.Size = New System.Drawing.Size(120, 21)
        Me.TxtIp.TabIndex = 9
        Me.TxtIp.Text = "61.242.89.115"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(176, 21)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(40, 16)
        Me.Label5.TabIndex = 8
        Me.Label5.Text = "端口:"
        '
        'Label19
        '
        Me.Label19.Location = New System.Drawing.Point(5, 21)
        Me.Label19.Name = "Label19"
        Me.Label19.Size = New System.Drawing.Size(48, 16)
        Me.Label19.TabIndex = 7
        Me.Label19.Text = "服务器:"
        '
        'GroupBox3
        '
        Me.GroupBox3.Controls.Add(Me.TxtPhone)
        Me.GroupBox3.Controls.Add(Me.Label11)
        Me.GroupBox3.Controls.Add(Me.TxtLinkid)
        Me.GroupBox3.Controls.Add(Me.Label10)
        Me.GroupBox3.Controls.Add(Me.TxtCount)
        Me.GroupBox3.Controls.Add(Me.Label9)
        Me.GroupBox3.Controls.Add(Me.TxtFee)
        Me.GroupBox3.Controls.Add(Me.Label8)
        Me.GroupBox3.Controls.Add(Me.Btnreport)
        Me.GroupBox3.Controls.Add(Me.BtnRecv)
        Me.GroupBox3.Controls.Add(Me.BtnSend)
        Me.GroupBox3.Controls.Add(Me.TxtMsg)
        Me.GroupBox3.Controls.Add(Me.TxtSPort)
        Me.GroupBox3.Controls.Add(Me.Label4)
        Me.GroupBox3.Controls.Add(Me.Label3)
        Me.GroupBox3.Location = New System.Drawing.Point(8, 112)
        Me.GroupBox3.Name = "GroupBox3"
        Me.GroupBox3.Size = New System.Drawing.Size(416, 144)
        Me.GroupBox3.TabIndex = 16
        Me.GroupBox3.TabStop = False
        Me.GroupBox3.Text = "信息操作"
        '
        'TxtPhone
        '
        Me.TxtPhone.Location = New System.Drawing.Point(64, 39)
        Me.TxtPhone.Name = "TxtPhone"
        Me.TxtPhone.Size = New System.Drawing.Size(229, 21)
        Me.TxtPhone.TabIndex = 23
        Me.TxtPhone.Text = "13534***346"
        '
        'Label11
        '
        Me.Label11.Location = New System.Drawing.Point(9, 43)
        Me.Label11.Name = "Label11"
        Me.Label11.Size = New System.Drawing.Size(60, 17)
        Me.Label11.TabIndex = 22
        Me.Label11.Text = "手机号码:"
        '
        'TxtLinkid
        '
        Me.TxtLinkid.Location = New System.Drawing.Point(296, 14)
        Me.TxtLinkid.Name = "TxtLinkid"
        Me.TxtLinkid.Size = New System.Drawing.Size(111, 21)
        Me.TxtLinkid.TabIndex = 21
        Me.TxtLinkid.Text = ""
        '
        'Label10
        '
        Me.Label10.Location = New System.Drawing.Point(252, 18)
        Me.Label10.Name = "Label10"
        Me.Label10.Size = New System.Drawing.Size(48, 17)
        Me.Label10.TabIndex = 20
        Me.Label10.Text = "匹配码:"
        '
        'TxtCount
        '
        Me.TxtCount.Location = New System.Drawing.Point(352, 39)
        Me.TxtCount.Name = "TxtCount"
        Me.TxtCount.Size = New System.Drawing.Size(53, 21)
        Me.TxtCount.TabIndex = 19
        Me.TxtCount.Text = "1"
        '
        'Label9
        '
        Me.Label9.Location = New System.Drawing.Point(296, 43)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(60, 17)
        Me.Label9.TabIndex = 18
        Me.Label9.Text = "手机个数:"
        '
        'TxtFee
        '
        Me.TxtFee.Location = New System.Drawing.Point(200, 14)
        Me.TxtFee.Name = "TxtFee"
        Me.TxtFee.Size = New System.Drawing.Size(50, 21)
        Me.TxtFee.TabIndex = 17
        Me.TxtFee.Text = ""
        '
        'Label8
        '
        Me.Label8.Location = New System.Drawing.Point(144, 18)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(60, 17)
        Me.Label8.TabIndex = 16
        Me.Label8.Text = "费率代码:"
        '
        'Btnreport
        '
        Me.Btnreport.Enabled = False
        Me.Btnreport.Location = New System.Drawing.Point(311, 116)
        Me.Btnreport.Name = "Btnreport"
        Me.Btnreport.Size = New System.Drawing.Size(95, 23)
        Me.Btnreport.TabIndex = 15
        Me.Btnreport.Text = "状态报告"
        '
        'BtnRecv
        '
        Me.BtnRecv.Enabled = False
        Me.BtnRecv.Location = New System.Drawing.Point(311, 91)
        Me.BtnRecv.Name = "BtnRecv"
        Me.BtnRecv.Size = New System.Drawing.Size(95, 23)
        Me.BtnRecv.TabIndex = 14
        Me.BtnRecv.Text = "接收信息"
        '
        'BtnSend
        '
        Me.BtnSend.Location = New System.Drawing.Point(311, 66)
        Me.BtnSend.Name = "BtnSend"
        Me.BtnSend.Size = New System.Drawing.Size(95, 23)
        Me.BtnSend.TabIndex = 13
        Me.BtnSend.Text = "单向信息"
        '
        'TxtMsg
        '
        Me.TxtMsg.Location = New System.Drawing.Point(64, 64)
        Me.TxtMsg.Multiline = True
        Me.TxtMsg.Name = "TxtMsg"
        Me.TxtMsg.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.TxtMsg.Size = New System.Drawing.Size(229, 73)
        Me.TxtMsg.TabIndex = 12
        Me.TxtMsg.Text = "恭喜发财，测试信息"
        '
        'TxtSPort
        '
        Me.TxtSPort.Location = New System.Drawing.Point(64, 14)
        Me.TxtSPort.Name = "TxtSPort"
        Me.TxtSPort.Size = New System.Drawing.Size(78, 21)
        Me.TxtSPort.TabIndex = 11
        Me.TxtSPort.Text = ""
        '
        'Label4
        '
        Me.Label4.Location = New System.Drawing.Point(16, 64)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(40, 17)
        Me.Label4.TabIndex = 10
        Me.Label4.Text = "内容:"
        '
        'Label3
        '
        Me.Label3.Location = New System.Drawing.Point(9, 18)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(60, 17)
        Me.Label3.TabIndex = 9
        Me.Label3.Text = "端口号码:"
        '
        'GroupBox4
        '
        Me.GroupBox4.Controls.Add(Me.ListInfo)
        Me.GroupBox4.Location = New System.Drawing.Point(8, 304)
        Me.GroupBox4.Name = "GroupBox4"
        Me.GroupBox4.Size = New System.Drawing.Size(416, 112)
        Me.GroupBox4.TabIndex = 20
        Me.GroupBox4.TabStop = False
        Me.GroupBox4.Text = "提示信息"
        '
        'ListInfo
        '
        Me.ListInfo.HorizontalScrollbar = True
        Me.ListInfo.ItemHeight = 12
        Me.ListInfo.Location = New System.Drawing.Point(8, 16)
        Me.ListInfo.Name = "ListInfo"
        Me.ListInfo.Size = New System.Drawing.Size(400, 88)
        Me.ListInfo.TabIndex = 5
        '
        'GroupBox5
        '
        Me.GroupBox5.Controls.Add(Me.TxtNewPwd)
        Me.GroupBox5.Controls.Add(Me.Label7)
        Me.GroupBox5.Controls.Add(Me.BtnChangePwd)
        Me.GroupBox5.Controls.Add(Me.BtnLeft)
        Me.GroupBox5.Controls.Add(Me.BtnUsed)
        Me.GroupBox5.Location = New System.Drawing.Point(8, 257)
        Me.GroupBox5.Name = "GroupBox5"
        Me.GroupBox5.Size = New System.Drawing.Size(416, 43)
        Me.GroupBox5.TabIndex = 21
        Me.GroupBox5.TabStop = False
        Me.GroupBox5.Text = "帐户管理"
        '
        'TxtNewPwd
        '
        Me.TxtNewPwd.Location = New System.Drawing.Point(336, 16)
        Me.TxtNewPwd.Name = "TxtNewPwd"
        Me.TxtNewPwd.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.TxtNewPwd.Size = New System.Drawing.Size(60, 21)
        Me.TxtNewPwd.TabIndex = 24
        Me.TxtNewPwd.Text = ""
        '
        'Label7
        '
        Me.Label7.Location = New System.Drawing.Point(292, 21)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(40, 16)
        Me.Label7.TabIndex = 23
        Me.Label7.Text = "密码:"
        '
        'BtnChangePwd
        '
        Me.BtnChangePwd.Location = New System.Drawing.Point(200, 16)
        Me.BtnChangePwd.Name = "BtnChangePwd"
        Me.BtnChangePwd.TabIndex = 22
        Me.BtnChangePwd.Text = "修改密码"
        '
        'BtnLeft
        '
        Me.BtnLeft.Location = New System.Drawing.Point(104, 16)
        Me.BtnLeft.Name = "BtnLeft"
        Me.BtnLeft.TabIndex = 21
        Me.BtnLeft.Text = "查询余额"
        '
        'BtnUsed
        '
        Me.BtnUsed.Location = New System.Drawing.Point(8, 16)
        Me.BtnUsed.Name = "BtnUsed"
        Me.BtnUsed.TabIndex = 20
        Me.BtnUsed.Text = "查询使用"
        '
        'FrmDemo
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(438, 434)
        Me.Controls.Add(Me.GroupBox5)
        Me.Controls.Add(Me.GroupBox4)
        Me.Controls.Add(Me.GroupBox3)
        Me.Controls.Add(Me.GroupBox2)
        Me.Controls.Add(Me.GroupBox1)
        Me.Name = "FrmDemo"
        Me.Text = "梦网网关动态库演示程序"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox3.ResumeLayout(False)
        Me.GroupBox4.ResumeLayout(False)
        Me.GroupBox5.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        clientsock = 0
        CkClick(0)
    End Sub

    Function Noconn() As Boolean
        Noconn = False
        If clientsock <= 0 Then
            ListInfo.Items.Add("没有连接到任何服务器!!!")
            Noconn = True
        End If
    End Function

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If (clientsock > 0) Then
            MongateDisconnect(clientsock)
            ListInfo.Items.Add("断开连接")
            clientsock = 0
        End If
    End Sub
    Private Sub Showme(ByVal edtmp As TextBox, ByVal flag As Boolean)
        edtmp.Enabled = flag
        If flag Then
            edtmp.BackColor = SystemColors.Window
        Else
            edtmp.BackColor = SystemColors.ScrollBar
        End If
    End Sub

    Private Sub CkClick(ByVal seltype As Integer)
        If seltype = 0 Then
            If CkSingle.Checked Then
                CkVas.Checked = 0
                Ckkf.Checked = 0
            End If
        ElseIf seltype = 1 Then
            If CkVas.Checked Then
                CkSingle.Checked = 0
                Ckkf.Checked = 0
            End If
        Else
            If Ckkf.Checked Then
                CkVas.Checked = 0
                CkSingle.Checked = 0
            End If
        End If
        Showme(TxtSPort, CkVas.Checked)
        Showme(TxtFee, CkVas.Checked)
        Showme(TxtLinkid, CkVas.Checked)
        Showme(TxtCount, (CkVas.Checked Or Ckkf.Checked))
        BtnRecv.Enabled = CkVas.Checked Or Ckkf.Checked
        Btnreport.Enabled = Ckkf.Checked
        If CkVas.Checked Then
            BtnSend.Text = "增值信息"
        ElseIf Ckkf.Checked Then
            BtnSend.Text = "客服信息"
        Else
            BtnSend.Text = "单向信息"
        End If
    End Sub
    Private Sub CkSingle_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CkSingle.CheckedChanged
        CkClick(0)
    End Sub

    Private Sub CkVas_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CkVas.CheckedChanged
        CkClick(1)
    End Sub

    Private Sub Ckkf_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ckkf.CheckedChanged
        CkClick(2)
    End Sub

    Private Sub BtnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTest.Click
        If Noconn() Then Exit Sub
        Dim retu_state As Integer
        If (clientsock > 0) Then
            retu_state = MongateTestConn(clientsock)
            If retu_state = 1 Then
                ListInfo.Items.Add("测试连接成功")
            Else
                ListInfo.Items.Add("测试连接失败")
                clientsock = 0
                BtnConn.Enabled = True
                BtnDisConn.Enabled = False
            End If
        End If
    End Sub

    Private Sub BtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click
        If Noconn() Then Exit Sub
        Dim retu_state As Long, icount As Integer
        Dim retu_msgnumber(40) As Byte
        If Noconn() Then Exit Sub
        If Trim(TxtCount.Text) = "" Then
            icount = 1
        Else
            icount = CInt(TxtCount.Text)
        End If
        If CkVas.Checked Then    '//增值信息
            retu_state = MongateVasSendSms(clientsock, Trim(TxtFee.Text), _
            Trim(TxtSPort.Text), "00********", Trim(TxtLinkid.Text), _
            Trim(TxtPhone.Text), Trim(TxtMsg.Text), icount)
            If (retu_state = 1) Then
                ListInfo.Items.Add("发送增值信息成功!")
            Else
                ListInfo.Items.Add("发送增值信息失败!返回:" + CStr(retu_state))
            End If
        ElseIf Ckkf.Checked Then  '//客服信息
            retu_state = MongateCsSendSms(clientsock, Trim(TxtPhone.Text), _
                 Trim(TxtMsg.Text), icount, retu_msgnumber(0))
            If (retu_state = 1) Then
                ListInfo.Items.Add("发送客服信息成功!信息编号:" _
                + System.Text.Encoding.GetEncoding("gb2312").GetString(retu_msgnumber).ToString())
            Else
                ListInfo.Items.Add("发送客服信息失败!返回:" + CStr(retu_state))
            End If
        Else '单向信息
            retu_state = MongateSendSms(clientsock, TxtPhone.Text, TxtMsg.Text)

            If (retu_state = 1) Then
                ListInfo.Items.Add("发送成功")
            Else
                ListInfo.Items.Add("发送失败")
            End If
        End If
    End Sub

    Private Sub BtnRecv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRecv.Click
        If Noconn() Then Exit Sub
        Dim recv(500, 254) As Byte
        Dim buf(255) As Byte
        Dim Str As String
        Dim num As Integer
        Dim i As Integer
        Dim k As Integer
        If (clientsock > 0) Then
            If Ckkf.Checked Then
                num = MongateCsGetSms(clientsock, recv(0, 0))
            Else
                num = MongateVasGetSms(clientsock, recv(0, 0))
            End If
            If (num > 0) Then
                For i = 0 To num - 1
                    For k = 0 To 254
                        buf(k) = recv(i, k)
                        If (buf(k) = 0) Then
                            Exit For
                        End If
                    Next
                    Str = System.Text.Encoding.GetEncoding("gb2312").GetString(buf).ToString()
                    ListInfo.Items.Add("接收信息:" & Str)
                Next
            Else
                ListInfo.Items.Add("接收无信息")
            End If
        End If
    End Sub

    Private Sub Btnreport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnreport.Click
        Dim recv(500, 254) As Byte
        Dim buf(255) As Byte
        Dim Str As String
        Dim num As Integer
        Dim i As Integer
        Dim k As Integer
        If (clientsock > 0) Then
            num = MongateCsGetStatusReport(clientsock, recv(0, 0))
            If (num > 0) Then
                For i = 0 To num - 1
                    For k = 0 To 254
                        buf(k) = recv(i, k)
                        If (buf(k) = 0) Then
                            Exit For
                        End If
                    Next
                    Str = System.Text.Encoding.GetEncoding("gb2312").GetString(buf).ToString()
                    ListInfo.Items.Add("状态报告:" & Str)
                Next
            Else
                ListInfo.Items.Add("无状态报告")
            End If
        End If
    End Sub

    Private Sub BtnUsed_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUsed.Click
        If Noconn() Then Exit Sub
        Dim myfee As Integer
        Dim myip As String, myport As String
        If (clientsock > 0) Then
            myfee = MongateQueryUsed(clientsock)
            If (myfee >= 0) Then
                ListInfo.Items.Add("查询使用成功" & myfee)
            Else
                ListInfo.Items.Add("查询使用失败" & myfee)
            End If
        End If

    End Sub

    Private Sub BtnLeft_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLeft.Click
        If Noconn() Then Exit Sub
        Dim myfee As Integer
        Dim myip As String, myport As String
        If (clientsock > 0) Then
            myfee = MongateQueryBalance(clientsock)
            If (myfee >= 0) Then
                ListInfo.Items.Add("查询余额成功" & myfee)
            Else
                ListInfo.Items.Add("查询余额失败" & myfee)
            End If
        End If
    End Sub

    Private Sub BtnChangePwd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnChangePwd.Click
        If Noconn() Then Exit Sub
        Dim myfee As Integer
        Dim myip As String, myport As String
        If (clientsock > 0) Then
            myfee = MongateChangePwd(clientsock, Trim(TxtAccount.Text), _
            Trim(TxtPwd.Text), Trim(TxtNewPwd.Text))
            If (myfee >= 0) Then
                ListInfo.Items.Add("修改密码成功，请记住新密码")
            Else
                ListInfo.Items.Add("修改密码失败")
            End If
        End If
    End Sub

    Private Sub BtnConn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnConn.Click
        If (clientsock <= 0) Then
            clientsock = MongateConnect(Trim(TxtIp.Text), CInt(Trim(TxtPort.Text)), _
               Trim(TxtAccount.Text), Trim(TxtPwd.Text))
            If (clientsock > 0) Then
                ListInfo.Items.Add("连接成功,句柄:" & clientsock)
                BtnConn.Enabled = False
                BtnDisConn.Enabled = True
            Else
                ListInfo.Items.Add("连接失败,返回:" & clientsock)
            End If
        End If
    End Sub

    Private Sub BtnDisConn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDisConn.Click
        If (clientsock > 0) Then
            MongateDisconnect(clientsock)
            ListInfo.Items.Add("断开连接,句柄:" + CStr(clientsock))
            clientsock = 0
            BtnConn.Enabled = True
            BtnDisConn.Enabled = False
        End If
    End Sub
End Class