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

[课程]Android-CTF解题方法汇总！