国产精品日日做人人爱,搜查官中文字幕一区二区,国产成人毛片毛片久久网,很污很黄而且免费的网站

VB6

VB6代碼示例

Private Sub Form_Load()
    Winsock1.Protocol = sckTCPProtocol
    Winsock1.RemoteHost = "api.isms.wx96.com"
    Winsock1.RemotePort = 80
    Winsock1.Connect
    DoEvents
         
    If Winsock1.State <> 7 Then Label1.Caption = "狀態(tài):服務(wù)器連接成功" & Chr(13)
         
    Text1.Text = "用戶名"
    Text2.Text = "密碼為APIKEY(可以登錄用戶中心查看)"
    Text3.Text = "手機(jī)號(hào)碼"
    Text4.Text = "Your verification code is 1125"
         
End Sub
Private Sub Command1_Click()
 
    On Error Resume Next
 
    Dim PostData As String
    Dim Str As String
      
    Dim strWebPage As String
    Dim strCommand As String
         
    PostData = "account=" + toUTF8(Text1.Text) + "&password=" + toUTF8(Text2.Text) + "&mobile=" + toUTF8(Text3.Text) + "&content=" + toUTF8(Text4.Text)
     
    Dim Ai() As Byte
    Ai = StrConv(strWebPage, vbFromUnicode)
    CLength = UBound(Ai) + 1
    Str = "POST /webservice/isms.php?method=Submit HTTP/1.1" + vbCrLf
    Str = Str + "Accept: */*" + vbCrLf
    Str = Str + "Content-Type: application/x-www-form-urlencoded" + vbCrLf
    Str = Str + "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; Maxthon; .NET CLR 1.1.4322)" & vbCrLf
    Str = Str + "Language: zh-CN, zh, *" + vbCrLf
    Str = Str + "Connection: Keep-Alive" + vbCrLf
    Str = Str + "Host: api.voice.wx96.com" + vbCrLf
    Str = Str + "Accept-Language: zh-CN, zh, *" + vbCrLf
    Str = Str + "Accept-Encoding: gzip, deflate" & vbCrLf
    Str = Str & "Content-Length: " & Len(PostData) & vbCrLf & vbCrLf
    Str = Str & PostData & vbCrLf
 
 
     
    strWebPage = "http://api.isms.wx96.com/webservice/isms.php?method=Submit&account=" + toUTF8(Text1.Text) + "&password=" + toUTF8(Text2.Text) + "&mobile=" + toUTF8(Text3.Text) + "&content=" + toUTF8(Text4.Text)
    strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf
    strCommand = strCommand + vbCrLf
     
    'MsgBox strWebPage
     
    If Winsock1.State <> 7 Then
        Winsock1.Protocol = sckTCPProtocol
        Winsock1.RemoteHost = "api.isms.wx96.com"
        Winsock1.RemotePort = 80
        Winsock1.Connect
        DoEvents
        Winsock1.SendData Str
    Else
        Winsock1.SendData strCommand
    End If
     
 
 
    'Label1.Caption = "狀態(tài):" & strState & Chr(13) & strCommand & Chr(13)
     
End Sub
 
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec() As Byte
Winsock1.GetData rec, vbString
'MsgBox Utf8ToUnicode(Right(rec, 150))
 
Label2.Visible = True
Label2.Caption = Utf8ToUnicode(rec)
 
Winsock1.Close
End Sub




在線咨詢
電話咨詢

服務(wù)熱線:

4008 808 898

服務(wù)熱線(工作時(shí)間):

4008 808 898

業(yè)務(wù)咨詢(非工作時(shí)間):

4008 808 898

售后咨詢(非工作時(shí)間):

4008 808 898

我和肥熟岳销魂| 2022最新韩国理伦片在线观看| WWW内射国产在线观看| 日韩电影一区二区在线观看| 香蕉久久夜色精品国产| 免费永久在线观看黄网站| 看黄a大片成人影院免费| 人妻少妇精品一区三区久久| 搞女人出水视频在线观看| 日日夜夜噜噜噜| 狂插喷穴黑图库| 性高湖久久久久久久久aaaaa| 91青娱乐国产| 啊用力np视频| 91亚洲人人在字幕国产| 日韩 欧美p片内射久久| 欧美video性欧美熟妇| 2021年最新无码电影| 最近2019好看的中文字幕免费| 91久久久国产精品福利| 456极品嫩模在线视频| 91九色国产成人久久精品| 精品人妻无码一区二区三区下载| 黄色中文字幕一区二区三区| 不行了嗯干我小骚逼视频| 精品99久久久久久av| 无码人妻av免费一区二区三区 | 女生脱衣服露奶头和pp| 精品国产免费笫一区二区| 色综合久久久久久久久久| 一级少妇精品久久久久久久| 91国产在线观看视频网| 大鸡巴狂操小穴白虎视频| 教室停电 挺进她体内h| 看女人操骚逼逼骚逼大逼| 五月蜜桃图片伊人久久大| 爆操东北骚逼的视频展示| 欧洲美熟女乱又伦av影片| 亚洲欧美一区二区三区综合| 操老B乱伦视频| 伊人色综合一区|