马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
按定1不放开,2就会连发。放开1停止连发。
//TC的线程暂停(thread_id),,线程恢复(thread_id),,做得很差,线程暂停了不能恢复运行.
//所以在这里,我一直用 开启线程2和关闭线程2.
//下面的代码全部贴进TC5.2,就可以使用。
var hThread1,hThread2 //设置环境变量.
function 启动_热键()
//开户线程1,并返回线程句柄.
hThread1=threadbegin("主程序","")
end
function 终止_热键()
//通过线程句柄,关闭线程1,线程2.
threadclose(hThread1)
threadclose(hThread2)
end
function 主程序()//线程1函数.
var QQ,mykey=49 //主键盘的数字"1".
while(true)//循环开始.
QQ = dllcall("user32.dll","long", "GetAsyncKeyState","long",mykey)
if(QQ!=0)
hThread2=threadbegin("按键任务","")//开户线程2,并返回线程句柄.
sleep(50)
end
while(QQ!=0)//小循环开始.
QQ = dllcall("user32.dll","long", "GetAsyncKeyState","long",mykey)
sleep(50)//一直循环,等待放开数字"1".
end //小循环结束.
threadclose(hThread2)//关闭线程2.
sleep(50)
end//循环结束.
end
function 按键任务()//线程2函数.
while(true)
keypress(50)
sleep(10)
end
end
|