1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Scheffi

Beiträge von Scheffi

  • PHP Array (auf Seite) in AutoIt übernehmen

    • Scheffi
    • 22. August 2014 um 22:56

    Danke an alle für die Schnelle Hilfe, werde das ganze mit json versuchen, Glaube das ist die beste und einfachste Möglichkeit :)

  • PHP Array (auf Seite) in AutoIt übernehmen

    • Scheffi
    • 22. August 2014 um 20:53

    Hallo zusammen,
    ich würde gerne einen Array von einer Internet Seite (Ausgabe :

    PHP
    Array(
        [Protocol] => 17	hier kommt noch mehr
    )

    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

  • Proxy via Regwrite änder sich nicht

    • Scheffi
    • 21. Juli 2013 um 20:48

    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

  • Proxy via Regwrite änder sich nicht

    • Scheffi
    • 21. Juli 2013 um 18:34

    Hey zusammen,
    ich bastel mir gerade eine Art Proxy Checker zusammen aus langeweile.
    Ich setze den Proxy mit

    [autoit]

    $key = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
    $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)

    [/autoit]

    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

  • Text in Labels verändern

    • Scheffi
    • 19. April 2013 um 12:11

    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]

  • Download via Proxy

    • Scheffi
    • 4. April 2013 um 18:54

    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ändert

    Edit: Geht wieder... warum auch immer, hab Autoit neu installiert, evt war ine include File kaputt...

  • Download via Proxy

    • Scheffi
    • 4. April 2013 um 18:13

    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]


    #include <GUIConstantsEx.au3>
    #include <ButtonConstants.au3>
    #include <File.au3>
    #include <GuiListView.au3>
    #include <IE.au3>

    [/autoit][autoit][/autoit][autoit]

    Opt("GUIOnEventMode", 1)
    Opt("WinTitleMatchMode", 2)
    Global $size, $get, $percent, $dauer, $speed, $dlstart, $speed2, $dTimer, $mTimer, $listItem[1000]
    $dlstart = 0
    AutoItSetOption("TrayIconHide", 1)

    [/autoit][autoit][/autoit][autoit]

    $main = GUICreate("Downloadmanager by BlazZer", 500, 340)
    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("")

    [/autoit][autoit][/autoit][autoit]

    $listMenu = GUICtrlCreateContextMenu($listView)
    $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")

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    GUISetState(@SW_SHOW, $main)
    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)
    EndIf

    [/autoit][autoit][/autoit][autoit]

    While 1

    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
    WEnd

    [/autoit][autoit][/autoit][autoit]

    Func _close()
    If FileGetSize(GUICtrlRead($savepath)) = $size Then
    InetClose($get)
    Exit
    Else
    InetClose($get)
    FileDelete(GUICtrlRead($savepath))
    Exit
    EndIf
    EndFunc ;==>_close

    [/autoit][autoit][/autoit][autoit]

    Func _openfolder()
    $str = StringInStr(GUICtrlRead($savepath), "\", 1, -1)
    $sPath = StringLeft(GUICtrlRead($savepath), $str - 1)
    Run("explorer.exe /root ," & $sPath);ordner öffnen
    EndFunc ;==>_openfolder

    [/autoit][autoit][/autoit][autoit]

    Func _open()
    ShellExecute(GUICtrlRead($savepath));ausführen
    EndFunc ;==>_open

    [/autoit][autoit][/autoit][autoit]

    Func _download()
    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

    [/autoit][autoit][/autoit][autoit]

    $get = InetGet(GUICtrlRead($urlpath), GUICtrlRead($savepath), 1, 1) ;download starten
    $size = InetGetSize(GUICtrlRead($urlpath))
    $dlstart = 1
    FileWriteLine(@TempDir & "\Downloads.log", @MDAY & "." & @MON & "." & @YEAR & "-" & @HOUR & ":" & @MIN & ":" & @SEC & "|" & GUICtrlRead($urlpath) & "|" & GUICtrlRead($savepath))
    _refreshList()
    EndFunc ;==>_download

    [/autoit][autoit][/autoit][autoit]

    Func _dlinfo() ;setzt die ganzen Downloadinfos in die Label bzw. Progressbar
    $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 ;==>_dlinfo

    [/autoit][autoit][/autoit][autoit]

    Func _savedialog()
    $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 ;==>_savedialog

    [/autoit][autoit][/autoit][autoit]

    Func _calcspeed()
    $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 ;==>_calcspeed

    [/autoit][autoit][/autoit][autoit]

    Func _abbrechen($del = False) ;dl wird abgebrochen und alles resetet
    $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 ;==>_abbrechen

    [/autoit][autoit][/autoit][autoit]

    Func _abbrechenTrue()
    _abbrechen(True)
    EndFunc ;==>_abbrechenTrue

    [/autoit][autoit][/autoit][autoit]

    Func _showList()
    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 ;==>_showList

    [/autoit][autoit][/autoit][autoit]

    Func _deleteListItem()
    $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 ;==>_deleteListItem

    [/autoit][autoit][/autoit][autoit]

    Func _refreshList()
    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 ;==>_refreshList

    [/autoit][autoit][/autoit][autoit]

    Func _deleteList()
    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 ;==>_deleteList

    [/autoit][autoit][/autoit][autoit]

    Func _savelist()
    $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 ;==>_savelist

    [/autoit][autoit][/autoit][autoit]

    Func _openListItem()
    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 ;==>_openListItem

    [/autoit][autoit][/autoit][autoit]

    Func _openListItemFolder()
    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 ;==>_openListItemFolder

    [/autoit][autoit][/autoit][autoit]

    Func _downloadListItem()
    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

    [/autoit][autoit][/autoit][autoit]

    ;_mySec2Time by BlazZer _mySec2Time("Sekunden/Millisekunden","Milliseconds/Seconds")
    ;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 ;==>_mySec2Time

    [/autoit]

    Wie man sieht geht es um premiumize

  • Taubus [Mein eigenes Browsergame halb fertig]

    • Scheffi
    • 2. März 2011 um 18:54

    Leider (bei mir) nicht erreichbar :(

    Woran liegt das? bplaced doch nen Schlussstrich gezogen oder hast du es absichtlich gelöscht or whatever?

    MfG

  • Video wiedergabe

    • Scheffi
    • 21. März 2008 um 14:34

    ach... ich möchte gerne wmv dateien abspielen

  • Video wiedergabe

    • Scheffi
    • 21. März 2008 um 13:48

    Hi,
    jaa, ich schon wieder :P
    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 GUI

    Wenn jemand eine Lösung hat wie man Audio Dateien wiedergeben kann, danke für die HIlfe :)

    Mit freundlichen Grüßen,
    Scheffi

    PS : Ich brauche erstmal nur das Script, zur Not änder ich dafür dann alles ab bzw schreibe es neu... hauptsache es funktioniert...

  • Bei Programmstart Einstellungen laden

    • Scheffi
    • 20. März 2008 um 10:44

    hi..

    ich würde es wie folgt machen

    [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)

    [/autoit]

    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)
    GuiCtrlCreateLabel($variable, 10,10)

    [/autoit]

    dann sollte der eig ohne probleme die variable wiedergeben

  • Kleines Problem mit InetGet in einer If Funktion <- [gelöst] - dload mit funktion [offen]

    • Scheffi
    • 20. März 2008 um 10:10

    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
    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)

    [autoit]

    #include <GUIconstants.au3>

    [/autoit][autoit][/autoit][autoit]

    ; Form
    $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")

    [/autoit][autoit][/autoit][autoit]

    GuiSetState(@SW_SHOW)

    [/autoit][autoit][/autoit][autoit]

    ; Speicherort
    Dim $SaveFile

    [/autoit][autoit][/autoit][autoit]

    While 1
    $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()

    [/autoit][autoit][/autoit][autoit]

    EndSwitch
    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

    [/autoit]
  • Kleines Problem mit InetGet in einer If Funktion <- [gelöst] - dload mit funktion [offen]

    • Scheffi
    • 19. März 2008 um 20:18

    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]


    $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)
    Wend

    [/autoit]

    ich 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

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™