基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

这是一个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