Help for this page

Select Code to Download


  1. or download this
    Private Sub object_NewWindow2( _
    ByRef ppDisp As Object, _
    ByRef Cancel As Boolean)
  2. or download this
    sub ie_events(){
    my( $ie, $event, @args ) = @_;
  3. or download this
    my $ie = Win32::OLE->new( 'InternetExplorer.Application' );
Win32::OLE->WithEvents($ie, \&ie_events, 'DWebBrowserEvents2' );
  4. or download this
            $args[0]->Put( $ie ); 
        $args[1]->Put( 0 );