五月激情片,亚洲欧美成人综合久久久,黄色国产精品,精品久久伦理中文字幕,久久久久久久一精品,久久久99精品久久久久久

VB6

VB6代碼示例

Private Sub Form_Load()
    Winsock1.Protocol = sckTCPProtocol
    Winsock1.RemoteHost = "api.yx.wx96.com"
    Winsock1.RemotePort = 80
    Winsock1.Connect
    DoEvents
         
    If Winsock1.State <> 7 Then Label1.Caption = "狀態:服務器連接成功" & Chr(13)
         
    Text1.Text = "用戶名"
    Text2.Text = "密碼為APIKEY(可以登錄用戶中心查看)"
    Text3.Text = "手機號碼,多個號碼請用,隔開"
    Text4.Text = "尊敬的會員,您好,夏季新品已上市,請關注。退訂回TD【達信通】"
         
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/sms.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.yx.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.yx.wx96.com/webservice/sms.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.yx.wx96.com"
        Winsock1.RemotePort = 80
        Winsock1.Connect
        DoEvents
        Winsock1.SendData Str
    Else
        Winsock1.SendData strCommand
    End If
     
 
 
    'Label1.Caption = "狀態:" & 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




在線咨詢
電話咨詢

服務熱線:

4008 808 898

服務熱線(工作時間):

4008 808 898

業務咨詢(非工作時間):

4008 808 898

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

4008 808 898

主站蜘蛛池模板: 久久久久久久国产免费看 | 久久精品国产亚洲网站 | 国产精品不卡视频 | 亚洲精品免费在线 | 国产精品理论 | 免费无限看片的视频 | 九月丁香婷婷亚洲综合色 | 色一情一乱一伦黄 | 青青草伊人久久 | 99日精品欧美国产 | 欧美一区二区三区激情啪啪 | 日本久久中文字幕精品 | 欧美日韩国产精品自在自线 | 国产一级视频在线观看 | 精品久久久久久国产 | 久草成人 | 狠狠干中文字幕 | 国产羞羞事1000部在线观看 | 日韩欧美精品在线视频 | 99r精品在线| 国产永久免费高清在线观看视频 | 狠狠五月天小说 | 国产自产v一区二区三区c | a一区二区三区视频 | 人阁色第四影院在线电影 | 黑人中文字幕在线精品视频站 | 国产短视频精品区第一页 | 99视频在线免费看 | 四虎影院观看视频 | 91美女视频在线 | 蜜桃视频一区二区 | 激情五月开心网 | 四虎激情 | 99免费精品 | 免费人成年短视频在线观看网站 | 国产人人看 | 天天激情 | 四虎成人在线视频 | 国产免费人成在线视频视频 | 国产成人亚洲综合 | 精品视频网 |