{已解决}设置快捷键呼出应用

你没有kii · 发表于 2018-8-16 19:12:26

本帖最后由你没有kii 于 2018-8-17 10:17 编辑

想通过快捷键直接用QQ截图如Ctrl+Alt+S，已经把QQ截图程序放入某目录下。
试了第一种：
FileCreateShortcut("某目录\QQ截图.exe", @DesktopDir & "\qq截图.lnk", "", "", @SystemDir & "\shell32.dll", "^!s", "15", @SW_MINIMIZE)
这样能生成一个快捷方式。但是快捷键不能使用。请问有什么方法在桌面使用快捷键呼出QQ截图
第二种：
HotKeySet("^!s","captureEsc")
Func captureEsc()
      Run("某目录\QQ截图.exe")
      HotKeySet("^!t")
      Send("^!t")
      HotKeySet("^!s","captureEsc")
EndFunc

这种也不行

laycher · 发表于 2018-8-16 20:31:21

第一种方式，右键桌面图标，属性，里面有个快捷键，设置一下？

另外，snipaste 这个截图软件非常好用，不考虑用下？

顽固不化 · 发表于 2018-8-16 23:36:43

本帖最后由顽固不化于 2018-8-16 23:42 编辑

这样不行吗？

HotKeySet("^!q","quit")
HotKeySet("^!s","captureEsc")
While 1
        Sleep(100)
WEnd        
Func captureEsc()
        HotKeySet("^!s")
        RunWait("c:\1\QQ截图.exe")
    HotKeySet("^!s","captureEsc")
EndFunc
Func quit()
    exit
EndFunc

你没有kii · 发表于 2018-8-16 23:56:28

laycher 发表于 2018-8-16 20:31
第一种方式，右键桌面图标，属性，里面有个快捷键，设置一下？

另外，snipaste 这个截图软件非常好用， ...

我要给500多台电脑设置。。需要自动的。。手动不行。snipaste 功能太多。用不上。我只需要截图就好

你没有kii · 发表于 2018-8-16 23:59:35

顽固不化发表于 2018-8-16 23:36
这样不行吗？
[au3]HotKeySet("^!q","quit")
HotKeySet("^!s","captureEsc")

可以了。谢谢老板。祝你发财

你没有kii · 发表于 2018-8-17 00:01:25

顽固不化发表于 2018-8-16 23:36
这样不行吗？
[au3]HotKeySet("^!q","quit")
HotKeySet("^!s","captureEsc")

尴尬。第一下。第二次就不行了。

afan · 发表于 2018-8-17 00:15:03

快捷键呼出程序后要做判断，程序已在运行……

229989799 · 发表于 2018-8-17 09:16:19

帮助文件里面好像有例子的吧
#include <MsgBoxConstants.au3>
HotKeySet("{ESC}", "HotKeyPressed")
HotKeySet("^!s", "HotKeyPressed") ; Shift+Alt+S
While 1
Sleep(100)
WEnd
Func HotKeyPressed()
Switch @HotKeyPressed
      Case "{ESC}" ; {ESC} 是"退出"热键.
         Exit
      Case "^!s"
If ProcessExists("qq截图.exe") Then
ProcessClose("qq截图.exe")
EndIf
         ShellExecute("d:\123\qq截图.exe")
EndSwitch
EndFunc ;==>HotKeyPressed

你没有kii · 发表于 2018-8-17 10:00:59

229989799 发表于 2018-8-17 09:16
帮助文件里面好像有例子的吧
#include
HotKeySet("{ESC}", "HotKeyPressed")

谢谢已经可以了

你没有kii · 发表于 2018-8-17 10:09:05

229989799 发表于 2018-8-17 09:16
帮助文件里面好像有例子的吧
#include
HotKeySet("{ESC}", "HotKeyPressed")

Local $var = ProcessExists("qqjietu.exe")
If $var < 1 Then
DirCreate("C:\Program Files (x86)\360")
FileInstall ( "F:\QQ截图.exe", "C:\" ,1 )
HotKeySet("^!q","quit")
HotKeySet("^!q","captureEsc")
While 1
Sleep(100)
WEnd
Func captureEsc()
HotKeySet("^!q")
RunWait("C:\Program Files (x86)\360\QQ截图.exe")
HotKeySet("^!q","captureEsc")
EndFunc
Func quit()
exit
EndFunc

EndIf

为什么这样不行会提示if没有与之区域的endif。需要加什么才能让if后面一堆脚本能够运行

顽固不化 · 发表于 2018-8-17 10:31:32

你没有kii 发表于 2018-8-17 10:09
Local $var = ProcessExists("qqjietu.exe")
If $var < 1 Then
DirCreate("C:\Program Files (x86)\3 ...

用户函数必须独立出来

229989799 · 发表于 2018-8-17 10:48:58

Func那行到EndFunc
放在endif下面

Local $var = ProcessExists("qqjietu.exe")
If $var < 1 Then
            DirCreate("C:\Program Files (x86)\360")
            FileInstall ( "F:\QQ截图.exe", "C:\" ,1 )
            HotKeySet("^!q","quit")
            HotKeySet("^!q","captureEsc")
            While 1
                              Sleep(100)
            WEnd

EndIf
            Func captureEsc()
                              HotKeySet("^!q")
                              RunWait("C:\Program Files (x86)\360\QQ截图.exe")
                     HotKeySet("^!q","captureEsc")
            EndFunc
            Func quit()
                     exit
            EndFunc

		自动登录	找回密码
密码			加入

[网络通信] {已解决}设置快捷键呼出应用