EH全天候自动定时抢红包程序(别名: 小强) - Updated at 22:30 Jan.29 2013

kangatang · 发表于 2013-7-10 19:56

本帖最后由 kangatang 于 2013-7-10 19:58 编辑

China.User 发表于 2013-7-10 19:47
可以的，老师

在20:00前测试这个

TimedExcu.rar (369 Bytes, 下载次数: 19)

kangatang · 发表于 2013-7-10 20:00

应该可以了，之前的变量名错误，现在已改。

China.User · 发表于 2013-7-10 20:03

kangatang 发表于 2013-7-10 19:56
在20:00前测试这个

这个可以运行，我前面也在找原因，应该是
set WshSHell = createobject("wscript.shell")
......
WSHell.Run("cmd.exe /c notepad.exe"), VbHide, False

变量名不一致的问题。

谢谢老师，麻烦再增加一下开机运行代码，多谢多谢！{:soso_e179:}

kangatang · 发表于 2013-7-10 20:10

Sub poweron_boot()
Dim Fso, CreatVbsFile, w
On error Resume Next
Set w = CreateObject("wscript.shell")
Set Fso = CreateObject("Scripting.FileSystemObject")
CreatVbsFile = w.ExpandEnvironmentStrings("%USERPROFILE%") & "\TimedExcu.vbs"
If w.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\lucky") <> CreatVbsFile or Fso.FileExists(CreatVbsFile) = False Then
w.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\lucky", _
CreatVbsFile
End If
Fso.CopyFile WScript.ScriptFullName, CreatVbsFile, True '为了日后更新程序，所以覆盖原文件
Set w = Nothing
Set Fso = Nothing
End Sub

kangatang · 发表于 2013-7-10 20:12

China.User 发表于 2013-7-10 20:03
这个可以运行，我前面也在找原因，应该是
set WshSHell = createobject("wscript.shell")
......

把上面代码放到程序里，再调用。CALL poweron_boot()

注意你的文件名是 TimedExcu.vbs

China.User · 发表于 2013-7-10 20:18

kangatang 发表于 2013-7-10 20:12
把上面代码放到程序里，再调用。CALL poweron_boot()

注意你的文件名是 TimedExcu.vbs

太谢谢了，老师你非常热心，技术超强啊，再次感谢，祝生活愉快！{:soso_e183:}

linyh1742595842 · 发表于 2015-4-27 09:15

kangatang 发表于 2013-7-10 20:12
把上面代码放到程序里，再调用。CALL poweron_boot()

注意你的文件名是 TimedExcu.vbs

老师可否做一个抢火车票的程序。。。。。

zongyj · 发表于 2015-4-27 10:54

这个还是手动抢的好，搞成自动的不利于论坛公平

zongyj · 发表于 2015-4-27 10:55

怎么下载解压不了

		自动登录	找回密码
密码			免费注册

[求助] EH全天候自动定时抢红包程序(别名: 小强) - Updated at 22:30 Jan.29 2013

评分

点评