七点后吃早饭的人比较易长胖

刷课上网两不误 按键精灵8使用教程 废话少说，直接进入正题。 以下教程皆以按键精灵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) 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) Delay 300 a = Plugin.Window.Find(0, "来自网页的消息") Call Plugin.Window.Active(a) Call Plugin.Bkgnd.KeyPress(a,13) Delay 5000 Wend 然后更改右侧“描述”处的刷课脚本名称，以及启动热键与中止热键。这两个热键一定不能与浏览器或电脑自带的其他热键功能相冲突。建议采用shift+英文字母的形式。其他不会产生冲突的形式也可。 3.打开用来刷课的浏览器，打开补退选的网页，将网页窗口最大化，填入验证码。为避免误操作，建议将想要刷的课程挪到页面的上方，将网页右侧导航条滑到最上方。开始刷课后，该浏览器将不能再用作他用。切记！！！ 4.最小化网页窗口，切换回按键精灵的界面，点击“抓抓” 5.再点开补退选网页界面。将鼠标移动到稍候需要刷的课程的“刷新”键上，利用“抓抓”得到该处的窗口坐标，如图，最上面一门课的“刷新”键的当前屏幕坐标为1150,414。此时网页右侧滚动条还应处在最上方，并且在刷课过程中千万不要上下滚动网页，改变滚动条的位置！！！ 6.打开之前输入代码的窗口，将相应代码处的坐标更改为1150,414。牢记之前规定的启动热键和中止热键。然后点击“保存退出”。 7.此时，应回到如下图所示的界面。你的脚本前有一个对勾，示该脚本有效，可以被启用。 8.切换回之前补退选的网页界面。开始刷课前，检查验证码是否输入正确，网页的滚动条是否与抓取屏幕坐标时一样，还在最上方。确认无误后，将鼠标停留在你打开的这个补退选网页，按下启动热键，即可开始刷课。 如之前的操作都完全正确的话，按键精灵会在后台自动按照规定的速度循环点击所刷课程的“刷新”键，虽然看不到鼠标在屏幕上移动，但可以看到最上面那门课程的“刷新”键被一个虚线的框包着，说明刚被点击过，可依据此效果证明之前抓取屏幕坐标时是否出现错误。弹出标题为“来自网页的消息”，内容为“选课人数没有变化”的窗口后，按键精灵会在后台自动按回车的。同时，脚本运行时，屏幕右下角按键精灵的图标会是一个三角形，脚本没运行时，图标则会是一个M+一个小鼠标。 一切正常的话，大家即可最小化该网页，打开其他的浏览器或程序，做自己的事情了。 9.中途如果想看看是否刷到了课的话，打开之前的补退选页面即可，但切记不要移动滚动条！如果刷到了课，补退选页面上的验证码会发生变化，每门课所处的上下位置也会发生变化。因此如果需要继续刷课的话，就需要更改验证码，并重新抓取所要刷的课程的“刷新”键的屏幕坐标。 10.如果需要同时刷两门课的话，脚本代码如下例所示。两门以上课程同理。下文中红色字体为注释，非代码。 Dim hwnd hwnd = Plugin.Window.MousePoint() s = Plugin.Window.GetClientRect(hwnd) MyArray = Split(s, "|", -1, 1) VBS sx = MyArray(0) VBS sy = Myarray(1) i=10 While i=10 //当循环条件成立的时候，反复执行循环体 Call Plugin.Bkgnd.LeftClick(hwnd,1145-sx,385-sy) 在后台鼠标左键单击屏幕坐标所规定的位置。  Delay 1200 延时1200毫秒，此处延时可适当缩短，大家自行调整。  a = Plugin.Window.Find(0, "来自网页的消息") 查找标题为“来自网页的消息”的窗口  Call Plugin.Window.Active(a) Call Plugin.Bkgnd.KeyPress(a,13) 在该窗口处按回车  Delay 300 延时300毫秒 a = Plugin.Window.Find(0, "来自网页的消息") 再确认一遍是否有窗口弹出，以免有什么bug Call Plugin.Window.Active(a)  Call Plugin.Bkgnd.KeyPress(a,13)  Delay 5000 选课系统规定两次刷新之间必须间隔5秒钟 Call Plugin.Bkgnd.LeftClick(hwnd,1145-sx,405-sy) 继续刷第二门课  Delay 1200 a = Plugin.Window.Find(0, "来自网页的消息") Call Plugin.Window.Active(a) Call Plugin.Bkgnd.KeyPress(a,13) Delay 300 a = Plugin.Window.Find(0, "来自网页的消息") Call Plugin.Window.Active(a) Call Plugin.Bkgnd.KeyPress(a,13) Delay 5000 Wend