• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[已解决] 用按钮点击事件执行 RestartScript 命令,发布后出错 [复制链接]

1#
我通过按钮点击事件执行 RestartScript 重新启动脚本运行命令,来实现脚本启动,在调试里运行一切正常。但是发布制作成“按键小精灵.EXE”就不能正常执行,并且点击“启动”按钮后任务栏的程序图标不停的快速闪烁,好像进入一个死循环,不及时关闭程序窗口好像系统要崩溃,再次运行的话,窗口里的控件也都没了。我用的是最新版,下面是代码:

Event Form1.Button1.Click
RestartScript //重新启动脚本运行
End Event

Hwnd = Plugin.Window.Find("Notepad", 0) //事先打开的记事本窗口句柄
Hwnd1 = Plugin.Window.FindEx(Hwnd,0,"Edit", 0)
Call Plugin.Window.Active(Hwnd)
Call Plugin.Window.SendString(Hwnd1, Form1.InputBox1.Text) //向记事本发送输入框里的文本内容
KeyPress 13,1
Call Plugin.Window.SendString(Hwnd1, Form1.InputBox2.Text)
KeyPress 13, 1


本主题由 超级版主 瑞祥幽冥狼 于 2025/4/26 12:53:06 执行 审核主题 操作
2#

,
  1. DimEnv 线程id
  2. Event Form1.Button1.Click
  3. StopThread 线程id'避免出现N次响应,先停后启动
  4. Delay 20
  5. 线程id = BeginThread(脚本)'正确写法
  6. Delay 1000'按下瞬间会N次响应,所以要延迟
  7. End Event
  8. Sub 脚本()
  9. TracePrint "启动"
  10. Hwnd = Plugin.Window.Find("Notepad", 0)
  11. Hwnd1 = Plugin.Window.FindEx(Hwnd,0,"Edit", 0)
  12. //Call Plugin.Window.Active(Hwnd)‘无需激活
  13. Call Plugin.Window.SendString(Hwnd1, Form1.InputBox1.Text)
  14. Call Plugin.Bkgnd.KeyPress(Hwnd1,13)'改成后台按键
  15. Call Plugin.Window.SendString(Hwnd1, Form1.InputBox2.Text)
  16. Call Plugin.Bkgnd.KeyPress(Hwnd1,13)
  17. End Sub
复制代码

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题