vbs版IP地理位置查询小偷

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