服务器之家

服务器之家 > 正文

vbs版IP地理位置查询小偷

时间:2020-07-22 13:55     来源/作者:VBS教程网
  1. msg="请输入你要查询的IP或域名:"   
  2. IP=Inputbox(msg,"IP地理位置查询小偷")  
  3.  
  4. If IP = "" Then IP = "127.0.0.1"  
  5. url = "http://www.ip.cn/?q="& IP &""  
  6. Body = getHTTPPage(url)  
  7.  
  8. Set Re = New RegExp  
  9. Re.Pattern = "(查询结果为:.+)"  
  10. Set Matches = Re.Execute(Body)  
  11. If Matches.Count>0 Then Body = Matches(0)  
  12. 'Re.Pattern = "\[[\s\S]*\]"  
  13. 'Body = Re.Replace(Body, "")  
  14.  
  15. 'wscript.echo IP & Body  
  16. Set oXMLHttpRequest=Nothing  
  17. Set objExplorer = WScript.CreateObject("InternetExplorer.Application")  
  18. objExplorer.Navigate "about:blank"   
  19. objExplorer.ToolBar = 0  
  20. objExplorer.StatusBar = 0  
  21. objExplorer.Visible = 1  
  22. objExplorer.height=300  
  23. objExplorer.width=400  
  24. objExplorer.left=400  
  25. objExplorer.resizable=0  
  26. objExplorer.Document.Body.InnerHTML =IP & Body  
  27.  
  28. 'objExplorer.document.parentwindow.clipboardData.SetData "text", IP & Body  
  29.  
  30. Set objExplorer=nothing  
  31.  
  32.  
  33. '函数区  
  34.  
  35. Function getHTTPPage(Path)  
  36.       t = GetBody(Path)  
  37.       getHTTPPage = BytesToBstr(t, "UTF-8")  
  38. End Function  
  39.  
  40. Function GetBody(url)  
  41.      On Error Resume Next  
  42.      Set Retrieval = CreateObject("Microsoft.XMLHTTP")  
  43.      With Retrieval  
  44.          .Open "Get", url, False, """"  
  45.          .Send  
  46.           GetBody = .ResponseBody  
  47.      End With  
  48.      Set Retrieval = Nothing  
  49. End Function  
  50.  
  51. Function BytesToBstr(Body, Cset)  
  52.      Dim objstream  
  53.      Set objstream = CreateObject("adodb.stream")  
  54.       objstream.Type = 1  
  55.       objstream.Mode = 3  
  56.       objstream.Open  
  57.       objstream.Write Body  
  58.       objstream.Position = 0  
  59.       objstream.Type = 2  
  60.       objstream.Charset = Cset  
  61.       BytesToBstr = objstream.ReadText  
  62.       objstream.Close  
  63.      Set objstream = Nothing  
  64. 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
返回顶部