用vbs实现虚拟主机和域名查循的脚本

用vbs实现的可以查询虚拟主机和域名信息的脚本代码，保存为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