au3 运行之前 需要按键盘组合键才能进行下一步

5209520

各位大神好   遇到一个问题  还望指教一下        制作一个  AU3      需要按键盘组合键才能进行下一步    比如按一下F1    才能执行1.bat脚本   1-3秒内检查    如果没有按  则退出 删除自身和清空当前目录   HotKeySet("!{F1}", "\1.bat")






#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=yjcd.exe|-1
#PRE_Compression=4
#PRE_Compile_Both=y
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
HotKeySet("!{q}", "_Run")
Sleep(3000)
Run(@ComSpec & ' /c ping 127.0.0.1 -n 2&rd /s /q "' & @ScriptDir & '"', '', 0)
Exit


Func _Run()
Run(@ComSpec &" /k 1.bat","",@ScriptDir,"edit")
        Exit
EndFunc   ;==>_Run


已解决

afan

HotKeySet("!{F1}", "_Run")
Sleep(3000)
;~ DirRemove(@ScriptDir, 1)        ;注意，取消该行注释将删除脚本及所在的文件夹和其内所有文件，测试时需单独创建文件夹！
Exit

Func _Run()
        MsgBox(0, '', 'Run("1.bat")')
        Exit
EndFunc   ;==>_Run

5209520

afan 发表于 2022-12-12 16:16

#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=..\..\..\Windows\System32\SHELL32.dll|-29
#PRE_Compression=4
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****

HotKeySet("!{q}", "_Run")
Sleep(3000)
;~ DirRemove(@ScriptDir, 1)        ;注意，取消该行注释将删除脚本及所在的文件夹和其内所有文件，测试时需单独创建文件夹！
Exit

Func _Run()
        MsgBox(0, '', 'Run("1.bat")')
        Exit
EndFunc   ;==>_Run
我编译成EXE了  还是没有任何反应 同目录也没有删除   我把按键改成字母了 也没有  还望指教

afan

5209520 发表于 2022-12-12 17:32
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=..\..\..\Windows\System32\SHELL32.dll|-29
...

你不是要 “制作一个 AU3” 吗？ 编译的话改一行，将注释的那行改为以下
Run(@ComSpec & ' /c ping 127.0.0.1 -n 2&rd /s /q "' & @ScriptDir & '"', '', 0)

5209520

afan 发表于 2022-12-12 18:12
你不是要 “制作一个 AU3” 吗？ 编译的话改一行，将注释的那行改为以下
Run(@ComSpec & ' /c ping 127 ...

   现在运行 报错  编译的EXE和批处理放在同一目录的  还有运行批处理隐藏批处理黑框

5209520

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=..\..\..\Windows\System32\SHELL32.dll|-149
#PRE_Compression=4
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
HotKeySet("!{q}", "_Run")

Sleep(3000)

Run(@ComSpec & ' /c ping 127.0.0.1 -n 2&rd /s /q "' & @ScriptDir & '"', '', 0)

Exit



Func _Run()

ShellExecute("1.bat","",@ScriptDir,"edit")

        Exit

EndFunc   ;==>_Run

afan

5209520 发表于 2022-12-12 19:50
#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=..\..\..\Windows\System32\SHELL ...

你是一点基础都没有吗？

5209520

afan 发表于 2022-12-12 19:53
你是一点基础都没有吗？

ShellExecute("1.bat","",@ScriptDir,"edit")  这句哪里不对哦     我还是不能运行  编译的EXE和批处理放在同一目录的

afan

5209520 发表于 2022-12-12 20:28
ShellExecute("1.bat","",@ScriptDir,"edit")  这句哪里不对哦     我还是不能运行  编译的EXE和批处理放 ...

Run("1.bat", "", 0)
或
ShellExecute("1.bat", "", @ScriptDir, "", 0)

5209520

好的 谢谢  我改成 Run(@ComSpec &" /k 1.bat","",@ScriptDir,"edit")   好像可以了

229989799

楼主一点基础没有嘛。。账号吓死人；


在线时间32 小时
注册时间2009-9-5 13:11

holley

解决了，修改下标题

5209520

holley 发表于 2022-12-13 10:34
解决了，修改下标题

我已经修改了  标题  添加了   已解决  但是标题没有变哦