Shulou(Shulou.com)06/03 Report--

This article is about how vbs can search for proxy addresses. The editor thinks it is very practical, so share it with you as a reference and follow the editor to have a look.

The code is as follows:

'1. Enter the address of the url target web page, and the return value getHTTPPage is the html code of the target web page.

Function getHTTPPage (url)

Dim Http

Set Http=CreateObject ("MSXML2.XMLHTTP")

Http.open "GET", url,false

Http.send ()

If Http.readystate4 then

Exit function

End if

GetHTTPPage=bytesToBSTR (Http.responseBody, "GB2312")

Set http=nothing

If err.number0 then err.Clear

End function

'2. Convert random horse. If you call a web page with Chinese characters directly with xmlhttp, you will get random horse, which can be converted through adodb.stream component.

Function BytesToBstr (body,Cset)

Dim objstream

Set objstream = CreateObject ("adodb.stream")

Objstream.Type = 1

Objstream.Mode = 3

Objstream.Open

Objstream.Write body

Objstream.Position = 0

Objstream.Type = 2

Objstream.Charset = Cset

BytesToBstr = objstream.ReadText

Objstream.Close

Set objstream = nothing

End Function

'Let 's try to call the html content of http://www.proxycn.com/html_proxy/30fastproxy-1.html

Dim Url,Html,Temp

Url= "http://www.proxycn.com/html_proxy/30fastproxy-1.html"

Html = getHTTPPage (Url)

Call getinfo (html)

Sub Getinfo (S)

Dim pl (), mforce St

St= ""

Do

M = m + 1

N = P + Len (St)

P = InStr (nmai Sme St)

ReDim Preserve pl (mmur1)

Pl (mmur1) = P

Loop While P 0

For o = 0 to MMI 1

If oilfield 1

< m-1 Then T_S=Mid(S,pl(o)+Len(St),pl(o+1)-pl(o)-Len(St)) If Len(T_S) < 30 Then t=t+1 Select Case t Case 1 temp = temp & "端口 : " & T_S & vbcrlf Case 2 temp = temp & "类型 : " & T_S & vbcrlf Case 3 temp = temp & "地址 : " & T_S & vbcrlf Case 4 temp = temp & "时间 : " & Now & vbcrlf Case 5 t=0 Str_Sip = "whois.php?whois=" Str_Eip = "target=_blank>

Whois "

N1 = P_Sip + Len (Str_Sip)

P_Sip = InStr (N1 Smenade Strange Sip)

N2 = P_Eip + Len (Str_Eip)

P_Eip = InStr (N2 Smeng Strange Eip)

Ip=Mid (Str_Sip), P_Eip-P_Sip-Len (Str_Sip))

If PingIp (Ip) = 1 Then

Temp = temp & "IP:" & Ip & vbcrlf

If MsgBox (temp,vbyesno, "do you want to continue?") = vbno Then

WScript.quit

End If

End If

Temp = ""

End Select

End If

Else

MsgBox "gone", vbokonly, "hint"

WSCript.quit

End If

Next

End Sub

Function PingIp (host)

On Error Resume Next

StrComputer = "."

StrTarget = host

Set objWMIService = GetObject ("winmgmts:" _

& "{impersonationLevel=impersonate}!\" & strComputer & "\ root\ cimv2")

Set colPings = objWMIService.ExecQuery _

("Select * From Win32_PingStatus where Address ='" & strTarget & "'")

If Err = 0 Then

Err.Clear

For Each objPing in colPings

If Err = 0 Then

Err.Clear

If objPing.StatusCode = 0 Then

PingIp = 1

Temp = temp & "Speed:" & objPing.ResponseTime & "milliseconds" & vbcrlf

'MsgBox strTarget & "responded to ping." & vbcrlf & _

'"Responding Address:" & objPing.ProtocolAddress & vbcrlf & _

'"Responding Name:" & objPing.ProtocolAddressResolved & vbcrlf & _

'"Bytes Sent:" & objPing.BufferSize & vbcrlf & _

'"Time:" & objPing.ResponseTime & "ms" & vbcrlf & _

'"TTL:" & objPing.ResponseTimeToLive & "seconds"

Else

PingIp = 0

'MsgBox strTarget & "did not respond to ping." & _

'"StatusCode:" & objPing.StatusCode

End If

Else

Err.Clear

PingIP = 0

'MsgBox "Unable to call Win32_PingStatus on" & strComputer & "."

End If

Next

Else

Err.Clear

PingIp = 0

'MsgBox "Unable to call Win32_PingStatus on" & strComputer & "."

End If

End Function

Thank you for reading! This is the end of the article on "how to achieve the search agent address in vbs". I hope the above content can be of some help to you, so that you can learn more knowledge. if you think the article is good, you can share it out for more people to see!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.