delphi做这样的网页该用啥思路呢

Posted 2023-03-23

是个网页游戏，玩聊的时候玩玩，可是有些操作天天都是一样的，想自己写个自动工作的程序，

可是那些网上的很多显示的东西都是通过变量取得的。比如
<DIV class=navmenu> <SPAN id=nMainMenu> <A class="" onmousedown="om.setIcon(this,1,'chara','undefined')" id=chara onmouseover="om.setIcon(this,2,'chara','undefined')" onclick="javascript:om.clickmain('chara',this,'undefined','undefined');om.mainhintname='chara';om.main_hint_open('chara','');om.clickchild('charabasic','人物',this);om.setIcon(this,3,'chara','undefined')" onmouseout="om.setIcon(this,0,'chara','undefined')" href="javascript:void(0)" ?> <IMG alt=人物 src="http://img8.gamebto.com/gamebto/images/default/chara.gif"> </A>
<DIV style-?width:30px;?> </DIV> </SPAN> </DIV>

这是看人物信息的，想看的话，就用鼠标点一下，可是用delphi怎么做呢？

昨日收入: <B class=yellow id=user_yesterdayearning>7,360 </B>G币 这是显示的一个收入值，
这是不是要分析包才能知道7360那个位置的接收数的变量啊？

没做过这样的。请多多帮忙？
[Error] Unit1.pas(42): Expression expected but '<' found
[Error] Unit1.pas(42): ')' expected but identifier 'id' found
[Error] Unit1.pas(42): Expression expected but ')' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

错在copy那句 .把它注释掉,就能运行,但点button1时.
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.text:=idhttp1.get('http://s22.gamebto.com/gamebto/');
end;
错误,我不明白
Project Project1.exe raised exception class EIDHTTPProtocolException with message 'HTTP/1.1 302 Moved Temporarily'.Process stopped Use Step or Run to continue.

用WebBrowser试试.
WebBrowser1.OleObject.document.parentWindow.execScript 执行网页里的javascript,或者模拟点击按钮.
如果你能弄明白的话. 参考技术A 用idhttp取这整个页的代码
Memo1.text:=idhttp.get('地址');
然后用pos就行了
你要的值:=copy(Memo1.text,pos('<B class=yellow id=user_yesterdayearning>',Memo1.text)+length(<B class=yellow id=user_yesterdayearning>),pos('</B>',Memo1.text)-pos('<B class=yellow id=user_yesterdayearning>',Memo1.text)-length(<B class=yellow id=user_yesterdayearning>));