-
-
[旧帖] [原创][申请邀请码]看雪挂机刷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即可.
注意:启动程序前要先登陆看雪哦~要不白刷新了
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
|
|
|---|---|
|
|
 不需要回复的吗
|
|
|
简单易懂。。继续努力……
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
