Beiträge von Jam00

  • Fehlermeldung ausgeben

    Du kannst es so probieren:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)
    _Main()
    Func _Main()

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

    Local $Button1ID, $Button2ID, $Button3ID, $Button4ID, $ExitID, $InfoID, $msg, $runas
    Local $sUserName = "Administrator"
    Local $sPassword = "Passwort"
    Local $Startdatei1 = "c:\windows\system32\powercfg /h on"
    Local $Startdatei2 = "c:\windows\system32\powercfg /h off"
    Local $Startdatei3 = "rundll32 printui.dll,PrintUIEntry /il"
    Local $Run
    GUICreate("USS", 170, 160)
    $Button1ID = GUICtrlCreateButton("Hibernate ON", 10, 10, 150, 20)
    $Button2ID = GUICtrlCreateButton("Hibernate OFF", 10, 30, 150, 20)
    $Button3ID = GUICtrlCreateButton("Lokale Druckerinstallation", 10, 50, 150, 20)
    $ExitID = GUICtrlCreateButton("Beenden", 10, 100, 150, 20)
    $InfoID = GUICtrlCreateButton("Info", 10, 130, 150, 20)
    GUISetState()

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

    Do
    $msg = GUIGetMsg()
    Select

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

    Case $msg = $Button1ID
    $Run = RunAs($sUserName, @ComputerName, $sPassword, 0, $Startdatei1, @ScriptDir)
    If $Run = 0 Then
    MsgBox (16,"Error","Es ist ein Fehler aufgetreten!")
    Else
    MsgBox (32, "Hinweis", "Hibernate ON")
    EndIf
    Case $msg = $Button2ID
    RunAs($sUserName, @ComputerName, $sPassword, 0, $Startdatei2, @ScriptDir)
    If $Run = 0 Then
    MsgBox (16,"Error","Es ist ein Fehler aufgetreten!")
    Else
    MsgBox (32, "Hinweis", "Hibernate OFF")
    EndIf
    Case $msg = $Button3ID
    RunAs($sUserName, @ComputerName, $sPassword, 0, $Startdatei3, @ScriptDir)
    If $Run = 0 Then
    MsgBox (16,"Error","Es ist ein Fehler aufgetreten!")
    EndIf
    Case $msg = $InfoID
    MsgBox(0, "Info", "USS (User-Self-Service)"&@CRLF&"Version: 1.0")
    Case $msg = $ExitID
    Case $msg = $GUI_EVENT_CLOSE

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

    EndSelect
    Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID
    EndFunc

    [/autoit]

    EDIT:
    FireFlyer
    Alos in der Hilfe steht nicht das RunAs @error ausgibt, nur das er 0 ausgibt wenn was nicht funktioniert hat!

  • Fehlermeldung ausgeben

    Also ich stehe auch aufm Schlauch! Du musst doch irgendwie das Passwort abfragen, sonst kanst du ja nicht sagen ob das Ein andministrator ist oder nicht! Oder meinst du die Rechte die Der PC-User hat?

    EDIT: Ui, das ging aber schnell, ich schreibe eine Antwort und aufeinmal sind 2 Post mehr da :D

  • Runder Button

    Danke
    Aber das ist leider in Eglisch (hab eine 4 in englisch) und damit kann ich leider dann nicht vile anfangen ;(
    Und von VB .NET hab ich mal gakeine Ahnung :(
    Aber ich sehe mal was ich darus erfahren kann

    Edit:
    @Padmak
    Ja das habe ich dann auch gemerkt :D

  • Runder Button

    Ja, XSkin kenne ich, aber in der Hilfe von XSkin steht nichts von Runden button! Bei der Eingabeaufforderung, hab ich kein Script gepostet, weil ich eig. dachte es gäbe dafür irgendeinen Befehl, ich hab auch danach gesucht, zum beispiel gibt es ja in Koda sowas mit dem Icon won einem Batchdatei aber damit hab ich es nicht hinbekommen!

  • Runder Button

    Ich benutze die ganze zeit die Hilfe, aber nich alle steht in der hilfe! und von runden button steht dar garnix! Padmark ich hab so vile Post, weil ich eben so vile zeit habe! Ich sitze oft 6-8 Stunden am Tag am PC und bin die Ganze zeit am programieren, und im Forum! Man kann eben nicht alle suas den Hilfen wissen! Zum beispiel mit dem DLLCall, was es da alles gibt, dafür gibt es keine hilfen, oder ich habe jedenfalls keine bruachbare gefunden, ahtte dafür auch mal ein Therad offen! Aber da wusste auch niemand was, wo es eine Liste gibt oder sowas! Was glaubt ihr wohl wo ich mein ganzes wissen her hab? Aus der Hilfe, mein Anmeldedatum stimmt fast genau mit dem Datum wo ich mit AutoIt angefangen hab überein, und seitdem ist kein tag vergangen in denen ich nicht mindestens 1 mal die Hilfe gebraucht habe, wenn ich Programiert habe! Und man kann eben nicht alles aus hilfen bekommen, wenn es dazu keine gibt :D

  • Wir suchen beta tester

    Okay leute, aber das wird warscheinlich noch ein bischen dauern, hab jetzt schon über 1394 zeilen und ich muss noch eine mege machen, das kann also noch ein bischen dauern, ich sag hier dann bescheid wenn ich es fertig hab!

  • arbeiten mit Ini-Dateien

    Was geht noch nicht?
    Wozu willst du InIReadSection in eine Schleife machen? Probier es mal so:

    [autoit]


    $Read = IniReadSection(@ScriptDir & "\kunde.ini", "Kunde") ; z.B. Iniread()
    For $index =1 To $Read[0][0]
    $kunde[$index] = $Read[$index][1]
    Next

    [/autoit]


    PS: Ist ungetestet!

    EDIT: Ach, und mach deine Scripte doch mal in einen Spoiler und einen AutoIt-Quellcode Feld!
    Einfach erst oben im bei erstellen auf SP und dann auf das AutoItIcon klicken, und dann das Script zwischen das zeugs machen!

  • Runder Button

    Ja, aber ich wollte ja wissen wie ich sowas rund bekomme! Wenn ich einfach ein Pic mache, was rund ist reagiert, er aber schon wenn man in das Rechteck kommt, und das wollte ich eben nicht!