91av视频/亚洲h视频/操亚洲美女/外国一级黄色毛片 - 国产三级三级三级三级

  • 大小: 0.14M
    文件類型: .zip
    金幣: 1
    下載: 0 次
    發(fā)布日期: 2021-03-25
  • 語言: VB
  • 標(biāo)簽: web??

資源簡介

這是一個(gè)VB.NET語言制作的一 個(gè)關(guān)于QQ在線狀態(tài)的 web service引用功能應(yīng)用實(shí)例

【核心代碼】 

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 & " 號碼錯(cuò)誤"
        ElseIf result = "A" Then
            Label3.Text = "商業(yè)用戶驗(yàn)證失敗"
        ElseIf result = "V" Then
            Label3.Text = "免費(fèi)用戶超過數(shù)量"
        End If
    End Sub


End Class

資源截圖

代碼片段和文件信息

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????目錄???????????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個(gè)文件信息

評論

共有 條評論