unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  OleCtrls, SHDocVw, StdCtrls, ExtCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    WebBrowser1: TWebBrowser;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  WaitInput:boolean=false;
implementation    {$R *.DFM}
Procedure PostKeyEx32( key: Word; Const shift: TShiftState;
                     specialkey: Boolean );
  Type
    TShiftKeyInfo = Record
                      shift: Byte;
                      vkey : Byte;
                    End;
    byteset = Set of 0..7;
  Const
    shiftkeys: Array [1..3] of TShiftKeyInfo =
      ((shift: Ord(ssCtrl); vkey: VK_CONTROL ),
       (shift: Ord(ssShift); vkey: VK_SHIFT ),
       (shift: Ord(ssAlt); vkey: VK_MENU ));
  Var
    flag: DWORD;
    bShift: ByteSet absolute shift;
    i: Integer;
  Begin
    For i := 1 To 3 Do Begin
      If shiftkeys[i].shift In bShift Then 
        keybd_event( shiftkeys[i].vkey,
                     MapVirtualKey(shiftkeys[i].vkey, 0),
                     0, 0);
    End; { For }
    If specialkey Then
      flag := KEYEVENTF_EXTENDEDKEY
    Else
      flag := 0;        keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );
    flag := flag or KEYEVENTF_KEYUP;
    keybd_event( key, MapvirtualKey( key, 0 ), flag, 0 );        For i := 3 DownTo 1 Do Begin
      If shiftkeys[i].shift In bShift Then
        keybd_event( shiftkeys[i].vkey,
                     MapVirtualKey(shiftkeys[i].vkey, 0),
                     KEYEVENTF_KEYUP, 0);
    End; { For }
  End; { PostKeyEx32 }    procedure TForm1.Button1Click(Sender: TObject);
begin
  waitinput:=true;
  webbrowser1.Navigate('http://webhd.yam.com/Login.htm');
end;
procedure InputIdPassword(id,password:string);
var i:integer;
begin
   id:=uppercase(id);
   password:=uppercase(password);
   for i:=1 to length(id) do
   begin
      PostKeyEx32(ord(id[i]),[],true);sleep(100);
   end;
   PostKeyEx32(9,[],true);sleep(100);
   for i:=1 to length(password) do
   begin
      PostKeyEx32(ord(password[i]),[],true);sleep(100);
   end;
   PostKeyEx32(9,[],true);sleep(1000);
   PostKeyEx32(ord(' '),[],true);sleep(100);
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if waitinput then
  begin
    waitinput:=false;
    InputIdPassword('YourID','YourPassword');
  end;
end;    end.    

procedure TForm1.Button2Click(Sender: TObject);
var
Docs, Edits : OleVariant;
begin
Docs :=WebBrowser1.Document;    //此處只適用於://www.uwccb.com.tw/netbank/default.asp 該網頁的輸入
//Edits :=Docs.GetElementByID('CustIDTmp');
Edits :=WebBrowser1.OleObject.Document.all.Item ('CustIDTmp', 1);
Edits.Value :='身分證字號';
Edits :=WebBrowser1.OleObject.Document.all.Item ('CustPwdTmp', 1);
Edits.Value :='理財密碼';
Edits :=WebBrowser1.OleObject.Document.all.Item('CustNickNameTmp', 0);
Edits.Value :='用戶代號';    //登入
WebBrowser1.OleObject.Document.GetElementByID('Submit').Click;    end;    

procedure TForm1.Button2Click(Sender: TObject);
var
Docs, Edits : OleVariant;
begin
Docs :=WebBrowser1.Document;    //此處只適用於://www.uwccb.com.tw/netbank/default.asp 該網頁的輸入
//Edits :=Docs.GetElementByID('CustIDTmp');
Edits :=WebBrowser1.OleObject.Document.all.Item ('CustIDTmp', 1);
Edits.Value :='身分證字號';
Edits :=WebBrowser1.OleObject.Document.all.Item ('CustPwdTmp', 1);
Edits.Value :='理財密碼';
Edits :=WebBrowser1.OleObject.Document.all.Item('CustNickNameTmp', 0);
Edits.Value :='用戶代號';    //登入
WebBrowser1.OleObject.Document.GetElementByID('Submit').Click;    end;    [/code]
您可於進入網頁後,按下滑鼠右鍵"檢視原始碼",
可以看到有兩個:
＜input type="text" name="CustIDTmp" size="18" maxlength="10" value=""＞
所以要將
Edits :=WebBrowser1.OleObject.Document.all.Item ('CustIDTmp', 1);
設為1,表示要填第２個CustIDTmp!
同樣CustPwdTmp也是有兩個!        ～～～Delphi K.Top討論區站長～～～
    站長, Delphi我不會. 我嘗試用C   builder, 但是失敗.是否有能人志士可改為以供參考,謝謝^_^. (我在C   builder討論區找不到相關程式!!! )