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