各位前輩：

登入網頁為http://info.fbs.com.tw/KM/Code18/login.asp

我的程式與網頁的部份原始碼如下

小弟對網頁不懂

但當我移動滑鼠至登入鈕時,出現 upch()，

似乎應該先去執行function upch()，取得MD5Value後，再執行 fubon_docs.LoginFrm.submit; 才對

而我的delphi原碼似乎直接執行 fubon_docs.LoginFrm.submit; 而跳過前二個function

網路上有說到一種方法，但我試過執行後沒有任何的動作，仍停在登入畫面
fubon_docs.GetElementByID('LoginFrm').Click;

請問我要如何達到 fubon_docs.LoginFrm.click; 或者要如何呼叫function upch()

感謝各位大大


[code delphi]
procedure TForm1.Button26Click(Sender: TObject);
var
i,j,WaitTime:integer;
Full_URL:string;
Doc: IHTMLDocument2;
fubon_docs,fubon_inputs:OleVariant;
begin

WaitTime:=120;
IsComplete := false;
Full_URL:='http://info.fbs.com.tw/KM/Code18/login.asp';
WebBrowser1.Navigate(Full_URL);
i:= 0;
while (i < WaitTime) and (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) do
begin
Application.ProcessMessages;
Sleep(1000);
i:= i 1;
end;
fubon_docs:=WebBrowser1.Document;
fubon_inputs:=fubon_docs.getelementbyid('IDNO');
fubon_inputs.value:='XXXXXX';
fubon_inputs:=fubon_docs.getelementbyid('passwd');
fubon_inputs.value:='XXXXXX';
fubon_docs.LoginFrm.submit;
//fubon_docs.LoginFrm.click; //沒動作
//fubon_docs.GetElementByID('LoginFrm').Click; //沒動作
end;
[/code]


[code xml]

function tuC(Form1)
{
Form1.IDNO.value=Form1.IDNO.value.toUpperCase();
}
function upch(){ ---------------------------->第一步
re = /^[A-Z,a-z]\d{9}$/;
if (LoginFrm.IDNO.value==""){
LoginFrm.IDNO.focus();
alert("身分證字號空白!");
}
else if(LoginFrm.passwd.value=="" ){
LoginFrm.passwd.focus();
alert("密碼空白!");
}
else{
LoginFrm.action='logDB.asp';
sendMD5Value(calculateMD5Value()); ----------------->第二步
}
}
function calculateMD5Value() {
var pw = LoginFrm.passwd.value;
return hex_md5(pw);
}
function sendMD5Value(hash) {
LoginFrm.MD5KEY.value = hash;

LoginFrm.submit(); ----------------------->第三步
}

[/code]

編輯記錄

補登入網頁完整的原始碼

太長了,貼上會有問題

真是抱歉

編輯記錄

早上磨了2小時

暫時先解決了

先出門了

仍感謝抽空閱讀此文的各位大大