批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS怎么复制自身到启动项 [打印本页]

作者: ww0000 时间: 2013-1-16 15:56 标题: VBS怎么复制自身到启动项

此脚本将自身复制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

作者: ww0000 时间: 2013-1-16 21:59

哈哈，原来已经成功了！！

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