在 TWebBrowser 控制項中執行javascript代碼

頁面上包含 Jquery ，所以在delphi中定義的js代碼是 jquery代碼

 

procedure TFormLogin.Login();
var
  JSFun, newPw: string;
begin
  newPw := '<input name=''pw'' id=''pw'' type=''text'' class=''input'' tabindex=''2'' maxlength=''16'' onkeypress=''if(event.keyCode == 13){login();}'' autocomplete=''off'' value=''' + edtPwd.Text + '''>';
  try
    // JSFun := 'login_tab_click(''nexon'');'; // 轉到左側
    JSFun := 'login_tab_click(''dnf'');'; // 轉到右側
    htmlWindow.execScript(JSFun, 'JavaScript');
    JSFun := '$("#id").focus();$("#id").val("' + edtUName.Text + '");';
    htmlWindow.execScript(JSFun, 'JavaScript');
    JSFun := '$("#pw").click();$("#pw").replaceWith("' + newPw + '");';
    htmlWindow.execScript(JSFun, 'JavaScript');
    JSFun := 'login();';
    htmlWindow.execScript(JSFun, 'JavaScript');
  except
  end;
end;