Beiträge von BinDannMalWeg

  • ganz einfacher Setup

    Zitat von Facemix

    wie gesagt es ist ein ganz einfaches Setup und vielleicht ne 5 Minuten arbeit

    Daraus schließe ich jetzt mal, dass du nicht vor hast, dein Script noch groß zu verändern/-bessern?! Aber wieso stellst du solch ein Scriptchen dann überhaupt online? :huh: Oder besser gesagt was erhoffst du dir davon? Denn aus dieser "5 Minuten Arbeit" wird wohl keiner was lernen oder? :whistling:

  • ganz einfacher Setup

    Ich möchte dir ja nicht zu nahe treten Facemix, aber im Grunde sind das doch nur 2 Koda-GUIs die durch einen einzigen File-Befehl (Copy/Delete) ergänzt wurden... ?( Noch dazu wird das Programm bei einem versehentlichen zweiten Starten des "Setups" wieder gelöscht?! 8| Außerdem: Was ist wenn ich mehrere Dateien installieren möchte? :P Ansonsten solltest du dieses "dein_programm" und die Pfade durch Globale Variablen oä. ersezen, damit man nicht länger dafür braucht das "Setup" umzuschreiben, als es komplett selbst zusammen zu klicken... Du siehst, da gibt es noch einiges zu tun...

  • TCP UDF: Server2Server verbindung?

    Was soll das eigentlich für eine "TCP.au3" sein? Vielleicht unterstützt sie nur einen Server/Client pro Script?! ?( Wenn dem so ist könntest du TCP ja auch einfach von Hand benutzen: So schwer wie immer alle denken ist das gar nicht... :P (und dann kannst du auch 100 Server in einem Script erstellen ^^ )

  • Bilder aus cache laden?

    Folgendes Script hatte ich mal für Google Chrome geschrieben, Vielleicht inspiriert es dich ja... ;)

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    Local $hFile, $sContent, $sCacheDir = @UserProfileDir & "\AppData\Local\Google\Chrome\User Data\Default\Cache\", $sDestDir = @ScriptDir & "\cache\"
    Local $aPath = _FileListToArray($sCacheDir)
    If Not FileExists($sDestDir) Then DirCreate($sDestDir)

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

    For $i = 1 To $aPath[0]
    $hFile = FileOpen($sCacheDir & $aPath[$i], 16)
    $sTyp = _GetFileFormat($hFile)
    If Not @error Then
    If Not FileExists($sDestDir & $sTyp & "\") Then DirCreate($sDestDir & $sTyp & "\")
    FileCopy($sCacheDir & $aPath[$i], $sDestDir & $sTyp & "\" & $aPath[$i] & $sTyp, 1)
    Else
    If Not FileExists($sDestDir & "Unknow\") Then DirCreate($sDestDir & "Unknow\")
    FileCopy($sCacheDir & $aPath[$i], $sDestDir & "Unknow\" & $aPath[$i], 1)
    EndIf
    FileClose($hFile)
    Next
    ShellExecute($sDestDir)

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

    Func _GetFileFormat($hFile)
    Local $8Byte = FileRead($hFile, 8), $6Byte = BinaryMid($8Byte, 1, 6), $4Byte = BinaryMid($8Byte, 1, 4), $3Byte = BinaryMid($8Byte, 1, 3), $2Byte = BinaryMid($8Byte, 1, 2)
    Select
    Case $8Byte = "0x89504E470D0A1A0A"
    Return ".png"
    Case $3Byte = "0xFFD8FF"
    Return ".jpg"
    Case $6Byte = "0x474946383961" Or $6Byte = "0x474946383761"
    Return ".gif" ; by Christoph54 (autoit.de)
    Case $3Byte = "0x494433" Or $2Byte = "0xFFFB"
    Return ".mp3"
    Case $3Byte = "0x464C56"
    Return ".flv"
    Case StringLeft($8Byte, 8) = "0x000000" And StringMid($8Byte, 11, 18) = "66747970" ; "0x000000..66747970"
    Return ".mp4"
    Case $2Byte = "0x4D5A" Or $2Byte = "0x5A4D"
    Return ".exe"
    Case Else
    SetError(1, Default, "")
    EndSelect
    EndFunc ;==>_GetFileFormat

    [/autoit]

    Tipp: Das Zauberwort ist "magic number" :whistling:

  • Skript komplett pausieren

    Spoiler anzeigen
    [autoit]

    Global $bHotkeys, $aHotkeys[3][2] = [["{ESC}","_ESCBenutzt"],["1","_Eins"],["7","_Sieben"]]

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

    HotKeySet("{UP}","_ToogleHotkeys")

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

    While Sleep(500)
    WEnd

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

    Func _ToogleHotkeys()
    Local $sKey = ""
    For $i = 0 To UBound($aHotkeys,1)-1
    If $bHotkeys Then
    HotKeySet($aHotkeys[$i][0])
    Else
    HotKeySet($aHotkeys[$i][0],$aHotkeys[$i][1])
    EndIf
    Next
    $bHotkeys = Not $bHotkeys
    EndFunc

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

    Func _EScBenutzt()
    MsgBox(0,"Dummy","_ESCBenutzt")
    EndFunc

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

    Func _Eins()
    MsgBox(0,"Dummy","_Eins")
    EndFunc

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

    Func _Sieben()
    MsgBox(0,"Dummy","_Sieben")
    EndFunc

    [/autoit]

    Oder so :P

  • GDI+ Schneegestöber

    Ich könnte dir jetzt eins schreiben, aber dann kann ich da ja gleich selber einreichen... ;)
    Klar du willst 'nur' ein Beispiel... Allerdings geht - zumindest meiner Meinung nach - der Sinn des Wettbewerbs verloren, wenn man nicht die "eigene" Leistung einreicht. ;)

  • wer kennt einen ssh Server und Client mit Autoit

    Diese Mini-UDF hatte ich mir damals für mein unveröffentlichtes RAT geschrieben...

    Spoiler anzeigen
    [autoit]

    #include-once
    ; Shell UDF by Christoph54 (http://www.autoit.de;http://www.codebot.de)

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

    Func _CMD_Startup($WorkingDir = @ScriptDir)
    Return Run("cmd", $WorkingDir, @SW_HIDE, 4 + 2 + 1)
    EndFunc ;==>_CMD_Startup

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

    Func _CMD_Execute($Session, $Command)
    StdinWrite($Session, $Command & @CRLF)
    EndFunc ;==>_CMD_Execute

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

    Func _CMD_GetOutput($Session)
    Local $Output
    Do
    $New = StdoutRead($Session, False, False)
    $Output &= $New
    Until $New = ''
    Return $Output
    EndFunc ;==>_CMD_GetOutput

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

    Func _CMD_Shutdown($Session)
    Return ProcessClose($Session)
    EndFunc ;==>_CMD_Shutdown

    [/autoit]