VB Winsock CGI implements QQ (OICQ) online detection (support proxy server)! Standard EXE routine download http://microinfo.top263.net/zip/wskqqExe.zip
'Please "reference" -> "View" -> "Windows directory /SYSTEM/MSWINSCK.OCX"Option ExplicitDim sResponse As StringDim WithEvents WinsockX As MSWinsockLib.WinsockDim WithEvents WinsockListenX As MSWinsockLib.WinsockPrivate Sub Check1_Click () Text2.Enabled = VBA. IIf (Check1.Value = vbChecked, True, False) Text3.Enabled = Text2.EnabledEnd SubPrivate Sub Check2_Click () If Check2.Value = vbChecked Then Text4.Enabled = False WinsockListenX.Protocol = sckTCPProtocol WinsockListenX.LocalPort = CInt (Text4.Text ) WinsockListenX.ListenElse Text4.Enabled = True If WinsockX.State <> sckClosed Then WinsockX.Close End If If WinsockListenX.State <> sckClosed Then WinsockListenX.Close End IfEnd IfEnd SubPrivate Sub Command1_Click () sResponse = "" Command1.Enabled = FalseMe .MousePointer = vbHourglassDim i As LongIf WinsockX.State <> sckClosed Then WinsockX.CloseEnd IfWinsockX.Protocol = sckTCPProtocolIf Check1.Value = vbChecked Then WinsockX.Connect Trim (Text2.Text), CInt (Text3.Text) Else WinsockX.Con Nect "Search.tencent.com", 80nd IFDO Until Winsockx.State = Sckconnected Doevents i = i 1 IF I> 50000 Then IF VBA.MSGBOX ("Timeout, Retry", VBQuestion Vbyesno) = Vbyes Then i = 0 else Command1.enabled = true me.mousepointer = VBDefault exit subsideness ifefault devockx.senddata "post" & vba.iif (check1.value = vbChecked, "http://search.tencent.com", "") & "/ CGI-BIN / Friend / OICQ_FIND HTTP / 1.1 "& VBCRLF _ &"
Accept: image / gif, image / x-xbitmap, image / jpeg, image / pjpeg, application / vnd.ms-excel, application / msword, application / vnd.ms-powerpoint, * / * "& vbrlf _ &" accept -Language: EN-CN "& VBCRLF _ &" Content-Type: Application / X-WWW-FORM-URLENCODED "& VBCRLF _ &" Accept -Encoding: Gzip, Deflate "& Vbrlf _ &" User-Agent: mozilla / 4.0 (Compatible; Msie 5.5; Windows 98; WIN 9X 4.90) "& VBCRLF _ &" Host: "& Winsockx.Remotehost & Vbcrlf _ &" Content-Length: "& VBA.LEN (VBA.Trim (" OICQ_NO = " & Vba.trim (TEXT1.TEXT) & "& MOV = 0 & Begnum = 0")) & vbcrf _ & "Connection: Keep -alive" & vbcrlf _ & "cookie: 3wave = 1" & vbrlf & vbcrf _ & "OICQ_NO = "& Vba.trim (Text1.Text) &" & MOV = 0 & Begnum = 0 "end subprivate sub flow_load () text1.text =" 6881818 "text2.text =" 192.168.0.1 "text3.text =" 8080 "text4.text = "80" SET WINSOCKX = New MswinsockLib.winsockset WinsockListenx = New MSWinsockL ib.WinsockCheck1_ClickCheck2_ClickEnd SubPrivate Sub WinsockListenX_ConnectionRequest (ByVal requestID As Long) If WinsockX.State <> sckClosed Then WinsockX.CloseEnd IfWinsockX.Accept requestIDEnd SubPrivate Sub WinsockX_Close () Command1.Enabled = TrueMe.MousePointer = vbDefaultIf sResponse Like "* http: // img .tencent.com / face / * - 3.gif * "The msgbox" OFF line! "elseif SRESPONSE LIKE"
* http://img.tencent.com/face/*-2.gif* "The msgbox" on line! "elseif SRESPONSE LIKE" * http://img.tencent.com/face/1.gif* ! "Then MsgBox" Hide "End IfEnd SubPrivate Sub WinsockX_DataArrival (ByVal bytesTotal As Long) Dim s As StringWinsockX.GetData s, vbStringIf Check2.Value = vbChecked Then MsgBox sEnd IfsResponse = sResponse & sEnd SubActiveX DLL routines Download: http: // MicroInfo.top263.net/zip/wskqqdll.zip