你没有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
这样不行吗？
HotKeySet("^!q","quit")
HotKeySet("^!s","captureEsc")


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

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

顽固不化 发表于 2018-8-16 23:36
这样不行吗？
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
页: [1]
查看完整版本: {已解决}设置快捷键呼出应用