Board logo

标题: [问题求助] 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

放在 开始-菜单-启动 处,注意:此脚本只能两次
  1. Const ForReading = 1
  2. Const ForAppending = 8
  3. Dim fso,f,strLastline
  4. Set fso = CreateObject("Scripting.FileSystemObject")
  5. Set f = fso.OpenTextFile(WScript.ScriptName,ForReading,False)
  6. While Not f.AtEndOfLine
  7. strLastline = f.ReadLine
  8. Wend
  9. f.Close
  10. If StrComp(strLastline,"Rem")=0 Then
  11. Dim strPath,wsh
  12. Rem 下面是批处理的路径
  13. strPath = "C:\Batch.bat"
  14. set wsh = CreateObject("WScript.Shell")
  15. wsh.Run strPath,0
  16. Set wsh = Nothing
  17. fso.DeleteFile WScript.ScriptName
  18. Else
  19. Set f = fso.OpenTextFile(WScript.ScriptName,ForAppending,False)
  20. f.Write vbcrlf & "Rem"
  21. f.Close
  22. End If
复制代码





欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2