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

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

源码:

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

给TA买糖
共{{data.count}}人
人已赞赏
AHKV1工具

Autohotkey实现的批量复制粘贴工具-feiyue

2021-8-15 14:01:27

办公

ahk点击显示和隐藏扩展名

2021-8-17 20:38:20

5 条回复 A文章作者 M管理员
  1. 月下马

    仔细琢磨研究做了几个实用性脚本之后,想再进一步学习还是有点困难的呀~~没有一个整体的头绪,都是东学一点西学一点,东拼西凑。还是要再仔细想想,AHK还能实现我的哪些愿望,才能接着学下去呢~

    • 1河许人

      带着问题学是好的
      不过基础知识还是要学的
      基础过一遍
      剩下的就是不断去开发实践就好了

  2. enkk

    前来学习

  3. lee11762

    学习了

  4. 月下马

    用了函数Excel_Get()获取com对象之后,感觉获取数据速度更快更方便了!

个人中心
购物车
优惠劵
今日签到
有新私信 私信列表
搜索