Subject: | SetOption wont accept INTERNET_OPTION_MAX_CONNS_PER_SERVER 73 |
Constant INTERNET_OPTION_MAX_CONNS_PER_SERVER isn't defined. Trying to
use the numeric version of INTERNET_OPTION_MAX_CONNS_PER_SERVER, which
is 73, also never works. Perl 5.10, Win32::Internet 0.084, Windows XP SP3.
Show quoted text
__________________________________________________________
#!/usr/bin/perl -w
use Win32::Internet;
$c = new Win32::Internet();
$, = ' , ';
print 'INTERNET_OPTION_CONNECT_TIMEOUT is
'.INTERNET_OPTION_CONNECT_TIMEOUT."\n";
print 'INTERNET_OPTION_MAX_CONNS_PER_SERVER is
'.INTERNET_OPTION_MAX_CONNS_PER_SERVER."\n";
#INTERNET_OPTION_MAX_CONNS_PER_SERVER is 73
print (($c->SetOption(73, 10)?'t':'f')."\n");
print $c->Error(),"\n";
#INTERNET_OPTION_CONNECT_TIMEOUT is 2
print (($c->SetOption(2, 1000)?'t':'f')."\n");
print (($c->SetOption(INTERNET_OPTION_CONNECT_TIMEOUT, 1000)?'t':'f')."\n");
__________________________________________________
results
_____________________________________________________
INTERNET_OPTION_CONNECT_TIMEOUT is 2
INTERNET_OPTION_MAX_CONNS_PER_SERVER is INTERNET_OPTION_MAX_CONNS_PER_SERVER
f
12010 , The length is incorrect for the option type ,
t
t
_____________________________________________________