标题: [问题求助] 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://bathome.net./) |
Powered by Discuz! 7.2 |