<script type="text/javascript">   
//处理键盘事件 禁止后退键（Backspace）密码或单行、多行文本框除外 
function banBackSpace(e){         var ev = e || window.event;//获取event对象       
 var obj = ev.target || ev.srcElement;//获取事件源             
  var t = obj.type || obj.getAttribute('type');//获取事件源类型            
   //获取作为判断条件的事件类型    
    var vReadOnly = obj.getAttribute('readonly');     
 var vEnabled = obj.getAttribute('enabled');    
  //处理null值情况    
   vReadOnly = (vReadOnly == null) ? false : vReadOnly;    
    vEnabled = (vEnabled == null) ? true : vEnabled;        
       //当敲Backspace键时，事件源类型为密码或单行、多行文本的，    
     //并且readonly属性为true或enabled属性为false的，则退格键失效    
      var flag1=(ev.keyCode == 8 && (t=="password" || t=="text" || t=="textarea")                   && (vReadOnly==true || vEnabled!=true))?true:false;   
          //当敲Backspace键时，事件源类型非密码或单行、多行文本的，则退格键失效    
        var flag2=(ev.keyCode == 8 && t != "password" && t != "text" && t != "textarea")                  ?true:false;            
            //判断   
           if(flag2){          return false;      }      if(flag1){             return false;         }     }   
         //禁止后退键 作用于Firefox、Opera
          document.onkeypress=banBackSpace;
        //禁止后退键  作用于IE、Chrome
         document.onkeydown=banBackSpace;
   
//禁止用F5键     
function document.onkeydown()     
{     
    if(event.keyCode==116)     
    {     
        event.keyCode   =   0;     
        event.cancelBubble   =   true;     
        return false;     
    }     
}        </script> 

  cnt:=0;
  //获取窗口句柄
  EnumChildWindows(Hwindow,@LoginEnumWindowsProc,LongInt(self));  

  for i:=0 to chklst_Uid.Count-1 do
  begin
      if chklst_Uid.Checked[i] then
      begin
          SplitString(Trim(chklst_Uid.Items.Strings[i]),'-',a,b);
          UidLogin:=Trim(a);
          UidPassword:=Trim(b);
          SendMessage(HLoginNum, WM_SETTEXT, 180, Integer(PChar(UidLogin)));
          for j:=1 to 6 do
          begin
              mychar:=MidStr(UidPassword,j,1);
              SendMessage(Hpass,WM_CHAR,Ord(mychar[1]),0);
          end;

          chklst_Uid.Checked[i]:=False;
          lbl_LoginUid.Caption:=UidPassword;
          Break;
      end;
  end;

本本用了五年时间了，按键被磨穿了好几个，以前坏了直接到华硕VIP俱乐部去换了，总共换了三次，嘿嘿，华硕的工作人员态度不错，比较热情，口头表扬一下，偶的键盘常用的键基本上是非常光亮的，因为天天要用电脑啊，被按摩了五年时间，不磨亮太怪，

换了一个新键盘，太贵了，键盘300元，还要给150元人工费（这个费太多了，收几十块就差不多了嘛，必竟我们是老客户啊，华硕以后一定要注意这个哈），大出血换了一个新键盘，用起来确实不错呢。

来看看以前的键盘尸体吧，全是磨光的键，底下是一个里边灰尘多多的电路板，哈哈哈哈。。。偶的杰作。