求那位大神改一个这个代码！

wiewie9

按键精灵的代码，本人搞了半天也没换成TC的代码！TC新手！！

Dim a
a="991"
Rem aa
  Rem k
  Key = WaitKey()
      If Key = 27 Then    //Ese键开始     
      
   SayString "TC"&a
Delay 200

  KeyPress "Tab", 1  
Delay 200

   SayString "998"  
Delay 200
  KeyPress 13, 1
    a = a + 1
      
       End If
         If key = 115 Then      //F4入上一次内容
         a=a-1
         SayString "TC"&a
       Delay 200
      
         KeyPress "Tab", 1
       Delay 200
      
         SayString "998"
       Delay 200
      
         KeyPress 13, 1
        a=a+1  
      
       End If  
     Goto k
        
  SayString "TC"&a
Delay 200
  KeyPress "Tab", 1  
Delay 200
  SayString "998"  
Delay 200
  KeyPress 13, 1
    a = a + 1
Goto  aa

honge10000

哥们。。按键精灵没学过的有很多，你得把这每行的意思给表达出来。。

如果有懂按键的来翻译最好。。。。。。。。。