如何在Delphi中实现网页中的代码的模拟执行 ( 积分: 100 )

最近在做一个模拟网页点击提交的程序,下面是一段网页源码:
<div id=&quot;vote_up&quot;>
<div><a href=&quot;#&quot; onclick=&quot;new Ajax.Request('/share/vote_up/8691', {asynchronous:true, evalScripts:true}); return false;&quot;><img alt=&quot;加分&quot; src=&quot;/images/share/up.gif?1184923523&quot; title=&quot;加分&quot; /></a>
</div>
<div class=&quot;text_button&quot;><a href=&quot;#&quot; onclick=&quot;new Ajax.Request('/share/vote_up/8691', {asynchronous:true, evalScripts:true}); return false;&quot;>加分</a></div>
</div>
我想在Delphi程序中自动执行onclick=new Ajax.Request('/share/vote_up/8691', {asynchronous:true, evalScripts:true})这段代码,请高手给出源码指点,谢谢.

与我联系
QQ：417961930！
什么自动注册机，投票软件，网页问题，我都能搞定！

[]真 的 没 人 会?

你抓一下网页提交数据的包。
用IDHTTP模拟试试吧。

wb.OleObject.Document.parentwindow.execscript('subchange()','javascript');

接受答案了.