主頁 > 知識庫 > vbs 搜索代理地址實現(xiàn)代碼[小偷程序]

vbs 搜索代理地址實現(xiàn)代碼[小偷程序]

熱門標簽:外呼營銷下單系統(tǒng) 打電話的外呼系統(tǒng)貴不貴 海外美發(fā)店地圖標注 百度地圖標注怎么卸載 辦理膠州400電話財稅 前鋒辦理400電話申請 陜西高頻外呼回撥系統(tǒng)哪家好 新密防封卡外呼系統(tǒng)違法嗎 加盟電銷機器人好的品牌

復制代碼 代碼如下:

'1、輸入url目標網(wǎng)頁地址,返回值getHTTPPage是目標網(wǎng)頁的html代碼
function getHTTPPage(url)
dim Http
set Http=CreateObject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
if err.number>0 then err.Clear
end function

'2、轉(zhuǎn)換亂瑪,直接用xmlhttp調(diào)用有中文字符的網(wǎng)頁得到的將是亂瑪,可以通過adodb.stream組件進行轉(zhuǎn)換
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

'下面試著調(diào)用http://www.proxycn.com/html_proxy/30fastproxy-1.html的html內(nèi)容
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(),m,St
St="/TD>TD class=" """list""" ">"
Do
m = m + 1
n = P + Len(St)
P = InStr(n,S,St)
ReDim Preserve pl(m-1)
pl(m-1) = P
loop While P > 0

For o = 0 to m-1
If o+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/TD>/TR>"
n1 = P_Sip + Len(Str_Sip)
P_Sip = InStr(n1,S,Str_Sip)
n2 = P_Eip + Len(Str_Eip)
P_Eip = InStr(n2,S,Str_Eip)
Ip=Mid(S,P_Sip+Len(Str_Sip),P_Eip-P_Sip-Len(Str_Sip))
If PingIp(Ip) = 1 Then
temp = temp "IP : " Ip vbcrlf
If MsgBox (temp,vbyesno,"是否繼續(xù)? " )=vbno Then
WScript.quit
End If
End If
temp = ""
End Select
End If
Else
MsgBox " 沒有了",vbokonly,"提示"
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 "速度 : " objPing.ResponseTime " 毫秒" 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." _
'"Status Code: " 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

標簽:梅州 阜陽 河南 牡丹江 四平 咸陽 武威 伊春

巨人網(wǎng)絡通訊聲明:本文標題《vbs 搜索代理地址實現(xiàn)代碼[小偷程序]》,本文關(guān)鍵詞  vbs,搜索,代理,地址,實現(xiàn),;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs 搜索代理地址實現(xiàn)代碼[小偷程序]》相關(guān)的同類信息!
  • 本頁收集關(guān)于vbs 搜索代理地址實現(xiàn)代碼[小偷程序]的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章