Beiträge von Mahagon

  • Herunterfahren disablen

    Sowas macht man über die Gruppenrichtlinien und fuscht nicht mit irgendwelchen Scripts rum ^^
    Die betreffende Gruppenrichtlinie befindet sich unter Administrative Vorlagen -> Startmenü.


    Falls du keine Domäne hast und das einem lokalen PC realisieren willst :
    Wenn du mit einer Domäne arbeitest gehe ich davon aus, das du weißt wie man mit GPOs umgeht ;)

    Sry hab grad nochmal die Frage gelesen... ;) habe das mit den Programmen übersehen *shameonme*

  • Dateien in die .exe einbinden

    [autoit]

    FileInstall ( "source", "dest" [, flag] )

    [/autoit]


    Es schließt die Dateien beim Compilieren mit in die Exe ein und entpackt diese beim ausführen ins Zielverzeichnis.

    (Beim klick auf Fileinstall kommst du auch in die Onlinehilfe)

    Du musst nur drauf achten das @scriptdir etc bei SourceDir nicht funktioniert.

  • Checkbox (wenn 1=x, dann 2<>x und umgekehrt)

    Na klar:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 625, 443, 192, 124)
    GUIStartGroup()
    $Radio1 = GUICtrlCreateRadio("Radio1", 152, 32, 113, 17)
    $Radio2 = GUICtrlCreateRadio("Radio2", 152, 64, 113, 17)
    GUIStartGroup()
    GUIStartGroup()
    $Radio3 = GUICtrlCreateRadio("Radio3", 152, 160, 113, 17)
    $Radio4 = GUICtrlCreateRadio("Radio4", 152, 200, 113, 17)
    GUIStartGroup()
    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]

  • Checkbox (wenn 1=x, dann 2<>x und umgekehrt)

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 625, 443, 192, 124)
    GUIStartGroup()
    $Radio1 = GUICtrlCreateRadio("Radio1", 128, 88, 113, 17)
    $Radio2 = GUICtrlCreateRadio("Radio2", 128, 112, 113, 17)
    GUIStartGroup()
    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]


    Wie L3viathan2142 schon sagte :)

  • Buchstaben

    In etwa so?

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>

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

    ShellExecute('Notepad.exe')
    $dll = DllOpen("user32.dll")

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

    While 1
    _aendern(41,'[CLASS:Notepad]','b')
    Sleep(100)
    WEnd
    DllClose($dll)

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

    Func _aendern($buchstabein,$programm,$buchstabeout)
    If _IsPressed($buchstabein, $dll) Then
    WinActivate($programm)
    WinWaitActive($programm)
    SendKeepActive($programm)
    Send('{BACKSPACE}')
    Send($buchstabeout)
    EndIf
    EndFunc

    [/autoit]


    Ist nur von der Geschwindigkeit her nen Problem, außer du bist mit 2 Fingern unterwegs ^^


    So ist es ein klein wenig schneller :)

    Spoiler anzeigen
    [autoit]

    #include <Misc.au3>

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

    ShellExecute('Notepad.exe')
    WinActivate('[CLASS:Notepad]')
    WinWaitActive('[CLASS:Notepad]')
    $dll = DllOpen("user32.dll")

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

    While 1
    _aendern(41,'b')
    Sleep(100)
    WEnd
    DllClose($dll)

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

    Func _aendern($buchstabein,$buchstabeout)
    If _IsPressed($buchstabein, $dll) Then
    Send('{BACKSPACE}')
    Send($buchstabeout)
    EndIf
    EndFunc

    [/autoit]

  • Befehle...

    [autoit]

    beep()

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

    BlockInput()

    [/autoit]

    Klick mal auf die beiden Befehle um in die Hilfe zu kommen, denke dann wirst du Wissen warum 1-10 nicht geklappt haben :)

    Und Win7 x64 ist da nicht das Problem, das habe ich auch

  • Ausgab in bestehendes cmd Fenster

    Du könntest es als CUI laufen lassen

    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Change2CUI=y
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

    RunWait('ipconfig')
    Run('ping localhost')

    [/autoit]

  • Benutzerkonten

    Ich hab da mal eben was hingekleckert :D

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.0
    Author: Mahagon

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

    #ce ----------------------------------------------------------------------------
    #include <Array.au3>

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

    $wbemFlagReturnImmediately = 0x10
    $wbemFlagForwardOnly = 0x20

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

    ;=================================================================================================================================
    ; Name: _Win_User_Read($Computer = '127.0.0.1')
    ;
    ; Parameter: $Computer (Optional) - Zielcomputer auf dem der Befehl ausgeführt werden soll
    ;
    ; Rückgabewert:
    ; -2 Wert ist kein (eindimensionales) Array oder/und kein Objekt
    ; -1 Objekt existiert nicht
    ; Erfolg: Liste lokaler und domäne Benutzer in einem Array ([0] = Anzahl der User)
    ;
    ; Systemanforderungen: Client: Mindestens Windows 2000 Professional
    ; Server: Mindestens Windows 2000 Server
    ;
    ;MSDN Library: http://msdn.microsoft.com/en-us/library/aa394507(VS.85).aspx
    ;=================================================================================================================================

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

    Func _Win_User_Read($Computer = '127.0.0.1')
    $Win_Aktivierungs_Status = ObjGet('winmgmts:\\' & $Computer & '\root\CIMV2')
    If IsObj($Win_Aktivierungs_Status) = 0 Then
    Return SetError(-1)
    Else
    $ObjList = $Win_Aktivierungs_Status.ExecQuery('select * from win32_useraccount', 'WQL', $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
    Local $Array[1]
    For $ObjItem In $ObjList
    _ArrayAdd($Array,$ObjItem.Name)
    Next
    $Array[0] = UBound($Array)
    If UBound($ObjItem) = 0 And IsObj($ObjItem) = 1 Then
    If $ObjItem.Name = 0 Then
    Return $Array
    Else
    Return 1
    EndIf
    Else
    Return SetError(-2)
    EndIf
    EndIf
    EndFunc

    [/autoit]

  • MOD

    Ich würde da noch nen Sleep() einbauen sonst klaut Autoit dir deine CPU Ressourcen :D

  • Importieren von Inhalten einer Datei (txt u. ä.)

    Das mit dem Dateierstellen würd ich auch eher so machen :

    Spoiler anzeigen
    [autoit]

    ;====================================================
    ;=================== Textteditor ====================
    ;====================================================
    ; AutoIt version: 3.3.4.0
    ; Language: German
    ; Author: "black_skorpi"
    ;
    ; ---------------------------------------------------
    ; Script Start
    ; ---------------------------------------------------

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

    #Include <File.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <WindowsConstants.au3>
    #include <GUIConstantsEx.au3>
    #Region ### START Koda GUI section ### Form=C
    $DateiErstellen = GUICreate("Datei Erstellen", 354, 225, 192, 130)
    $Editor = GUICtrlCreateEdit("", 10, 10, 332, 190)
    $Dateiname = GUICtrlCreateLabel("Dateiname:", 5, 205, 59, 15)
    $NameBox = GUICtrlCreateInput("",60, 205, 150, 15)
    $SpeichernButton = GUICtrlCreateButton("Speichern", 235, 202, 62, 21, $WS_GROUP)
    $OeffnenButton = GUICtrlCreateButton("Öffnen", 300, 202, 50, 21, $WS_GROUP)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $SpeichernButton
    $zieldatei = FileSaveDialog('Speichern',@DesktopDir,'Textdatei (*.txt)',2+16,'default.txt')
    FileWrite($zieldatei,GUICtrlRead($Editor))
    Case $OeffnenButton
    $datei = FileOpenDialog('Öffnen',@DesktopDir,'Textdatei (*.txt)')
    GUICtrlSetData($Editor, FileRead($datei))
    GUICtrlSetData($NameBox,$datei)
    EndSwitch
    WEnd

    [/autoit]