-
-
[旧帖]
[原创][申请邀请码]看雪挂机刷Kx[简单的VB源码]
0.00雪花
-
发表于:
2010-10-31 11:26
1565
-
[旧帖] [原创][申请邀请码]看雪挂机刷Kx[简单的VB源码]
0.00雪花
程序后台运行,每10分钟刷新1次,可保证每天获得5Kx.
为防止影响正常网页浏览,可复制IEXPLORE.EXE为IEXPLORE1.EXE,并把下面代码中的IEXPLORE.EXE改为IEXPLORE1.EXE即可.
注意:启动程序前要先登陆看雪哦~要不白刷新了
Dim k
Private Sub Form_Load()
MsgBox "看雪挂机软件,每10分钟刷新一次"
End Sub
Private Sub Timer1_Timer()
k = k + 1
If k = 10 Then
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE http://bbs.pediy.com/forumdisplay.php?f=131", vbHide
ElseIf k =11 Then
Shell "taskkill /f /im IEXPLORE.EXE", vbHide
k = 0
End If
End Sub
差点忘了,VB新建工程后加入一个Timer控件,并设置Inte人val属性为60000
[培训]《安卓高级研修班(网课)》月薪三万计划,掌握调试、分析还原ollvm、vmp的方法,定制art虚拟机自动化脱壳的方法