Select Code to Download

C:\Documents and Settings\Owner\Desktop\cpan libs\Win32-Wlan-0.06>perl
+ wlan.pl
The system cannot find the file specified at C:/perl512/site/lib/Win32
+/Wlan/API.
...
API -MWin32::Wlan::API -e "print $Win32::API::VERSION"
0.45
C:\Documents and Settings\Owner\Desktop\cpan libs\Win32-Wlan-0.06>

#from Win32::API::Struct 0.45
sub Pack {
...
    }
    $self->{buffer_recipients} = $recipients
}

sub WlanConnect {
    croak "Wlan functions are not available" unless $wlan_available;
...
    my $reterr =  $API{ WlanConnect }->Call($handle, $guuid, $Wlan_con
+nection_parameters, 0);
    $reterr == 0 or die "WlanConnect return Error $reterr ";
};

C:\Documents and Settings\Owner\Desktop\cpan libs\Win32-Wlan-0.06>perl
+ wlan.pl
...
API -MWin32::Wlan::API -e "print $Win32::API::VERSION"
0.45
C:\Documents and Settings\Owner\Desktop\cpan libs\Win32-Wlan-0.06>