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

幽鬼狼魂

1. 
   
2. Dim name,msg
   
3. msg="请输入你要查询的域名:"
   
4. name=Inputbox(msg,"URL")
   
5. If name<>"" Then
   
6. url="http://www.seologs.com/ip-domains.html?domainname="&name
   
7. Set oXMLHttpRequest = CreateObject("Msxml2.XMLHTTP")
   
8. oXMLHttpRequest.Open "GET", url, False, False
   
9. oXMLHttpRequest.Send
   
10. str=oXMLHttpRequest.ResponseText
    
11. ipos=instr(str,"<font face="&Chr(34)&"arial"&Chr(34)&">")
    
12. ipend=instr(str,"<!---end loop--->")
    
13. str=mid(str,ipos+19,ipend-ipos-139)
    
14. str=Replace(str,"<b>","")
    
15. str=Replace(str,"</b>","")
    
16. str=Replace(str,"<small>","")
    
17. str=Replace(str,"</small>","")
    
18. str=Replace(str,"</font><font face="&chr(34)&"arial"&chr(34)&" size="&chr(34)&"-1"&chr(34)&">","")
    
19. str=Replace(str,"Found"," Found")
    
20. iposa=instr(str,"with")
    
21. iposb=InStr(str,"1)")
    
22. stra=mid(str,iposa,iposb-iposa)
    
23. str=replace(str,stra,"lcx")
    
24. str=replace(str,"lcx1)","<br>1)")
    
25. 
    
26. Set oXMLHttpRequest=Nothing
    
27. Set objExplorer = WScript.CreateObject("InternetExplorer.Application")
    
28. objExplorer.Navigate "about:blank"
    
29. objExplorer.ToolBar = 0
    
30. objExplorer.StatusBar = 0
    
31. objExplorer.Visible = 1
    
32. objExplorer.height=600
    
33. objExplorer.width=500
    
34. objExplorer.left=400
    
35. objExplorer.resizable=0
    
36. objExplorer.Document.Body.InnerHTML = str
    
37. 
    
38. objExplorer.document.parentwindow.clipboardData.SetData "text", str
    
39. 
    
40. Set objExplorer=nothing
    
41. 
    
42. End IF
    

复制代码

保存成vbs
不是保存成vbvs！

wode998

去尿过了

幽鬼狼魂

也就你敢这么说！

wode998

撒了2滴

幽鬼狼魂

原帖由 wode998 于 2007-7-21 13:34 发表 [url=http://www.jgwy.net/bbs/redirect.php?goto=findpost&pid=2154804&ptid=16805174]

                               
登录/注册后可看大图

撒了2滴

给你阳光你还真给灿烂了？

wode998

给你阳光，难道捡破烂？

幽鬼狼魂

原帖由 wode998 于 2007-7-21 13:35 发表 [url=http://www.jgwy.net/bbs/redirect.php?goto=findpost&pid=2154808&ptid=16805174]

                               
登录/注册后可看大图

给你阳光，难道捡破烂？

你捡破烂不是我。。

wode998

无效的过程调用或参数

幽鬼狼魂

原帖由 wode998 于 2007-7-21 13:37 发表 [url=http://www.jgwy.net/bbs/redirect.php?goto=findpost&pid=2154812&ptid=16805174]

                               
登录/注册后可看大图

无效的过程调用或参数

靠，你输入
www.jgwy.net试试

suming

可以用的说