TA貢獻(xiàn)1799條經(jīng)驗(yàn) 獲得超6個(gè)贊
Option Explicit Dim strCommand As String Dim strWebPage As String Private Sub Command1_Click() Winsock1.RemoteHost = "202.103.176.81" '返回或設(shè)置遠(yuǎn)程計(jì)算機(jī)，控件向它發(fā)送數(shù)據(jù)或從它那里接收數(shù)據(jù)。既可提供主機(jī)名，比如 "FTP://ftp.microsoft.com"，也可提供點(diǎn)格式下的 IP 地址字符串，比如 "100.0.1.1"。 Winsock1.RemotePort = 80 '返回或設(shè)置要連接的遠(yuǎn)程端口號(hào) Winsock1.Connect '返回與遠(yuǎn)程計(jì)算機(jī)的連接。 End Sub Private Sub Winsock1_Connect() '當(dāng)一個(gè) Connect 操作完成時(shí)發(fā)生。 On Error Resume Next strWebPage = " http://202.103.176.81/crun/yingzi007/code_1.asp" strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf 'GET 為FTP命令 strCommand = strCommand + "Accept: */*" + vbCrLf '這句可以不要 strCommand = strCommand + "Accept: text/html" + vbCrLf '這句可以不要 strCommand = strCommand + vbCrLf '記住一定要加上vbCrLf Debug.Print strCommand Winsock1.SendData strCommand ''給遠(yuǎn)程計(jì)算機(jī)發(fā)送數(shù)據(jù) End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '當(dāng)新數(shù)據(jù)到達(dá)時(shí)產(chǎn)生該事件 On Error Resume Next '在錯(cuò)誤處理程序結(jié)束后，恢復(fù)原有的運(yùn)行 Dim webData As String Winsock1.GetData webData, vbString '檢取當(dāng)前的數(shù)據(jù)塊 Text1.Text = Text1.Text + webData End Sub
舉報(bào)