一个关于webbrowser问题

Question

看那个页面提交到哪个页面
然后将其POST过去

Answer 1

POST,怎么用？？？，他下一个页是login.htm

Answer 2

我用WebBrowser1.Navigate('gop.tom.com/login.htm'）到下一页，他提示我请循正常程序进行游戏，谢谢!!

Answer 3

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.

Answer 4

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;

Answer 5

谢谢，但是用处好像不大，我的问题是我用WebBrowser1.Navigate('gop.tom.com/login.htm'）到下一页，他提示我请循正常程序进行游戏，谢谢!!WebBrowser1.Navigate('gop.tom.com/login.htm'）好像需要其他参数，比如Target,可我不知道如何加

Answer 6

最好在页面用php编程，由页面自己引导。