幽鬼狼魂 发表于 2007 年 7 月 21 日 13:29:39

请大家支持疯子帮，发一份查询域名的东西，最全数据库.cn .la 都可以查到。ip2domain


Dim name,msg
msg="请输入你要查询的域名:"
name=Inputbox(msg,"URL")
If name<>"" Then
url="http://www.seologs.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

保存成vbs
不是保存成vbvs！

wode998 发表于 2007 年 7 月 21 日 13:31:48

去尿过了

幽鬼狼魂 发表于 2007 年 7 月 21 日 13:33:25

也就你敢这么说！

wode998 发表于 2007 年 7 月 21 日 13:34:06

撒了2滴

幽鬼狼魂 发表于 2007 年 7 月 21 日 13:34:38

原帖由 wode998 于 2007-7-21 13:34 发表 http://www.jgwy.net/bbs/images/common/back.gif
撒了2滴
给你阳光你还真给灿烂了？

wode998 发表于 2007 年 7 月 21 日 13:35:20

回复 #5 幽鬼狼魂 的帖子

给你阳光，难道捡破烂？

幽鬼狼魂 发表于 2007 年 7 月 21 日 13:36:26

原帖由 wode998 于 2007-7-21 13:35 发表 http://www.jgwy.net/bbs/images/common/back.gif
给你阳光，难道捡破烂？
你捡破烂不是我。。

wode998 发表于 2007 年 7 月 21 日 13:37:02

无效的过程调用或参数

幽鬼狼魂 发表于 2007 年 7 月 21 日 13:37:58

原帖由 wode998 于 2007-7-21 13:37 发表 http://www.jgwy.net/bbs/images/common/back.gif
无效的过程调用或参数
靠，你输入
www.jgwy.net试试

suming 发表于 2007 年 7 月 21 日 13:39:39

可以用的说
页: [1] 2
查看完整版本: 请大家支持疯子帮，发一份查询域名的东西，最全数据库.cn .la 都可以查到。ip2domain