第7中断 第7中断
_那些年的那些事,那些我们之间的故事,都已云烟..
关注数: 8 粉丝数: 9 发帖数: 714 关注贴吧数: 2
编程帝请进! 这是什么代码?具体在哪编译?话说我只会VB,不知是不是C,不过我在VC里怎么都报错…纠结~求编程帝鉴定。谢谢哈!#Region ;**** 参数创建于 ACNWrapper_GUI ****#AutoIt3Wrapper_icon=..\My Documents\ico\25.ico#AutoIt3Wrapper_Res_Description=DNF XKey#AutoIt3Wrapper_Res_Fileversion=1.0.0.1#AutoIt3Wrapper_Res_LegalCopyright=小强#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****Opt("TrayAutoPause",0)Opt("TrayMenuMode",1)$Key=IniRead(@ScriptDir&"/Xkey.ini","Set","KEY","x") ;默认是按下X连续发送X,可以通过Xkey.ini来修改$KeyNum=IniRead(@ScriptDir&"/Xkey.ini","Set","KeyNum","58")MsgBox(0,"",$Key&":"&$KeyNum)$aboutitem = TrayCreateItem("关于")TrayCreateItem("")$T_exit = TrayCreateItem("退出")TraySetState()While 1 start() Sleep(10) $msg = TrayGetMsg() Switch $msg Case $T_exit Exit Case $aboutitem Msgbox(64,"关于","版权:版权没有,随意传播") EndSwitchWEndFunc start() If IsPressed($KeyNum) Then While 1 Send($Key) if IsUped($KeyNum) Then ExitLoop sleep(10) WEnd EndIfEndFuncFunc IsPressed($sHexKey, $vDLL = 'user32.dll');判断按键是否按下 Local $a_R = DllCall($vDLL, "int", "GetAsyncKeyState", "int", '0x' & $sHexKey) If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1 Return 0EndFuncFunc IsUped($sHexKey, $vDLL = 'user32.dll');判断按键是否松开 Local $a_R = DllCall($vDLL, "int", "GetAsyncKeyState", "int", '0x' & $sHexKey) If Not @error And BitAND($a_R[0], 0x8000) = 0x0000 Then Return 1 Return 0EndFunc
1 下一页