|
 
- 帖子
- 191
- 积分
- 222
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2012-12-15
|
此脚本将自身复制VBS到启动目录
set fso = createobject("scripting.filesystemobject") '创建文件系统对象
set ws = createobject("wscript.shell") '创建wsh对象
pt = ws.specialfolders("startup") & "\" '获取启动目录路径
set file = fso.getfile(wscript.scriptfullname) '获取vbs脚本自身
file.copy pt '将脚本复制到启动目录
此脚本将定时跳出提醒对话框
set WshShell = WScript.CreateObject("WScript.Shell")
'对话框标
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & "休息一下，活动一下！" & vbnewline & vbnewline & "生命在于运动"& vbnewline & vbnewline
for i = 1 to 100 '100为提醒的次数
WScript.Sleep(1000*60*1) '每1分钟提醒一次
msgbox alerttext,4096,alerttitle
next
请问，第一个代码怎么结合到第二个代码中，使第二个代码运行后自动复制到启动项？
我象下面这样写对吗？为什么不能运行？
set fso = createobject("scripting.filesystemobject") '创建文件系统对象
set ws = createobject("wscript.shell") '创建wsh对象
pt = ws.specialfolders("startup") & "\" '获取启动目录路径
set file = fso.getfile(wscript.scriptfullname) '获取vbs脚本自身
file.copy pt '将脚本复制到启动目录
alerttitle = "定时提醒"
'提醒内容,vbnewline为换行符
alerttext = vbnewline & vbnewline & "休息一下，活动一下！" & vbnewline & vbnewline & "生命在于运动"& vbnewline & vbnewline
for i = 1 to 100 '100为提醒的次数
WScript.Sleep(1000*60*1) '每1分钟提醒一次
msgbox alerttext,4096,alerttitle
next |
|
发表于 2013-1-16 15:56
|