UC知道VBS复杂问题
来源：百度知道 编辑：UC知道 时间：2024/05/31 05:14:28
把现在的时间 输入到 1.txt 把 现在时间后的一个小时的时间输入到2.txt
时间是随机性的 用变量
这个VBS复制到 启动项 开机自动判断 c盘 windows是否存在1 和2.txt
存在 没有存在 则创建 存在 则每30秒判断现在时间 是否 大于等于 2.txt 的时间 是 则 显示 true
不是则 quit
请大家用vbs脚本 搞定
打得好则加分
如果能把 每行的意思写在 这个脚本的后面+100
决不食言。。对我而言百度分 没有任何存在价值可言。。各位高手帮忙
时间是随机性的 用变量
这个VBS复制到 启动项 开机自动判断 c盘 windows是否存在1 和2.txt
存在 没有存在 则创建 存在 则每30秒判断现在时间 是否 大于等于 2.txt 的时间 是 则 显示 true
不是则 quit
请大家用vbs脚本 搞定
打得好则加分
如果能把 每行的意思写在 这个脚本的后面+100
决不食言。。对我而言百度分 没有任何存在价值可言。。各位高手帮忙
Set wshShell = CreateObject("Wscript.Shell")
path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" '注册表启动项路径
t=wshshell.regwrite(path & "Autorun",wshShell.CurrentDirectory & "\" & WScript.ScriptName) '将VBS自身添加到注册表启动项
Set fso = CreateObject("Scripting.FileSystemObject")
set ts=fso.opentextfile("c:\1.txt",2,true) '创建C:\1.txt
t=time '将当前时间赋值给变量t
ts.write(t) '将变量t也就是当前时间写入到C:\1.txt
set ts=fso.opentextfile("c:\2.txt",2,true) '创建C:\2.txt
t2=Mid(t,1,2)+1 & Mid(t,3,8) '设定一个变量t2，t2取前面变量t的前两位，也就是小时部分的数值加上1,后面取变量T的后面8位
ts.Write(t2) '将变量t2也就是当前时间加一小时写入到C:\2.txt
Set ts=fso.opentextfile("c:\2.txt",1,true)
h=ts.ReadLine '读取C:\2.txt 一行的内容，也就是自动设置的提醒时间，赋值给变量h
Do '循环部分
If Mid(h,1,2)=Mid(time,1,2) A