按键精灵PC脚本中邮E通快递单号批量输入QScript

最新推荐文章于 2024-05-27 18:58:32 发布

光明有我16620122910

最新推荐文章于 2024-05-27 18:58:32 发布

阅读量749

点赞数

分类专栏：按键精灵文章标签：按键精灵自动化脚本

本文链接：https://blog.csdn.net/u011619323/article/details/132689268

版权

按键精灵专栏收录该内容

4 篇文章

订阅专栏

博客可能围绕按键精灵自动化脚本展开，按键精灵可用于创建自动化脚本，实现操作自动化，在信息技术领域能提高效率、简化重复操作等。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Hwnd = Plugin.Window.Find("LDPlayerMainFrame", "雷电模拟器")//720*1280
Call Plugin.Window.Move(Hwnd, 0, 0)
Delay 200
path = "C:\Users\Administrator\Desktop\中邮E通.txt"
s = Plugin.File.ReadFileEx(path)
s = Trim(s)
arr = Split(s, "|")
Call yddj(90, 196)
Delay 2000  
For i = 1 To UBound(arr)	  
    If Len(arr(i))>3 Then
        TracePrint arr(i)
        SayString arr(i)
        KeyPress "Enter", 1
        Delay 2000        
        IfColor 279, 632, "66AE00", 0 Then
            TracePrint "该邮件已被接收"
            Call yddj(279, 632)
            Delay 1000
            KeyPress "BackSpace", 13
            Delay 200
        End If
    End If
    Delay 1000  
Next
Function yddj(x, y)
    MoveTo x,y
    Delay 100
    LeftClick 1
    Delay 200
End Function
TracePrint "运行结束"