Beiträge von Schnitzel

  • Registry Schlüssel wie {ABC123...} auslesen

    autoit ordnet die " { " anders an als sie in der registry stehen.
    beim auslesen kommen erst buchstaben und zahlen und dann sonderzeichen.
    d.h. deine Keys die mit { beginnen werden als letztes gelistet

    Siehe beispiel:

    Spoiler anzeigen
    [autoit]

    $i = 1
    While 1
    $var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\UNINSTALL", $i)
    If @error <> 0 then ExitLoop
    MsgBox(4096, "SubKey #" & $i & " under HKLM\Software: ", $var)
    $i += 1
    wend
    MsgBox(0,"","Fertig")

    [/autoit]

  • Buttons werden nich angezeigt

    lass mich raten. du hast mit copy und paste gearbeitet oder?
    wenn ja:

    wähle Unter Objekt Struktur die Buttons aus und trage manuell die Werte bei Left und bei Top ein:
    (wenn die Buttons der Gruppe zugeordnet sind dann musst du in koda die werte left und top von der Gruppenposition aus eintragen)
    trag am besten bei beiden 0 ein dann siehst du sie und kannst sie mit der maus verschieben

    Andere Möglichkeit:
    löschen und neu erstellen ;)

  • Bild in die .exe machen

    am leichtesten wäre das ganze mithilfe des befehls

    [autoit]

    Fileinstall()

    [/autoit]

    dann kannst du deine Bilddateien irgendwohin "installieren" (zum Beispiel in den Temp Ordner) und kannst sie dann für deine Guictrlcreatepic verwenden


    etwas komplexer kannst du die datei meines wissens auch in die exe includen, hier der Thread dazu:
    Bilder 'includen'

  • 2 GUI Fenster in einem script

    mit 2 guis brauchst du den erweiterten guigetmessage mode

    hier n beispiel das irgendwo im forum rumlag ;)

    [autoit]

    #include <GUIConstantsEx.au3>
    $gui1 = GUICreate('GUI 1', 500, 300, -1, -1)
    $button1 = GUICtrlCreateButton('Aufruf GUI 2', 20, 20, 100, 21)

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

    $gui2 = GUICreate('GUI 2', 500, 300, -1, -1)
    $button2 = GUICtrlCreateButton('Zurück zu GUI 1', 20, 20, 100, 21)

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

    GUISetState(@SW_SHOW, $gui1)

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

    While 1
    $msg = GUIGetMsg(1)
    Switch $msg[1] ; window-handle
    Case $gui1
    Switch $msg[0] ; event/control-handle
    Case $button1
    GUISetState(@SW_HIDE, $gui1)
    GUISetState(@SW_SHOW, $gui2)
    Case $GUI_EVENT_CLOSE
    Exit
    EndSwitch
    Case $gui2
    Switch $msg[0]
    Case $button2
    GUISetState(@SW_SHOW, $gui1)
    GUISetState(@SW_HIDE, $gui2)
    Case $GUI_EVENT_CLOSE
    GUISetState(@SW_SHOW, $gui1)
    GUISetState(@SW_HIDE, $gui2)
    EndSwitch
    EndSwitch
    WEnd

    [/autoit]

  • MSG Box - Funktionen und Text Anzeigen

    so?

    Spoiler anzeigen
    [autoit]

    $text1 = "Bla"
    $text2 = "blabla"
    $text3 = "blablabla"
    $text4 = "blablablabla"

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

    MsgBox(0,"", "F5: " & $text1 & @CRLF & _
    "F6: " & $text2 & @CRLF & _
    "F7: " & $text3 & @CRLF & _
    "F8: " & $text4 & @CRLF )

    [/autoit]

  • controlmove

    sieht zwar noch ziemlich strange aus aber hier schonmal annähernd etwas das dich weiterbringen könnte:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <Array.au3>
    #Include <Misc.au3>

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

    HotKeySet("{ESC}", "ende")

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

    ; Hauptvariablen-------------------------
    $f = 0
    Global $guix, $guiy
    Global $fischx = 200, $fischy = 300, $movex = 10, $movey = 30
    ; ---------------------------------------

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

    ; Guierstellung--------------------------
    $gui1 = GUICreate ("Aquarium",(@DesktopWidth), (@DesktopHeight-65),0,0)
    GUISetBkColor(0x0000ff,$gui1)
    $hintergrund = GUICtrlCreatepic("bilder\hintergrund.gif",0,0,@DesktopWidth,@DesktopHeight-50)
    $fisch1 = GUICtrlCreatepic("bilder\fisch1.gif",$fischx,$fischy, 120,100)
    GUISetState (@SW_SHOW)
    ; ---------------------------------------

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

    AdlibEnable("_Move_Fisch", 20)

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

    ; Hauptfunktion des Guis-----------------
    While 1
    ;~ $c = GUIGetCursorInfo()
    ;~ $f1pos = ControlGetPos ( "Aquarium", "", $fisch1)
    $msg = GUIGetMsg()
    ;~ ControlMove("Aquarium", "", $fisch1, $f1pos[0]+1, $f1pos[1]+1)
    Select
    Case $msg = $GUI_EVENT_CLOSE
    Exit
    EndSelect
    ;~ If _IsPressed("01") and $f = 1 Then
    ;~ GUICtrlDelete($futter)
    ;~ $futter = GUICtrlCreatePic("bilder\futter.gif",$c[0]-40,$c[1]-40,100,100)
    ;~ $f = 1
    ;~ ElseIf _IsPressed("01") and $f = 0 then
    ;~ $futter = GUICtrlCreatePic("bilder\futter.gif",$c[0]-40,$c[1]-40,100,100)
    ;~ $f = 1
    ;~ Endif
    Wend
    ; ---------------------------------------

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

    ; Funktionen-----------------------------
    Func ende()
    Exit
    EndFunc
    ; ---------------------------------------

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

    Func _Move_Fisch()
    Select
    Case $fischx < 0
    $movex = Random(0, 50, 1)
    Case $fischx > @DesktopWidth - 120
    $movex = Random(-50, 0, 1)
    EndSelect
    Select
    Case $fischy < 0
    $movey = Random(0, 50, 1)
    Case $fischy > @DesktopHeight - 100
    $movey = Random(-50, 0, 1)
    EndSelect
    $fischx = $fischx + $movex
    $fischy = $fischy + $movey
    GUICtrlSetPos($fisch1, $fischx, $fischy)
    EndFunc

    [/autoit]

  • controlmove

    Spoiler anzeigen

    <span>&nbsp;</span><blockquote class="wysiwygQuote">&nbsp;ka abert kommt doch mal pls zu meinem problem </blockquote>man junge das war zu deinem problem. buggs sind probleme und davon hast du genug drin.<br><br><span>&nbsp;</span><blockquote class="wysiwygQuote">&nbsp;wie man den fisch bewegen könnte? </blockquote>is in etwa so ne gute frage wie: wie komme ich von a nach b<br><br>mim auto, zu fuß, mim rad, mit der bahn.<br><br>stell fragen mit denen man was anfangen kann&nbsp; <img src="wcf/images/smilies/cursing.png" wcf_src="wcf/images/smilies/cursing.png" alt=":cursing:" title="cursing"> <br><br>

    edit: jo geiler bug, hab ichn mal in nen spoiler gesetzt ^^

  • controlmove

    Zitat

    ka abert kommt doch mal pls zu meinem problem

    man junge das war zu deinem problem. buggs sind probleme und davon hast du genug drin.

    Zitat

    wie man den fisch bewegen könnte?

    is in etwa so ne gute frage wie: wie komme ich von a nach b

    mim auto, zu fuß, mim rad, mit der bahn.

    stell fragen mit denen man was anfangen kann :cursing:

  • Neuling braucht Hilfe

    hab dir hier auch nochmal n beispiel für die aktuelle 7zip installation gemacht
    (ist ne recht kleine Installation aber man sieht was wichtig ist ;) )

    Spoiler anzeigen
    [autoit]

    If Not FileExists(@ScriptDir & "\7z465.exe") Then
    MsgBox(16, "Datei nicht gefunden", _
    "Dieses Programm und 7z465.exe" & @CRLF & _
    "müssen sich im gleichen Verzeichnis befinden!")
    Exit ; Programm beenden
    EndIf

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

    Run(@ScriptDir & "\7z465.exe")

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

    WinWait("7-Zip 4.65 Setup ", "Choose the folder in which to install 7-Zip 4.65")
    WinMove("7-Zip 4.65 Setup ", "Choose the folder in which to install 7-Zip 4.65", @DesktopWidth, 0)
    WinSetState("7-Zip 4.65 Setup ", "Choose the folder in which to install 7-Zip 4.65", @SW_HIDE)
    ControlSetText("7-Zip 4.65 Setup ", "Choose the folder in which to install 7-Zip 4.65", "[CLASS:Edit; INSTANCE:1]", "C:\Programme\7-Zip\")
    ControlClick("7-Zip 4.65 Setup ", "Choose the folder in which to install 7-Zip 4.65", "[CLASS:Button; INSTANCE:2]")

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

    WinWait("7-Zip 4.65 Setup ", "7-Zip 4.65 has been installed on your computer.")
    ControlClick("7-Zip 4.65 Setup ", "7-Zip 4.65 has been installed on your computer.", "[CLASS:Button; INSTANCE:2]")

    [/autoit]

    hier der downloadlink zu 7-zip
    http://www.chip.de/downloads/7-Zip-32-Bit_13004776.html


    sollte soweit funktionieren ;)

  • Neuling braucht Hilfe

    du solltest alle send's also die ganzen tastenkombinationen durch controlclick oder controlsettext (oder den anderen conrol... funktionen) ersetzen

    die winwaits solltest du genauer definieren. nur den titel angeben ist meistens recht unsicher, am besten mit Class oder ähnlichen arbeiten.
    (die kriegst du in Window info Tool unter Summary.

    auch bei den controlclicks den 3ten parameter genauer, so in der art:

    [autoit]

    ControlClick( "LALALA", "BLABLABLA" , "[CLASS:TButton; INSTANCE:1]")

    [/autoit]

    und zum unsichtbarmachen wie gesagt entweder mit Winmove auserhalb verschieben oder mit Winsetstate auf @SW_Hide setzten