{"id":343,"date":"2009-04-23T09:32:00","date_gmt":"2009-04-23T01:32:00","guid":{"rendered":""},"modified":"2013-11-17T19:41:04","modified_gmt":"2013-11-17T11:41:04","slug":"delphi%e5%ae%9e%e7%8e%b0%e7%bd%91%e9%a1%b5%e8%87%aa%e5%8a%a8%e7%99%bb%e9%99%86","status":"publish","type":"post","link":"https:\/\/kyle.ai\/blog\/343.html","title":{"rendered":"Delphi\u5b9e\u73b0\u7f51\u9875\u81ea\u52a8\u767b\u9646"},"content":{"rendered":"<p>\u6bd4\u5982\u64cd\u4f5c CSDN\u7684\u767b\u5f55 \u5148\u7528WebBrowser\u5b9a\u4f4d\u5230\u767b\u5f55\u9875\u9762<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nWebBrowser1.Navigate(\u2018http:\/\/passport.csdn.net\/UserLogin.aspx?from=http:\/\/community.csdn.net\/\u2019);\r\n<\/pre>\n<p>\u7136\u540e\uff0c\u770b\u5176HTML\u6e90\u4ee3\u7801\uff0c\u53d1\u73b0<br \/>\n\u540d\u5b57\u4e3a ctl00$CPH_Content$tb_LoginNameOrLoginEmail\u7684\u5143\u7d20\u5c31\u662f \u5176\u7528\u6237\u540d\u7684\u8f93\u5165\u6846\u4e86\u3002<br \/>\n\u6b64\u65f6 \u4f7f\u7528<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\n(WebBrowser1.Document as IHTMLDOCUMENT2).all.item(\u2018ctl00$CPH_Content$tb_LoginNameOrLoginEmail\u2019,emptyParam)\r\n<\/pre>\n<p>\u6765\u5f97\u5230\u8fd9\u4e2a\u5143\u7d20\u4e86\u3002<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nvar\r\nUserEdt,LogBtn: IHTMLELEMENT;\r\nbegin\r\nUserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item(\u2018ctl00$CPH_Content$tb_LoginNameOrLoginEmail\u2018,emptyParam) as IHTMLELEMENT;\r\nUserEdt.setAttribute(\u2018value\u2018,\u2018test\u2018,0);\/\/\u8fd9\u91cc\u5c31\u8bbe\u7f6e\u4e86test\u5230\u8f93\u5165\u7528\u6237\u540d\u7684\u7f16\u8f91\u6846\u4e2d\u4e86 \u3002\r\n\/\/\u4f9d\u6b64\u4e00\u6837\uff0c\u8f93\u5165\u5bc6\u7801\uff0c\u9a8c\u8bc1\u7801\r\n\/\/\u7136\u540e\u627e\u90a3\u4e2a\u767b\u5f55\u6309\u94ae\uff0c\u901a\u8fc7\u4ed6\u7684HTML\u6e90\u4ee3\u7801\uff0c\u53ef\u4ee5\u77e5\u9053\uff0c\u90a3\u4e2a\u6309\u94ae\u5176\u5b9e\u662f\u4e2a\u56fe\u7247\uff0c\u5143\u7d20\u7684\u540d\u5b57\u53eb \u201cctl00$CPH_Content$Image_Login\u201d\r\n\/\/\u540c\u6837\u7684\u65b9\u6cd5\r\nLogBtn := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item(\u2018ctl00$CPH_Content$Image_Login\u2018,emptyParam) as IHTMLELEMENT;\r\nLogBtn.Click;\/\/\u8c03\u7528\u6309\u94ae\u7684\u70b9\u51fb\u4e8b\u4ef6\u5f00\u59cb\u767b\u5f55\u3002\r\nend;\r\n<\/pre>\n<p>\u56e0\u4e3a\u6211\u53d1\u73b0\u4ed6\u7f51\u9875\u6e90\u4ee3\u7801\u91cc\u6309\u94ae\u91cc\u6709\u4e8b\u4ef6<\/p>\n<pre class=\"brush: plain; title: ; notranslate\" title=\"\">\r\n&lt;a href=&quot;&quot; onclick=&quot;javascript:document.loginForm.submit();return false;&quot;&gt; &lt;img src=&quot;images\/im1_21.gif&quot; alt=&quot;&quot; width=&quot;97&quot; height=&quot;27&quot; border=&quot;0&quot;&gt; &lt;\/a&gt; &lt;\/td&gt;\r\n<\/pre>\n<p>\u6240\u4ee5\u6211\u6a21\u62df\u6309\u94ae\u7684\u70b9\u51fb\u4e8b\u4ef6\u53ef\u4ee5\u8fbe\u5230\u529f\u80fd\u3002<\/p>\n<pre class=\"brush: delphi; title: ; notranslate\" title=\"\">\r\nprocedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;\\\\\u767b\u5165\r\nconst pDisp: IDispatch; var URL: OleVariant);\r\nvar\r\nvDocument:IHTMLDocument2;\r\nuseredt,userPASS:IHTMLELEMENT;\r\nbegin\r\n   if q then\r\n   begin\r\n   UserEdt := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item(\u2018logUsers\u2018,emptyParam) as IHTMLELEMENT;\r\n   UserEdt.setAttribute(\u2018value\u2018,\u2018cc3802\u2018,0);\r\n   Userpass := (WebBrowser1.Document as IHTMLDOCUMENT2).all.item(\u2018logPasses\u2018,emptyParam) as IHTMLELEMENT;\r\n   Userpass.setAttribute(\u2018value\u2018,\u2018*******\u2018,0);\r\n   q:=false;\r\n   vDocument := WebBrowser1.Document as IHTMLDocument2;\r\n   vDocument.parentWindow.execScript(\u2018document.loginForm.submit()\u2018, \u2018javascript\u2018);\r\n\r\n   end;\r\nend;\r\nprocedure TForm1.Button7Click(Sender: TObject);\r\nvar\r\n     astring:String;\r\n     vDocument:IHTMLDocument2;\r\nbegin\r\n    vDocument := WebBrowser1.Document as IHTMLDocument2;\r\n    astring:=\u2018url_link(\u2018+\u2018\u201d..\/DutyPage\/SubmitDuty2.aspx?apidos=795010&amp;sl=1\u201d\u2018+\u2018)\u2018;\r\n   vDocument.parentWindow.execScript(astring,\u2018javascript\u2018);\r\nend;\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u6bd4\u5982\u64cd\u4f5c CSDN\u7684\u767b\u5f55 \u5148\u7528WebBrowser\u5b9a\u4f4d\u5230\u767b\u5f55\u9875\u9762 WebBrowser1.Navigate(\u2018 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6],"tags":[],"class_list":["post-343","post","type-post","status-publish","format-standard","hentry","category-code_related"],"_links":{"self":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/343","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/comments?post=343"}],"version-history":[{"count":1,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/343\/revisions"}],"predecessor-version":[{"id":4775,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/posts\/343\/revisions\/4775"}],"wp:attachment":[{"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/media?parent=343"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/categories?post=343"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kyle.ai\/blog\/wp-json\/wp\/v2\/tags?post=343"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}