[perl-win32-gui-users] Ok I posted it once but now Im posting it in a different color

[christopher sagayam]

hi all

I posted this question before and I didnt even get once response.
So Im posting it in a different color.
Please tell me if this question is totally off topic here .
If it is , can anyone suggest a suitable mailing list for this question
I thought since the finest win32 api minds hang out here I would post it here

The code is taken from the actual example
---------------------------------------------------------------------

$|=1;
use Win32::RASE;

print "\nI'm dialing via the first RAS entry: $first_RAS_entry\n\n";

($UserName, $Password) = RasGetUserPwd($first_RAS_entry)
 or die Win32::RASE::FormatMessage;

print "UserName:";
!$UserName ? chomp($UserName=<>) : print "$UserName\n";

print "Password:";
!$Password ? chomp($Password=<>) : print "$Password\n";


$hrasconn = RasDial($first_RAS_entry, undef , $UserName, $Password)
 or die Win32::RASE::FormatMessage;

#($err, $status) = RasDial("CLICK", "DP 110-6511" , $UserName, 
$Password,undef,undef)
# or die Win32::RASE::FormatMessage;

print "Connected, \$hrasconn=$hrasconn\n";
print "\n\n------next line---\n\n";


#=============== don't edit under this line ==============
sub FindOpenedFolders () {
# returns array of hwnd's of the opened folders
  my $findAfter = 0;
  my @folders;
  $FindWindowEx ||= new Win32::API("user32", "FindWindowEx", [N,N,P,P], N);

  while($findAfter = $FindWindowEx->Call(0, $findAfter, "CabinetWClass", 0)) {
     push @folders, $findAfter;
  }

  $findAfter = 0;
  while($findAfter = $FindWindowEx->Call(0, $findAfter, "ExploreWClass", 0)) {
     push @folders, $findAfter;
  }
  @folders;
}

sub CloseWindow ($) {
# arg - hwnd
  $PostMessage ||= new Win32::API("user32", "PostMessage", [N,N,N,N], I);
  $WN_CLOSE = 0x10;

  $PostMessage->Call(shift, $WN_CLOSE, 0, 0);
}

BEGIN {
  require Win32::API;

  unless ($hwnd = (FindOpenedFolders())[0]) {
    system 'start explorer /n,C:\\';
    $start_time = time;
    while (!($hwnd = (FindOpenedFolders())[0]) && $start_time+3 < time) {}

    $hwnd or die "Could not open C:\\ window\n";
    $hwnd_opened = 1;
  }

  $first_RAS_entry = (RasEnumEntries())[0]
    or die "No one RAS entry were found\n";
}

END { CloseWindow($hwnd) if $hwnd_opened }

 

The above code when run , starts dialing right away ...

but I want  sample codes for 

1)  invoking the default original windows  DUN dialog .
2) to check whether the user is connected to the internet
3) to disconnet from internet

any help will be greatly appreciated

or should I use any other perl module ?


chris
www.perl-resume.com