WEB QQ登录VB实例

【文件属性】：
文件名称：WEB QQ登录VB实例
文件大小：32KB
文件格式：RAR
更新时间：2014-10-04 07:23:35
QQ登录 VB登录QQ 在本地登录WEB QQ Private Function getHtmlStr$(strUrl$) '获取源码 Dim XmlHttp Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "GET", strUrl, True XmlHttp.send stime = Now '获取当前时间 While XmlHttp.ReadyState <> 4 DoEvents ntime = Now '获取循环时间 If DateDiff("s", stime, ntime) > 3 Then getHtmlStr = "": Exit Function '判断超出3秒即超时退出过程 Wend getHtmlStr = StrConv(XmlHttp.ResponseBody, vbUnicode) Set XmlHttp = Nothing End Function

【文件预览】：
WEB QQ登录VB实例
----temp.jpg(3KB)
----工程1.vbw(51B)
----Form1.frx(8KB)
----Vb_autoBak()
--------工程1.abk(17KB)
----Module1.bas(3KB)
----工程1.vbp(928B)
----Form1.frm(8KB)
----MSSCCPRJ.SCC(190B)
----工程1.exe(40KB)