UC知道请教 VBS 暗弹网页代码
来源：百度知道 编辑：UC知道 时间：2024/06/08 12:14:06
用VBS怎么写一段代码，运行后1秒弹出一个网页 3秒后再弹另外一个地址，要暗弹的代码
比如 1.vbs
运行后1秒弹出http://www.hao123.com/
3秒后弹http://www.baidu.com/
要后台弹出的代码，不要明弹的
附加问题：
1：VBS运行后能否延时把自己删除？
2：用VB做，把上面的功能都考虑进去，做个生成器，应该怎么做？
问题解决了breakan在第一时间给了我答案，可惜漏了个暗弹，接着Luma给了个完整答复，我采用的就是他的，因为只能有一个答案，所以只能和breakan说声不好意思啦~
VB的问题有人知道的话可以给我留言，我另外开个提问来问，先谢了~
2：用VB做，把上面的功能都考虑进去，做个生成器，应该怎么做？
比如 1.vbs
运行后1秒弹出http://www.hao123.com/
3秒后弹http://www.baidu.com/
要后台弹出的代码，不要明弹的
附加问题：
1：VBS运行后能否延时把自己删除？
2：用VB做，把上面的功能都考虑进去，做个生成器，应该怎么做？
问题解决了breakan在第一时间给了我答案，可惜漏了个暗弹，接着Luma给了个完整答复，我采用的就是他的，因为只能有一个答案，所以只能和breakan说声不好意思啦~
VB的问题有人知道的话可以给我留言，我另外开个提问来问，先谢了~
2：用VB做，把上面的功能都考虑进去，做个生成器，应该怎么做？
我的可以暗弹，如果想显示，把下面第4、6行最后的,0删掉即可。VBS可以删除自己，看下面代码：
#####################################################
Dim ws
Set ws=CreateObject("wscript.shell")
wscript.sleep 1000
ws.Run "iexplore.exe http://www.hao123.com/",0
wscript.sleep 3000
ws.Run "iexplore.exe http://www.baidu.com/",0
wscript.sleep 1000
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(WScript.ScriptName)
#####################################################
Dim objws
Set objws=WScript.CreateObject("wscript.shell")
Set objfs=CreateObject("scripting.filesystemobject")
WScript.Sleep 1000
objws.Run "iexplore www.hao123.com"