Danke an alle für die Schnelle Hilfe, werde das ganze mit json versuchen, Glaube das ist die beste und einfachste Möglichkeit
Beiträge von Scheffi
-
-
Hallo zusammen,
ich würde gerne einen Array von einer Internet Seite (Ausgabe :in Autoit laden, so dass ich da auch mit $Array[0][Protocol] zum Beispiel drauf zugreifen kann. Habe leider keinen Ansatz im Internet gefunden (Weiß auch nicht genau wonach ich suchen soll) und weiß nicht wie ich es bewerkstelligen...
Bitte um Hilfe, ist wahrscheinlich nicht so schwer aber ich bekomme es nicht hin
-
Hey,
hab es nicht im Script aber führe es als Admin aus, hab es aber gelöst bekommen und zwar leere ich den Eintrag immer wieder und beende noch den iexplore Prozess falls er da ist, so klappt es eigentlich und dann sortiert er mir schön die Proxys aus Aber werd deine Anmerkung mit reinpacken, dann muss ich es ja nicht immer per Hand als Admin starten.
Danke -
Hey zusammen,
[autoit]
ich bastel mir gerade eine Art Proxy Checker zusammen aus langeweile.
Ich setze den Proxy mit$key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
[/autoit]
$reg = RegWrite($key, "ProxyEnable", "REG_DWORD", "1")
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "REG_SZ", $Data_Proxy[$c] & ":" & $Data_Proxy[$c+1])
_AddLog("Aktuell:" & $Data_Proxy[$c] & ":"& $Data_Proxy[$c+1])
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")
DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0)
DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 37, 'str', 0, 'long', 0)
Sleep(1000)Edit: Okay, er ändert den Proxy aber springt sofort wieder zurück zum alten... IE wird immer mit _IEQuit($oIE) beendet
Das ganze ist in ner For schleife, die Werte in der Log aktualisieren sich auch perfekt, nur werden die in der Registry nach dem ersten Eintrag nicht aktualisiert
Bringta uch nichts das ganze als Admin zu starten, hoffe jemand weiß Rat awarum die Reg nich geändert wird
MfG -
Aber laut deinem Quellcode sehe ich keinen Label, der mit $aRow[0] bezeichnet wird.
Du musst ja den Laben erstellen und kannst ihn dann ändern, wie Bugfix bereits gesagt hat.Falls du doch ein Label erstellt hast, nutze einfach die direkte Variable und nicht $aRow[0]
-
das ist der Stand von gestern
Es treten keine Fehlermeldungen auf, ohne Proxy startet er den Download und alles läuft, mit lädt das Programm nur ewig lange und sagt dann Download abgeschlossen obwohl es nicht der Fall ist.
Am Proxy wurde nichts geändertEdit: Geht wieder... warum auch immer, hab Autoit neu installiert, evt war ine include File kaputt...
-
Hey,
habe ein Problem mit folgendem Code (lief gestern Abend noch ...)Den Source für den Downloader hab ich iwo im Inet gefunden... weiß leider nicht genau wo - es ist auf jeednfall ncih von mir
Ohne Proxy geht das Script, mit nicht mehr - Proxy funktioniert aber im FF
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <IE.au3>Opt("GUIOnEventMode", 1)
[/autoit][autoit][/autoit][autoit]
Opt("WinTitleMatchMode", 2)
Global $size, $get, $percent, $dauer, $speed, $dlstart, $speed2, $dTimer, $mTimer, $listItem[1000]
$dlstart = 0
AutoItSetOption("TrayIconHide", 1)$main = GUICreate("Downloadmanager by BlazZer", 500, 340)
[/autoit][autoit][/autoit][autoit]
GUISetOnEvent($GUI_EVENT_CLOSE, "_close")
GUICtrlCreateTab(0, 0, 500, 340)
GUICtrlCreateTabItem("Downloadanzeige")
$progress = GUICtrlCreateProgress(0, 305, 500, 35)
GUICtrlCreateLabel("Downloadinformationen:", 10, 185, 480, 20)
$bCopy = GUICtrlCreateLabel("?? von ?? KB kopiert", 10, 285, 480, 20)
$dSpeed = GUICtrlCreateLabel("Übertragungsrate: ?? KB/s", 10, 265, 480, 20)
$dUrl = GUICtrlCreateLabel("Download von: ??", 10, 225, 480, 20)
$sUrl = GUICtrlCreateLabel("Download nach: ??", 10, 245, 480, 20)
$dDauer = GUICtrlCreateLabel("Geschätzte Restdauer: ??", 10, 205, 480, 20)
GUICtrlCreateLabel("Vollständigen Downloadlink eingeben:", 10, 30, 480, 20)
$urlpath = GUICtrlCreateInput("", 10, 50, 480, 20)
GUICtrlCreateLabel("Dateispeicherpfad angeben", 10, 80, 480, 20)
$savepath = GUICtrlCreateInput("", 10, 100, 430, 20)
$searchbutton = GUICtrlCreateButton("...", 445, 100, 50, 20, BitOR($BS_CENTER, $BS_VCENTER))
GUICtrlSetOnEvent($searchbutton, "_savedialog")
GUICtrlSetFont($searchbutton, 14, 400)
$cancel = GUICtrlCreateButton("Abbrechen", 380, 155, 100, 25)
GUICtrlSetOnEvent($cancel, "_abbrechenTrue")
$openfolder = GUICtrlCreateButton("Ordner öffnen", 260, 155, 100, 25)
GUICtrlSetOnEvent($openfolder, "_openfolder")
$open = GUICtrlCreateButton("Ausführen", 140, 155, 100, 25)
GUICtrlSetOnEvent($open, "_open")
$start = GUICtrlCreateButton("Download starten", 20, 155, 100, 25)
GUICtrlSetOnEvent($start, "_download")
$check = GUICtrlCreateCheckbox("Nach beenden des Downloads das Fenster schließen", 10, 130, 300, 20)
$tItem = GUICtrlCreateTabItem("Bisherige Downloads")
$listView = GUICtrlCreateListView("Zeit:|Download von:|Download nach:", 0, 20, 500, 320, $LVS_NOSORTHEADER)
_GUICtrlListView_SetColumnWidth($listView, 0, 110)
_GUICtrlListView_SetColumnWidth($listView, 1, 195)
_GUICtrlListView_SetColumnWidth($listView, 2, 195)
_showList()
GUICtrlCreateTabItem("")$listMenu = GUICtrlCreateContextMenu($listView)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
$mDelete = GUICtrlCreateMenuItem("Alle Einträge löschen", $listMenu)
GUICtrlSetOnEvent($mDelete, "_deleteList")
$mDeleteItem = GUICtrlCreateMenuItem("Eintrag löschen", $listMenu)
GUICtrlSetOnEvent($mDeleteItem, "_deleteListItem")
$mMenu = GUICtrlCreateMenu("Datei", $listMenu)
$mOpen = GUICtrlCreateMenuItem("ausführen", $mMenu)
GUICtrlSetOnEvent($mOpen, "_openListItem")
$mOpenFolder = GUICtrlCreateMenuItem("Ordner öffnen", $mMenu)
GUICtrlSetOnEvent($mOpenFolder, "_openListItemFolder")
$mDlListItem = GUICtrlCreateMenuItem("downloaden", $mMenu)
GUICtrlSetOnEvent($mDlListItem, "_downloadListItem")GUISetState(@SW_SHOW, $main)
[/autoit][autoit][/autoit][autoit]
GUICtrlSetState($open, $GUI_DISABLE)
GUICtrlSetState($openfolder, $GUI_DISABLE)
GUICtrlSetState($cancel, $GUI_DISABLE)
$timer2 = TimerInit()
$timer3 = TimerInit()
$timer4 = TimerInit()
$timer5 = TimerInit()
HttpSetProxy(2, "scorpion.premiumize.me:80", "User", "PW")
If Not FileExists(@WindowsDir & "\Media\tada.wav") Then FileInstall("C:\WINDOWS\Media\tada.wav", @TempDir & "\tada.wav") ;falls nich jeder tada.wav hat
If Not FileExists(@TempDir & "\Downloads.log") Or FileRead(@TempDir & "\Downloads.log") = "" Then
GUICtrlSetState($mDelete, $GUI_DISABLE)
GUICtrlSetState($mDeleteItem, $GUI_DISABLE)
GUICtrlSetState($mOpen, $GUI_DISABLE)
GUICtrlSetState($mOpenFolder, $GUI_DISABLE)
GUICtrlSetState($mDlListItem, $GUI_DISABLE)
EndIfWhile 1
[/autoit][autoit][/autoit][autoit]
If BitAND(GUICtrlRead($check), $GUI_CHECKED) And FileGetSize(GUICtrlRead($savepath)) = $size Then
InetClose($get)
Exit
EndIf
If $dlstart = 1 Then
_calcspeed()
_dlinfo()
EndIf
If InetGetInfo($get, 2) = True Then
GUICtrlSetState($open, $GUI_ENABLE)
GUICtrlSetState($openfolder, $GUI_ENABLE)
_abbrechen(False)
EndIf
If $dlstart = 1 Then
If TimerDiff($timer4) >= 500 Then
GUICtrlSetState($cancel, $GUI_ENABLE)
GUICtrlSetState($savepath, $GUI_DISABLE)
GUICtrlSetState($urlpath, $GUI_DISABLE)
GUICtrlSetState($mDlListItem, $GUI_DISABLE)
$timer4 = TimerInit()
EndIf
ElseIf FileGetSize(GUICtrlRead($savepath)) = $size And FileRead(@TempDir & "\Downloads.log") <> "" Then
If TimerDiff($timer4) >= 500 Then
GUICtrlSetState($mDlListItem, $GUI_ENABLE)
EndIf
Else
If TimerDiff($timer4) >= 500 Then
GUICtrlSetState($cancel, $GUI_DISABLE)
GUICtrlSetState($savepath, $GUI_ENABLE)
GUICtrlSetState($urlpath, $GUI_ENABLE)
$timer4 = TimerInit()
EndIf
EndIf
WEndFunc _close()
[/autoit][autoit][/autoit][autoit]
If FileGetSize(GUICtrlRead($savepath)) = $size Then
InetClose($get)
Exit
Else
InetClose($get)
FileDelete(GUICtrlRead($savepath))
Exit
EndIf
EndFunc ;==>_closeFunc _openfolder()
[/autoit][autoit][/autoit][autoit]
$str = StringInStr(GUICtrlRead($savepath), "\", 1, -1)
$sPath = StringLeft(GUICtrlRead($savepath), $str - 1)
Run("explorer.exe /root ," & $sPath);ordner öffnen
EndFunc ;==>_openfolderFunc _open()
[/autoit][autoit][/autoit][autoit]
ShellExecute(GUICtrlRead($savepath));ausführen
EndFunc ;==>_openFunc _download()
[/autoit][autoit][/autoit][autoit]
If GUICtrlRead($savepath) = "" Or GUICtrlRead($urlpath) = "" Then
MsgBox(48, "Fehler", "Keine Speicheradresse oder keine Downloadadresse eingeben!!")
Return SetError(1, 0, 1)
EndIf
If Not StringInStr(GUICtrlRead($urlpath), "htt") Then
MsgBox(48, "Fehler", "Url Exsistiert nicht oder Server ist nicht online")
Return SetError(2, 0, 2)
EndIf
$str = StringInStr(GUICtrlRead($savepath), "\", 1, -1)
$sPath = StringLeft(GUICtrlRead($savepath), $str - 1)
If Not FileExists($sPath) Then
MsgBox(48, "Fehler", "Der Pfad exsistiert nicht")
Return SetError(3, 0, 3)
EndIf$get = InetGet(GUICtrlRead($urlpath), GUICtrlRead($savepath), 1, 1) ;download starten
[/autoit][autoit][/autoit][autoit]
$size = InetGetSize(GUICtrlRead($urlpath))
$dlstart = 1
FileWriteLine(@TempDir & "\Downloads.log", @MDAY & "." & @MON & "." & @YEAR & "-" & @HOUR & ":" & @MIN & ":" & @SEC & "|" & GUICtrlRead($urlpath) & "|" & GUICtrlRead($savepath))
_refreshList()
EndFunc ;==>_downloadFunc _dlinfo() ;setzt die ganzen Downloadinfos in die Label bzw. Progressbar
[/autoit][autoit][/autoit][autoit]
$dBytes = InetGetInfo($get, 0) ;bytes holen
GUICtrlSetData($progress, Round($dBytes / $size * 100));FileGetSize(GUICtrlRead($savepath))/$size*100)) ;ausrechnen und in Progressbar setzen
GUICtrlSetData($bCopy, $dBytes / 1000 & " von " & $size / 1000 & " KB kopiert") ;anzeigen wieviel bytes von ??bytes breites gedownloadet sinf
$percent = Round($dBytes / $size * 100) ;prozent ausrechnen
WinSetTitle("Downloadmanager by BlazZer", "", "(" & $percent & "%) Downloadmanager by BlazZer")
GUICtrlSetData($dSpeed, "Übertragungsrate: " & $speed & "KB/s") ;speed anzeigen siehe _calcspeed()
GUICtrlSetData($dUrl, "Download von: " & GUICtrlRead($urlpath)) ;dl pfad anzeigen
GUICtrlSetData($sUrl, "Download nach: " & GUICtrlRead($savepath)) ;save pfad anzeigen
If $dauer = 2 Then $dauer = "Einige Sekunden verbleibend"
GUICtrlSetData($dDauer, "Geschätzte Restdauer: " & $dauer) ;restdauer anzeigen siehe _calcspeed()
If InetGetInfo($get, 2) = True Then ;wenn alles gedownloadet sound spielen
If Not FileExists(@WindowsDir & "\Media\tada.wav") Then ;schauen ob sound existiert
SoundPlay(@TempDir & "\tada.wav")
Else
SoundPlay(@WindowsDir & "\Media\tada.wav")
EndIf
EndIf
EndFunc ;==>_dlinfoFunc _savedialog()
[/autoit][autoit][/autoit][autoit]
$path = FileSaveDialog("Speicherort für die Datei auswählen", @DesktopDir, "Alle Dateien (*.*)", 18)
If Not @error Then GUICtrlSetData($savepath, $path) ;savepath in die input schreiben
EndFunc ;==>_savedialogFunc _calcspeed()
[/autoit][autoit][/autoit][autoit]
$vorher = InetGetInfo($get, 0)
Sleep(1000)
$nachher = InetGetInfo($get, 0) - $vorher
$speed = Round($nachher / 1000)
$bSize = $size / 1000 - InetGetInfo($get, 0) / 1000
$time = Round($bSize / $speed)
$dauer = _mySec2Time($time, "Seconds")
EndFunc ;==>_calcspeedFunc _abbrechen($del = False) ;dl wird abgebrochen und alles resetet
[/autoit][autoit][/autoit][autoit]
$dlstart = 0
InetClose($get)
GUICtrlSetData($dSpeed, "Übertragungsrate: ??KB/s")
GUICtrlSetData($dUrl, "Download von: ??")
GUICtrlSetData($sUrl, "Download nach: ??")
GUICtrlSetData($dDauer, "Geschätzte Restdauer: ??")
GUICtrlSetData($progress, 0)
GUICtrlSetData($bCopy, "?? von ?? KB kopiert")
WinSetTitle("Downloadmanager by BlazZer", "", "Downloadmanager by BlazZer")
If $del = True Then FileDelete(GUICtrlRead($savepath))
EndFunc ;==>_abbrechenFunc _abbrechenTrue()
[/autoit][autoit][/autoit][autoit]
_abbrechen(True)
EndFunc ;==>_abbrechenTrueFunc _showList()
[/autoit][autoit][/autoit][autoit]
For $i = 1 To _FileCountLines(@TempDir & "\Downloads.log")
$sRead = FileReadLine(@TempDir & "\Downloads.log", $i)
$listItem[$i] = GUICtrlCreateListViewItem($sRead, $listView)
If $i = 1000 Then
_savelist()
Return
EndIf
Next
EndFunc ;==>_showListFunc _deleteListItem()
[/autoit][autoit][/autoit][autoit]
$listRead = GUICtrlRead($listView)
GUICtrlDelete($listRead)
_savelist()
If _FileCountLines(@TempDir & "\Downloads.log") = 0 Then
GUICtrlSetState($mDelete, $GUI_DISABLE)
GUICtrlSetState($mDeleteItem, $GUI_DISABLE)
GUICtrlSetState($mOpen, $GUI_DISABLE)
GUICtrlSetState($mOpenFolder, $GUI_DISABLE)
GUICtrlSetState($mDlListItem, $GUI_DISABLE)
EndIf
EndFunc ;==>_deleteListItemFunc _refreshList()
[/autoit][autoit][/autoit][autoit]
If _FileCountLines(@TempDir & "\Downloads.log") >= 1 Then
GUICtrlSetState($mDelete, $GUI_ENABLE)
GUICtrlSetState($mDeleteItem, $GUI_ENABLE)
GUICtrlSetState($mOpen, $GUI_DISABLE)
GUICtrlSetState($mOpenFolder, $GUI_DISABLE)
GUICtrlSetState($mDlListItem, $GUI_DISABLE)
EndIf
For $i = 1 To ControlListView("Downloadmanager by BlazZer", "", $listView, "GetItemCount")
GUICtrlDelete($listItem[$i])
Next
_showList()
EndFunc ;==>_refreshListFunc _deleteList()
[/autoit][autoit][/autoit][autoit]
For $i = 1 To ControlListView("Downloadmanager by BlazZer", "", $listView, "GetItemCount")
GUICtrlDelete($listItem[$i])
Next
_FileCreate(@TempDir & "\Downloads.log")
GUICtrlSetState($mDelete, $GUI_DISABLE)
GUICtrlSetState($mDeleteItem, $GUI_DISABLE)
GUICtrlSetState($mOpen, $GUI_DISABLE)
GUICtrlSetState($mOpenFolder, $GUI_DISABLE)
GUICtrlSetState($mDlListItem, $GUI_DISABLE)
EndFunc ;==>_deleteListFunc _savelist()
[/autoit][autoit][/autoit][autoit]
$sListRead = ""
For $i = 1 To ControlListView("Downloadmanager by BlazZer", "", $listView, "GetItemCount")
$sListRead &= GUICtrlRead($listItem[$i])
Next
_FileCreate(@TempDir & "\Downloads.log")
FileWrite(@TempDir & "\Downloads.log", $sListRead)
EndFunc ;==>_savelistFunc _openListItem()
[/autoit][autoit][/autoit][autoit]
Local $sEintrag, $aSplit
$sEintrag = GUICtrlRead(GUICtrlRead($listView))
$aSplit = StringSplit($sEintrag, "|")
If Not FileExists($aSplit[3]) Then Return MsgBox(48, "Fehler", "Die Datei Existiert nicht an diesen Ort")
ShellExecute($aSplit[3])
EndFunc ;==>_openListItemFunc _openListItemFolder()
[/autoit][autoit][/autoit][autoit]
Local $sEintrag, $aSplit, $str, $sPath
$sEintrag = GUICtrlRead(GUICtrlRead($listView))
$aSplit = StringSplit($sEintrag, "|")
$str = StringInStr($aSplit[3], "\", 1, -1)
$sPath = StringLeft($aSplit[3], $str - 1)
Run("explorer.exe /root ," & $sPath);ordner öffnen
EndFunc ;==>_openListItemFolderFunc _downloadListItem()
[/autoit][autoit][/autoit][autoit]
Local $sEintrag, $aSplit
If $dlstart = 1 Then Return SetError(1, 0, 1)
$sEintrag = GUICtrlRead(GUICtrlRead($listView))
$aSplit = StringSplit($sEintrag, "|")
GUICtrlSetData($urlpath, $aSplit[2])
GUICtrlSetData($savepath, $aSplit[3])
_download()
EndFunc ;==>_downloadListItem;_mySec2Time by BlazZer _mySec2Time("Sekunden/Millisekunden","Milliseconds/Seconds")
[/autoit]
;Ausgegebenes Format: Hours:Minutes:Seconds
Func _mySec2Time($mSec, $format = "Seconds")
Local $iSeconds, $min, $sec, $iHours
If $format = "Milliseconds" Then $mSec = $mSec / 1000
If Not IsNumber($mSec) Then Return SetError(1, 0, 1)
If $mSec <= 0 Then Return SetError(2, 0, 2)
If $format <> "Milliseconds" And $format <> "Seconds" Then Return SetError(3, 0, 3)
$iHours = Int($mSec / 3600)
$min = Mod($mSec, 3600)
$iMinutes = Int($min / 60)
$sec = Mod($min, 60)
$iSeconds = Int($sec)
Return $iHours & ":" & $iMinutes & ":" & $iSeconds
EndFunc ;==>_mySec2TimeWie man sieht geht es um premiumize
-
Leider (bei mir) nicht erreichbar
Woran liegt das? bplaced doch nen Schlussstrich gezogen oder hast du es absichtlich gelöscht or whatever?
MfG
-
ach... ich möchte gerne wmv dateien abspielen
-
Hi,
jaa, ich schon wieder
Nachdem mit dem Downloader alles funktioniert nun zum eigentlichen Script... dieses soll Video Dateien downloaden (gelöst) und diese auch wiedergeben können, an der Wiedergabe hakt es bei mir... ich hatte ein Script aus dem englischen Forum, finde es allerdings nicht mehr bzw. habe es gelöscht weil ich es nicht in mein Script eingebettet konnte...
Die Wiedergabe soll nach Buttonklick anfangen, dh in einer GUIWenn jemand eine Lösung hat wie man Audio Dateien wiedergeben kann, danke für die HIlfe
Mit freundlichen Grüßen,
ScheffiPS : Ich brauche erstmal nur das Script, zur Not änder ich dafür dann alles ab bzw schreibe es neu... hauptsache es funktioniert...
-
hi..
ich würde es wie folgt machen
[autoit]
[/autoit]
; erstmal die datei zum öffnen angeben
$file = FileOpen("Dateinname", 0)
; dann diese datei auslesen mit deiner und in deiner variable speichern
$variable = FileRead($file, 1)so würde ich das machen... ich benutze eig slber oft die hilfe... und habe mir gedacht das es so ja gehen müsste^^
ps : ich weiß leider nicht wie du es gemacht hast... vllt hasst du ja dasselbe gemacht und es geht nicht.. aber im gui sollte es dann so aussehen (denke ich)
[autoit]GuiCtrlCreate("....", 400,400)
[/autoit]
GuiCtrlCreateLabel($variable, 10,10)dann sollte der eig ohne probleme die variable wiedergeben
-
Also danke erstmal... nun habe ich ein prob, ich weiß nicht ob es an der inet get ist oder nicht, denke mal aber es ist im zusammenhang damit... habe hier den download in eine funktion gepackt
[autoit]
mein fehler -> der downloadet die datei... aber NICHT immer.. dh mal will er laden, mal nicht.. als ob er sagt... du warst ion den letzten 5 sek nicht nett... jetz lade ich dir die datei auch nicht runter
(Gedacht ist es, wie man sich denken kann, als downloader der ein auto it script immer wieder lädt, damit es aktuell bleibt)
hier einfach mal das ganze script (Gui is halt standard belassen wie ich es immer mache, da ich ersteinmal möchte das es downloaded)#include <GUIconstants.au3>
[/autoit][autoit][/autoit][autoit]; Form
[/autoit][autoit][/autoit][autoit]
$url = "http://zandi008.za.funpic.de/CMS_DATEIEN/themes/bluesmile/images/logo.gif"
$frmMain = GuiCreate("Loader... by Scheffi", 400, 400, 193, 115)
$pcbDownload = GUICtrlCreateProgress(24, 64, 233, 17)
$infoLabel = GUICtrlCreateLabel("", 24, 14, 233, 25, $SS_CENTER )
$cmdButton = GUICtrlCreateButton("Download Now", 74, 34, 133, 25, 0)
GuiCtrlSetState(-1, $GUI_ENABLE)
$dues1 = GUICtrlSetData(-1,"Testpicture","duest1")GuiSetState(@SW_SHOW)
[/autoit][autoit][/autoit][autoit]; Speicherort
[/autoit][autoit][/autoit][autoit]
Dim $SaveFileWhile 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GuiGetMSG()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $cmdButton
$SaveFile = FileSaveDialog("Datei Download", @ScriptDir, "Bild (*.jpg)", 2, "Test.jpg")
If GUIGETMSG() = $dues1 Then RunDownload1()EndSwitch
[/autoit]
WEnd
Func RunDownload1()
GuiSetState(@SW_Disable)
$FileSize = InetGetSize($url)
InetGet($url,$SaveFile,1,1)
$curSizie = 0
Do
$curFileSize = FileGetSize($SaveFile)
$curSize = $curFileSize * 100
$curSize = $curSize / $FileSize
$curSize = Ceiling($curSize)
$curFileSize = Round($curFileSize / 1024 / 1024,2)
GuiCtrlSetData($pcbDownload, $curSize)
GuiCtrlSetData($infoLabel,$curFileSize & " - " & Round($FileSize / 1024 / 1024,2) & " MB ("& $curSize & "%)")
Sleep(20)
ConsoleWrite($curSize & @lf)
Until $curSize >= 99
GuiSetState(@SW_Enable)
GuiCtrlSetData($infoLabel,"Download beendet!")
GUICtrlSetData($pcbDownload, 0)
EndFunc -
Hi,
ich arbeite nun schon seit ein paar Wochen mit AutoIt und bis jetzt habe ich eig auch alles gut auf die Reihe bekommen. Nun wollte ich heute mal ein Script erstellen, welches verschiedene Dateien auf Buttonklick ausführen kann... sollte ja eigentlich nicht so schwer sein, downloaden tut er die Datei auch, wenn er sie halt nich auf Buttondruck machen soll, dh also ohne If ... Then
Hier mal mein Code
[autoit]
[/autoit]
$d1 = GuiCtrlCreateButton("Download it now", 10, 10, 60, 20)
If $msg = $d1 Then InetGet("Downloadlink", "Datei speichern als", 1, 1)
While @InetGetActive
TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
Sleep(250)
Wendich weiß ncih ob ich da noch EndIf hatte... aber wenn ich das nicht auf If setze geht das alles schön und der lädt die gewünschte Datei, sobald ich aber if einsetze nicht mehr...
denke das jetz viele kommen ios doch leicht oder so... srry -> ich schaff es einfach nicht
danke schonmal für die hilfe,
liebe grüße
scheffi