服务器之家

服务器之家 > 正文

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

时间:2020-07-22 13:48     来源/作者: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  
标签:

相关文章

热门资讯

2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全
2020微信伤感网名听哭了 让对方看到心疼的伤感网名大全 2019-12-26
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享
歪歪漫画vip账号共享2020_yy漫画免费账号密码共享 2020-04-07
男生常说24816是什么意思?女生说13579是什么意思?
男生常说24816是什么意思?女生说13579是什么意思? 2019-09-17
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意
沙雕群名称大全2019精选 今年最火的微信群名沙雕有创意 2019-07-07
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分
玄元剑仙肉身有什么用 玄元剑仙肉身境界等级划分 2019-06-21
返回顶部