VB如何用WINSOCK登录网站? 请代码举例 - VB / 基础类

如何用WINSOCK登录网站? 请代码举例

假设
用户名="123"
口令="456
验证码="ABCD"

我只想用WinSock

---

Private 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

winsock 封装程度很低，如果是 SSL，就没办法处理了。如果网站用了 G-Zip 压缩，处理起来也很困难。

---

这个主要设置通信端口，对方IP，检验方式

---

谢一楼,没太明白,不像是能登录的样子,因为没看出有用户名和密码的位置
继续等待高手

---

引用

先把分给我，我确认后，再把代码发到你的邮箱！放心我肯定信守承诺～！

好的, 接分

---

我的邮箱是:
tangxuewen@yahoo.com.cn