用vbs实现虚拟主机和域名查循的脚本
导读：收集整理的这篇文章主要介绍了用vbs实现虚拟主机和域名查循的脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 If WScript.arguments.Count <>...
收集整理的这篇文章主要介绍了用vbs实现虚拟主机和域名查循的脚本，觉得挺不错的，现在分享给大家，也给大家做个参考。 If WScript.arguments.Count >
1 Then WScript.Echo "Example: CScript " & WScript.ScriptName & " www.sohu.COM"
WScript.QuIT
End If
url="http://www.seoLOGs.com/ip-domains.htML?domainname="& WScript.arguments(0)
Set oXMLHttPRequest = CreateObject("Msxml2.XMLHTTP")
oXMLHttpRequest.OPEn "GET", url, False, False
oXMLHttpRequest.Send
str=oXMLHttpRequest.ResponseText
IPOs=instr(str,"font face="& Chr(34)& "arial"& Chr(34)& "> ")
ipend=instr(str,"!---end loop---> ")
str=mid(str,ipos+19,ipend-ipos-139)
str=Replace(str,"b> ","")
str=Replace(str,"/b> ","")
str=Replace(str,"small> ","")
str=Replace(str,"/small> ","")
str=Replace(str,"/font> font face="& chr(34)& "arial"& chr(34)& " size="& chr(34)& "-1"& chr(34)& "> ","")
str=Replace(str,"Found"," Found")
iposa=instr(str,"with")
iposb=InStr(str,"1)")
stra=mid(str,iposa,iposb-iposa)
str=replace(str,stra,"lcx")
str=replace(str,"lcx1)","br> 1)")
'wscript.echo str
Set oXMLHttpRequest=Nothing
Set objExplorer = WScript.CreateObject("internetExplorer.Application")
objExplorer.navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.statusbar = 0
objExplorer.Visible = 1
objExplorer.height=600
objExplorer.width=500
objExplorer.left=400
objExplorer.resizable=0
objExplorer.Document.Body.InnerHTML = str
objExplorer.document.parentwindow.clipboardData.SetData "text", str
Set objExplorer=nothing
========================正则：
msg="请输入你要查询的IP或域名:"
IP=Inputbox(msg,"域名查询","www.haiyangtop.net")
If IP = "" Then IP = "www.haiyangtop.net"
url = "http://www.seologs.com/ip-domains.html?domainname="& IP & ""
Body = getHTTPPage(url)
Set Re = New RegExp
Re.Pattern = "(font face=""arial""> [\s\S]+/font> /td> /tr> /table> )"
Set matches = Re.Execute(Body)
If Matches.Count> 0 Then Body = Matches(0).value
Set oXMLHttpRequest=Nothing
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Visible = 1
objExplorer.height=300
objExplorer.width=400
objExplorer.left=400
objExplorer.resizable=0
objExplorer.Document.Body.InnerHTML =IP & Body
'objExplorer.document.parentwindow.clipboardData.SetData "text", IP & Body
Set objExplorer=nothing
'函数区
Function getHTTPPage(Path)
t = GetBody(Path)
getHTTPPage = BytestoBstr(t, "GB2312")
End Function
Function GetBody(url)
On Error Resume Next
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetBody = .ResponseBody
End With
Set Retrieval = Nothing
End Function
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
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： 用vbs实现虚拟主机和域名查循的脚本
本文地址： https://pptw.com/jishu/609676.html