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



相关阅读:
不同浏览器的CSS Hack写法小结
Windows Vista系统下彻底屏蔽Office正版增值计划的提示
打造超酷的PHP数据饼图效果实现代码
PHP字符串函数系列之nl2br(),在字符串中的每个新行 (\n) 之前插入 HTML 换行符br
JavaScript入门教程(1) 什么是JS
asp.net 页面延时五秒,跳转到另外的页面
XP 内存不能为read怎么解决
互联网公司招聘web前端笔试题目
CSS关于初学者的问题
VBS正则表达式对象的MultiLine属性
linux下破解SAM密码
php操作JSON格式数据的实现代码
IIS备份和还原方法
SSH登录linux妙用后台命令
快速导航
PHP MySQL HTML CSS JavaScript MSSQL AJAX .NET JSP Linux Mac ASP 服务器 SQL jQuery C# C++ java Android IOS oracle MongoDB SQLite wamp 交通频道 作文范文 教育局长先进性教育党性分析(剖析)材料 选调村官工作总结 重生的白蝶 观暖春有感 公司任职员工辞职报告范文 人生一世浮华若梦,总有一人视你如命 余光中优美散文:记忆像铁轨一样长 腿脚坐麻了怎么办 团结诞生希望 我觉得你真棒作文1000字 三月飞雪作文250字 琴声如斯作文 海绵宝宝的经典语句 小学六年级作文550字:看《惊涛骇浪》有感 《羚羊木雕》学案 雪.遐想 欣喜若狂的的唯美句子 论人性的意志力 荒凉的寂寞 抄袭的下场作文500字 母亲的爱 2015年市场部年度工作总结 花开花落花满天作文900字 你总是在丰富着我的联想 学校党委书记述职报告 服装店长职责 陪伴才是最长情的告白…… 天使带来的快乐 中国电影800字 生意淡了 2015卫生局新型农村合作医疗工作运行情况材料 等待一扇不开启的门 金融机构贷款增加论文 “雪战”到底(一) 我与我的网络儿子 如若,你来过 最新婚礼主持人精彩串词 ~~梦夏的微笑~~(二)作文700字 2016年中考英语作文预测:快递的优势 【励志故事】每次只追前一名 帮助,从小事做起 小学六年级作文400字:快乐的五一节 孔子的名言带解读 受伤后更懂得珍惜别人的感情 寻找喜悦 太原,你欠我一个拥抱 只因春天来 爱情文章:不懂 那些花曾经开过作文200字 读《我想有个高级妈妈》有感

Copyright © 2016 phpStudy |