VBS版本的旁注查询器!

页面导航:首页 > 软件编程 > vb.net > VBS版本的旁注查询器!

VBS版本的旁注查询器!

来源: 作者: 时间:2016-01-21 10:23 【

VBS版本的旁注查询器!利用http://www.seologs.com/这个站提供的数据,又多又即时...Dim name,msg msg="请输入你要查询的域名:" name=Inputbox(msg,"URL")If name"" Thenurl="http://www.seologs.com/ip-domains.html?domainna

VBS版本的旁注查询器!
利用这个站提供的数据,又多又即时...

Dim name,msg
msg="请输入你要查询的域名:"
name=Inputbox(msg,"URL")
If name<>"" Then
url="?domainname="&name>http://www.logs.com/ip-domains.html?domainname="&name
Set oXMLHttpRequest = CreateObject("Msxml2.XMLHTTP")
oXMLHttpRequest.Open "GET", url, False, False
oXMLHttpRequest.Send
str=oXMLHttpRequest.ResponseText
ipos=instr(str,"<font face="&Chr(34)&"arial"&Chr(34)&">")
ipend=instr(str,"<!---end loop--->")
str=mid(str,ipos+19,ipend-ipos-139)
str=Replace(str,"<b>","")
str=Replace(str,"</b>","")
str=Replace(str,"<small>","")
str=Replace(str,"</small>","")
str=Replace(str,"</font><font face="&chr(34)&"arial"&chr(34)&" size="&chr(34)&"-1"&chr(34)&">","")
str=Replace(str,"Found"," Found")
iposa=instr(str,"with")
iposb=InStr(str,"1)")
stra=mid(str,iposa,iposb-iposa)
str=replace(str,stra,"lcx")
str=replace(str,"lcx1)","<br>1)")

Set oXMLHttpRequest=Nothing
Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Visible = 1
objExplorer.height=600
objExplorer.width=500
objExplorer.left=400
objExplorer.resizable=0
objExplorer.Document.Body.InnerHTML = str

objExplorer.document.parentwindow.clipboardData.SetData "text", str

Set objExplorer=nothing

End IF

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<