Beiträge von chip

  • _TCP_File

    In der UDF ist eine maximale Zeichenlänge von 999999 Zeichen angegeben die du mit 7GB deutlich überschreitest, deshalb der Fehler. Die Lösung sollte sein, diesen Wert zu erhöhen.

  • Bewerbungshilfe als Fachinformatiker - Awe

    Zum Punkt Java, hatt es Vor- und Nachteile wenn es schon kannst. Ist halt die Sprache die in den meisten Berufsschulen auf dem Lehrplan für FIAN steht. Wenn es schon kannst, kannst also auf der einen Seiten dich zurücklehnen weil alle schon kannst was kommt, glaub mir viel gefordert wirst in der Berufschule eh nicht, und auf der anderen Seite wirst dich zu tode langweilen. Würde daher an deiner Stelle lieber C/C++ machen.

  • StreamPlayer

    Das Script beendet sich bei mir auch wenn ich auf "Konfiguration löschen" klicke. Und zwar weil du im entsprechenden Case-Zweig ein Exit drin hast:

    [autoit]

    Case $KonifgDel
    FileDelete(@ScriptDir & "\Konfig.ini")
    Run($BlackEyes)
    Exit

    [/autoit]

    Des weitern sind folgenden include nicht nötig:

    [autoit]

    #include <StructureConstants.au3>
    #include <StaticConstants.au3>
    #include <GuiStatusBar.au3>
    #include <File.au3>
    #include <inet.au3>

    [/autoit]

    Es erfolgt auch keine Prüfung ob überhaupt eine Internetverbindung besteht.

  • globaler E-Mail-Verteiler einrichten (auf Exchange 2003?!)

    Zitat von FKFK

    Ah, schon mal danke!
    Wo bekomme ich eigentlich Administrative Tools her?

    Installier dir das hier auf einem beliebigen Clientrechner im Netzwerk: klick mich Hat im Gegensatz zu dem auf dem Server installierten Tools auch einige Vorteile wie du feststellen wirst.

    Btw. Solltest du sowohl XP als auch Win 7 Clients im Netzwerk haben, dann installiere die Tools auf eine Win 7 Client, da dir nur dort alle Einstellungen für Win 7 Clients zur Verfügung stehen.

  • InetGet Problem

    Zitat von Ineluki

    Das ist ein kleiner Fehler aber nicht das größte Problem. Im Script ist die aktuelle Version immer 2.0 . Daher ist, wenn in der update.txt die Version höher ist, immer ein Update verfügbar.

    Ist sie in seinem Beispiel aber nicht. Und dadurch, dass er die .txt nicht runterläd ist seine Abfrage immer falsch und es wird gesagt eine neues Update wäre verfügbar.

  • InetGet Problem

    Schön das meine Ironie verstanden hast und nun doch eine richtige Fehlerbeschreibung gepostet hast. Und hier die Lösung:

    Du speicherst die Datei nach:

    [autoit]

    @ScriptDir & "\Tmp\UpdateX64.txt"

    [/autoit]

    willst die Datei aber damit auslesen:

    [autoit]

    $file = FileOpen(@Scriptdir & "\update.txt", 0)

    [/autoit]

    sprich falscher Pfad.


    Probier es mal so:

    Spoiler anzeigen
    [autoit]

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

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

    Dim $ver = "2.0"
    HttpSetUserAgent('Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10')
    If @OSArch = "X64" Then
    InetGet("http://molaynox.bplaced.net/UpdateX64.txt",@ScriptDir & "\update.txt", 1, 0)
    $file = FileOpen(@Scriptdir & "\update.txt", 0)
    $line = FileReadLine($file, 1)
    $line2 = FileReadLine($file, 2)
    EndIf
    If @OSArch = "X86" Then
    InetGet("http://molaynox.bplaced.net/Update.txt",@ScriptDir & "\update.txt", 1, 0)
    $file = FileOpen(@Scriptdir & "\update.txt", 0)
    $line = FileReadLine($file, 1)
    $line2 = FileReadLine($file, 2)
    EndIf
    If $line = $ver Then
    MsgBox(64, "Kein Update", "Du hast die neuste Version: (" & $ver & ")")
    FileClose($file)
    FileDelete(@Scriptdir & "\update.txt")
    If @OSArch = "X86" Then Run(@ScriptDir & "\BlackEyes StreamPlayer.exe")
    If @OSArch = "X64" Then Run(@ScriptDir & "\BlackEyes StreamPlayerX64.exe")
    Else
    MsgBox(64, "Update!", "Es ist eine Neue Version verfügbar!")
    $fg = MsgBox(4, "Updaten?", "Möchtest du jetzt Updaten?")
    If $fg = 6 Then
    HttpSetUserAgent('Firefox')
    $Form1 = GUICreate("Update herunterladen", 295, 133, 193, 125)
    $Progress1 = GUICtrlCreateProgress(20, 56, 260, 17)
    $Label1 = GUICtrlCreateLabel("Update ...", 20, 37, 260, 17)
    GUISetState(@SW_SHOW)
    $Source = $line2
    $aFile = StringSplit($Source, "/")
    Local $dest = @ScriptDir & "\" & $aFile[$aFile[0]]
    ConsoleWrite($dest & @CRLF)
    Local $nBytes, $nSize = InetGetSize($Source)
    Local $hDownload = InetGet($Source, $dest, 1, 1)

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

    Do
    Sleep(1000)
    $nBytes = InetGetInfo($hDownload, 0)
    $ipercent = Floor($nBytes / $nSize * 100)
    GUICtrlSetData($Progress1, $ipercent)
    GUICtrlSetData($Label1, $nBytes & " von " & $nSize & " Bytes = " & $ipercent & "% geladen")
    Until InetGetInfo($hDownload, 2) ; Check if the download is complete.
    Local $aData = InetGetInfo($hDownload) ; Get all information.
    InetClose($hDownload) ; Close the handle to release resourcs.
    MsgBox(0, "", "Bytes read: " & $aData[0] & @CRLF & _
    "Size: " & $aData[1] & @CRLF & _
    "Complete?: " & $aData[2] & @CRLF & _
    "Successful?: " & $aData[3] & @CRLF & _
    "@error: " & $aData[4] & @CRLF & _
    "@extended: " & $aData[5] & @CRLF)

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    WEnd
    EndIf
    EndIf

    [/autoit]

  • InetGet Problem

    Zitat von Molaynox

    Leider will der updater nich so wie ich will.

    Ich muss sagen eine richtig tolle Fehlerbeschreibung. Die Lösung ist ganz einfach, mach das hier rein in dein Script:

    Spoiler anzeigen
    [autoit]

    MsgBox(0,"los","Du sollst jetzt funktionieren!")

    [/autoit]

  • Start Button unter Win7 anklicken

    Brauchst du unbedingt das Startmenü auf normalem Wege?

    Gespeichert sind alle Einträge im Startmenü in diesem zwei Pfaden:

    Code
    C:\Users\DeinBenutzername\AppData\Roaming\Microsoft\Windows\Start Menu
C:\ProgramData\Microsoft\Windows\Start Menu