废话少说，直接进入正题。

以下教程皆以按键精灵8.20.7921版（免费版）为例。请通读全文后再开始操作。有看不懂的地方，建议询问一下他人再进行刷课 刷课有风险，操作需谨慎。

1.

打开按键精灵，点击“新建”。

2.

点击“源文件”，将以下代码复制到窗口中。

Dim hwnd

hwnd = Plugin.Window.MousePoint()

s = Plugin.Window.GetClientRect(hwnd)

MyArray = Split(s, "|", -1, 1)

VBS sx = MyArray(0)

VBS sy = Myarray(1)

…… 此处隐藏0字 ……

i=10

While i=10

//当循环条件成立的时候，反复执行循环体

Call Plugin.Bkgnd.LeftClick(hwnd,1145-sx,385-sy)

Delay 1200

a = Plugin.Window.Find(0, "来自网页的消息")

Call Plugin.Window.Active(a)

Call Plugin.Bkgnd.KeyPress(a,13)