Webbrowser 코드 수집

1. Webbrowes 새 창의 페이지 열기를 금지하고 현재 페이지에 강제로 열기
방법: 웹 브라우저 컨트롤 두 개를 놓고 아래와 같이 오타가 납니다.
 
 
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var PpDisp: IDispatch;
  var Cancel: WordBool);
begin
  PpDisp := WebBrowser2.Application;
end;

procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
  const PDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
  urlStr: string;
begin
  urlStr := string(URL);
  WebBrowser1.Navigate(urlStr ); 
  Cancel := True;
end;
       
 USER    MSHTML;   ActiveX;
procedure TForm1.Button2Click(Sender: TObject);
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
begin
doc:=WebBrowser1 .Document as IHTMLDocument2;
all:=doc.Get_links;//doc.Links
len:=all.length;

for i:=0 to len-1 do begin
item:=all.item(i,varempty);//EmpryParam
memo1.lines.add(item.href);
end;
end;

/////////////////////////////////////////////////////////////////////////////////////////////////
        
Memo1.Text:=WebBrowser1.OleObject.document.documentelement.innerhtml;

//////////////////////////////////////////////////////////////////////////////////////////////////
      

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
cancel:=true
end;

//////////////////////////////////////////////////////////////////////////////////////////////
           
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
var
NewApp: TForm1;
begin
NewApp := TForm1.Create(Owner);
NewApp.Visible := true;
ppdisp := NewApp.webbrowser1.Application;

end


/////////////////////////////////////////////////////////////////////////////////////////////////
    

procedure TForm1.Button1Click(Sender: TObject);
var
HTMLDocument: IHTMLDocument2;
begin
    HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
    Memo1.Text := HTMLDocument.body.innerText;
end;

///////////////////////////////////////////////////////////////////////////////////////////////////////
  
uses Activex;
           。
initialization 
oleinitialize(nil); 
finalization 
oleuninitialize;
//////////////////////////////////////////////////////////////////////////////////////////////////////
       
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.ExecWB(OLECMDID_SELECTALL, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam);   //    

WebBrowser1.ExecWB(OLECMDID_COPY, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam);       //      
end;

            
uses mshtml;

var
HtmlDoc:IHTMLDocument2;
myitem:Olevariant;
i:integer;
begin
myitem := WebBrowser1.Document;
for i := 0 to myitem.all.length - 1 do
begin
if myitem.all.item(i).tagName = 'SELECT' then //      
begin
myitem.all.item(i).value:='2';                      // '2' value="    
end;

if myitem.all.item(i).tagName = 'INPUT' then
begin
if Uppercase(myitem.all.item(i).type)='RADIO' then
begin
if myitem.all.item(i).value=' ' then myitem.all.item(i).checked:=true;
end;
end;
end;
end;  

var
o : Olevariant;
begin
o := WebBrowser.OleObject.document.all.item('LoginUserID',0); //           
o.value := 'TEST';
o := WebBrowser.oleobject.document.all.item('LoginPassword',0); //          
o.value := 'TEST'
WebBrowser.oleobject.document.Forms.Item(0, 0).submit; //       
{
o :=WebBrowser.oleobject.document.all.item('Login',0); //           
o.Click; //    ,           
}
end;

  JAVASCRIPT  
WebBrowser1.OleObject.document.parentWindow.execScript('GSLogin()','javascript');





  frames   ,FrameIndex Frame    

var 
o : Olevariant; 
begin 

//            
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FrameIndex).document.all.item('LoginUserID',0); 
o.value := 'TEST'; 
//           
o := WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.all.item('LoginPassword',0); 
o.value := 'TEST' 
//        
WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex).document.Forms.Item(0, 0).submit; 
{ 
//            
o :=WebBrowser.oleobject.document.documentelement.document.frames.item(FramIndex)..document.all.item('Login',0); 
o.Click; //    ,            
} 
end;


WebBrowser1.oleobject.Document.getElementById('button').Click;


///////////////////////////////////////////////////////////////////////////////////////
 1 item  (0  )
WebBrowser1.OleObject.document.getElementsByTagName('input').item(1).click;
   name, name   
WebBrowser1.OleObject.document.all.item('Registered1').click

http://www.cnblogs.com/xe2011/p/3144861.html(Twebbrowers 작업 관련)
Webbrowes의 라디오가 선택되었는지 판단합니다.
웹 페이지 소스:
   
     
       
                                                        
                                                        
                                                    
                                                    
                                                        
                                                        
                                                    
                                                    
                                                        
                                                        
                                                    
                                                    
                                                        
                                                        
                                                    
                                                    
                                                        
                                                        
                                                    
                                                    
                                                        
                                                        
                                                    
                                                

if Web1.OleObject.document.Frames.item(0).document.all.item('typeTab',2).checked then

좋은 웹페이지 즐겨찾기