阿潮从Excel自动录入成绩到教务系统V1.0

注意提示：

该程序是由按键精灵（免费版）生成，所以，程序里面含广告，但不影响使用。

因为内置广告，所以360等杀毒软件会把该程序当成病毒软件，你只需要在杀毒软件中把它设置为可信任程序即可，或者在虚拟机中运行该程序。

绿色免安装，不喜欢直接删除即可。

附录，程序源代码如下：

MessageBox "将鼠标移动到教务系统要录入成绩的第一个格子！"

Dim igongzuobiao

igongzuobiao=1

Dim ihang

ihang = 1

Dim ilie

ilie = 1

Dim icishu

icishu = 1

igongzuobiao = Cint(Form1.txtgongzuobiao.Text)

ilie = Cint(Form1.txtlie.Text)

ihang = Cint(Form1.txthang.Text)

icishu = Cint(Form1.txtcishu.Text)

Dim ianjian

ianjian = Form1.cmbanjian.ListIndex

Delay 8000

Call Plugin.Office.OpenXls(Form1.txtExcel.Path)

Delay 2000

LeftClick 1

Dim val

Dim i

i=ihang

For icishu

val = Plugin.Office.ReadXls(igongzuobiao, i, ilie)

Delay 100

SayString val

Delay 100

Select Case ianjian

Case 0 : KeyPress "Down", 1

Case 1 : KeyPress "Tab", 1

End Select

i = i + 1

Call Plugin.Office.CloseXls()

MessageBox "录入已完成！"