我只想用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
