查看完整版本: 关于找回本站的方法

关于找回本站的方法

本篇文章的代码灵感来自于 mcitp 的 《万能的访问Sexinsex的方法，会的朋友也支持下》

将以下代码存成后缀名为vbs的文件后双击 即可自动使用默认浏览器轻松的访问本站

使用的是google的DNS做的解析 大家喜欢就顶一下吧 我在WIN7上测试通过了 请大家也尝试在 VISTA 和 XP 上测试一下吧[code]Set objShell = CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec ("%comspec% /c " & "nslookup www.sexinsex.net 8.8.8.8")
Do While Not objExecObject.StdOut.AtEndOfStream
strText = objExecObject.StdOut.ReadAll()
loop
Set regEx = New RegExp
regEx.Pattern = "(\d{1,3}\.){3}\d{1,3}"
regEx.Global = True
Set Matches = regEx.Execute(strText)
For Each Match In Matches
    if Match.Value<>"8.8.8.8" then
        GetObject("", "WScript.Shell").Run "http://" & Match.Value
        WScript.Quit(0)
    end if
Next[/code]

刚刚试了一下，真的好用，再也不用为找不到网站烦恼了。

我用的是XP，可是用了以后打不开，真遗憾。

回复 3楼 的帖子

嗯 请详细说明下具体情况 可能是用360卫士 禁止执行了系统Script

刚刚用了一下 确实好用可以打开，我用的是XP系统 把文件后缀改成vbs前 要把隐藏已知文件类型的扩展名前面的对号去掉，才可以改，XP是这样的

一定要试一下，看看多种方法有季才知道什么的好呢？！

xp系统无效！楼主能否再改进一下？

:cry

测试过 应该改进下

回复 7楼 的帖子

应该是可以的 可能是由于你使用的某些安全软件禁用了vbs脚本

不太懂代码，但可以照做，收藏了，留着备用，感谢楼主辛苦。