1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Baron1977

Beiträge von Baron1977

  • Fremdes Fenster Bild austauschen.

    • Baron1977
    • 23. Februar 2012 um 23:16

    Mit der Include AnyGui geht es Prima mein Bild in das Fenster zu bringen doch nun habe ich ein 2 Problem das Orginal Bild konnte ich mit dem Befehl "Controlhide" entfernen nun wollte ich mein Bild darüber legen wo Standard das Orginal Bild wahr. doch mein Bild bleibt im Hintergrund und die Buttons plus Extra Fenster wo die Button Drauf liegen bleiben im vordergrund will ja mein Bild im Vordergrund bringen.

    Hier mal das Probe Bild und das Probe Skript.

    Bild

    Spoiler anzeigen

    [Blockierte Grafik: http://s3.imgimg.de/uploads/neuesProblem285cd704png.png]

    Skript

    Spoiler anzeigen

    #include <guiconstants.au3>
    #include <anygui.au3>

    ControlHide('Setup Capture - Welcome','','Static28')
    $pos = WinGetPos('Setup Capture - Welcome','')

    WinMove('Setup Capture - Welcome','',(@DesktopWidth-$pos[2])/2, (@DesktopHeight-$pos[3])/2,$pos[2] + 147,$pos[3] + 190)
    _GuiTarget ('Setup Capture - Welcome', 1 )
    _TargetaddPic ('C:\lob.bmp', $pos[2]-470, $pos[3]-310, 459, 237)
    GUISetState ( )


    While 1
    $msg = GUIGetMsg ( )
    If Not WinExists ('Setup Capture - Welcome') Then Exit
    WEnd

    Das Ganze ist erst mal Probe aufgebaut auch das Fenster Größe ist mit absicht damit man erkennt das mein Bild dahinter verschwinden würde, wie bekomme ich mein Bild in denn vordergrund???


    MfG

    Baron

  • Fremdes Fenster Bild austauschen.

    • Baron1977
    • 20. Februar 2012 um 22:40

    Hier habe ich mal ein Bild gemacht und welches Programm es sich Handelt ist zwar nur eine 60 Tage lizence doch zum Testen ob sowas geht mit Bilder austauschen ist dies Tool Das Projekt.

    [Blockierte Grafik: http://s3.imgimg.de/uploads/mein89417d1epng.png]

  • Fremdes Fenster Bild austauschen.

    • Baron1977
    • 20. Februar 2012 um 16:51

    Nein Ich möchte kein Bild Zeichnen sondern ein Vorhandenes Bild was im Fremdem Fenster ist ersetzen duch mein eigenes erstelltes bmp Bild. Das Control ID: Static23 kann ich mit dem Befehl "ControlHide" entfernen doch ich will es ja nicht entfernen sondern durch ein anderes erstelltes Bild ersetzen.

  • Fremdes Fenster Bild austauschen.

    • Baron1977
    • 20. Februar 2012 um 13:48

    Hallo an alle!

    Ich möchte von ein Programm was ich Starte ein Bild austauschen von Englisch auf Deutsch das Bild Selber lässt sich mit dem befehl ControlHide ausblenden doch ich möchte es mit mein BMP ersetzen das Control ID Heisst "Static23" nun welchen befehl brauche ich um das Bild zu überlappen.

    Es würde für mich sehr Hilfreich sein wenn ein kleines Script beispiel erstellt wird, wie man ein Fremdes Fenster das Control ID durch überlappen eines anderes Bild ersetzt.


    Danke schon mal im vorraus


    Gruß Baron

  • "Befehl : Controlsettext" bei änderung auch die Dicke des Textest ändern.

    • Baron1977
    • 19. Februar 2012 um 23:25

    Danke dir AutoBert!

    Darauf muss man erst mal kommen das man einfach denn Text mit dem Word Schreiben tut und er dann denn Code ermittelt so das man es bei Scite dann auslesen kann bzw. anpassen mit einer Variable .


    Tausend Dank

    MfG

    Baron

  • "Befehl : Controlsettext" bei änderung auch die Dicke des Textest ändern.

    • Baron1977
    • 19. Februar 2012 um 16:06

    Also es steht auch im "Autoit Windows Info" unter Control : Class: RICHEDIT,Instance: 1, ClassnameNN: RICHEDIT1,Advanced(Class): CLASS:RICHEDIT;INSTANCE:1 und ID: 1087.

    Dazu Style: 0x58002004, ExStyle: 0x00000004 und Handle: 0x00000000000506C6.

    so und wie müsste ich jetzt mit Welchen befehl vorgehen damit ich die Schrieften die Dicke selber bestimmen kann.???


    Bitte um Hilfe.

  • "Befehl : Controlsettext" bei änderung auch die Dicke des Textest ändern.

    • Baron1977
    • 19. Februar 2012 um 14:21

    Wenn ich mit "Autoit Windows Info" auf die Schriftzug gehe wird die Ganze Fläsche ausgewählt und eine ID angezeigt ich kann zwar das Ganze Feld mit einen Neuen Text versehen doch dann Schreibt er alles in der Fettschrieft. Habe mit gedacht erst könnte mit dem befehl "BitOR" geregelt werden, doch da bewirkt auch nicht.

    Bitte um Hilfe


    Gruß Baron

  • "Befehl : Controlsettext" bei änderung auch die Dicke des Textest ändern.

    • Baron1977
    • 18. Februar 2012 um 22:31

    Hallo Alle zusammen!

    Ich habe folgenes Problem ich möchte ein Fremdes Fenster was auf English ist auf Deutsch Ändern es hat 3 überschriften die in Fett geschrieben sind und der rest Normal nun wenn ich mit dem Befehl "Controlsettext es ändern geht es zwar aber dann Schreibt er mir alles in Fett Schrift wie kann ich es Meistern das er mein Text die Überschrift(3) in Fett darstellt und der Rest in der Normale schrift Schreibt.

    wie in diesem beispiel.

    Was bedeutet Vorscannen?
    Das System wird gescannt um eine Reibungslose
    ablauf.........
    Überschrieft 2

    so ungefähr will ich es machen das er nicht alles in Fett Schrieft Schreibt.

    Bitte um Hilfe habe in der Autoit Hilfe nicht denn Passenen Befehl Gefunden.

    Danke schon mal im Vorraus.

    Gruß baron

  • "Traymenu" Register nur nach Links aufblättern

    • Baron1977
    • 16. Februar 2012 um 00:00

    Hallo an Alle!

    Ich habe ein kleines Problem ich will mir ein kleines Tray menu zu einen Fertigen Skript mit einbauen, mein Problem ist folgenes wenn ich mit der Rechte Maus Klick auf das Tray Icon bin und auf die unter menus drauf geh öffnen sich doch die Unter menüs ab denn Dritten unter menu öffnet sich die Register nach Rechts und nicht mehr links, ich möchte es aber so haben das die Register Karten beim drauf gehen nur nach links sich offnen. welcher befehl ist dafür zuständig das die Registers immer nach Links sich aufrollen.????


    hier mein teil Skript zu traymenu

    [autoit]

    #NoTrayIcon

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

    Opt("TrayMenuMode",1)

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

    ;----------------------------------------------------
    ;--- Index -----
    $Arbeitsgruppen = TrayCreateMenu('Arbeitsgruppen')
    $Brennen = TrayCreateMenu('Brennen')
    $Internet = TrayCreateMenu('Internet')
    $Media = TrayCreateMenu('Media')
    $Rtools = TrayCreateMenu('R-Tools')
    $blank = TrayCreateItem('')
    $System = TrayCreateMenu('System')
    $blank2 = TrayCreateItem('')
    $blank2 = TrayCreateItem('Beenden')
    ;-----------------------------------------------------
    $BildB = TrayCreateMenu('BildBearbeitung',$Arbeitsgruppen)
    $Schreib = TrayCreateMenu('Schreibkramm',$Arbeitsgruppen)
    $Geraete = TrayCreateMenu('Geräte',$System)
    $ProgSys = TrayCreateMenu('ProgSys',$System)
    $Sicherheit = TrayCreateMenu('Sicherheit',$System)
    ;---------------------------------------------------------
    $promt = TrayCreateItem('Promt',$Schreib)

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

    TraySetState()

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

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $Arbeitsgruppen

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

    Case $msg = $blank2
    ExitLoop
    EndSelect
    WEnd

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

    Exit

    [/autoit]


    muss irgend eine OPT. benutzt werden .???? ?(

    Bitte um Hilfe

    Gruß Baron

  • Veränderte Registry Aktuallisieren!

    • Baron1977
    • 23. Juli 2011 um 22:28

    Der Skript macht Folgenes .

    Er löscht Alte Systraysymbole(Win 7) aus der Liste die nicht mehr aktiv sind und erstellt die Datei " IconStreams' und 'PastIconsStream' Neu.

    Da es erst wirksam wird durch das beenden des Explorer oder Eines Neu Start Des Rechners, bei dieses Programm z.B.AutoRunSettings wenn man auf Apple betätigen tut braucht man kein Schließen des Explorer oder Neu Start des Rchners ausführen.

    Es müsste doch eine Möglichkeit doch auch zu meinem Problem geben das man 2 sachen von der Registry Löscht und danach Die Registry auf das Windows System zu Aktuallisieren.?


    Gruß Baron

  • Veränderte Registry Aktuallisieren!

    • Baron1977
    • 23. Juli 2011 um 08:51

    Hallo an Alle!

    Ich habe 2 Werte aus der Registry mit hilfe des Skripts entfernt das ganze wird aber erst durch das Schließen des Explorer oder Neustart des Rechner Aktiv gibt es eine andere möglichkeit noch das Ganze zu Aktuallisieren ohne Die 2 genannten Varianten.

    hier mal mein Probe Skript wo man denn Explorer Schließen muss.

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    RegDelete('HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify','IconStreams')
    RegDelete('HKEY_CURRENT_USER\Software\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\TrayNotify','PastIconsStream')

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

    if ProcessExists('Explorer.exe') Then
    ProcessClose('Explorer.exe')
    EndIf

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

    if Not ProcessExists('Explorer.exe') Then
    Sleep(500)
    ShellExecute(@WindowsDir & '\Explorer.exe')
    EndIf

    [/autoit]

    Da ich es Selber nicht schön finde jedes mal Das der Explorer beendet werden müsste da die Icon von der SysTray neu geladen werden müssen.

    Bitte um Hilfe

    MfG

    Baron

  • FileOpen Texte in lücken eintragen vorhandener Skript funktioniert auf ein mal nicht mehr!

    • Baron1977
    • 17. Juli 2011 um 17:55

    Habe es getestet und denn Fehler gefunden !

    der txt editor hat zu wenig Zeilen gehabt um es ein zu tragen wie Raupi schon sagte.

    darauf hätte ich nie gekommen das der Txt Editor vorher mehr Text zeilen erstellt werden müsste.


    Danke noch mal


    Gruß Baron

  • FileOpen Texte in lücken eintragen vorhandener Skript funktioniert auf ein mal nicht mehr!

    • Baron1977
    • 17. Juli 2011 um 08:20

    Hallo und Morgen alle!

    folgenes Problem habe ich hier erst ein mal das Skript das auf ein mal nicht mehr Funkioniert.

    [autoit]

    #include <File.au3>
    #include <Array.au3>
    $sFileName = @ScriptDir & "\tt.txt"
    $aLines = ""

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

    _FileReadToArray($sFileName, $aLines) ;in Array einlesen
    _ArrayDelete($aLines, 0) ;störendes Element löschen
    ;jetzt im Array die Daten manipulieren
    $aLines[2] = $aLines[2] & " das ist angehängt"
    $aLines[4] = $aLines[4] & " das ist angehängt"
    _ArrayInsert($aLines, 5, "Diese Zeile ist ganz neu")
    _FileWriteFromArray($sFileName, $aLines) ;Array zurückschreiben

    [/autoit]

    Hier noch Infomationen meines Autoit Version ich habe die 3.3.6.1 und die Beiden Includes habe ich auch (File.au3)(Array.au3).

    mein Problem ist dieses er sagt mir beim ausführen des Skript das die zeile 9 und 10 keine Array wehren wobei ich die damals immer benutzt habe. oder kann es noch sein das ich die alten Includes habe da ich alle Includes aufhebe und beim Neu machen des Rechner denn Include Ordner ersetze.????

    nun was könnte der fehler auf ein mal sein Bitte um Hilfe.??????


    Gruß Baron

  • Function klappt nicht so!

    • Baron1977
    • 14. Juli 2011 um 00:44

    Schnitzel

    Das ist ganz das Richtige was ich wollte und ich finde es echt klasse von dir das du denn leichten weg erklärst.!

    Gruße Klasse.

    Oscar

    Auch an dir Danke für denn gekürzten Weg das ganze werde ich mir als pdf speichern und damit üben wie das ganze zusammen hängt, leider gibt es ja in vielen bereiche die man noch nicht gearbeitet hat.!


    Gruß Baron

  • Function klappt nicht so!

    • Baron1977
    • 13. Juli 2011 um 13:13

    Die beiden Funktionen sollen peer Button Aktivert werden und beim 2 mal Wieder Deaktivert werden. Zwar klappt es schon doch wenn ich beim 2 mal des Button Drücke um das er beide Funktionen wieder rückgänging zu machen geht es nicht da ich aus der Schleife bin.

    Wenn ich es so mache geht es erst mal nicht da Autoit Fehler sagt.

    Spoiler anzeigen
    [autoit]

    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    $test1 = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    StartGUI()

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

    Func StartGUI()
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 615, 435, 192, 124)
    $Button1 = GUICtrlCreateButton("Button1", 40, 56, 161, 65)
    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]

    Case $Button1
    Switch $test
    Case '0'
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    Case '1'
    $null = '0'
    _RegAktiv()
    _TaskAktiv()
    Case ''
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    EndSwitch
    Switch $test1
    Case '0'
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    Case '1'
    $null = '0'
    _RegAktiv()
    _TaskAktiv()
    Case ''
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    EndSwitch
    EndSwitch
    WEnd
    EndFunc

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

    ;---Aktive--oder Deaktive-----------------------------------------------------------------------------------------------------------------

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

    Func _RegAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools","REG_DWORD",$null)
    EndIf
    EndFunc

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

    Func _TaskAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr","REG_DWORD",$null)
    EndIf
    EndFunc

    [/autoit]

    und ich will ja beide aktivieren und nicht einzeln deswegen sind ja beide mit der Variable gleich damit die auch beide Gleich zeitig aktiviert werden. Der Skript geht so schon bloß das er beim ein mal Button ausführung nicht beim 2 mal des Button ausführen tut da ich aus der While Schleife bin. Ich will das wenn ich auf das Button gedrückt habe das er nicht von der while schleife weg ist da ich ja beim 2 mal wieder die Funtion wieder Deaktivieren kann.

    hier noch mal mein skript das beim Ersten mal des Button Drücken Funkioniert aber beim 2 mal nicht.

    Spoiler anzeigen
    [autoit]

    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 615, 435, 192, 124)
    $Button1 = GUICtrlCreateButton("Button1", 40, 56, 161, 65)
    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]

    Case $Button1
    Switch $test
    Case '0'
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    Case '1'
    $null = '0'
    _RegAktiv()
    _TaskAktiv()
    Case ''
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    EndSwitch

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

    EndSwitch
    WEnd

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

    ;---Aktive--oder Deaktive-----------------------------------------------------------------------------------------------------------------

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

    Func _RegAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools","REG_DWORD",$null)
    EndIf
    EndFunc

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

    Func _TaskAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr","REG_DWORD",$null)
    EndIf
    EndFunc

    [/autoit]


    Gruß Baron

  • Function klappt nicht so!

    • Baron1977
    • 13. Juli 2011 um 12:41

    Die Beiden Funktionen sollen durch das Bestätigen des Button Aktivieren werden , Die Beiden funkionen sollen denn Task Manager und die Regedit Deaktivieren so das keiner im System Schnuffeln kann. Beim 2 mal das Bestätigen des Button soll die Funktion wieder Aktiviert werden so das man wieder zugreifen kann in die Fenster.

    zwar geht jetzt schon das Skript doch um es ein 2 mal auf das Button zu drücken muß ich das skript neu Starten damit ich wieder auf das Button die Funktion aufrufen kann.


    Gruß Baron

  • Function klappt nicht so!

    • Baron1977
    • 13. Juli 2011 um 12:22

    Prajoss

    Das Skript was TheLuBu gemacht hat habe ich schon vorher auch schon so versucht das klappt aber so auch nicht,


    Ich habe mein Skript mal so rein getan.

    Spoiler anzeigen
    [autoit]

    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 615, 435, 192, 124)
    $Button1 = GUICtrlCreateButton("Button1", 40, 56, 161, 65)
    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]

    Case $Button1
    Switch $test
    Case '0'
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    Case '1'
    $null = '0'
    _RegAktiv()
    _TaskAktiv()
    Case ''
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    EndSwitch

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

    EndSwitch
    WEnd

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

    ;---Aktive--oder Deaktive-----------------------------------------------------------------------------------------------------------------

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

    Func _RegAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools","REG_DWORD",$null)
    EndIf
    EndFunc

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

    Func _TaskAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr","REG_DWORD",$null)
    EndIf
    EndFunc

    [/autoit]

    zwar geht es jetzt doch wenn ich das 2 mal Drücke auf das Button nicht ,ich denke mal weil ich aus der Schleife des Skripts bin. Wie komme ich auf die while schleife wieder rein um auf erneut auf das Button zu Drücken.

  • Function klappt nicht so!

    • Baron1977
    • 13. Juli 2011 um 12:00

    Ich habe hier mein Skript mal mit einer gui die mit ein Button ausgelöst wird und ein weiteres wieder das ganze Deaktiviert .

    Spoiler anzeigen
    [autoit]

    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 615, 435, 192, 124)
    $Button1 = GUICtrlCreateButton("Button1", 40, 56, 161, 65)
    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]

    Case $Button1
    _test()

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

    EndSwitch
    WEnd

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

    Func _test()

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

    Switch $test
    Case '0'
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    Case '1'
    $null = '0'
    _RegAktiv()
    _TaskAktiv()
    Case ''
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    EndSwitch

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

    ;---Aktive--oder Deaktive-----------------------------------------------------------------------------------------------------------------

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

    Func _RegAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools","REG_DWORD",$null)
    EndIf
    EndFunc

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

    Func _TaskAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr","REG_DWORD",$null)
    EndIf
    EndFunc
    EndFunc

    [/autoit]

    Ja aber es geht nicht und ich auch schon gemerkt habe das eine function nicht in einer Funktion sein kann doch wie kann ich mein problem lösen.???


    Bitte um Hilfe

    Gruß Baron

  • Function klappt nicht so!

    • Baron1977
    • 13. Juli 2011 um 03:40

    Hallo alle zusammen!

    Ich wollte mein ganzes Skript in einer function machen da ich es später als Button erstellen will doch wenn ich mein ganzes Skript also function mache sagt er mir fehler.

    hier mein Skript

    Spoiler anzeigen
    [autoit]

    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    $test = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")

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

    Switch $test
    Case '0'
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    Case '1'
    $null = '0'
    _RegAktiv()
    _TaskAktiv()
    Case ''
    $null = '1'
    _RegAktiv()
    _TaskAktiv()
    EndSwitch

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

    ;---Aktive--oder Deaktive-----------------------------------------------------------------------------------------------------------------

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

    Func _RegAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools","REG_DWORD",$null)
    EndIf
    EndFunc

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

    Func _TaskAktiv()
    RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
    If @error <> 1 Then
    RegWrite ("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr","REG_DWORD",$null)
    EndIf
    EndFunc

    [/autoit]

    wie kann ich das ganze skript als funkion machen und warum geht es nicht das ich das ganze als Funkion behandel.


    Gruß Baron

  • Inputfeld soll erst nach einem Sound abruf denn Text eintragen.

    • Baron1977
    • 12. Juli 2011 um 08:08

    Schnitzel

    Danke dir !

    Ich Selber habe mich mit diese Befehle noch nicht direkt damit auseinander gesetzt jetzt weiß ich für was die gut sind.


    Tausend dank noch mal

    MfG

    Baron

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™