-
-
[旧帖]
[原创]七拼八凑,VBS 也赚 Kx !
0.00雪花
-
发表于:
2012-9-26 03:49
1482
-
[旧帖] [原创]七拼八凑,VBS 也赚 Kx !
0.00雪花
2012-09-26 08:00 -------------------------------------------------------
用 VBS 七拼八凑,得一赚 Kx 工具,仅十几行代码的脚本,简陋至极,启动即用。
FireFox 浏览器,XP 下使用通过。使用时先启动浏览器,登录。并一直保留cookie。再启这个动脚本。
代码如下:
' Kx[Fox].vbs
' Kx 工具 [FireFox 版] 2012-09-26 08:00
Exe = "C:\Program Files\Mozilla Firefox\firefox.exe"
URL = "http://bbs.pediy.com/forumdisplay.php?f=131&order=desc&page="
Set WshShell = CreateObject("WScript.Shell")
For I = 10 to 500
Set oExec = WshShell.Exec(Exe & " " & URL & Trim(CStr(I)))
WScript.Sleep 3000
WshShell.AppActivate oExec.ProcessID
WshShell.SendKeys "%{F4}"
Set oExec = Nothing
WScript.Sleep 180000
Next
2012-09-27 16:10 -------------------------------------------------------
IE 版本 (参照 2楼 heiheiabcd)
IE 浏览器,XP 下使用通过。使用时先启动浏览器,登录。并一直保留cookie。再启这个动脚本。
代码如下:
' Kx[IE].vbs
' Kx 工具 [IE 版] 2012-09-27 16:10
URL = "http://bbs.pediy.com/forumdisplay.php?f=131&order=desc&page="
For I = 10 to 500 ' 10 - 500 页
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate2 URL & Trim(CStr(I))
Do While IE.Busy
WScript.Sleep 200
Loop
MsgBox IE.LocationURL & vbCrLf & IE.LocationName ' 此行测试用,运行时要删掉。
Set IE = NoThing
WScript.Sleep 180000 ' 3分钟翻一页。
Next
[课程]Linux pwn 探索篇!