佳木斯湛栽影视文化发展公司
主頁 > 知識(shí)庫 > vbs版IP地理位置查詢小偷

vbs版IP地理位置查詢小偷
熱門標(biāo)簽：美圖手機(jī) 服務(wù)器配置 網(wǎng)站文章發(fā)布 檢查注冊(cè)表項(xiàng) 智能手機(jī) 鐵路電話系統(tǒng) 銀行業(yè)務(wù) 呼叫中心市場(chǎng)需求
msg="請(qǐng)輸入你要查詢的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 = "(查詢結(jié)果為：.+)"
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


'函數(shù)區(qū)

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的參數(shù)化查詢,附VBSCRIPT(ASP)和C#(ASP.NET)函數(shù)
  • vbs版sql查詢分析器lcx作品
  • 可以查詢系統(tǒng)用戶名sid的vbs
  • 字符ANSI代碼查詢工具vbs版
  • QueryCode.vbs 文本文件編碼查詢工具
  • 通過IIS自帶工具Iisapp.vbs查詢哪個(gè)w3wp.exe站點(diǎn)占用資源(cpu或內(nèi)存)
  • VBS實(shí)現(xiàn)查詢服務(wù)的制造商

標(biāo)簽：沈陽 上海 樂山 長(zhǎng)治 紅河 滄州 河南 新疆

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs版IP地理位置查詢小偷》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    长白| 邵东县| 阜阳市| 惠来县| 天柱县| 加查县| 定西市| 荣昌县| 隆回县| 阳原县| 邛崃市| 广昌县| 固安县| 南城县| 德钦县| 西平县| 固原市| 英吉沙县| 庐江县| 清镇市| 山阴县| 黑龙江省| 孟村| 土默特右旗| 双牌县| 宜昌市| 黄石市| 福泉市| 通城县| 明溪县| 哈尔滨市| 女性| 大冶市| 河曲县| 太和县| 名山县| 无极县| 清新县| 礼泉县| 夏津县| 留坝县|