一个关于webbrowser问题 看那个页面提交到哪个页面然后将其POST过去 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 POST,怎么用???,他下一个页是login.htm 我用WebBrowser1.Navigate('gop.tom.com/login.htm')到下一页,他提示我请循正常程序进行游戏,谢谢!! unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, SysTray, ExtCtrls, OleCtrls, SHDocVw, StdCtrls, Buttons, MPlayer;type TForm1 = class(TForm) SysTray1: TSysTray; pmSysTray: TPopupMenu; Label1: TLabel; edtTimer: TEdit; btnStart: TBitBtn; btnStop: TBitBtn; btnExit: TBitBtn; Timer1: TTimer; Bevel1: TBevel; Label3: TLabel; pmiRestore: TMenuItem; pmiMinimize: TMenuItem; N1: TMenuItem; pmiAbout: TMenuItem; pmiExit: TMenuItem; WebBrowser1: TWebBrowser; Image1: TImage; Image2: TImage; Timer2: TTimer; Image3: TImage; MediaPlayer1: TMediaPlayer; procedure btnStartClick(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure btnStopClick(Sender: TObject); procedure btnExitClick(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure pmiRestoreClick(Sender: TObject); procedure pmiMinimizeClick(Sender: TObject); procedure pmiExitClick(Sender: TObject); procedure SysTray1IconDoubleClick(Sender: TObject; Button: TMouseButton; X, Y: Integer); procedure pmiAboutClick(Sender: TObject); procedure WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString); procedure Timer2Timer(Sender: TObject); private procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND; { Private declarations } public { Public declarations } end;var Form1: TForm1; Flag: Boolean;implementationuses Unit2;{$R *.dfm}procedure TForm1.WMSysCommand(var Message:TMessage);begin if Message.WParam = SC_ICON then //最小化了 begin Hide; pmiRestore.Enabled:=True; pmiMinimize.Enabled:=False; end else inherited;end;procedure TForm1.btnStartClick(Sender: TObject);var timer: integer;begin if timer1.Enabled then timer1.Enabled:=False; try timer:=strtoint(edtTimer.Text); except on EConvertError do begin Showmessage('请正确填写时间间隔!'); exit; end; end; WebBrowser1.Navigate('http://www.google.com'); //WebBrowser1.Navigate('http://192.168.0.20'); timer1.Interval:=timer; timer1.Enabled:=True; btnStart.Enabled:=False; btnStop.Enabled:=True;end;procedure TForm1.Timer1Timer(Sender: TObject);begin Timer2.Enabled:=False; SysTray1.Icon:=Image3.Picture.Icon; WebBrowser1.Navigate('http://www.google.com'); //WebBrowser1.Navigate('http://192.168.0.20');end;procedure TForm1.btnStopClick(Sender: TObject);begin timer1.Enabled:=False; timer2.Enabled:=False; SysTray1.Icon:=Image3.Picture.Icon; btnStart.Enabled:=True; btnStop.Enabled:=False;end;procedure TForm1.btnExitClick(Sender: TObject);begin close;end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);begin if timer1.Enabled then begin CanClose:=False; ShowMessage('请停止监测后关闭程序!'); end else CanClose:=True;end;procedure TForm1.pmiRestoreClick(Sender: TObject);begin Show; pmiRestore.Enabled:=False; pmiMinimize.Enabled:=True;end;procedure TForm1.pmiMinimizeClick(Sender: TObject);begin Hide; pmiRestore.Enabled:=True; pmiMinimize.Enabled:=False;end;procedure TForm1.pmiExitClick(Sender: TObject);begin Close;end;procedure TForm1.SysTray1IconDoubleClick(Sender: TObject; Button: TMouseButton; X, Y: Integer);begin if Button = mbLeft then begin if pmiMinimize.Enabled then begin Hide; pmiRestore.Enabled:=True; pmiMinimize.Enabled:=False; end else begin Show; pmiRestore.Enabled:=False; pmiMinimize.Enabled:=True; end; end;end;procedure TForm1.pmiAboutClick(Sender: TObject);begin Form2.ShowModal;end;procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject; const Text: WideString);begin if (Text='Web 地址已经找到。请等待回应...') or (Text='正在打开网页 http://www.google.com/...') then Timer2.Enabled:=True; //showmessage(Text);end;procedure TForm1.Timer2Timer(Sender: TObject);begin if Flag then begin SysTray1.Icon:=Image2.Picture.Icon; Flag:=False; MediaPlayer1.play; end else begin SysTray1.Icon:=Image1.Picture.Icon; Flag:=True; MediaPlayer1.play; end;end;end. procedure MyWebBrowserNavigate(AWebBrowser: TWebBrowser; AURL: string; APostData: string);var vPostData, vHeaders: OleVariant; iLoop: Integer;begin vHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0; vPostData:= VarArrayCreate([0, Length(APostData)], varByte); for iLoop := 0 to Length(APostData)- 1 do begin vPostData[iLoop]:= Ord(APostData[iLoop + 1]); end; vPostData[Length(APostData)] := 0; TVarData(vPostData).vType:= varArray; AWebBrowser.Navigate(AURL, EmptyParam, EmptyParam, vPostData, vHeaders);end; 谢谢,但是用处好像不大,我的问题是我用WebBrowser1.Navigate('gop.tom.com/login.htm')到下一页,他提示我请循正常程序进行游戏,谢谢!!WebBrowser1.Navigate('gop.tom.com/login.htm')好像需要其他参数,比如Target,可我不知道如何加 最好在页面用php编程,由页面自己引导。 如何将将一个字符串中标点符号全部删除 如何统计系统物理内存总数 在线等待-30分 怎么获取某个目录下的所有文件夹(不包含子目录) 要想在delphi中插入类似EXCEL的表格,需要什么控件? 记录定位或过滤的问题 求sql排序语句(降序) 我在CSDN里生活的流程图~~ 高分相送,我急于解决这个问题!!!!! delphi将多余的资源编译到exe文件中 助人为快乐之本,更何况Money多多! 一个ClientDataSet存在缓存中记录的条数? 怎样给LABEL控件内的文字加入链接呢?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, SysTray, ExtCtrls, OleCtrls, SHDocVw, StdCtrls, Buttons,
MPlayer;type
TForm1 = class(TForm)
SysTray1: TSysTray;
pmSysTray: TPopupMenu;
Label1: TLabel;
edtTimer: TEdit;
btnStart: TBitBtn;
btnStop: TBitBtn;
btnExit: TBitBtn;
Timer1: TTimer;
Bevel1: TBevel;
Label3: TLabel;
pmiRestore: TMenuItem;
pmiMinimize: TMenuItem;
N1: TMenuItem;
pmiAbout: TMenuItem;
pmiExit: TMenuItem;
WebBrowser1: TWebBrowser;
Image1: TImage;
Image2: TImage;
Timer2: TTimer;
Image3: TImage;
MediaPlayer1: TMediaPlayer;
procedure btnStartClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure btnStopClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure pmiRestoreClick(Sender: TObject);
procedure pmiMinimizeClick(Sender: TObject);
procedure pmiExitClick(Sender: TObject);
procedure SysTray1IconDoubleClick(Sender: TObject;
Button: TMouseButton; X, Y: Integer);
procedure pmiAboutClick(Sender: TObject);
procedure WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
procedure Timer2Timer(Sender: TObject);
private
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
Flag: Boolean;implementationuses Unit2;{$R *.dfm}procedure TForm1.WMSysCommand(var Message:TMessage);
begin
if Message.WParam = SC_ICON then //最小化了
begin
Hide;
pmiRestore.Enabled:=True;
pmiMinimize.Enabled:=False;
end
else
inherited;
end;procedure TForm1.btnStartClick(Sender: TObject);
var
timer: integer;
begin
if timer1.Enabled then
timer1.Enabled:=False; try
timer:=strtoint(edtTimer.Text);
except
on EConvertError do
begin
Showmessage('请正确填写时间间隔!');
exit;
end;
end; WebBrowser1.Navigate('http://www.google.com');
//WebBrowser1.Navigate('http://192.168.0.20'); timer1.Interval:=timer;
timer1.Enabled:=True;
btnStart.Enabled:=False;
btnStop.Enabled:=True;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer2.Enabled:=False;
SysTray1.Icon:=Image3.Picture.Icon;
WebBrowser1.Navigate('http://www.google.com');
//WebBrowser1.Navigate('http://192.168.0.20');
end;procedure TForm1.btnStopClick(Sender: TObject);
begin
timer1.Enabled:=False;
timer2.Enabled:=False;
SysTray1.Icon:=Image3.Picture.Icon;
btnStart.Enabled:=True;
btnStop.Enabled:=False;
end;procedure TForm1.btnExitClick(Sender: TObject);
begin
close;
end;procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if timer1.Enabled then
begin
CanClose:=False;
ShowMessage('请停止监测后关闭程序!');
end
else
CanClose:=True;
end;procedure TForm1.pmiRestoreClick(Sender: TObject);
begin
Show;
pmiRestore.Enabled:=False;
pmiMinimize.Enabled:=True;
end;procedure TForm1.pmiMinimizeClick(Sender: TObject);
begin
Hide;
pmiRestore.Enabled:=True;
pmiMinimize.Enabled:=False;
end;procedure TForm1.pmiExitClick(Sender: TObject);
begin
Close;
end;procedure TForm1.SysTray1IconDoubleClick(Sender: TObject;
Button: TMouseButton; X, Y: Integer);
begin
if Button = mbLeft then
begin
if pmiMinimize.Enabled then
begin
Hide;
pmiRestore.Enabled:=True;
pmiMinimize.Enabled:=False;
end
else begin
Show;
pmiRestore.Enabled:=False;
pmiMinimize.Enabled:=True;
end;
end;
end;procedure TForm1.pmiAboutClick(Sender: TObject);
begin
Form2.ShowModal;
end;procedure TForm1.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
if (Text='Web 地址已经找到。请等待回应...') or (Text='正在打开网页 http://www.google.com/...') then
Timer2.Enabled:=True;
//showmessage(Text);
end;procedure TForm1.Timer2Timer(Sender: TObject);
begin
if Flag then
begin
SysTray1.Icon:=Image2.Picture.Icon;
Flag:=False;
MediaPlayer1.play;
end
else begin
SysTray1.Icon:=Image1.Picture.Icon;
Flag:=True;
MediaPlayer1.play;
end;
end;end.
var
vPostData, vHeaders: OleVariant;
iLoop: Integer;
begin
vHeaders:= 'Content-Type: application/x-www-form-urlencoded'+ #10#13#0;
vPostData:= VarArrayCreate([0, Length(APostData)], varByte);
for iLoop := 0 to Length(APostData)- 1 do
begin
vPostData[iLoop]:= Ord(APostData[iLoop + 1]);
end;
vPostData[Length(APostData)] := 0;
TVarData(vPostData).vType:= varArray; AWebBrowser.Navigate(AURL, EmptyParam, EmptyParam, vPostData, vHeaders);
end;