vb调用web service查询qq在线状态

这是一个VB.NET语言制作的一 个关于QQ在线状态的 web service引用功能应用实例

【核心代码】

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label3.Text = ""
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim qq As cn.com.webxml.ws1.MobileCodeWS = New cn.com.webxml.ws1.MobileCodeWS()
        Dim qqNumber As String = ""
        If String.IsNullOrEmpty(TextBox1.Text.Trim()) = False Then
            qqNumber = TextBox1.Text.Trim()
        End If
        Dim userid As String = ""
        If String.IsNullOrEmpty(TextBox2.Text.Trim()) = False Then
            userid = ":" & TextBox2.Text.Trim()
        End If
        Dim result As String = qq.getMobileCodeInfo(qqNumber, userid)

        TextBox3.Text = result
        If result = "Y" Then
            Label3.Text = qqNumber & " 在线"
        ElseIf result = "N" Then
            Label3.Text = qqNumber & " 离线"
        ElseIf result = "E" Then
            Label3.Text = qqNumber & " 号码错误"
        ElseIf result = "A" Then
            Label3.Text = "商业用户验证失败"
        ElseIf result = "V" Then
            Label3.Text = "免费用户超过数量"
        End If
    End Sub


End Class

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2020-04-05 20:56  QQsearchVB\
     目录           0  2020-04-05 20:56  QQsearchVB\Backup\
     目录           0  2020-04-05 20:56  QQsearchVB\Backup\QQsearchVB\
     文件           3  2010-08-07 18:41  QQsearchVB\Backup\QQsearchVB\ApplicationEvents.vb
     文件        4549  2010-08-07 14:55  QQsearchVB\Backup\QQsearchVB\Form1.Designer.vb
     文件        5814  2010-08-07 14:55  QQsearchVB\Backup\QQsearchVB\Form1.resx
     文件        1281  2010-08-07 14:55  QQsearchVB\Backup\QQsearchVB\Form1.vb
     目录           0  2020-04-05 20:56  QQsearchVB\Backup\QQsearchVB\My Project\
     文件        1513  2010-08-07 14:20  QQsearchVB\Backup\QQsearchVB\My Project\Application.Designer.vb
     文件         510  2010-08-07 14:20  QQsearchVB\Backup\QQsearchVB\My Project\Application.myapp
     文件        1081  2010-08-07 14:20  QQsearchVB\Backup\QQsearchVB\My Project\AssemblyInfo.vb
     文件        2798  2010-08-07 14:20  QQsearchVB\Backup\QQsearchVB\My Project\Resources.Designer.vb
     文件        5612  2008-01-11 15:55  QQsearchVB\Backup\QQsearchVB\My Project\Resources.resx
     文件        3676  2010-08-07 14:47  QQsearchVB\Backup\QQsearchVB\My Project\Settings.Designer.vb
     文件         552  2010-08-07 14:47  QQsearchVB\Backup\QQsearchVB\My Project\Settings.settings
     文件        6434  2010-08-07 18:42  QQsearchVB\Backup\QQsearchVB\QQsearchVB.vbproj
     目录           0  2020-04-05 20:56  QQsearchVB\Backup\QQsearchVB\Web References\
     目录           0  2020-04-05 20:56  QQsearchVB\Backup\QQsearchVB\Web References\cn.com.webxml.webservice\
     文件         654  2010-08-07 14:47  QQsearchVB\Backup\QQsearchVB\Web References\cn.com.webxml.webservice\Reference.map
     文件        6641  2010-08-07 14:47  QQsearchVB\Backup\QQsearchVB\Web References\cn.com.webxml.webservice\Reference.vb
     文件         841  2010-08-07 14:47  QQsearchVB\Backup\QQsearchVB\Web References\cn.com.webxml.webservice\qqOnlineWebService.disco
     文件        8377  2010-08-07 14:47  QQsearchVB\Backup\QQsearchVB\Web References\cn.com.webxml.webservice\qqOnlineWebService.wsdl
     文件        2077  2010-08-07 18:41  QQsearchVB\Backup\QQsearchVB\app.config
     文件         920  2010-08-07 14:20  QQsearchVB\Backup\QQsearchVB.sln
     文件       29696  2010-08-07 18:42  QQsearchVB\Backup\QQsearchVB.suo
     目录           0  2020-04-05 20:56  QQsearchVB\QQsearchVB\
     文件           3  2010-08-07 18:41  QQsearchVB\QQsearchVB\ApplicationEvents.vb
     文件           1  2017-07-13 14:12  QQsearchVB\QQsearchVB\ClassDiagram1.cd
     文件           1  2017-07-13 16:57  QQsearchVB\QQsearchVB\ClassDiagram2.cd
     文件        4968  2017-07-13 15:38  QQsearchVB\QQsearchVB\Form1.Designer.vb
     文件        5814  2017-07-13 15:38  QQsearchVB\QQsearchVB\Form1.resx
............此处省略61个文件信息