下面是源代码,大佬们帮忙解决一下吧
Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
TracePrint "主句炳" & Hwnd
//Call Plugin.Window.Top(Hwnd, 0)
Call lib.API.激活窗口并置前(Hwnd)
HwndEx = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
TracePrint "子句炳" & HwndEx
Call Plugin.Bkgnd.LeftClick(HwndEx, 5, 6)
Call Plugin.Bkgnd.MoveTo(HwndEx, 5, 6)
Call Plugin.Bkgnd.LeftDown(HwndEx, 5, 6)
Delay 200
Call Plugin.Bkgnd.MoveTo(HwndEx, 200, 12)
Call Plugin.Bkgnd.LeftUp(HwndEx, 200, 12)
Delay 200
KeyDown 17,1
Delay 200
KeyPress 67,1
Delay 200
KeyUp 17,1
aa = Plugin.Sys.GetCLB()
TracePrint aa
MessageBox aa
Delay 3000
//Sub OnScriptLoad()
TracePrint "1111111"
Hwed = Plugin.Window.Search("自定义界面")
Dim arr
arr = Split(Hwed, "|")
TracePrint Hwed
Call Plugin.Window.Close(arr(0))
//End Sub
Event Form1.LoadOver
Form1.InputBox1.Text = "1222222"
Delay 200
KeyDown 17, 1
Delay 200
KeyPress 97, 1
Delay 200
KeyUp 17, 1
TracePrint "sdfewddfefe"
End Event
点评
兄弟客服03
PC版没有提供技术支持了,可以考虑加【PC版按键精灵交流群】:306075051,和其他用户一起交流
发表于 2025/10/15 17:13:58