找回密码
 加入
搜索
查看: 2646|回复: 11

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

[复制链接]
发表于 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

这种 也不行
发表于 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


 楼主| 发表于 2018-8-16 23:56:28 | 显示全部楼层
laycher 发表于 2018-8-16 20:31
第一种方式,右键桌面图标,属性,里面有个快捷键,设置一下?

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

我要给500多台电脑设置。。需要自动 的。。手动不行。snipaste 功能太多。用不上。我只需要截图就好
 楼主| 发表于 2018-8-16 23:59:35 | 显示全部楼层
顽固不化 发表于 2018-8-16 23:36
这样不行吗?
[au3]HotKeySet("^!q","quit")
HotKeySet("^!s","captureEsc")

可以了。谢谢老板 。祝 你发财
 楼主| 发表于 2018-8-17 00:01:25 | 显示全部楼层
顽固不化 发表于 2018-8-16 23:36
这样不行吗?
[au3]HotKeySet("^!q","quit")
HotKeySet("^!s","captureEsc")

尴尬。第一下。第二次就不行了。
发表于 2018-8-17 00:15:03 | 显示全部楼层
快捷键呼出程序后要做判断,程序已在运行……
发表于 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
 楼主| 发表于 2018-8-17 10:00:59 | 显示全部楼层
229989799 发表于 2018-8-17 09:16
帮助文件里面好像有例子的吧
#include
HotKeySet("{ESC}", "HotKeyPressed")

谢谢 已经可以了

 楼主| 发表于 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 ...

用户函数必须独立出来
发表于 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
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-24 00:07 , Processed in 0.074936 second(s), 20 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表