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

1. If WScript.Arguments.Count <> 1 Then  
2. WScript.Echo "Example: CScript " & WScript.ScriptName & " www.sohu.com"  
3. WScript.Quit  
4. End If  
5. url="http://www.seologs.com/ip-domains.html?domainname="&WScript.Arguments(0)  
6. Set oXMLHttpRequest = CreateObject("Msxml2.XMLHTTP")  
7. oXMLHttpRequest.Open "GET", url, False, False  
8. oXMLHttpRequest.Send  
9. str=oXMLHttpRequest.ResponseText  
10. ipos=instr(str,"<font face="&Chr(34)&"arial"&Chr(34)&">")  
11. ipend=instr(str,"<!---end loop--->")  
12. str=mid(str,ipos+19,ipend-ipos-139)  
13. str=Replace(str,"<b>","")  
14. str=Replace(str,"</b>","")  
15. str=Replace(str,"<small>","")  
16. str=Replace(str,"</small>","")  
17. str=Replace(str,"</font><font face="&chr(34)&"arial"&chr(34)&" size="&chr(34)&"-1"&chr(34)&">","")  
18. str=Replace(str,"Found"," Found")  
19. iposa=instr(str,"with")  
20. iposb=InStr(str,"1)")  
21. stra=mid(str,iposa,iposb-iposa)  
22. str=replace(str,stra,"lcx")  
23. str=replace(str,"lcx1)","<br>1)")  
24. 'wscript.echo str  
25. Set oXMLHttpRequest=Nothing  
26. Set objExplorer = WScript.CreateObject("InternetExplorer.Application")  
27. objExplorer.Navigate "about:blank"     
28. objExplorer.ToolBar = 0  
29. objExplorer.StatusBar = 0  
30. objExplorer.Visible = 1  
31. objExplorer.height=600  
32. objExplorer.width=500  
33. objExplorer.left=400  
34. objExplorer.resizable=0  
35. objExplorer.Document.Body.InnerHTML = str  
36.  
37. objExplorer.document.parentwindow.clipboardData.SetData "text", str  
38.  
39. Set objExplorer=nothing  
40.  
41.  
42. ========================正则：  
43.  
44. msg="请输入你要查询的IP或域名:"   
45. IP=Inputbox(msg,"域名查询","www.haiyangtop.net")  
46.  
47. If IP = "" Then IP = "www.haiyangtop.net"  
48. url = "http://www.seologs.com/ip-domains.html?domainname="& IP &""  
49. Body = getHTTPPage(url)  
50.  
51. Set Re = New RegExp  
52. Re.Pattern = "(<font face=""arial"">[\s\S]+</font> </td></tr></table>)"  
53. Set Matches = Re.Execute(Body)  
54. If Matches.Count>0 Then Body = Matches(0).value  
55.  
56. Set oXMLHttpRequest=Nothing  
57. Set objExplorer = WScript.CreateObject("InternetExplorer.Application")  
58. objExplorer.Navigate "about:blank"    
59. objExplorer.ToolBar = 0  
60. objExplorer.StatusBar = 0  
61. objExplorer.Visible = 1  
62. objExplorer.height=300  
63. objExplorer.width=400  
64. objExplorer.left=400  
65. objExplorer.resizable=0  
66. objExplorer.Document.Body.InnerHTML =IP & Body  
67.  
68. 'objExplorer.document.parentwindow.clipboardData.SetData "text", IP & Body  
69.  
70. Set objExplorer=nothing  
71.  
72.  
73. '函数区  
74.  
75. Function getHTTPPage(Path)  
76.        t = GetBody(Path)  
77.        getHTTPPage = BytesToBstr(t, "GB2312")  
78. End Function  
79.  
80. Function GetBody(url)  
81.       On Error Resume Next  
82.       Set Retrieval = CreateObject("Microsoft.XMLHTTP")  
83.       With Retrieval  
84.           .Open "Get", url, False, "", ""  
85.           .Send  
86.            GetBody = .ResponseBody  
87.       End With  
88.       Set Retrieval = Nothing  
89. End Function  
90.  
91. Function BytesToBstr(Body, Cset)  
92.       Dim objstream  
93.       Set objstream = CreateObject("adodb.stream")  
94.        objstream.Type = 1  
95.        objstream.Mode = 3  
96.        objstream.Open  
97.        objstream.Write Body  
98.        objstream.Position = 0  
99.        objstream.Type = 2  
100.        objstream.Charset = Cset  
101.        BytesToBstr = objstream.ReadText  
102.        objstream.Close  
103.       Set objstream = Nothing  
104. End Function