挂网络课程按键精灵源码。

代码如下
UserVar x1=500 "时延"
UserVar x2=1500 "课程时间 秒"
UserVar x3="从爱因斯坦到霍金的宇宙" "课程名称" Hwnd = Plugin.Window.Find(0, "个人中心 - Windows Internet Explorer")
If Hwnd <> 0 Then
MsgBox ("获取窗口成功,点击确定进入挂机")
Else MsgBox("获取窗口失败，请检查是否登录到个人中心")
ExitScript
End If
i=0
While i=0
Delay X1
Call Plugin.window.Active(Hwnd)
Delay x1
Call Plugin.Window.Max(Hwnd)
Delay x1
FindPic 429,237,1006,521,"Attachment:\QQ截图20130331230501.bmp",0.8,intX,intY
If intX> 0 And intY> 0 Then
End If
If intX> 0 And intY> 0 Then
Delay x1
intX = intX + 10
intY=intY+10
Rem A
MoveTo intX, intY
RightClick 1
Delay x1
KeyPress "N", 1
End If
Delay x1*4
Hwnd1 = Plugin.Window.Find(0, x3 &" - Windows Internet Explorer")
If Hwnd1 = 0 Then
goto A
End If
Call Plugin.Window.Max(Hwnd1)
Delay x1
Delay X2*1000
Call Plugin.Window.CloseEX(Hwnd1)
Delay x1
Wend
这个是里面的附件图片

我在xp下用IE已经测试咯哇 貌似能用。。。
先用IE登录到个人中心，然后打开软件，输入课程名和一节课大概的时间按F10就可以了。。。