[求助]一个简单问题。100份赠出~~~~~

Question

界面很简单，1个button,1个text我想点button时，就获取当前活动的HTML页的原代码（最前面的页），并放入到text中。问题：用vb获取当前活动的HTML页面的原代码
送分了~~~~~~~~~请高手告诉下下~~~~~        ^-^

Answer 1

楼主补充:    请各位大虾给段例子吧~~~如何获取当前活动页的HTML原代码呀~~~~谢谢告诉下吧。

Answer 2

楼主补充:    请各位大虾给段例子吧~~~如何获取当前活动页的HTML原代码呀~~~~谢谢告诉下吧。

Answer 3

用WebBrowser控件打开网页,可以取得源码
function TForm1.GetHtml(const WebBrowser: TWebBrowser): string;
const
  BufSize = $65536;
var
  Size: Int64;
  Stream: IStream;
  hHTMLText: HGLOBAL;
  psi: IPersistStreamInit;
begin                   
  if not Assigned(WebBrowser.Document) then Exit;  OleCheck (WebBrowser.Document.QueryInterface (IPersistStreamInit, psi));
  try
    //OleCheck(psi.GetSizeMax(Size));
    hHTMLText := GlobalAlloc(GPTR, BufSize);
    if 0 = hHTMLText then RaiseLastWin32Error;    OleCheck(CreateStreamOnHGlobal (hHTMLText, True, Stream));
    try
      OleCheck(psi.Save (Stream, False));      Size := StrLen (PChar (hHTMLText));
      SetLength (Result, Size);
      CopyMemory (PChar (Result), Pointer (hHTMLText), Size);
    finally
      Stream := nil;
    end;
  finally
    psi := nil;
  end;
end;手边没有VB,这是DELPHI版的,你可以自己转一下.