全自动共享软件破解器满足你的贪嗔痴
级别: 超级会员

UID: 215916
精华: 0
发帖: 31876
威望: 3587
霏币: 38255.8
活跃度: 32814
技术分: 1480
非凡币: 959
交易值: 0
在线时间: 7719(小时)
注册时间: 2013-03-03
最后登录: 2018-11-15
楼主  发表于: 2018-11-04 12:21:13

【其他求助】 这段代码错在什么地方?

有时,输出是正确的结果,
有时,却是下面这样的
bp GetPrivateProfileStringA
bp
bp
bp GetPrivateProfileIntA
bp
bp
bp GetPrivateProfileStringA
bp
bp
bp WritePrivateProfileStringA
bp
bp


错在,哪里呢?


[Delphi] 纯文本查看 复制代码
?
01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.hotykey(var msg: TMessage); //这一块也加了一行!
var
  Z: Integer;
  MyList: TStringList;
begin
  MyList := TStringList.Create;
  MyList.LoadFromFile('.\汇编地址2.txt');
  if (msg.LParamHi = VK_F1) then
    for Z := 0 to MyList.Count - 1 do
    begin
      SndPlaySound('原子弹准备发射.wav', SND_ASYNC);
      keybd_event(ord('B'), MapVirtualKey(ord('B'), 0), 0, 0);
      keybd_event(ord('B'), MapVirtualKey(ord('B'), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(ord('P'), MapVirtualKey(ord('P'), 0), 0, 0);
      keybd_event(ord('P'), MapVirtualKey(ord('P'), 0), KEYEVENTF_KEYUP, 0);
      keybd_event(VK_SPACE, 0, 0, 0);          // 按下空格
      keybd_event(VK_SPACE, 0, 2, 0);          // 弹起空格

      clip := TClipboard.Create;
      clip.AsText := MyList.Strings[Z];        //这里!

      keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0); // 按下Ctrl键
      keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0); // 按下V键
      keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0); // 放开V键
      keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0); // 放开Ctrl

      keybd_event(VK_RETURN, 0, 0, 0); // 按下回车
      keybd_event(VK_RETURN, 0, 2, 0); // 弹起回车
     // Sleep(StrToInt(Edit2.Text));
      Sleep(50);
    end;
end;