回复 10# ebhb
我明白你的意思,但是我写的这个下载文件的代码$dir=FileExists("C:\Dokumente und Einstellungen\Li\Desktop");
If $dir=0 Then
DirCreate("d:\downloads")
EndIf
$dir=FileExists("C:\Dokumente und Einstellungen\Li\Desktop\emaw-adonnerpartner.pdf");
If $dir=0 Then ;
$file1=("https://emaw.arbeitsagentur.de/emaw-adonnerpartner-20080204-230434.zip");
$file2=("C:\Dokumente und Einstellungen\Li\Desktop\emaw-adonnerpartner-20080204-230434.zip");
down() ;
Else
MsgBox(4096,"","schon da",1)
EndIf
Func down()
$Size=InetGetSize($file1) ;Größe von der Datein
InetGet($file1,$file2,1,1) ;Downloading
ProgressOn("Process", "downloading ..."& StringRight($file1,20),"0 %")
While @InetGetActive
$i=round(@InetGetBytesRead / $Size * 100)
ProgressSet( $i, $i & " %")
TrayTip("Downloding", "Downlodet = " & @InetGetBytesRead, 10, 16)
Sleep(250)
Wend
ProgressSet(100 , "finish", "over")
sleep(500)
ProgressOff()
;MsgBox(0, "finish, Größe:", @InetGetBytesRead ,"KB")
EndFunc
里面要连接这个网站,可是连接不上去,因为要先点证书确认键才能登陆,这个工作我在前面的一个code里面已经写好,我在想,如何把这俩个code联系起来。。。 |