[问题求助] VBS脚本怎么在第二次电脑启动后启动？

wfndh

请问各位vbs脚本怎么在第二次电脑启动后启动，然后删除自身呢？ 我有一个批处理放在C盘里 然后想做一个可以在电脑第二次重新启动后启动的VBS脚本，这个VBS运行起来就是调用C盘的批处理文件，脚本运行后能删除自身。谢谢了，关于第二次电脑重新启动是指我这系统是刚装的 ，然后重启下，这就是第二次重新启动,谢谢各位了...........

lfoqtal

当然是把自己写入RUN中,代码最后一条就是删自己啦

wfndh

兄弟你说的是什么意思？我听不明白 RUN是什么?

bluewing009

回复 3# wfndh


   代表注册表启动项目  run键值

bingxing8000

这个问题我之前也考虑过。用2个脚本。第一次进桌面的时候运行一个脚本，把第二个脚本放到启动项，就可以了

canyuexiaolang

唉  = =  把做个判断自己是否在启动里。如果不是就自己写到启动里然后退出、、如果是就运行自己下面的代码。最后一句删除自己、、不会VBS  没有代码、、只有思路

wfndh

主要是代码呢  思路我也有的哦............要怎么写

canyuexiaolang

= =   让我这个没学过VBS写代码、让我情何以堪、、、批处理我会写、、

broly

放在 开始-菜单-启动 处，注意：此脚本只能两次

Const ForReading = 1
Const ForAppending = 8
Dim fso,f,strLastline
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(WScript.ScriptName,ForReading,False)
While Not f.AtEndOfLine
	strLastline = f.ReadLine
Wend
f.Close
If StrComp(strLastline,"Rem")=0 Then
	Dim strPath,wsh
	Rem 下面是批处理的路径
	strPath = "C:\Batch.bat"
	set wsh = CreateObject("WScript.Shell")
	wsh.Run strPath,0
	Set wsh = Nothing
	fso.DeleteFile WScript.ScriptName
Else
	Set f = fso.OpenTextFile(WScript.ScriptName,ForAppending,False)
	f.Write vbcrlf & "Rem"
	f.Close
End If
复制代码