Beiträge von johnnyboyy

  • FilewriteLine ...

    [autoit]

    DirCreate("Script\")
    $name = GUICtrlRead($Input1)
    $file = _FileCreate("Script\"&$name&".au3")
    If GUICtrlRead($Checkbox3) = 1 Then
    ;~ $kommentar = GUICtrlRead($Edit1)
    $open = FileOpen("Script\"&$name&".au3" ,1)
    $msg = FileWriteline($open,"hihihi")
    EndIf
    MsgBox(0,"",$msg & " " & $file & " " & $open)
    Exit

    [/autoit]


    das script schreibt nicht in die datei ich habs sehr oft probiert mit verschiedenen versuchen aber
    es schreibt nur in eine Neue daei wenn sie grade erst erstellt wird
    bitte helft mir

    Edit: gelöst ^^ musste nur

    [autoit]

    $file = _FileCreate("Script\"&$name&".au3")

    [/autoit]


    durch

    [autoit]

    if fileexist("Scrip\" &$name&".au3") = 0 then
    _FileCreate("Script\"&$name&".au3")
    endif

    [/autoit]

  • [GUI] Hintergrundbild

    ähm hier is ma ein beispiel
    PS: SS_NOTHIFY oder wie das heißt macht das du keine buttons,inputs &co verwenden kannst
    also is da jetzt ein pic im hintergrund mit SS_NOTHIFY gehen keine buttons &co

    Spoiler anzeigen
    [autoit]


    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 447, 192, 124)
    $Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Johnny\Lokale Einstellungen\Temporary Internet Files\Content.IE5\I37CY32E\autoit_logo[1].gif", 0, 0, 632, 446, BitOR($WS_GROUP,$WS_CLIPSIBLINGS))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

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

    EndSwitch
    WEnd

    [/autoit]

  • Array Probleme

    [autoit]

    DIM $ARRAY[18][3] = [ _

    [/autoit]


    ???? was soll das sein
    ich hätte das so gemacht

    [autoit]

    Global $ARRAY[2] = ['http://ftp.icq.com/pub/ICQ65/install_icq65.exe', _
    'http://www.skype.com/go/getskype']
    Global $Arrayname[2] = ['\ICQ65.exe', _
    '\Skype.exe']
    For $i = 0 To 1
    InetGet($ARRAY[$i], $Arrayname[$i])
    Next
    IniWrite("Files.ini","Files","ICQ",$ARRAY[0])
    IniWrite("Files.ini","Files","Skype",$ARRAY[1])

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

  • Mikrofonlautstärke ändern?

    ähm ich hätte ma ne frage haste auch

    [autoit]

    #include "audio.au3" bzw. #include <audio.au3>

    [/autoit]

    die " " wenn in selben ordner wie Script und die < > wenn im autoit Include ordner

    fals nein ist das i-wie klar das die fehlermeldung kam und ich schreibe das weil man aus
    fehlern lernen sollte (was bei mir irgendwie nicht klappt :D ) Hoffentlich konnte ich helfen

  • Suche hilfe für die ersten AutoIT anfänge !

    lern erstma den Anfang

    Spoiler anzeigen
    [autoit]

    While
    wend

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

    Case

    If..
    elseif..
    endif

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

    func
    endfunc

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

    Inputbox

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

    Variablen

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

    Arrays (kann ich selber noch nicht^^ keinelust zu lernen)

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

    Pixelgetcolor
    Pixelsearch

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

  • CUI - UDF

    Kasoki habe da noch nen fast fertigen Befehl für gemacht da würde nur noch der
    befehl fehln wass kommen soll wenn das passwort richtig ist^^ O.o meine 1 UDF (naya so halb)

    Spoiler anzeigen
    [autoit]


    ;===============================================================================
    ; Function: _CUI_PW($Text,$Password,$Befehl)
    ; Parameters: $Text - The message of the "dialog"
    ; $Password - The password (needed for the command)
    ; $Befehl - The command (Example: Start [your programm] )
    ; Description: Sets a Password for following Command
    ;
    ; AutoIt Ver: 3.3.0.0 or higher
    ;
    ; Author: Johnnyboyy (Autoit.de member)
    ;
    ;==============================================================================
    Func _CUI_PW($Text,$Password,$Befehl)
    $Data = FileOpen($sBatPath,1)
    FileWrite($Data,"set /p PW=" &$Text & @CRLF)
    FileWrite($Data,"if %PW%=="&$Password& " " &$Befehl& @CRLF)
    FileWrite($Data,"pause >nul")
    FileClose($Data)
    EndFunc

    [/autoit]


    Example/Beispiel

    Spoiler anzeigen
    [autoit]


    #include <CUI.au3>
    _CUI_Create("Creator")
    _CUI_Write("my first CUI with autoit")
    _CUI_PW("What is the Password ? = ","1234","start Firefox")
    ; start Firefox startet den Firefox browser, da ich noch nicht lange
    ; mit batch arbeite weis ich nicht wie mansachen downloaded sons wär´n beispiel da
    _CUI_Run(100)

    [/autoit]

  • Desktop Cleaner

    erstma hallo dann sry wenns sowas schon gibt

    möchte euch mal meinen "Desktop cleaner" vorstellen wer möchte kann ihn erweitern

    Spoiler anzeigen
    [autoit]

    DirCreate(@DesktopDir & "\Alles")
    DirCreate(@DesktopDir & "\Alles\TxT")
    DirCreate(@DesktopDir & "\Alles\rar")
    DirCreate(@DesktopDir & "\Alles\exe")
    DirCreate(@DesktopDir & "\Alles\zip,jar,rar,7z")
    DirCreate(@DesktopDir & "\Alles\bilder")
    DirCreate(@DesktopDir & "\Alles\videos")
    DirCreate(@DesktopDir & "\Alles\musik")
    DirCreate(@DesktopDir & "\Alles\au3")
    DirCreate(@DesktopDir & "\Alles\PHP & HTML")
    DirCreate(@DesktopDir & "\Alles\au3.TBL")
    FileMove(@DesktopDir & "\*.txt", @DesktopDir & "\Alles\TxT\", 9)
    FileMove(@DesktopDir & "\*.php", @DesktopDir & "\Alles\PHP/HTML\", 9)
    FileMove(@DesktopDir & "\*.css", @DesktopDir & "\Alles\PHP/HTML\", 9)
    FileMove(@DesktopDir & "\*.chm", @DesktopDir & "\Alles\TxT\", 9)
    FileMove(@DesktopDir & "\*.html", @DesktopDir & "\Alles\PHP & HTML\", 9)
    FileMove(@DesktopDir & "\*.log", @DesktopDir & "\Alles\TxT\", 9)
    FileMove(@DesktopDir & "\*.exe", @DesktopDir & "\Alles\exe\", 9)
    FileMove(@DesktopDir & "\*.rar", @DesktopDir & "\Alles\zip,jar,rar,7z\", 9)
    FileMove(@DesktopDir & "\*.zip", @DesktopDir & "\Alles\zip,jar,rar,7z\", 9)
    FileMove(@DesktopDir & "\*.jar", @DesktopDir & "\Alles\zip,jar,rar,7z\", 9)
    FileMove(@DesktopDir & "\*.7z", @DesktopDir & "\Alles\zip,jar,rar,7z\", 9)
    FileMove(@DesktopDir & "\*.jpeg", @DesktopDir & "\Alles\bilder\", 9)
    FileMove(@DesktopDir & "\*.jpg", @DesktopDir & "\Alles\bilder\", 9)
    FileMove(@DesktopDir & "\*.bmp", @DesktopDir & "\Alles\bilder\", 9)
    FileMove(@DesktopDir & "\*.ico", @DesktopDir & "\Alles\bilder\", 9)
    FileMove(@DesktopDir & "\*.gif", @DesktopDir & "\Alles\bilder\", 9)
    FileMove(@DesktopDir & "\*.wav", @DesktopDir & "\Alles\musik\", 9)
    FileMove(@DesktopDir & "\*.mp3", @DesktopDir & "\Alles\musik\", 9)
    FileMove(@DesktopDir & "\*.wmv", @DesktopDir & "\Alles\musik\", 9)
    FileMove(@DesktopDir & "\*.au3", @DesktopDir & "\Alles\au3\", 9)
    FileMove(@DesktopDir & "\*.au3.tbl", @DesktopDir & "\Alles\au3.TBL\", 9)
    If WinActivate("Select script to Compile with AUT2EXE ?","") Then
    WinClose("Select script to Compile with AUT2EXE ?","")
    EndIf
    If Not FileExists (@DesktopDir & "\Reinigungs[exe].exe") Then
    FIleCopy ("C:\Reinigungs[exe].exe", @DesktopDir & "\Reinigungs[exe].exe")
    EndIf

    [/autoit]


    er sucht bestimmte datei typen auf dem Desktop und stellt sie in den Ordner Alles unter die jeweilige Kategorie z.b. .exe dateien kommen in exe
    rar,zip,jar,7z... kommen in zip,rar,jar,7z und so weiter
    dann müsste man nicht immer auf nem vollen desktop arbeiten und hat alles schön geordnet
    ps: da ich noch nicht sehr lange mit autoit arbeite musste ichs machen dass man ne Backup datei von der Reinigungs[exe].exe in C:\ legen müsste/könnte
    weil er sich selber auch aufräumt^^ mfg. ich^^
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

  • Abspielen eines Tones bei Weißen Pixeln

    die 1 steht für die ähm einfach für das abspielen des tons z.b. wie

    [autoit]

    if ... = 1

    [/autoit]

    weiß nicht genau aber die 1 ist immer wichtig sie symbolisiert das zeichen des erfolgs^^

    [autoit]


    $Pixel = PixelGetColor(759,431)
    while 1
    if $Pixel = 16777215 Then
    MouseClick("left",746,196)
    If FileExists("cant_use_this.mp3") = 0 Then
    InetGet("http://johnnyboyy.jo.funpic.de/All/Sounds/cant_use_this.mp3","cant_use_this.mp3")
    EndIf
    $sound = SoundPlay("cant_use_this.mp3",1)
    Sleep(10000)
    Exit
    EndIf
    WEnd
    ;~ MsgBox(0,"",Dec(Hex("0xFFFFFF")))

    [/autoit]


    ps nimm lieber pixelget color is viel simpler

  • Abspielen eines Tones bei Weißen Pixeln

    ^^ öhm das mit den sounds weis ich Not

    [autoit]


    $Pixel = PixelGetColor(759,431)
    if $Pixel = 16777215 Then
    If FileExists("cant_use_this.mp3") = 0 Then
    InetGet("http://johnnyboyy.jo.funpic.de/All/Sounds/cant_use_this.mp3","cant_use_this.mp3")
    EndIf
    $sound = SoundPlay("cant_use_this.mp3",1)
    ;~ Sleep(10000)
    ;~ Exit
    EndIf
    ;~ MsgBox(0,"",Dec(Hex("0xFFFFFF"))) damit findest du die Decimal (oderso^^) raus

    [/autoit]