批处理之家 - Powered by Discuz! Board

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

作者: wfndh 时间: 2011-8-10 19:08 标题: VBS脚本怎么在第二次电脑启动后启动？

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

作者: lfoqtal 时间: 2011-8-10 19:37

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

作者: wfndh 时间: 2011-8-10 20:14

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

作者: bluewing009 时间: 2011-8-10 20:30

回复 3# wfndh

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

作者: bingxing8000 时间: 2011-8-10 22:37

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

作者: canyuexiaolang 时间: 2011-8-11 10:15

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

作者: wfndh 时间: 2011-8-11 11:37

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

作者: canyuexiaolang 时间: 2011-8-11 11:44

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

作者: broly 时间: 2011-8-11 19:53

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

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
复制代码

欢迎光临批处理之家 (http://bbs.bathome.net/)