Beiträge von johnnyboyy

  • anfänger frage ^^

    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 633, 449, 192, 124)
    $Button1 = GUICtrlCreateButton("Button1", 104, 184, 75, 25, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $Button1
    $form2 = GUICreate("Test", 633, 449, 192, 124)
    GUISetState(@SW_SHOW)
    while 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    case $GUI_EVENT_CLOSE
    GUIDelete($form2)
    ExitLoop
    EndSwitch
    WEnd
    EndSwitch
    WEnd

    [/autoit]

  • USB Stick suchen

    also ich möchte das ein Programm überall rumsucht (Datenträger) ob es (M)einen USB stick findet fals ja
    soll es i - etwas machen^^
    Da is das script

    [autoit]

    $drive = DriveGetDrive("all")
    If NOT @error Then
    MsgBox(4096,"", "Found " & $drive[0] & " drives")
    For $i = 1 to $drive[0]
    $right = IniRead($i&"\drive.ini","drive","one","")
    if $right = 1 Then MsgBox(0,"",$right)
    Next
    EndIf

    [/autoit]

  • [ Suche ] Auto writer

    hm geht das nich auch mit weniger langem code z.B. so ?^^

    [autoit]


    Func Peter1()

    Send("{ENTER}Dein Text{ENTER}") ; man kann ja auch einfach Send("{ENTER}&$text&{ENTER}") und dan ein input wo man den text drinn hat oder was weiß ich^^
    ;also jetzt z.b. eine ini schreiben dann mit z.B. so 5 wörtern dann einfach hotkeys setzen ähm und wollte ers nich im hintergrund?

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

    EndFunc

    [/autoit]

    ähm PS : welches spiel is das wenns Flyff is brauchste kein AutoIt prog weil da kan man einfach text eingeben und mit sonem Symbol auf ne F taste ziehen

  • myAutoIt

    ne geht ned dann öffnet es das als .au3 in SciTE

    EDIT: hab gemacht das es vorher Compiliert aber jetzt kommt immer das Aut2Exe fenster
    habs aus diesem Tread [Tread] bei dem script in dem Tread kommt
    "Kein" fenster wieso?
    EDIT 2 : neues script eingefügt

  • myAutoIt

    hallo mein freund hatte schon eins da wollte ich mir auch ma eins machen^^ also ich brüchte hilfe
    hier das Script :

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    ;############################################################################
    ;
    Global $install[4] = ["C:\Programme\AutoIt3\Aut2Exe\Aut2exe.exe","C:\Programme\AutoIt3\Aut2Exe\AutoItASC.bin" , _
    "C:\Programme\AutoIt3\Aut2Exe\AutoItSC.bin","C:\Programme\AutoIt3\Aut2Exe\upx.exe"]
    Global $Files[4] = ["\Aut2exe.exe","\AutoItASC.bin","\AutoItSC.bin","\upx.exe"]
    ;#############################################################################
    ;
    #Region ### START Koda GUI section ### Form=Compiler\gui.kxf
    $gui = GUICreate(@ScriptName, 512, 477, 199, 168)
    $Label2 = GUICtrlCreateLabel("Datei Name :", 0, 0, 63, 17, $SS_CENTERIMAGE)
    $au3 = GUICtrlCreateButton("Erstellen (.au3)", 424, 449, 83, 25)
    $name = GUICtrlCreateCombo("Eingeben oder Wählen...", 64, 0, 145, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$CBS_SORT))
    GUICtrlSetData(-1, "AutoIt Script|Downloader|LoginScript|Neu AutoIt v3 Script|Pixel Script|Privat Script|Spiele Script|TCP Script|UDF|Windows Form")
    $Edit1 = GUICtrlCreateEdit("", 0, 24, 505, 425, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
    GUICtrlSetData(-1, StringFormat("#cs ----------------------------------------------------------------------------\r\n\r\nFile Version: | Version |\r\n AutoIt Version: 3.0.0.1\r\n Author: | Name |\r\n\r\n Script Function:\r\n | Funktion |\r\n\r\n#ce ----------------------------------------------------------------------------\r\n\r\n; Script Start - Add your code below here :\r\n\r\n#include <GUIConstantsEx.au3>\r\n#include <WindowsConstants.au3>\r\n\r\n#Region ### START Koda GUI section ### Form=\r\n$Form1 = GUICreate("&Chr(34)&"Form1"&Chr(34)&", 633, 447, 192, 124)\r\nGUISetState(@SW_SHOW)\r\n#EndRegion ### END Koda GUI section ###\r\n\r\nWhile 1\r\n $nMsg = GUIGetMsg()\r\n Switch $nMsg\r\n Case $GUI_EVENT_CLOSE\r\n Exit\r\n\r\n EndSwitch\r\nWEnd"))
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x0000FF)
    $exe = GUICtrlCreateButton("Erstellen(.exe)", 350, 449, 75, 25, $WS_GROUP)
    $saveexit = GUICtrlCreateButton("Speichern und Beenden", 0, 449, 123, 25, $WS_GROUP)
    $exit = GUICtrlCreateButton("Beenden (x)", 122, 449, 75, 25, $WS_GROUP)
    $run = GUICtrlCreateButton("[Start] Ausführen [Start]", 200, 449, 147, 25, $WS_GROUP)
    GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $run
    $namex = GUICtrlRead($name)
    $script = GUICtrlRead($Edit1)
    if $namex = "Eingeben oder Wählen..." Then
    MsgBox(48,"Error","Geben sie einen Namen ein")
    Else
    DirCreate("compile")
    For $i = 0 to 3
    FileInstall($install[$i],"compile\"&$Files[$i])
    Next

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

    $file = FileWrite("compile\" & $namex & ".au3",$script)
    runwait ("compile\Aut2exe.exe /in "&$namex & ".au3")
    sleep(1500)
    Run("compile\"&$namex&".exe")
    FileDelete("compile\" &$namex & ".au3")
    FileDelete("compile\" &$namex & ".exe")
    for $s = 0 to 3
    FileDelete("compile\" & $Files[$s])
    Next
    DirRemove("compile")
    Exit
    EndIf
    EndSwitch
    WEnd

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


    das script funtzt aber das script startet die datei nicht die man erstellt wenn man auf Ausführen clickt
    bitte helft habe schon alles versucht

    INFO: ähm da is ein bug der Tread zeigt das script nicht richtig an

  • GUI-Control's am GUI-Hintergrund anpassen.

    Spoiler anzeigen
    [autoit]

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

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 339, 493, 192, 124)
    $Label1 = GUICtrlCreateLabel("Hallo, ich bin der Test Label!", 80, 24, 139, 17)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
    $Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Kevin\Desktop\Desktop Hauptordner\spam bot.jpg", 0, 0, 337, 489, BitOR($SS_NOTIFY,$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]


    so vieleicht?