在“开始-”中，有一个叫run.vbs的文件。查找它的位置，是在“开始-程序-启动”下的一个文件，原来是随系统一起启动的一个程序。
用记事本打开，里面的内容是这样的：
DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C c:\windows\homepage.cmd", 0, TRUE)
呵呵，这没什么可怕的，你用的是一个GHOST版本的系统吧，系统作者在c:\windows\目录下放了一个修改IE首页的文件homepage.cmd，
而run.vbs的作用就是在每次开机时执行homepage.cmd文件而不会出现黑框框，你去c:\windows\目录下用编辑命令打开homepage.cmd
把里面的几个网址替换成为百度，以后你每次启动电脑以后，IE首页就自动被设置为百度了，去试试吧，呵呵
其他答案（共3个回答）
全名（Visual Basic Script）作为一种简单而强大的脚本语言，在现代Windows操作系统中日益发挥重要的作用。
开机弹出文件夹(以下方法不是说都用你可以选择使用)
1、开始/所有程序/“启动”中如果有这个文件夹的快捷方式删除（如果第1项已经解决下面就可不做了）。
2、下载超级兔子，选打造自己的系统/启动程序，有启动项选项，可以取消或可以在加上或彻底删除。
下载网址：
3、全能助手启动项管理专家 1.07
在他的启动项中有程序软件的图标，你可以很方便的将不需要开机启动的程序删除，如果需要这个程序开机启动时，软件还有备份可以恢复，即方便又安全试试吧。
下载网址：
4、点击"开始"/运行/输入msconfig后回车/点击"启动"/只保留"ctfmon/杀毒软件/防火墙,"其它前面的勾都去掉./然后点击"应用"/按"确定"（如果查找到某一选项的名和路径单独关闭更好），重启电脑，启动到桌面时会出现一个对话框，在对话框中添加对勾，确定即可。
5、去掉自启动项
开始/运行输入regedit回车打开注册表编辑器，依次展开
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]在右侧，
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]在右侧，
看看有没有你要找的选项，如果有删除，重启电脑即可。
6、用杀毒软件和恶意软件和木马强杀工具Windows清理助手（下载网址： ），在安全模式中查杀病毒和木马。
7、如果故障依旧，请你用系统自带的系统还原，还原到你没有出现这次故障的时候修复（如果正常模式恢复失败，请开机按F8进入到安全模式中使用系统还原）。
很明显这是个设置主页的玩艺，删除这个run.vbs和homepage.cmd
Vbs 文件一般是指用Visual Basic编辑器编写的源程序代码，需要借助Visual Basic编译器运行。
bat 文件一般是指批处理文件，可以用记事...
第二个方法可行。
你也可以在给你的应用程序在原文件夹下建个快捷方式，然后把它复制到开始程序里。开始程序目录是
C:\Documents and Setti...
很明显,上面的网站就是霸王网站,也就是通常所说的遭病毒侵袭后,自己设定的电脑首页被恶意篡改了.我的电脑也被一个叫"雪儿音乐网"的网站霸占过,一打开便是可恶...
大家还关注
确定举报此问题
举报原因(必选)：
广告或垃圾信息
激进时政或意识形态话题
不雅词句或人身攻击
侵犯他人隐私
其它违法和不良信息
报告，这不是个问题
报告原因(必选)：
这不是个问题
这个问题分类似乎错了
这个不是我熟悉的地区批处理与vbs混编如何互相传值/传递参数？ - BAT求助&讨论 -
批处理之家 批处理_BAT_CMD_DOS_VBS_Perl_Python_PowerShell - Powered by Discuz!
帖子186&积分297&技术13 &捐助0 &注册时间&
批处理与vbs混编如何互相传值/传递参数？
本帖最后由 pcl_test 于
22:48 编辑
看到这个帖子：
里面有如下的方法：第一行就是引用jscript到bat中，我想问的是，加入用同样的方式，如何将vbs也引入其中去？
当然我知道可以cscript 后直接可以接vbs文件名，但是可否也以同样的~f0的方式自我执行vbs？
帖子2089&积分14202&技术663 &捐助0 &注册时间&
貌似 vbs要生成临时文件才行
帖子186&积分297&技术13 &捐助0 &注册时间&
& & 就算生成临时文件，我最后的提问，如何进行遍历操作 vbs呢？或者能否前面是bat的dir，后面是运行vbs临时文件，整个主过程还是通过双击bat来完成？
帖子61&积分187&技术2 &捐助0 &注册时间&
原来楼主批也用得这么牛，佩服。。。不同的领域看到楼主了。。。
帖子186&积分297&技术13 &捐助0 &注册时间&
& & 惭愧惭愧！到现在还只是入门水平而已，多学几门语言，开拓下眼界
帖子61&积分187&技术2 &捐助0 &注册时间&
本帖最后由 loquat 于
01:56 编辑
:On Error Resume Next
echo off & cls
echo Batching_codez_here_following_vbs_rules & pause
start wscript -e:vbs &%~f0&
MsgBox &This is vbs&复制代码::' 带参数的版本
:On Error Resume Next
:Sub bat
echo off & cls
echo Batching_codez_here_following_vbs_rules & pause &nul
echo '&nul & start && wscript //e:vbscript &%~f0& %*
Exit Sub : End Sub
MsgBox &This is vbs&
for each i in wscript.arguments
wscript.echo i
next复制代码::' 另一种方案的混合
::' 源网址/paktc/item/27c33e3b1cf831be603aff97
' 2&nul &echo off &cls &fsutil file setshortname &%~nx0& &%~n0.vbs&
:'loop
' 2&nul &set /p inp=&你可以输入两个小数，本脚本尝试作乘法运算: &
' 2&nul &if &%inp%& == &exit& (exit)
' 2&nul &cscript //nologo &%~n0.vbs& %inp%
' 2&nul &pause &cls &goto :'loop
set x=wscript.arguments
call count(x(0),x(1))
sub count(a,b)
wscript.echo a*b
wscript.quit
end sub复制代码'vbs版cmd
'可执行bat，也可以执行vbs
'By zqz0012005@
'Version: 0.3& &&&
On Error Resume Next
host = WScript.FullName
f0 = WScript.ScriptFullName
dp0 = Left( f0, InstrRev(f0,&\&) )
if LCase( right(host, len(host)-InStrRev(host,&\&)) ) = LCase(&wscript.exe&) then
& & CreateObject(&WScript.Shell&).run &cmd /d /ccolor f9&title vbs-cmd& &_
& && &&&&&cscript //logo &&& & f0 & chr(34)
& & WScript.Quit
end if
set ws = CreateObject(&WScript.Shell&)
set wn = CreateObject(&WScript.Network&)
set fso = CreateObject(&Scripting.FileSystemObject&)
set dict = CreateObject(&Scripting.Dictionary&)
set sh = CreateObject(&Shell.Application&)
set wmi = GetObject(&winmgmts:{(debug, security, shutdown)}!\\.\root\cimv2&)
'set colps = wmi.instancesOf(&win32_process&)
'set colps = GetObject(&winmgmts:\\.\root\cimv2:win32_process&).instances_
set stdin = WScript.stdin
set stdout = WScript.stdout
stdout.writeline &可以直接运行vbs语句，要运行cmd命令，请在命令前加'cmd '（cmd空格）&& &'::现版本没有这条限制
do
& & stdout.writeBlankLines(1)
& & stdout.write ws.CurrentDirectory & vbCrLf & &# &
& & s=Trim(stdin.readLine)
& & Select Case 0
& && &&&Case StrComp(s,&exit&,1) wsh.quit
& && &&&Case StrComp(left(s,2),&cd&,1)
& && && && &if mid(s,3)=&& then
& && && && && & wsh.echo ws.CurrentDirectory
& && && && &elseif mid(s,3,1)=& & then
& && && && && & ws.CurrentDirectory = LTrim(mid(s,3))
& && && && &else
& && && && && & execStatementBlock
& && && && &end if
& && &&&Case StrComp(left(s,4),&cmd &,1)
& && && && &set oexec=ws.exec( &cmd /d /q /c& & LTrim(mid(s,4)) & &&exit& )
& && && && &'oexec.stdin.writeLine vbCrLf & &exit&
& && && && &stdout.write oexec.stdout.readall & oexec.stderr.readall
& && && && &set oexec=nothing
& && &&&Case StrComp(left(s,5),&wmic &,1)
& && && && &set oexec=ws.exec(&cmd /d /q /c echo exit|& & s)
& && && && &'oexec.stdin.writeLine vbCrLf & &exit&
& && && && &stdout.write oexec.stdout.readall & oexec.stderr.readall
& && && && &set oexec=nothing
& && &&&Case StrComp(s,&help&,1) call help()
& && &&&Case StrComp(s,&&) 'do nothing
& && &&&Case Else
& && && && &LastCode = execStatementBlock()
& && &&&'Case Else execute s
& && &&&'Case Else wsh.echo &[& & s & &]&
& & End Select
& & showErrMsg
loop
function execStatementBlock()
dim i, t
ReDim a(0)
a(0) = s
stdout.write &More? &
t = Trim(stdin.readLine)
do until t=&&
	i = i + 1
	ReDim Preserve a(i)
	a(i) = t
	stdout.write &More? &
	t = Trim(stdin.readLine)
loop
execute Join(a, &:&)
execStatementBlock = Join(a, vbCrLf)
end function
sub help()
stdout.writeline vbCrLf & &可以直接运行vbs语句，在More? 提示符后直接回车以完成输入。&
stdout.writeline &要运行cmd命令，请在命令前加'cmd '（cmd空格）。wmic类似。& & vbCrLf
stdout.writeLine &显示环境变量：printenv&
stdout.writeLine &f0 = & & f0
stdout.writeLine &dp0 = & & dp0
stdout.writeLine &常用对象：&
stdout.writeLine &ws = CreateObject(&&WScript.Shell&&)&
stdout.writeLine &wn = CreateObject(&&WScript.Network&&)&
stdout.writeLine &fso = CreateObject(&&Scripting.FileSystemObject&&)&
stdout.writeLine &dict = CreateObject(&&Scripting.Dictionary&&)&
stdout.writeLine &sh = CreateObject(&&Shell.Application&&)&
stdout.writeLine &wmi = GetObject(&&winmgmts:{(debug, security, shutdown)}!\\.\root\cimv2&&)&
end sub
sub showErrMsg()
if err.number&&0 then
& & wsh.echo err.source & &[errno=& & err.number & &]: & & err.description
& & err.clear
end if
end sub
sub calc(expression)
wsh.echo eval(expression)
end sub
sub ps()
dim colProc, proc
set colProc = wmi.ExecQuery(&select * from Win32_Process&)
for each proc in colProc
& & wsh.echo proc.name
& & wsh.echo proc.ExecutablePath
& & wsh.mandLine
& & wsh.echo &&
next
end sub
sub printenv()
dim envType, envset, env, i
envType = Array(&system&,&process&,&user&,&Volatile&)
for i=0 to UBound(envType)
&&wsh.echo vbCrLf & envType(i) & &类型的环境变量：&
&&set envset = ws.Environment(envType(i))
&&for each env in envset
& & wsh.echo env
&&next
next
end sub
sub env()
& & printenv()
end sub
sub dir()
end sub
'To be continued to complete and improve复制代码'这是VBS调用CMD
if wscript.arguments.count=0 then
& &createobject(&wscript.shell&).run _
& &&cmd /c cscript //nologo & &chr(34) &wscript.scriptname &chr(34) & & isme&
& &wscript.quit
:rem paktc
set fs=createobject(&scripting.filesystemobject&)
set inp=wscript.stdin
set put=wscript.stdout
while true
put.writeline &请输入将要读取的文本名称，或完整路径: &
& & pathx=replace(inp.readline,chr(34),&&)
& & if lcase(pathx)=&exit& then
& && &put.writeline &您选择了退出...&
& && &wscript.sleep 500
& && &inp.close : put.close
& && &wscript.quit
& & end if
& & if fs.fileexists(pathx) = false then
& && &put.writeline &文件不存在，请再输入一次。&
& && &put.writeline &建议拖拽文本到本窗口，可直接获得完整路径: &
& & end if
loop until fs.fileexists(pathx)
put.writeline &&
set readx=fs.opentextfile(pathx,1)
while readx.atendofstream = false
& & tempstr=readx.read(1)
& & put.write tempstr
& & if asc(tempstr)&0 or asc(tempstr)&255 then
& && &wscript.sleep 150
& && &wscript.sleep 100
& & end if
put.writeblanklines(2)
put.writeline && & 脚本提示,该文本已输出完毕。&
put.writeblanklines(2)
readx.close
wend复制代码
帖子3015&积分5176&技术644 &捐助0 &注册时间&
本帖最后由 pcl_test 于
06:56 编辑
以下代码均保存为bat文件运行
方式一，传递一个数据' 2&nul 3&nul&cls&@echo off
'&for /f %%a in ('123^|cscript -nologo -e:vbscript &%~fs0&') do set str=%%a
'&%str%
'&pause&exit
s= replace(WSH.StdIn.ReadLine,&2&,&test&)
WSH.Echo s复制代码方式二，传递一个数据' 2&nul 3&nul&cls&@echo off
'&for /f %%a in ('cscript -nologo -e:vbscript &%~fs0& &123&') do set str=%%a
'&%str%
'&pause&exit
s= replace(WSH.Arguments(0),&2&,&test&)
WSH.Echo s复制代码方式三，传递多个数据' 2&nul 3&nul&cls&@echo off
'&for /f %%a in ('(for /l %%i in (1 1 5^) do @%%i^)^|cscript -nologo -e:vbscript &%~fs0&')%%a
'&pause&exit
s= replace(WSH.StdIn.ReadAll,&3&,&test&)
WSH.Echo s复制代码方式四，传递多个数据' 2&nul 3&nul&cls&@echo off
'&for /f %%a in ('(for /l %%i in (1 1 5^) do @%%i^)^|cscript -nologo -e:vbscript &%~fs0&')%%a
'&pause&exit
Do While WSH.StdIn.AtEndOfStream && true
& & s=s&replace(WSH.StdIn.ReadLine,&3&,&test&)&vbCrLf
Loop
WSH.Echo s复制代码方式五，传递多个数据' 2&nul 3&nul&cls&@echo off
'&for /f %%a in ('cscript -nologo -e:vbscript &%~fs0& 1 2 3 4 5')%%a
'&pause&exit
for i=0 to WSH.Arguments.Count-1
& & s=s&replace(WSH.Arguments(i),&3&,&test&)&vbCrLf
Next
WSH.Echo s复制代码方式六@echo off
for /f %%a in ('mshta VBScript:Execute(&CreateObject(&&Scripting.Filesystemobject&&).GetStandardStream(1).Write(&&系统盘是&&&Left(&&%windir%&&,3))&^)(close^)')%%a
pause复制代码传递输出文本内容方式，配合WSH.StdIn.ReadLine/WSH.StdIn.ReadAll、WSH.Echo'&cls&type &a.txt&|cscript -nologo -e:vbscript &%~fs0&&&b.txt&&pause
WSH.echo WSH.StdIn.ReadLine&vbCrLf&&举个栗子&复制代码'&cls&cscript -nologo -e:vbscript &%~fs0&&&a.txt&&&b.txt&&pause
WSH.echo WSH.StdIn.ReadAll&vbCrLf&&举个栗子&复制代码另一种混合方式，不要求在cmd控制台窗口回显'&cls&@echo off
'&cls&123|cscript -nologo -e:vbscript &%~fs0&
'&cls&pause&exit
msgbox replace(WSH.StdIn.ReadAll,&2&,&test&)复制代码
7016427/jopa/adh//w1983912/无名小卒/pangqijun//forevergt/woshixinrena/shootman2/lqh0001/gh1203/我来了/ygqiang/helin/zzz
[通过 QQ、MSN 分享给朋友]VBS WScript.Shell 暗藏cmd命令行 - VB当前位置:& &&&VBS WScript.Shell 暗藏cmd命令行VBS WScript.Shell 暗藏cmd命令行&&网友分享于：&&浏览：104次VBS WScript.Shell 隐藏cmd命令行
VBS WScript.Shell 隐藏cmd命令行 日　　以下文章转载自 脚本之家&& jb51.net　　1. WScript.Shell（Windows Script Host Runtime Library）是一个对象，对应的文件是C:\WINDOWS\system32\wshom.ocx，Wscript.shell是服务器系统会用到的一种组件。shell 就是“壳”的意思，这个对象可以执行操作系统外壳常用的操作，比如运行程序、读写注册表、环境变量等。这个对象通常被用在VB或VBS编程中。 　　2. 安装WScript.Shell对象：regsvr32 WShom.Ocx 　　卸载WScript.Shell对象：regsvr32 -u WShom.Ocx或者regsvr32 /u WShom.Ocx 　　3. 例子，假设mytest*.iso文件均在C:根目录下。建立mytest目录，将mytest*.iso文件拷贝到mytest目录下。 　　建立testcopy.bat文件，存于C:根目录下。 　　复制代码 代码如下:　　md mytest 　　copy c:\mytest*.iso mytest 　　pause 　　双击testcopy.dat即可看到新建立的mytest目录及被拷贝的mytest*.iso文件。 　　若隐藏cmd命令行窗口，有两种方法。 　　（1）创建WScript.Shell对象，由该对象直接运行testcopy.dat文件，对应的vbs文件：testcopy1.vbs，双击testcopy1.vbs即可看到效果。 　　复制代码 代码如下:　　dim objShell 　　set objShell=wscript.createObject("WScript.Shell") 　　iReturnCode=objShell.Run("c:\testcopy.bat",0,TRUE) 　　（2）创建WScript.Shell对象，由该对象直接运行dos命令，及testcopy.dat中的命令，对应的vbs文件：testcopy2.vbs 　　复制代码 代码如下:　　dim objShell 　　set objShell=wscript.createObject("WScript.Shell") 　　iReturnCode=objShell.Run("cmd.exe /c md mytest",0,TRUE) 　　iReturnCode=objShell.Run("cmd.exe /c copy c:\mytest*.iso mytest",0,TRUE) 　　详细出处参考：http://www.jb51.net/article/21296.htm
12345678910
12345678910
12345678910 上一篇：下一篇：文章评论相关解决方案 12345678910 Copyright & &&版权所有