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


您可能感兴趣的文章:

声明：本站（华域联盟www.cnhackhy.com）所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。