[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
wfndh

Rank: 1

帖子
43 
积分
42 
技术
0  
捐助
0  
注册时间
2011-8-7 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2011-8-10 19:08 | 只看该作者

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

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

lfoqtal

Rank: 2

帖子
63 
积分
112 
技术
5  
捐助
0  
注册时间
2011-7-29 
2楼
发表于 2011-8-10 19:37 | 只看该作者
当然是把自己写入RUN中,代码最后一条就是删自己啦
通用简洁实用就是批处理精神

TOP

wfndh

Rank: 1

帖子
43 
积分
42 
技术
0  
捐助
0  
注册时间
2011-8-7 
3楼
发表于 2011-8-10 20:14 | 只看该作者
兄弟你说的是什么意思？我听不明白 RUN是什么?

TOP

bluewing009

Rank: 6Rank: 6

帖子
515 
积分
1788 
技术
15  
捐助
0  
注册时间
2009-11-27 
4楼
发表于 2011-8-10 20:30 | 只看该作者
回复 3# wfndh


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

TOP

bingxing8000

Rank: 2

帖子
95 
积分
139 
技术
1  
捐助
0  
注册时间
2011-4-15 
5楼
发表于 2011-8-10 22:37 | 只看该作者
这个问题我之前也考虑过。用2个脚本。第一次进桌面的时候运行一个脚本，把第二个脚本放到启动项，就可以了

TOP

canyuexiaolang

Rank: 8Rank: 8

帖子
647 
积分
3454 
技术
24  
捐助
0  
注册时间
2009-4-25 
6楼
发表于 2011-8-11 10:15 | 只看该作者
唉  = =  把做个判断自己是否在启动里。如果不是就自己写到启动里然后退出、、如果是就运行自己下面的代码。最后一句删除自己、、不会VBS  没有代码、、只有思路

TOP

wfndh

Rank: 1

帖子
43 
积分
42 
技术
0  
捐助
0  
注册时间
2011-8-7 
7楼
发表于 2011-8-11 11:37 | 只看该作者
主要是代码呢  思路我也有的哦............要怎么写

TOP

canyuexiaolang

Rank: 8Rank: 8

帖子
647 
积分
3454 
技术
24  
捐助
0  
注册时间
2009-4-25 
8楼
发表于 2011-8-11 11:44 | 只看该作者
= =   让我这个没学过VBS写代码、让我情何以堪、、、批处理我会写、、

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
9楼
发表于 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
复制代码
---学无止境---

TOP

返回列表