-
-
[旧帖] [原创][申请邀请码]看雪挂机刷Kx[简单的VB源码] 0.00雪花
-
发表于: 2010-10-31 11:26
-
程序后台运行,每10分钟刷新1次,可保证每天获得5Kx.
为防止影响正常网页浏览,可复制IEXPLORE.EXE为IEXPLORE1.EXE,并把下面代码中的IEXPLORE.EXE改为IEXPLORE1.EXE即可.
注意:启动程序前要先登陆看雪哦~要不白刷新了
差点忘了,VB新建工程后加入一个Timer控件,并设置Inte人val属性为60000
为防止影响正常网页浏览,可复制IEXPLORE.EXE为IEXPLORE1.EXE,并把下面代码中的IEXPLORE.EXE改为IEXPLORE1.EXE即可.
注意:启动程序前要先登陆看雪哦~要不白刷新了
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | Dim kPrivate Sub Form_Load()MsgBox "看雪挂机软件,每10分钟刷新一次"End SubPrivate Sub Timer1_Timer()k = k + 1If k = 10 Then Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://bbs.pediy.com/forumdisplay.php?f=131", vbHideElseIf k =11 Then Shell "taskkill /f /im IEXPLORE.EXE", vbHide k = 0End IfEnd Sub |
差点忘了,VB新建工程后加入一个Timer控件,并设置Inte人val属性为60000
[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课
|
|
|---|---|
|
|
 不需要回复的吗
|
|
|
简单易懂。。继续努力……
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
