Beiträge von ytwinky

ytwinky

Hi Der_Doc,
das Skript hat mir so gut gefallen, daß ich erstmal einen Baustein meines
momentanen Projektes eingebastelt habe. Sei mir bitte nicht böse, daß ich
es etwas umgemodelt habe, so gefällt es mir einfach besser
_GetUser() liest (theoretisch) auch andere Computer ein, es muß halt nur
der Name übergeben werden
Gruß
ytwinky

Spoiler anzeigen

[autoit]

;~ Author: <Der_Doc>
;~ Name: <LoginAs.exe>
;~ AutoIt Version: 3.2.2.0 & aktuelle Beta
;~ Version: <1.1>
;~ Datum: 02.03.2007
;~ Ergänzungen: ytwinky, MD
#include <GUIConstants.au3>
Dim $Programm
GUICreate("Ausführen als..", 375, 140)
GUICtrlCreateLabel("Programm:", 45, 12)
GUICtrlCreateLabel("Benutzername:", 45, 42)
GUICtrlCreateLabel("Kennwort:", 45, 72)
GUICtrlCreateLabel("Domain:", 45, 102)
GUICtrlCreateIcon("shell32.dll", 194, 5, 60, 32,32)
$In_Programm=GUICtrlCreateInput(@ComSpec, 120, 10, 169, 21)
$Durchsuchen=GUICtrlCreateButton ("Durchsuchen", 290, 11, 80, 20)
$In_Domain=GUICtrlCreateCombo(@LogonDomain, 120, 100, 169, $CBS_DROPDOWNLIST+$CBS_AUTOHSCROLL)
GUICtrlSetData(-1, @ComputerName &'-Arbeitsgruppe|' &@LogonDomain &'-Domain', @LogonDomain)
$In_Benutzer=GUICtrlCreateCombo('Benutzer wählen', 120, 40, 169, 21, $CBS_DROPDOWNLIST+$CBS_AUTOHSCROLL)
GUICtrlSetData($In_Benutzer, _GetUsers(GUICtrlRead($In_Domain)))
$In_Kennwort=GUICtrlCreateInput('', 120, 70, 169, 21, $ES_PASSWORD)
$bt_Login=GUICtrlCreateButton("RunIt", 314, 100, 57, 21, $BS_DEFPUSHBUTTON)
GUICtrlSetFont(-1, 10, 800, 0)
$Copy=GUICtrlCreateLabel("© 2007 Der_Doc && ytwinky", 245, 127)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $Durchsuchen
$Programm=FileOpenDialog("Programm-Auswahl", @ScriptDir &"\", "Anwendung (*.exe)", 1)
If $Programm<>"" And FileExists($Programm) Then GUICtrlSetData($In_Programm, $Programm)
Case $bt_Login
RunAsSet()
$Programm=GUICtrlRead($In_Programm)
If FileExists($Programm) Then
Select
Case GUICtrlRead($In_Benutzer)="Benutzer wählen"
Msgbox(32, "Fehler-PopUp", "Erst Benutzernamen eintragen", 2)
GUICtrlSetState($In_Benutzer, $GUI_FOCUS)
Case GUICtrlRead($In_Kennwort)=""
Msgbox(32, "Fehler-PopUp", "Erst Kennwort eintragen", 2)
GUICtrlSetState($In_Kennwort, $GUI_FOCUS)
Case Else
RunAsSet(GUICtrlRead($In_Benutzer), GUICtrlRead($In_Domain), GUICtrlRead($In_Kennwort))
Run($Programm)
RunAsSet()
Exit
EndSelect
Else
Msgbox(16, "Ooops..", "Das angegebene Programm " &$Programm &" gibt es nicht!")
EndIf
EndSwitch
Wend

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

Func _GetUsers($Domain="localhost")
Local $wbemFlagReturnImmediately=0x10, $wbemFlagForwardOnly=0x20, $colItems="", $s
Local $objWMIService=ObjGet("winmgmts:\\" &$Domain &"\root\CIMV2")
$colItems=$objWMIService.ExecQuery("Select * FROM Win32_UserAccount", "WQL", $wbemFlagReturnImmediately*$wbemFlagForwardOnly)
If IsObj($colItems) Then
For $objItem In $colItems
If Not $objItem.Disabled Then $s&=$objItem.Name &"|"
Next
Else
Msgbox(0, "WMI-Ausgabe","Keine WMI-Objekte gefunden für Klasse: Win32_UserAccount")
Exit 12
EndIf
Return StringLeft($s, StringLen($s)-1)
EndFunc

[/autoit]

ytwinky

Hi,
meinst vllt. sowas?

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 413, 308, 303, 219)
$Radio1 = GUICtrlCreateRadio("RadioAn", 100, 84, 113, 17)
GUICtrlSetState(-1, $GUI_UnCHECKED)
$uRadio2 = GUICtrlCreateRadio("RadioAus", 100, 116, 113, 17)
GUICtrlSetState(-1, $GUI_UnCHECKED)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
ToggleRadio($Radio1)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd

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

Func ToggleRadio($Which)
If GuiCtrlGetState($Which)=$GUI_CHECKED Then
GuiCtrlSetState($Which, $GUI_UnCHECKED)
Else
GuiCtrlSetState($Which, $GUI_CHECKED)
EndIf
EndFunc

[/autoit]

Gruß
ytwinky

ytwinky

Hi,
ich hatte auch mal Langeweile
Deshalb habe ich der DosBox von daniel w. noch zwei Buttons spendiert, den Fokus auf
das Eingabefeld gesetzt und die Ausgabe an die deutsche Sprache angepaßt..
Eine richtige Konsole ist es allerdings immer noch nicht
Gruß
ytwinky

Spoiler anzeigen

[autoit]

#include "GuiConstants.au3"
#include "Constants.au3"
Const $ControlName="DOS Box(Neu)", $Paper=0xe0e0e0, $Pen=0x0;00000
Dim $Run, $ctrlEdit_Output, $ctrlInput_Input, $ctrlButton_Send, $Msg, $s
GuiCreate($ControlName, 800, 600, -1, -1, $WS_OVERLAPPEDWINDOW+$WS_CLIPSIBLINGS)

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

$ctrlEdit_Output=GUICtrlCreateEdit("", 0, 0, 800, 575, $ES_READONLY+$WS_VSCROLL+$WS_HSCROLL+$ES_AUTOVSCROLL+$ES_AUTOHSCROLL)
GUICtrlSetBkColor(-1, $Paper)
GUICtrlSetColor(-1, $Pen)
GUICtrlSetFont(-1, 9, 5000)
GUICtrlSetTip(-1, "Original von daniel w. mit Ergänzungen von ytwinky")
$ctrlButton_Send=GuiCtrlCreateButton("Send", 680, 575, 40, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$btCmd=GuiCtrlCreateButton("Cmd", 720, 575, 40, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$btQuit=GuiCtrlCreateButton("Quit", 760, 575, 40, 25)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$ctrlInput_Input=GuiCtrlCreateInput("", 0, 575, 679, 25)
GUICtrlSetFont(-1, 9, 5000)
ControlFocus($ControlName, "", $ctrlInput_Input)
GuiSetState()
While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE, $btQuit
Exit
Case $btCmd
$Run=Run(@ComSpec &" /k")
Case $ctrlButton_Send
$Run=Run(@ComSpec &" /c " &GUICtrlRead($ctrlInput_Input), @ScriptDir, @SW_HIDE, $STDERR_CHILD+$STDOUT_CHILD)
Sleep(200)
$s=GUICtrlRead($ctrlEdit_Output) &@CRLF
If $s=@CRLF Then $s=""
GUICtrlSetData($ctrlEdit_Output, $s &@ScriptDir &">" &GUICtrlRead($ctrlInput_Input) &@CRLF &_ConvertIt(StdoutRead($Run)))
Case Else
;-))
EndSwitch
Wend

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

Func _ConvertIt($Prt) ;Umlaute umformen, geht natürlich auch per WinAPI
$Prt=StringReplace($Prt, Chr(154), "Ü")
$Prt=StringReplace($Prt, Chr(129), "ü")
$Prt=StringReplace($Prt, Chr(142), "Ä")
$Prt=StringReplace($Prt, Chr(132), "ä")
$Prt=StringReplace($Prt, Chr(153), "Ö")
$Prt=StringReplace($Prt, Chr(148), "ö")
Return $Prt
EndFunc

[/autoit]

ytwinky

Ich habe dir mal das lästige Suchen mit der SuFu abgenommen
(sonst hättest du mglw. meinen Beitrag nicht gefunden :lol:)
Neuer QSort für AutoIt
Mußte vllt. noch umbasteln, wenn ich mich recht entsinne, erwartet QSort ein Array, aber das ist ja kein Problem, oder?
Gruß
ytwinky

ytwinky

Hi Thomasb,
wenn du in der folgende Zeile

[autoit]

$filedate = FileGetTime($folder &"\" &$AllFilesinDir[$i], 0, 0) ; liest das Dateidatum aus

[/autoit]

einen Unterschied zu deiner Zeile siehst, dann solltest du meine Zeile mal probieren,
denn sie fügt dem Dateinamen auch den Pfad hinzu, und dann klappts auch mit FileGetTime()
Gruß
ytwinky

ytwinky

..und hier hast du das Ganze mit GUI unten rechts..
Wie rufe ich StandBy/Hibernate mit AutoIt auf?
Gruß
ytwinky

ytwinky

Hi,
..genau, Mark Russinovich kennt sich so gut mit Windows(-Interna) aus,
daß Microsoft ihn endlich ins Boot geholt hat..
..entweder damit er nicht mehr unkontroliert alle Geheimnisse ausplaudern kann, oder..
..damit endlich mal jemand inder Firma ist, der sich wirklich auskennt
Sein Autoruns(u.a.) ist einfach unbeschreiblich gut..
Gruß
ytwinky

ytwinky

Hi trallala,
das war's :yahoo:
Vielen Dank für deinen Tipp. Ich hatte es mit dem Einsatz von $SD_Force etwas übertrieben
Das obige Skript ist berichtigt und läuft..
..und mit dem Exit am Ende ist auch der Bildschirm nach dem Standby wieder Ok
Ich wollte es mit Autoit machen und das geht jetzt..
Die Lösung mit PowerCfg ist auch wieder eine Lösung mit einem anderen Programm..
..da hätte ich dann auch ShutDownPro nehmen können
Trotzdem vielen Dank für deine Mühe
[Edit]
die neue Version von Runterfahren.au3 habe ich jetzt oben hineinkopiert..
Was gibt es Neues? Nun das GUI ist imho schöner geworden..
Aber im Ernst: Die von der Option $SD_FORCE betroffenen Optionen werden
farblich gekennzeichnet oder nicht..
Es gibt jetzt eine ComboBox mit einigen User, die als DefaultUser eingestellt
werden können. Ich habe hier feste Texteinträge genommen, weil ich in meiner
Registry unter ..WinLogon\ den Key 'Immer' angelegt habe und dort stehen für
bestimmte Benutzer auch die Kennwörter. Wer das nicht möchte, muß die entsprechende
Zeile im Skript löschen oder zum Kommentar machen
Das Skript ist bewußt nicht so gemacht, daß es sich selbst mit Adminrechten
ausstattet, das soll jeder selbst entscheiden. Möglichkeiten dazu sind hier im
Forum ja schon besprochen worden. Netz-Admins werden vllt. die Möglichkeit vermissen,
Remote-Rechner runterzufahren, aber sie wären nicht Netz-Admins, wenn sie das nicht
selbst ergänzen könnten..
Also viel Spaß mit Runterfahren(.au3) :lol:

Bis zum nächsten Mal
Gruß
ytwinky

ytwinky

Danke trallala, deine Lösung werde ich wohl einbauen müssen
aber das beantwortet meine Frage ja nur zum Teil
Denn(s. Titel) eigentlich wollte ich ja etwas anderes wissen..
Funktionieren die Schalter, die ich :

[autoit]

Const $PowerDown=8, $cStandBy=32, $cHibernate=64

[/autoit]

genannt habe, nicht?
Gruß
ytwinky

ytwinky

Hi,
ich hab auch mal ne Frage..
Als Diagnose-Programm für einen Rechner, auf dem der StandBy-Modus nicht(mehr??)
funktioniert, habe ich ganz einfach die Aufrufmöglichkeiten von ShutDown() in
ein GUI gepackt:

Spoiler anzeigen

[autoit]

;<AutoItScript>
#NoTrayIcon
#include <GUIConstants.au3>
#include <Constants.au3>
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Author="Runterfahren.au3 ©2007 by ytwinky, MD"; |
;| EMail: [email='PIII1kSystem-AutoIt3Forum@yahoo.de'][/email] |
;| AutoIt3-Version: aktuelle(beta) |
;| Editor: SciTE aktuelle Version, feste Schriftart |
;| Zweck : Runterfahren in vielen Variationen, geht jetzt(dank trallala) |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Const $NextUser="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\"
;Vorsicht:Schreibt eine Ini-Datei ins Skript-Verzeichnis, wenn's erlaubt ist..DefaultUserName
#Region ### START Koda GUI section ### Form=d:\sprachen\autoit3\au3\kxf\shutdown.kxf
Const $PowerDown=8, $cStandBy=32, $cHibernate=64
Const $DefMsg="gibs nich", $IniFile=@ScriptDir &"\Runterfahren.Ini"
Dim $AppName
$ShutDown = GUICreate("ShutDown", 190, 343, 289, 187)
$Main = GUICtrlCreateGroup("", 0, 0, 189, 341)
$Titel = GUICtrlCreateLabel("Runterfahren", 4, 12, 179, 30, $SS_CENTER)
GUICtrlSetFont(-1, 22, 400, 0, "Arial")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetTip(-1, "©2007 by ytwinky, MD")
$Flags = GUICtrlCreateGroup("Flags", 8, 52, 173, 61)
$AppName=IniRead($IniFile, "MitGewalt", "Frage", $DefMsg)
$cbMitGewalt = GUICtrlCreateCheckbox("Mit Gewalt", 12, 68, 73, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
If $AppName<>$DefMsg Then GUICtrlSetState(-1, $AppName)
GUICtrlSetTip(-1, "Wenn möglich..")
$cbAusDieMaus = GUICtrlCreateCheckbox("Ausschalten", 100, 68, 77, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetTip(-1, "Rechner(je nach Funktion) ausschalten" &@Lf &"Änderung nur im Quelltext möglich..")
$cbFragen = GUICtrlCreateCheckbox("Immer Fragen", 12, 92, 97, 17)
$AppName=IniRead($IniFile, "ImmerFragen", "Frage", $DefMsg)
If $AppName<>$DefMsg Then GUICtrlSetState($cbFragen, $AppName)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Optionen = GUICtrlCreateGroup("Optionen", 8, 120, 173, 181)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$rbAbmelden = GUICtrlCreateRadio("Abmelden", 12, 148, 77, 17)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$coNext = GUICtrlCreateCombo("Default", 88, 147, 90, 25)
GUICtrlSetData(-1, "Margot|Erich|Ich|Administrator|Benutzer|Gast")
GUICtrlSetTip(-1, "Nur für Admins..")
$lbNext = GUICtrlCreateLabel("Nächster Benutzer:", 86, 132, 93, 15)
GUICtrlSetTip(-1, "Nur bei Admins..")
$rbNeustart = GUICtrlCreateRadio("Neustart", 12, 168, 69, 17)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$rbRuhezustand = GUICtrlCreateRadio("Ruhezustand", 12, 188, 113, 17)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$rbRunterfahren = GUICtrlCreateRadio("Runterfahren", 12, 208, 113, 17)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$rbStandBy = GUICtrlCreateRadio("StandBy", 12, 228, 113, 17)
GUICtrlSetFont(-1, 9, 800, 0, "Arial")
$lbAndererTitel = GUICtrlCreateLabel("Anderes Programm", 12, 250, 107, 17)
$AppName=IniRead($IniFile, "AppName", "Prog", $DefMsg)
$efAnderes = GUICtrlCreateInput("eingeben oder suchen..", 27, 266, 122, 21)
If $AppName<>$DefMsg Then GUICtrlSetData($efAnderes, $AppName)
$rbAnderes = GUICtrlCreateRadio("", 12, 268, 13, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
If $AppName<>$DefMsg Then GUICtrlSetState(-1, $GUI_ENABLE)
$btSuchen = GUICtrlCreateButton("..", 152, 267, 23, 21, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$btQuit = GUICtrlCreateButton("Quit", 104, 308, 75, 25, 0)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
ColorizeIt()
#EndRegion ### END Koda GUI section ###
While 1
$Which=GUIGetMsg()
If GUICtrlRead($cbMitGewalt)=$GUI_CHECKED Then
$Erzwingen=$SD_FORCE
Else
$Erzwingen=0
EndIf
Switch $Which
Case $btQuit, $GUI_EVENT_CLOSE
Exit
Case $btSuchen
$AppName= FileOpenDialog("Andere Anwendung auswählen", "C:\", "Nur Exe-Dateien (*.Exe)|Alle Dateien (*.*)", 3, "existierende Datei suchen..")
If $AppName<>"" Then
GUICtrlSetData($efAnderes, $AppName)
IniWrite($IniFile, "AppName", "Prog", $AppName)
EndIf
Case $cbFragen
IniWrite($IniFile, "ImmerFragen", "Frage", GUICtrlRead($cbFragen))
Case $cbMitGewalt
IniWrite($IniFile, "MitGewalt", "Frage", GUICtrlRead($cbMitGewalt))
ColorizeIt()
Case $coNext
If GUICtrlRead($coNext)<>"Default" And GUICtrlRead($coNext)<>RegRead($NextUser, "DefaultUserName")Then
If IsAdmin() Then
RegWrite($NextUser, "DefaultUserName", "REG_SZ", GUICtrlRead($coNext))
RegWrite($NextUser, "DefaultPassword", "REG_SZ", RegRead($NextUser &"Immer\", GUICtrlRead($coNext)));ggfs. löschen
Else
MsgBox(0, "No, no, never..", "..das dürfen nur Admins..")
EndIf
EndIf
Case $rbAbmelden
DoIt($SD_LOGOFF+$Erzwingen, "abmelden")
Case $rbNeuStart
DoIt($SD_REBOOT+$Erzwingen, "neustarten")
Case $rbRuheZustand
DoIt($cHibernate, "Ruhezustand")
Case $rbRunterfahren
DoIt($SD_SHUTDOWN+$Erzwingen, "runterfahren")
Case $rbStandBy
DoIt($cStandBy, "StandBy")
EndSwitch
Wend

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

Func _Fragen($Msg)
Return MsgBox(4100, "NagNagNag", "Wirklich " &$Msg &"?")=$IDYes
EndFunc

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

Func DoIt($What, $Msg)
Dim $Really=GUICtrlRead($cbFragen)=$GUI_UNCHECKED
If Not $Really Then $Really=_Fragen($Msg)
If $Really Then
If ShutDown($What)=0 Then MsgBox(0, "Ooops", "So geht das nicht..")
EndIf
Exit
EndFunc

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

Func ColorizeIt()
If GUICtrlRead($cbMitGewalt)=$GUI_CHECKED Then
GUICtrlSetColor($cbMitGewalt, 0x800080)
GUICtrlSetColor($rbAbmelden, 0x800080)
GUICtrlSetColor($rbRunterfahren, 0x800080)
GUICtrlSetColor($rbNeustart, 0x800080)
Else
GUICtrlSetColor($cbMitGewalt, 0x000000)
GUICtrlSetColor($rbAbmelden, 0x000000)
GUICtrlSetColor($rbRunterfahren, 0x000000)
GUICtrlSetColor($rbNeustart, 0x000000)
EndIf
EndFunc

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

;</AutoItScript>

[/autoit]

Abmelden, Runterfahren und Neustarten geht problemlos, aber Ruhezustand und StandBy funktionieren nicht.
Bevor jetzt Hinweise auf dieSystemeinstellunge etc. pp. kommen: Mit ShutDownPro funktionieren die Aufrufe.
Also bei meinem Rechner ist alles Okay.
Habe ich was falsch gemacht oder vergessen?
Ich freue mich auf eure Antworten und danke im Voraus
peethebee :
Danke, den AutoIt-schalter kannte ich noch nicht :oops:
[Edit]
..kleine Schönheitsoperation
[Edit]
Das Skript ist berichtigt und funktioniert, Dank an trallala
[Nochn Edit]
..neue Version..
(aber fehlerhaft, wg. C&P, ist jetzt berichtigt..)
Gruß
ytwinky

ytwinky

Zitat

Original von Tyrael
ich hab die GetSID von ytwinky genommen und das False gegen True ausgetauscht

Das wäre gar nicht nötig gewesen
Einfach nur den Aufruf ändern von

Code

GetSid("", "", 0)

in

Code

GetSid("", "", 1)

..schon geht das nur mit dem angemeldeten User
Bei variablen Parametern kann das mit dem Aufruf gesteuert werden..
Wenn es jetzt funktioniert freut es mich natürlich
Tut mir leid, ich hab das erst jetzt gesehen..
Gruß
ytwinky

ytwinky

Hi,
du kannst ja auch mal in diesem Thread stöbern:
GetSID, jetzt(auch mit GUI) aber wirklich..
Gruß
ytwinky

ytwinky

Hi huggy,
ich reihe mich mal einfach in die Reihe der Gratulanten ein:
Herzlichen Glückwunsch zum Geburtstag und alles Gute im neuen Lebensjahr!
..und alles, was du dir wünschst..
Gruß
ytwinky

ytwinky

Hi,
beim Surfen fand ich ein (Shareware-)Tool) zum Auflisten aller jemals angesteckten
USB-Geräte und das machte mich neugierig: https://autoit.de/www.tetraguard.de
Nun zeigt dubium.exe beim Start erstmal eine Hinweisseite an.
Doch nicht nur beim ersten Start, sondern jedesmal - Shareware halt..
Ein Fall für AutoIt!
Ich wollte mal probieren, wie ControlClick() funktioniert, habe es aber nicht hinbekommen.
Back to the roots - Mit Send() klappt es bestimmt, und siehe da, es geht..

Spoiler anzeigen

Code

;<AutoItScript>
Opt("MustDeclareVars", 1)  ;0=ohne, 1=erfordert Variablen-Deklaration
;#NoTrayIcon  ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Autor="dubiumstarter.au3 ©2006 by ytwinky, MD";                        |
;|    EMail: PIII1kSystem-AutoIt3Forum@yahoo.de                               |
;|    AutoIt3-Version: aktuelle (beta)                                        |
;|    Editor: SciTE aktuelle Version, feste Schriftart                        |
;|    Zweck : Schablone für den Anfang, nach Bedarf anpassen                  |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
Const $Prog="F:\Bearbeitung\20070118mo\dubium.exe", $Fenster="Nutzungsbedingungen"
Run($Prog, "")
WinWait($Fenster)
WinGetHandle($Fenster)
WinActivate($Fenster)
;WinClose($Fenster) ;WinClose funktioniert, also ist $i richtig ;-))
Send("{ENTER}")
;</AutoItScript>

Alles anzeigen

Naja, kein überragendes Script, doch mir geht es mehr um das Tool
Mir reicht das jetzt erstmal so, bin aber dankbar für Hinweise, wie es mit ControlClick()
gehen würde. Ich will keineswegs die Leistung der Programmierer schmälern, sondern nur
etwas über AutoIt erfahren
Gruß
ytwinky

ytwinky

Frohes neues Jahr allen AutoIt-Usern hier im Forum!
Dies ist ein manuell erstellter Gruß(deshalb auch nicht ganz pünktlich), aber um nichts weniger herzlich
Schaunwermal, ob das neue Jahr uns mehr bringt als die 9%Mwst
Gruß
ytwinky

ytwinky

Hi,
ich wünsche allen AutoIt-Nutzern einen guten Rutsch ins Neue Jahr.
Viel Spaß beim Skripte schreiben, ich mochte nicht so lange warten
Alsdann, kommt gut in die 19%Mwst und bis denn denn
Gruß
ytwinky

ytwinky

Hi,
ich wünsche allen Forumsmitgliedern ein frohes Wehnachtsfest und
einen guten Rutsch in die 19%Mwst
Gruß
ytwinky

ytwinky

Hi,
Es ist kein Problem aus Html-Dateien Chm-Dateien zu erstellen:Html-Workshop
PDF sollte auch kein Problem sein:FreePDF XP bzw. OO 2.1.0
Gruß
ytwinky

ytwinky

Hi jonk,
..da schließe ich mich doch gleich mal an:
Alles Gute zu Geburtstag und alles Gute im neuen Lebensjahr
:kette:
Herzlichen Geburtstagsgruß
ytwinky

ytwinky

Hi,
..meinst du vllt so was?

Spoiler anzeigen

C

;<AutoItScript>
#NoTrayIcon
AutoItSetOption("MustDeclareVars", 1)
#include <Constants.au3>
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Author="AsAdmin.au3 ©2006 by ytwinky, MD";                             |
;|    EMail: PIII1kSystem-AutoIt3Forum@yahoo.de                               |
;|    AutoIt3-Version: aktuelle beta                                          |
;|    Editor: SciTE aktuelle Version, feste Schriftart                        |
;|    Zweck : RunAs-Parameter zum Benutzen eines lokalen Admin-Zugangs setzen |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
Const $RegKey="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\Always\"
Dim $i=0, $du=RegRead($RegKey, "DefaultUserName"),$dp=RegRead($RegKey, "DefaultPassword")
Dim $Cmd=@ScriptFullPath
If IsAdmin() Then
	MsgBox(4096, "SysMsg", "Dies Script läuft mit Admin-Rechten..")
	;hor folgen die anderen Admin-Befehle
Else
	RunAsSet($du, @Computername, $dp)
	If Not @Compiled Then
		$Cmd=@AutoItExe &" " &$Cmd
	EndIf
	Run($Cmd)
	RunAsSet(); Admin-Rechte zurücknehmen
EndIf
Exit 0


;</AutoItScript>

Alles anzeigen

In dieser Version ist es egal, ob das Skript kompiliert ist oder nicht..
Viel Spaß beim Spielen damit
Gruß
ytwinky

Beiträge von ytwinky

Script "LoginAs"

Radio Button

Dos Box

A-Z sortieren

Löschen von Dateien

Ruhezustand

Aktueller Windows User/Anmeldename

Wie rufe ich StandBy/Hibernate mit AutoIt auf?

Wie rufe ich StandBy/Hibernate mit AutoIt auf?

Wie rufe ich StandBy/Hibernate mit AutoIt auf?

SID weiterverarbeiten

RegistryRemote

Happy Birthday huggy

Alle jemals angesteckten USB-Geräte finden

Happy New Year @ All

Happy New Year @ All

Frohe Weihnachten

Tutorial

Alles Gute, jonk

Ganzes Skript als Admin laufen lassen