Beiträge von Oscar

  • If schleifen fehler ?!?

    Die If-Bedingung ist falsch aufgebaut!
    Das müsste so aussehen:
    If @OSLang = "..." Or @OSLang = "..." Or @OSLang = "..." Then

    Aber viel einfacher geht es mit Switch:

    [autoit]


    Switch @OSLang
    Case "0409", "0809", "0c09", "1009", "1409", "1809", "1c09", "2009", "2409", "2809", "2c09", "3009", "3409"
    $lanc = "EN"
    Case "040c", "080c", "0c0c", "100c", "140c", "180c"
    $lanc = "FR"
    Case "0407", "0807", "0c07", "1007", "1407"
    $lanc = "DE"
    Case Else
    MsgBox(16, "Error-Erreur-Fehler", "Could not read language" & @CRLF & "Impossible de lire la langue" & @CRLF & "Konnte Sprachcode nicht lesen")
    Exit
    EndSwitch

    [/autoit]

  • Gesamtgröße ermitteln?!

    Ich habe Dir mal ein Beispielscript erstellt:

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    Dim $aDownloadFiles[4] = ['http://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe', _
    'http://www.autoitscript.com/autoit3/files/beta/autoit/autoit-v3.3.5.6-beta-setup.exe', _
    'http://www.autoitscript.com/cgi-bin/getfile.pl?../autoit3/scite/download/SciTE4AutoIt3.exe', _
    'http://translation.autoit.de/autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.6.0-Stand-24_03_10.zip']
    $hGui = GUICreate('AutoIt-Downloader', 400, 200)
    $hProgressAllLabel = GUICtrlCreateLabel('0%', 180, 12, 50, 16)
    $hProgressAll = GUICtrlCreateProgress(10, 30, 380, 20)
    $hProgressFileLabel = GUICtrlCreateLabel('0%', 180, 62, 50, 16)
    $hProgressFile = GUICtrlCreateProgress(10, 80, 380, 20)
    $hStop = GUICtrlCreateButton('Abbrechen', 150, 120, 80, 25)
    GUICtrlSetState(-1, $GUI_HIDE)
    $hStatus = GUICtrlCreateLabel('', -2, 180, 404, 20, Default, $WS_EX_CLIENTEDGE)
    GUISetState()
    Dim $iFileSizeAll, $aFileSize[UBound($aDownloadFiles)], $iDownloadSizeAll, $iPercent, $iPercentAll
    GUICtrlSetData($hStatus, ' Dateigrößen ermitteln!')
    For $i = 0 To UBound($aDownloadFiles) - 1
    $aFileSize[$i] = InetGetSize($aDownloadFiles[$i])
    $iFileSizeAll += $aFileSize[$i]
    Next
    GUICtrlSetState($hStop, $GUI_SHOW)
    For $i = 0 To UBound($aDownloadFiles) - 1
    $sFilename = StringRegExpReplace($aDownloadFiles[$i], '.+/(.+)', '$1')
    GUICtrlSetData($hStatus, ' Datei: "' & $sFilename & '"')
    $hDownload = InetGet($aDownloadFiles[$i], @TempDir & '\' & $sFilename, 1, 1)
    Do
    $aData = InetGetInfo($hDownload, -1)
    If GUIGetMsg() = $hStop Or @error Then
    InetClose($hDownload)
    ExitLoop 2
    EndIf
    $iPercent = Int(100 / $aFileSize[$i] * $aData[0])
    GUICtrlSetData($hProgressFile, $iPercent)
    GUICtrlSetData($hProgressFileLabel, $iPercent & '%')
    $iPercentAll = Int(100 / $iFileSizeAll * ($iDownloadSizeAll + $aData[0]))
    GUICtrlSetData($hProgressAll, $iPercentAll)
    GUICtrlSetData($hProgressAllLabel, $iPercentAll & '%')
    Until $aData[2]
    $iDownloadSizeAll += $aFileSize[$i]
    Next
    GUICtrlSetState($hStop, $GUI_HIDE)
    Sleep(1000)
    GUICtrlSetData($hStatus, ' Downloads abgeschlossen!')
    Do
    Until GUIGetMsg() = $GUI_EVENT_CLOSE

    [/autoit]

  • 10,5 Millionen US $

    Ich halte Dich keineswegs für doof.
    Bei geschriebenen Worten ist es aber nicht immer einfach Ironie als solche zu erkennen. Und den von Dir verwendeten Smiley kann man nicht gerade als Ironie-Smiley bezeichnen.
    Also nichts für ungut. Ich weiss jetzt, dass Du es ironisch meintest. :)

  • 10,5 Millionen US $

    Manchmal ist der tägliche Spam schon geradezu lustig (Übersetzung). :pinch:

    Nein, das ist nicht falsch ausgeschnitten! Der Text beginnt wirklich so:

  • EICAR erkennen

    Wie kommst Du darauf, dass man die MD5-Checksumme leicht fälschen kann?

    Wenn Du von dem Testvirus die Checksumme erstellst und dann die MD5 einer entsprechenden Datei damit vergleichst, kannst Du feststellen, ob sie gleich sind oder nicht.
    Das ist zwar nicht sonderlich schnell, aber funktioniert.

  • Seite auslesen zum xten

    Was für einen Steckbrief? Wo steht der?
    Mit Deinem StringRegExp-Pattern liest Du den/die Vornamen aus (Ergebnis = Array).

    Am leichtesten könnten wir Dir helfen, wenn Du mal eine Beispiel-HTML-Seite postest und sagst, was Du davon haben willst.

  • Client Position eines Fensters!

    Die Lösung kann man doch schnell selbst schreiben:

    Spoiler anzeigen
    [autoit]


    #include <Array.au3>
    $hGui = GUICreate('test', 577, 499, 600, 200)
    GUISetState()
    $aClient = _WinGetClientPos($hGui)
    _ArrayDisplay($aClient)

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

    Func _WinGetClientPos($hTitle, $hText = '')
    Local $aWPos, $aCSize, $iBorder, $iTitle
    $aWPos = WinGetPos($hTitle, $hText)
    $aCSize = WinGetClientSize($hTitle, $hText)
    $iBorder = ($aWPos[2] - $aCSize[0]) / 2
    $iTitle = ($aWPos[3] - $aCSize[1]) - $iBorder
    Local $aOut[4] = [$aWPos[0] + $iBorder, $aWPos[1] + $iTitle, $aCSize[0], $aCSize[1]]
    Return $aOut
    EndFunc

    [/autoit]

  • Musik-Quiz v4

    Es gibt wieder mal eine neue Version (Post #1).

    Unter WindowsXP gab es Probleme mit einigen MP3s. Ich habe hier eine MP3-Datei, bei der die _SoundOpen-Funktion zu einem Absturz von AutoIt führt (nur unter WindowsXP, Win7 funktioniert).
    Außerdem hatte _SoundOpen einige Probleme mit VBR-codierten MP3s. Ich habe die Audioausgabe jetzt auf die BASS.dll umgestellt und damit läuft es jetzt auch unter XP einwandfrei.
    So nebenbei brachte die BASS-Umstellung noch eine Aussteuerungsanzeige mit. :)

  • Digitaluhr

    qon: Upps, stimmt! Das Script hatte ich hier bei mir irgendwann mal angepasst, aber die Versionsnummer nicht geändert, deshalb dachte ich, dass das Script das Gleiche ist, wie hier im Forum.
    Habe das geänderte Script jetzt mal geuploadet (Post #1).

    Edit:  Jonathan: Mit der neuen Version, kannst Du auch wieder das Script benutzen.