Tag:Check the thief

  • VBS version IP location query thief

    Time:2020-7-14

    MSG: “please enter the IP or domain name you want to query:IP = InputBox (MSG, “IP location query thief”) If IP = “” Then IP = “127.0.0.1” url = “http://www.ip.cn/?q=”& IP &”” Body = getHTTPPage(url) Set Re = New RegExp Re.Pattern ‘(query result is:. +) “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 area 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”) […]