Hallo zusammen,
ich verzweifel langsam 
HttpSetProxy(2,"XXX.XX.net:8080")
InetGet("https://xxx:yyy@http://www.blabla.de:447/test/test.txt","D:\test.txt",1,0)
AutoIT lädt die Datei runter, allerdings ist sie ohne Inhalt...
Hoffe ihr könnt mir helfen
//edit
Folgendes gibt -1 bytes als downloaded an:
[autoit]
While @InetGetActive
TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
Sleep(50)
Wend
MsgBox(0, "Bytes read", @InetGetBytesRead)
[/autoit][autoit][/autoit][autoit][/autoit]*schieb*
Funktioniert leider immernoch nicht..
hat jemand eine Idee?
Hi,
ich kann es im Moment nicht testen (Firmennetz), evtl. probiere ich es heute Abend mal.
Mega
Hast du es mal ausprobiert?
HI,
ähm nein noch nicht. Erinner mich heute Abend einfach nochmal dran. 
Mega
Hi,
jetzt müsste mir mal jemand Daten geben, damit ich es ausprobieren kann.
Mega
Ich darf die die Daten leider nicht geben..sind halt Firmendaten
Hi,
hast du denn Username und Passwort angegeben bei HttpSetProxy ?
Mega
Hi,
nochmal einen Nachtrag:
Szenario : Du bist im Firmennetz und willst über euren Proxy raus? Oder ... ?
Mega
Richtig.
bin im Firmennetz und muss raus.
Am Proxy muss man sich nicht authentifizieren (also kein username/pw nötig)
Laut Netzwerkkollegen hat der Proxy keine Probleme mit https.
ich kann mir die Datei, die runtergeladen werden soll auch ganz normal im IE angucken!
a) Geht es, wenn du den Proxy erst gar nicht setzt? Der müsste doch schon durch den IE gesetzt sein
b) Ich glaube, der Proxy wird mit HTTPSetProxy nur für HTTP, nicht für HTTPS gesetzt.
Hi,
alles klar. Das kann ich testen. Es scheint aber so, als käme ich auch nicht raus.
Mega
HI,
habe es gerade noch mal getestet. Also mit Autoit komme ich nicht raus. Habe es dann mit Perl probiert. Das klappt.
Mega
hm nicht gut 
Kannst du mir vielleicht das Perl-Script posten? Oder wenigstens einen Ansatz!?
Ich hab leider 0 Ahnung von Perl.
Hi,
kein Problem. Wenn du mir sagst, was die fehlt, dann kann ich es auch ein bißchen anpassen für dich.
Das hatte ich mal angefangen, um das php Skript zu ersetzen auf dieser Seite. 
Muss ich mal fertig machen. Bzw. neu schreiben.
#!/usr/bin/perl
use warnings;
use strict;
use diagnostics;
use LWP::Simple;
use LWP::UserAgent;
my $stableURL = "http://www.autoitscript.com/autoit3/downloads.php";
my $betaURL = "http://www.autoitscript.com/autoit3/files/beta/autoit/";
my $sciteURL = "http://www.autoitscript.com/autoit3/scite/News.htm";
my $sciteDate = "http://www.autoitscript.com/autoit3/scite/docs/history.htm";
my $toWrite = 'versions.txt';
# Proxy
my $proxy = "http://user:password\@proxy:port";
my $ua = LWP::UserAgent->new();
$ua->proxy( [ 'http', 'ftp' ], $proxy );
[/autoit] [autoit][/autoit] [autoit]#=begin comment
print extractVersion($stableURL);
print "\n";
print extractVersion($betaURL);
print "\n";
print extractSciteVersion($sciteURL);
print "\n";
print extractSciteDate($sciteDate);
=end comment
<a href="" title="Stabile Version von AutoIt direkt herunterladen">3.2.10.0</a>
=cut
open( WRITER, ">$toWrite" )
die "Datei konnte nicht zum Schreiben geoeffnet werden: $!\n";
print WRITER extractVersion($stableURL);
print WRITER "\n";
print WRITER extractVersion($betaURL);
print WRITER "\n";
print WRITER extractSciteVersion($sciteURL);
print WRITER "\n";
print WRITER extractSciteDate($sciteDate);
sub extractSciteDate {
my $url = shift;
my $request = HTTP::Request->new( 'GET', $url );
my $response = $ua->request($request);
my @hits;
my $version;
my $month;
my $day;
my $year;
if ( $response->is_success() ) {
my $content = $response->content();
while ( $content =~ /\d+\/\d+\/\d+/g ) { push @hits, $&; }
( $month, $day, $year ) = split( /\//, $hits[0] );
return "$day/$month/$year";
}
else {
return (
-1, "Error-Code : ",
$response->code(), " Fehlermeldung: ",
$response->message()
);
}
}
sub extractSciteVersion {
my $url = shift;
my $request = HTTP::Request->new( 'GET', $url );
my $response = $ua->request($request);
my @hits;
my $version;
if ( $response->is_success() ) {
my $content = $response->content();
while ( $content =~ m/(?<=SciTE )\d\.\d{2}/g ) { push @hits, $&; }
my @sorted = sort { $a cmp $b } @hits;
#print join ("\n\n",@hits);
return pop(@sorted); #[$#sorted];
}
else {
return (
-1, "Error-Code : ",
$response->code(), " Fehlermeldung: ",
$response->message()
);
}
}
sub extractVersion {
my $url = shift;
my $request = HTTP::Request->new( 'GET', $url );
my $response = $ua->request($request);
my @hits;
if ( $response->is_success() ) {
my $content = $response->content();
while ( $content =~ m/3\.\d+\.\d+\.\d+/g ) { push @hits, $&; }
my @sorted = sort { $a cmp $b } @hits;
#print join ("\n\n",@hits);
return $sorted[$#sorted];
}
else {
return (
-1, "Error-Code : ",
$response->code(), "Fehlermeldung: ",
$response->message()
);
}
}
Mega
