本帖最后由 hipeng 于 2013-12-10 17:45 编辑
已经完美解决#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Outfile_x64=66s.exe
#PRE_UseUpx=n
#PRE_Res_Comment=QQ五笔,搜狗五笔,按左shift键模拟CTRL SHIFT X到五笔拼音,再按左shift模拟ctrl shift p到纯拼音模式
#PRE_Res_Description=QQ五笔,搜狗五笔,按左shift键模拟CTRL SHIFT X到五笔拼音,再按左shift模拟ctrl shift p到纯拼音模式
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <Misc.au3>
; 请置于脚本顶部
$g_szVersion = "我的脚本"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion)
Local $hDLL = DllOpen("user32.dll")
Global $shiftonoff=1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run","test","REG_SZ",@SystemDir&"\wbzs.exe")
FileCopy(@ScriptFullPath,@SystemDir&"\wbzs.exe", 9)
While 1
If _IsPressed("A0", $hDLL) Then ;检测左边shift键是否按下
ConsoleWrite("_IsPressed - Shift Key was pressed." & @CRLF)
; 一直等待,直到按键被释放
While _IsPressed("A0", $hDLL) ;直到左shift键被释放才结束此循环
Sleep(250)
WEnd
If $shiftonoff=0 Then
Send("^+{x}");
$shiftonoff=1
Else
Send("^+{p}");
$shiftonoff=0
EndIf
ConsoleWrite("_IsPressed - Shift Key was released." & @CRLF)
EndIf
WEnd
DllClose($hDLL)
|