在 TWebBrowser 控件中执行javascript代码

时间：2010-10-16 来源：不死小强

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;

相关阅读更多 +