请问下在Delphi7中
在Timer1控件里
怎样写才能自动按键盘上方的1 或2 啊要要定时按的
初始设置
Timer.Enable:= FalseTimer1.Interval:= Timedelay*1000;
然后在你需要的时候设置 Timer.Enable:= True;
最好是不要被查杀的

解决方案 »

  1.   

    actionlist  TAction 的 hotkey
      

  2.   

    初始设置
    Timer.Enable:= False;
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      //这是按‘1’键的,后边给你键盘伪码,需要哪个键,可以自己更换
      Keybd_Event(VK_1,MapVirtualKey(VK_1,0),0,0);
      Keybd_Event(VK_1,MapVirtualKey(VK_1,0),KEYEVENTF_KEYUP,0);
    end;
    Timer1.Interval:= Timedelay*1000;
    然后在你需要的时候设置 Timer.Enable:= True;Delphi键盘按键伪码
    常数名称                          十六进制值          十进制值     对应按键VK_LBUTTON                       01          1        鼠标的左键VK_RBUTTON                       02          2        鼠标的右键VK-CANCEL                        03          3        Ctrl+Break(通常不需要处理)VK_MBUTTON                       04          4        鼠标的中键(三按键鼠标)VK_BACK                          08          8        Backspace键VK_TAB                            09          9        Tab键VK_CLEAR                         0C          12       Clear键(Num Lock关闭时的数字键盘5)VK_RETURN                        0D          13       Enter键VK_SHIFT                         10          16       Shift键VK_CONTROL                       11          17       Ctrl键VK_MENU                          12          18       Alt键VK_PAUSE                         13          19       Pause键VK_CAPITAL                       14          20       Caps Lock键VK_ESCAPE                        1B          27      Ese键VK_SPACE                         20          32       Spacebar键VK_PRIOR                         21          33       Page Up键VK_NEXT                          22          34       Page Domw键VK_END                            23          35       End键VK_HOME                          24          36       Home键VK_LEFT                          25          37       LEFT ARROW 键(←)VK_UP                             26          38       UP ARROW键(↑)VK_RIGHT                         27          39       RIGHT ARROW键(→)VK_DOWN                          28          40       DOWN ARROW键(↓)VK_Select                        29          41       Select键VK_PRINT                         2A          42      VK_EXECUTE                       2B          43       EXECUTE键VK_SNAPSHOT                      2C          44       Print Screen键(抓屏)VK_Insert                        2D          45       Ins键(Num Lock关闭时的数字键盘0)VK_Delete                        2E          46       Del键(Num Lock关闭时的数字键盘.)VK_HELP                          2F          47       Help键VK_0                              30          48       0键VK_1                              31          49       1键VK_2                              32          50       2键VK_3                              33          51       3键VK_4                              34          52       4键VK_5                              35          53       5键VK_6                              36          54       6键VK_7                              37          55       7键VK_8                              38          56       8键VK_9                              39          57       9键VK_A                              41          65       A键VK_B                              42          66       B键VK_C                              43          67       C键VK_D                              44          68       D键VK_E                              45          69       E键VK_F                              46          70       F键VK_G                              47          71       G键VK_H                              48          72       H键VK_I                              49          73       I键VK_J                              4A          74       J键VK_K                              4B          75       K键VK_L                              4C          76       L键VK_M                              4D          77       M键VK_N                              4E          78       N键VK_O                              4F          79       O键VK_P                              50          80       P键VK_Q                              51          81       Q键VK_R                              52          82       R键VK_S                              53          83       S键VK_T                              54          84       T键VK_U                              55          85       U键VK_V                              56          86       V键VK_W                              57          87       W键VK_X                              58          88       X键VK_Y                              59          89       Y键VK_Z                              5A          90       Z键VK_NUMPAD0                       60          96       数字键0键VK_NUMPAD1                       61          97       数字键1键VK_NUMPAD2                       62          98       数字键2键VK_NUMPAD3                       62          99       数字键3键VK_NUMPAD4                       64          100      数字键4键VK_NUMPAD5                       65          101      数字键5键VK_NUMPAD6                       66          102      数字键6键VK_NUMPAD7                       67          103      数字键7键VK_NUMPAD8                       68          104      数字键8键VK_NUMPAD9                       69          105      数字键9键VK_MULTIPLY                      6A          106      数字键盘上的*键VK_ADD                            6B          107      数字键盘上的+键VK_SEPARATOR                     6C          108      Separator键VK_SUBTRACT                      6D          109      数字键盘上的-键VK_DECIMAL                       6E          110      数字键盘上的.键VK_DIVIDE                        6F          111      数字键盘上的/键VK_F1                             70          112      F1键VK_F2                             71          113      F2键VK_F3                             72          114      F3键VK_F4                             73          115      F4键VK_F5                             74          116      F5键VK_F6                             75          117      F6键VK_F7                             76          118      F7键VK_F8                             77          119      F8键VK_F9                             78          120      F9键VK_F10                            79          121      F10键VK_F11                            7A          122      F11键VK_F12                            7B          123      F12键VK_NUMLOCK                       90          144      Num Lock 键VK_SCROLL                        91          145      Scroll Lock键                                                       上面没有提到的:(都在大键盘)                     VK_LWIN                                      91       左win键VK_RWIN                                      92       右win键VK_APPS                                      93       右Ctrl左边键,点击相当于点击鼠标右键,会弹出快捷菜单                                               186      ;(分号)                                               187      =键                                               188      ,键(逗号)                                               189      -键(减号)                                               190      .键(句号)                                               191      /键                                               192      `键(Esc下面)                                               219      [键                                               220      \键                                               221      ]键                                               222      '键(引号)
      

  3.   

    朋友我用的是Delphi7  你给的大多可以用只是1  2 3的用不了
      

  4.   

    那就这样吧procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      //这是按‘1’键的,‘2’就改变下边的那个‘1’
      Keybd_Event(Ord('1'),MapVirtualKey(Ord('1'),0),0,0);
      Keybd_Event(Ord('1'),MapVirtualKey(Ord('1'),0),KEYEVENTF_KEYUP,0);
    end;