vb小偷程序

Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False
.Send
GetURL = bytes2bstr(.responsebody)
If Len(.responsebody) < 10 Then
response.write "截取目标网址失败" & Zid
response.end
End If
End With
Set Retrieval = Nothing
End Function
Function bytes2bstr(vin)
strreturn = ""
For i = 1 To LenB(vin)
thischarcode = AscB(MidB(vin, i, 1))
If thischarcode < &H80 Then
strreturn = strreturn & Chr(thischarcode)
Else
nextcharcode = AscB(MidB(vin, i + 1, 1))
strreturn = strreturn & Chr(CLng(thischarcode) * &H100 + CInt(nextcharcode))
i = i + 1
End If
Next
bytes2bstr = strreturn
End Function
Private Sub Form_Load()
Dim htmls
htmls = GetURL("http://192.168.0.77/s/login.jsp")
Debug.Print htmls
End Sub

文章来自: 本站原创
引用通告地址: http://www.is21.cn/trackback.asp?tbID=238
Tags: