我只想用WinSockPrivate Sub Winsock1_Connect() Dim s As String ,s1 as string s1="https://passport.baidu.com/?login?password=456&safeflg=0&username=123&mem_pass=on s = "GET " & s1 & " HTTP/1.0" + vbCrLf s = s & "Accept: */*" & vbCrLf s = s & "Pragma: no-cache" & vbCrLf s = s & "Cache-Control: no-cache" & vbCrLf s = s & "Connection: close" & vbCrLf & vbCrLf s = s & vbCrLf Winsock1.SendData s End Sub 建议用 xmlhttp
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
