一位初学者网友的信息录入自动化脚本-月下马

虽然没有什么技术含量，但是能展示出只要你想，即使简单学学也能发挥出惊人的力量。

源码：

F1::
WinActivate, ahk_class XLMAIN
WinWait, ahk_class XLMAIN
Send, ^c
WinActivate, ahk_class MozillaWindowClass
WinWait, ahk_class MozillaWindowClass                  ;在浏览器界面粘贴香烟编号
Send, ^v
Sleep, 500
Send, {Enter}
Sleep, 500
Send, {Tab 2}      									;跳转到数量选择框
Sleep, 100
Send, {Tab}
WinActivate, ahk_class XLMAIN
WinWait, ahk_class XLMAIN
Send, {Tab 5}
Sleep, 200
Send, {F2}
Send, {LShift Down}{Left}
Send, {LShift Up}
Send, ^c						;复制订购量
Clipboard := Clipboard*10
WinActivate, ahk_class MozillaWindowClass
WinWait, ahk_class MozillaWindowClass
Send, ^v                         ;粘贴订购量
Send, {Tab}
WinActivate, ahk_class XLMAIN
WinWait, ahk_class XLMAIN
Send, {LShift Down}
Send, {Tab 3}
Send, {LShift Up}
Clipboard := ""
Send, ^c
ClipWait, 1
a := StrReplace(Clipboard, "`r`n")               ;         【【【【【数字提纯大法】】】】】
b := a/10
WinActivate, ahk_class MozillaWindowClass
WinWait, ahk_class MozillaWindowClass
Send % b               			;粘贴单价!
Loop 6
{
Send, {Enter}       ;跳转到第二条
Sleep, 50
}
WinActivate, ahk_class XLMAIN
WinWait, ahk_class XLMAIN
Sleep, 500
Send, {Enter}
Send, {Left 2}{Down}
WinActivate, ahk_class MozillaWindowClass

Return

End::
Send, {LShift Down}
Send, {Tab 3}
Send, {LShift Up}
Send, {F2}
Send, {LShift Down}{Up}
Send, {LShift Up}
Send, ^c						;复制订购量
Clipboard := Clipboard/10
MsgBox, %Clipboard%
Return

Insert::
Clipboard := ""
Send, ^c
ClipWait, 1
a := StrReplace(Clipboard, "`r`n")
b := a+10
MsgBox % b
Return