濮阳杆衣贸易有限公司

主頁(yè) > 知識(shí)庫(kù) > vbs版IP地理位置查詢小偷

vbs版IP地理位置查詢小偷
熱門標(biāo)簽：外呼系統(tǒng)說(shuō)話聲音小怎么辦 墨西哥地圖標(biāo)注app 外呼系統(tǒng)群 上海辦理400電話選號(hào) 企業(yè)400電話辦理價(jià)錢低 天津智能外呼系統(tǒng)排名 智云億呼電話機(jī)器人 機(jī)器人打電銷適用于美業(yè)嗎 龍巖400電話申請(qǐ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 文本文件編碼查詢工具
  • 通過(guò)IIS自帶工具Iisapp.vbs查詢哪個(gè)w3wp.exe站點(diǎn)占用資源(cpu或內(nèi)存)
  • VBS實(shí)現(xiàn)查詢服務(wù)的制造商

標(biāo)簽：齊齊哈爾 承德 青島 錫林郭勒盟 鄂爾多斯 阜新 黃山 麗水

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs版IP地理位置查詢小偷》，本文關(guān)鍵詞  vbs,版,地理位置,查詢,小偷,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《vbs版IP地理位置查詢小偷》相關(guān)的同類信息！
  • 本頁(yè)收集關(guān)于vbs版IP地理位置查詢小偷的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    隆化县| 北辰区| 宝鸡市| 茶陵县| 淮阳县| 井冈山市| 云和县| 黄龙县| 锡林浩特市| 乐亭县| 河北区| 隆安县| 嵊泗县| 新民市| 永平县| 望都县| 兴城市| 连山| 桐柏县| 富平县| 龙陵县| 白河县| 阿克苏市| 丹阳市| 大安市| 齐齐哈尔市| 朝阳区| 原平市| 安徽省| 连南| 红安县| 宝山区| 昌图县| 桑日县| 龙海市| 区。| 文安县| 仁布县| 石景山区| 乌兰察布市| 年辖：市辖区|