[[wiki]wiki[/wiki]][/wiki]
复制内容到剪贴板
代码:
Dim name,msg
msg="请输入你要查询的[wiki]域名[/wiki]:"
name=Inputbox(msg,"[wiki]URL[/wiki]")
If name<>"" Then
url="http://www.[wiki]SEO[/wiki]logs.com/ip-domains.html?domainname="&name
Set o[wiki]XML[/wiki]HttpReq[wiki]UE[/wiki]st = Create[wiki]object[/wiki]("Msxml2.XMLHTTP")
oXMLHttpRequest.Open "GET", url, False, False
oXMLHttpRequest.Send
str=oXMLHttpRequest.ResponseText
i[wiki]POS[/wiki]=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 objE[wiki]XP[/wiki]lorer = WScript.CreateObject("InternetExplorer.Application")
objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.Stat[wiki]USB[/wiki]ar = 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
