Beiträge von Script-Bär

  • Desktop UDF

    Es klappt immer noch nicht! ;(

    > Ich habe ein Hintergrundbild. (Win7 Standart)
    > (Nochmal) mein Skript:

    Spoiler anzeigen
    [autoit]

    #include "C:\Users\SkriptBär\Desktop\Desktop.au3"
    ;~ #include <GdiPLus.au3>

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

    MsgBox(0,"",@DesktopDir)

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

    _GDIPlus_Startup()
    _GDIPlus_DrawImageToDesktop(@DesktopDir & "\1.gif",100,100);ob 100 oder 200 sollte egal sein
    Sleep(3000)
    _GDIPlus_Shutdown()
    _DesktopRestore()
    Exit

    [/autoit]


    >Mein System:

    Spoiler anzeigen


    System
    Betriebssystem Windows7 Professional
    Gesamter Systemspeicher 1,00 GB RAM
    Systemtyp 32 Bit-Betriebssystem
    Anzahl der Prozessorkerne 2

    Speicher
    Gesamtgröße der Festplatte(n) 233 GB
    Datenträgerpartition (C) 79 GB frei (117 GB gesamt)
    Datenträgerpartition (D) 116 GB frei (116 GB gesamt)

    Grafik
    Grafikkartentyp NVIDIA GeForce 8500 GT (Microsoft Corporation - WDDM v1.1)
    Insgesamt verfügbarer Grafikspeicher 1279 MB
    Dedizierter Grafikspeicher 1024 MB
    Dedizierter Systemarbeitsspeicher 0 MB
    Gemeinsam genutzter Systemspeicher 255 MB
    Grafikkarten-Treiberversion 8.15.11.8593
    Auflösung des primären Monitors 1280x1024
    DirectX-Version DirectX 10

    Netzwerk
    Netzwerkadapter Realtek RTL8168B/8111B-Familie-PCI-E-Gigabit-Ethernet-NIC (NDIS 6.20)

  • Desktop UDF

    Also bei mir funktioniert es immer noch nicht ...
    Mein Skript:

    [autoit]

    #include <C:\Users\Luca\Desktop\Desktop.au3>
    #include <GdiPlus.au3>

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

    _GDIPlus_Startup()
    _GDIPlus_DrawImageToDesktop("C:\Users\Luca\Desktop\1.gif",200,200)
    Sleep(3000)
    _GDIPlus_Shutdown()
    _DesktopRestore()
    Exit

    [/autoit]

    Mein Bild: (siehe Anhang)

    Ich komm einfach icht auf den Fehler ?(

  • Desktop UDF

    Also bei mit kommt immer:

    Zitat

    >"C:\Program Files\AutoIt3\SciTE\..\autoit3.exe" /ErrorStdOut "C:\Users\ScriptBär\Desktop\TEST.au3" 
    C:\Program Files\AutoIt3\Include\GdiPlus.au3 (960) : ==> Subscript used with non-Array variable.:
    For $iI = 1 To $aEncoders[0][0]
    For $iI = 1 To $aEncoders^ ERROR
    >Exit code: 1 Time: 0.576

    Liegt dass an deinem Script, der GDI-Funktion, oder meinem Skript?

    [autoit='Mein Script']

    #include <C:\Users\SkriptBär\Desktop\Desktop.au3>

    _GDIPlus_DrawImageToDesktop("C:\Users\SkriptBär\Desktop\1.jpg",20,20)

    Sleep(1000)

    _DesktopRestore()

    [/autoit]

    Ubuntu's Skript liegt auf meinem Desktop, da ich auf einem Konto ohne Admin-Rechte arbeite (=> include ordner gespert!)

  • Statusleistenverknüpfung

    Ich kenne mich mit Koda nicht so aus....
    Aber das ganze ist auch ohne Koda zu realisiern. :!:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <ProgressConstants.au3>
    GUICreate("Test", 301, 213, 349, 216)
    $Button3 = GUICtrlCreateButton("100%", 191, 140, 49, 25, 0); Button(s) erstellen
    $Button2 = GUICtrlCreateButton("50%", 119, 140, 49, 25, 0)
    $Button1 = GUICtrlCreateButton("38%", 47, 140, 49, 25, 0)
    $Progress1 = GUICtrlCreateProgress(56, 72, 177, 33); Progress-Bar erstellen
    GUISetState(@SW_SHOW)

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

    While WinExists("Test"); Abfrage der Buttons
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    GUICtrlSetData($Progress1, 38); Progress-Bar verändern
    Case $Button2
    GUICtrlSetData($Progress1, 50)
    Case $Button3
    GUICtrlSetData($Progress1, 100)
    EndSwitch
    WEnd

    [/autoit]

    Hoffe es gefällt

  • In GUI zwischen mehreren skripten wählen.

    Im Prinzip ist dass ganz einfach:

    • Du erstellst eine GUI mit:

    > einem Button
    > mehreren Radio-Kontrols

    • fragst diese mit einer While schleife ab,
    • wenn der Button gedrückt wird, wird überprüft welches Radio aktiviert ist,
    • und startest das dazugehörige Programm.

    Das ganze sieht dann ungefähr so aus:
    [Blockierte Grafik: http://9vjicq.blu.livefilestore.com/y1p9L3hxLnMpEhS4GKahK7HimJK4j55CQHxArfhcbElnMOUpBpLeh2kHWRMUI0-ugDy3kqxTWVS_ybJPGsaA04LtbmEC_rt3eZ-/Radio_starter.jpg]

    Und hier das Skript dazu:
    [autoit]

    #include <GUIConstantsEx.au3>
    AutoItSetOption("TrayIconHide", 1)

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

    GUICreate("Menü", 230, 110); GUI erstellen
    GUICtrlCreateLabel("Bitte wählen sie das gewünschte skript aus.", 10, 5)
    $W = GUICtrlCreateButton(" Programm starten! ", 100, 50)
    GUIStartGroup()
    $1 = GUICtrlCreateRadio("[Programm 1]", 5, 20)
    $2 = GUICtrlCreateRadio("[Programm 2]", 5, 40)
    $3 = GUICtrlCreateRadio("[Programm 3]", 5, 60)
    $4 = GUICtrlCreateRadio("[Programm 4]", 5, 80)
    GUISetState()
    While WinExists("Menü"); Die While schleife
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    Exit
    Case $W
    If GUICtrlRead($1) = $GUI_CHECKED Then; Und die Überprüfung welches Radio angeklickt ist.
    Run("Programm1")
    ElseIf GUICtrlRead($2) = $GUI_CHECKED Then
    Run("Programm2")
    ElseIf GUICtrlRead($3) = $GUI_CHECKED Then
    Run("Programm3")
    ElseIf GUICtrlRead($1) = $GUI_CHECKED Then
    Run("Programm4")
    EndIf
    EndSwitch
    WEnd

    [/autoit]

    Hoffe das Skript gefällt. :D

  • _Vista_ApplyGlass & Area

    Mal kurtz ne Frage: (Ja, ich weiß dass der Theard veraltet ist ... :whistling: )
    Wie bindet man dass ganze in ein Skrit ein?

    Bei mir sieht dass so aus:

    [autoit]


    $bColor = 0x000000
    $hWnd = GuiCreate("is egal")
    _Vista_ApplyGlass($hWnd,$bColor)

    [/autoit]

    Mir meldet dann immer AutoIt/Scite :

    Zitat

    C:\UsersSkript-Bär\Desktop\0.au3 (3) : ==> Unknown function name.:
    _Vista_ApplyGlass($hWnd,$bColor)
    ^ ERROR
    >Exit code: 1 Time: 0.229

    Ich glaub dass das einbauen irgendwie anders geht ....

  • Bild das in der zwischenablage liegt abspeichern

    Weißjemand eine Funktion mit der man ein Bild das in der zwischenablage liegt abspeichern kann?
    Also ich drücke die Taste >Druck | S-Abf<, starte das Programm, gebe einen Pfad ein und das Bild wird abgespeichert.

    Ich bin schon so weit:

    Spoiler anzeigen
    [autoit]

    $Pfad = FileSaveDialog( "Wähle einen Namen.", $MyDocsFolder, "Bilder (*.bmp)", 2)
    ; Hier muss dann die Funktion hin.
    If @error = 0 Then
    MsgBox(0, "Abspeichern", "Erfolgreich abgespeichert.")
    Else
    MsgBox(0, "Abspeichern", "Fehler beim abgespeichern.")

    [/autoit]

  • AdlibRegister Problem

    Kann mir jemand bei folgendem Problem helfen?

    Spoiler anzeigen
    [autoit]

    AdlibRegister("MyAdlib", 1)
    ToolTip("Noch nicht gestartet")
    Sleep(1000)
    MsgBox(0, "=", "1")
    If $a = 0 Then
    ToolTip("Gestartet")
    EndIf
    AdlibUnRegister("MyAdlib")
    Sleep(1000)
    Exit

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

    Func MyAdlib()
    If WinActive("=") Then
    $a = 1
    EndIf
    EndFunc

    [/autoit]

    Problem:
    Es kommt immer die Meldung: Error: Variable used without being declared.

  • Script-Problem mit messageloop

    Danke an m-obi. :thumbup:

    Ich hab den -Skript verändert, uns habe wieder ein problem.

    Skript:
    [autoit]

    #include <GUIConstantsEx.au3>
    Opt("TrayIconDebug", 1)

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

    Global $aRadio[5]

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

    $hGui = GUICreate("Error-Reporting")
    GUICtrlCreateLabel("Bitte wählen sie die Gruppe aus, in die ihr Problem am besten passt.", 7, 4)
    GUICtrlCreateGroup("Fehler", 7, 25, 120, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateGroup("Anderes Problem", 130, 25, 130, 85)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Weiter = GUICtrlCreateButton("Angaben speichern", 100, 370, 120, 25)
    $Abbrechen = GUICtrlCreateButton("Abbrechen", 220, 370, 80, 25)
    GUIStartGroup()
    $aRadio[0] = GUICtrlCreateRadio("Fehlermeldung", 10, 40)
    $aRadio[1] = GUICtrlCreateRadio("Abstürze", 10, 60)
    $aRadio[2] = GUICtrlCreateRadio("Komische Meldung", 140, 40)
    $aRadio[3] = GUICtrlCreateRadio("Seltsames Verhalten", 140, 60)
    $aRadio[4] = GUICtrlCreateRadio("Frage", 140, 80)
    GUISetState()

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

    While 1
    Switch GUIGetMsg()
    Case $GUI_EVENT_CLOSE
    MsgBox(0, "You clicked on", "Close")
    Exit
    Case $Abbrechen
    MsgBox(0, "You clicked on", "Exit")
    Exit
    Case $Weiter
    For $i = 0 To UBound($aRadio) - 1
    If BitAND(GUICtrlRead($aRadio[$i]), $GUI_CHECKED) Then $T = $i + 1
    Next
    MsgBox(0, "TEST", "$t =" & $T)
    GUIDelete()
    EndSwitch
    WEnd

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

    If $T > 0 AND < 2 Then
    MsgBox(0, "TEST", "1")
    ElseIf $T > 1 AND < 3 Then
    MsgBox(0, "TEST", "2")
    ElseIf $T > 2 AND < 4 Then
    MsgBox(0, "TEST", "3")
    ElseIf $T > 3 AND < 5 Then
    MsgBox(0, "TEST", "4")
    ElseIf $T > 4 AND < 6 Then
    MsgBox(0, "TEST", "5")
    Else
    MsgBox(0, "TEST", "FEHLER !")
    EndIf

    [/autoit]

    Am #ende kommt einfach keine Meldung.
    Überhaupt nichts

  • Script-Problem mit messageloop

    Hallo @all,
    ich habe ein Problem mit folgendem Skript:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Example()
    ;==== Dialog: =======================================
    Func Example()
    ;---- Optionen -------------------------------------
    GUICreate(" Error-Reporting")
    GUICtrlCreateLabel("Bitte wählen sie die Gruppe aus, in die ihr Problem am besten passt.", 7, 4)
    GUICtrlCreateGroup("Fehler", 7, 25, 120, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUICtrlCreateGroup("Anderes Problem", 130, 25, 130, 85)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Weiter = GUICtrlCreateButton("Angaben speichern.", 100, 370)
    $Abbrechen = GUICtrlCreateButton("Abbrechen.", 210, 370)

    GUIStartGroup()
    $radio_FM = GUICtrlCreateRadio("Fehlermeldung", 10, 40)
    $radio_FA = GUICtrlCreateRadio("Abstürtze", 10, 60)
    $radio_KM = GUICtrlCreateRadio("Komische Meldung", 140, 40)
    $radio_KV = GUICtrlCreateRadio("Seltsames Verhalten", 140, 60)
    $radio_KF = GUICtrlCreateRadio("Frage", 140, 80)
    GUISetState()

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


    Do
    $msg = GUIGetMsg()

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

    Select
    Case $msg = $radio_FM
    $T = 1
    Case $msg = $radio_FA
    $T = 2
    Case $msg = $radio_KM
    $T = 3
    Case $msg = $radio_KV
    $T = 4
    Case $msg = $radio_KF
    $T = 5
    Case $msg = $Abbrechen
    Exit
    Case $msg = $Weiter
    GUIDelete()
    Case $msg = $Abbrechen
    MsgBox(0, "You clicked on", "Exit")
    Exit
    Case $msg = $GUI_EVENT_CLOSE
    MsgBox(0, "You clicked on", "Close")
    Exit
    EndSelect
    Until $msg = $GUI_EVENT_CLOSE Or $msg = $Abbrechen
    EndFunc
    MsgBox(0, "TEST", "$t =" & $T)

    [/autoit]

    Das Problem:
    Nachdem mann auf Speichern gedrückt hat steht die ganze Zeit beim AutoIt-Icon: Line 32.

    Und es geht einfach nicht weiter.

    Anmerkung:
    DerSkript soll eine andere Funktion haben, die noch nicht eingebaut ist. Ich teste immer nach jedem einzelnen Schritt ob alles klappt. Und dieses Problem kriege ich einfach nicht gelöst.

  • Haaalllooo

    Also ich bin ja auch nicht sooo alt.
    Meinen ersten PC hatte ich in der 3. Klasse (mit 9 Jahren)
    Mit AutoIt habe ich Ende 2009 nach artikeln in der PC Praxis und dem PC Magazins angefangen.
    janaiky: Von mir auch: Willkommen im Forum !!!