在webbrower里动态更改网页内容~

Question

如何在webbrower里动态更改网页内容? 正当应用 不是什么恶意软件...

Answer 1

引用  C:\Program Files\Borland\Delphi7\Source\Internet\MSHTML.pas (webbrower.document as IHtmlDocument2)
  
--------------------------------------------------------------
程序，犹如人生。

Answer 2

procedure SetHtml(const WebBrowser:TWebBrowser; const Html: string);
var Stream: IStream;
    hHTMLText: HGLOBAL;
    psi: IPersistStreamInit;
begin
    if not Assigned(WebBrowser.Document) then Exit;
    hHTMLText := GlobalAlloc(GPTR, Length(Html) + 1);
    if hHTMLText = 0 then RaiseLastWin32Error;
    CopyMemory(Pointer(hHTMLText), PChar(Html), Length(Html));
    OleCheck(CreateStreamOnHGlobal(hHTMLText, True, Stream));
    try
        OleCheck(WebBrowser.Document.QueryInterface(IPersistStreamInit, psi));
        try
            OleCheck(psi.InitNew);
            OleCheck(psi.Load(Stream));
        finally
            psi := nil;
        end;
    finally
        Stream := nil;
    end;
end;

Answer 3

用WEBBROWSER控件取得网页后 
自动向网页中的文本框填写内容
<TEXTAREA id=chatInput>要填写内容的位置</TEXTAREA>
请高手指点，请给出可执行代码，谢谢，WAITTING ………………借你的贴发一下，知道的帮回答一下啊，谢谢啦