vbs版IP地理位置查询小偷
导读：收集整理的这篇文章主要介绍了vbs版IP地理位置查询小偷，觉得挺不错的，现在分享给大家，也给大家做个参考。 msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"...
收集整理的这篇文章主要介绍了vbs版IP地理位置查询小偷，觉得挺不错的，现在分享给大家，也给大家做个参考。 msg="请输入你要查询的IP或域名:" IP=Inputbox(msg,"IP地理位置查询小偷")
If IP = "" Then IP = "127.0.0.1"
url = "http://www.ip.cn/?q="& IP & ""
Body = getHTTPPage(url)
Set Re = New RegExp
Re.Pattern = "(查询结果为：.+)"
Set matches = Re.Execute(Body)
If Matches.Count> 0 Then Body = Matches(0)
'Re.Pattern = "\[[\s\S]*\]"
'Body = Re.Replace(Body, "")
'wscript.echo IP & Body
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, "UTF-8")
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
您可能感兴趣的文章:
- ACCESS的参数化查询,附VBSCRIPT(ASP)和C#(ASP.NET)函数
- vbs版sql查询分析器lcx作品
- 可以查询系统用户名sid的vbs
- 字符ANSI代码查询工具vbs版
- QueryCode.vbs 文本文件编码查询工具
- 通过IIS自带工具Iisapp.vbs查询哪个w3wp.exe站点占用资源(cpu或内存)
- VBS实现查询服务的制造商
声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！
若转载请注明出处： vbs版IP地理位置查询小偷
本文地址： https://pptw.com/jishu/609679.html