Beiträge von ytwinky

ytwinky

Hi,
@jonk:
Schönen Dank für den Tadel..

Inhaltsverzeichnis der Rar-Datei:

Code

#  Archiv D:\AtHome\au3.rar
2006-02-06 14:29          1355           612  au3\Ar3.au3
2006-02-06 14:30        121328        116299  au3\Ar3.exe
2006-02-01 14:04          3249          3249  au3\OberSchlumpf.gif
2006-02-01 14:23          4520          4393  au3\Schlumpf.gif
2006-02-05 23:11   Verzeichnis   Verzeichnis  au3
2006-02-05 23:18           217           193  au3\ar3-Install.txt
#
# Insgesamt              Größe       Gepackt  Dateien
#                       130669        124746  6

Einfach nur das Beispiel abzutippeln wäre mir echt zu blöd gewesen,
schließlich will ich das Skript ja auch benutzen.
Hier nun der Quelltext(als Exe-Datei im Rar-Archiv enthalten)

Spoiler anzeigen

Code

;<AutoItScript>
AutoItSetOption("MustDeclareVars", 1)
AutoItSetOption("TrayIconHide", 1)
;+----------------------------------------------------------------------------+
;|    Header: Bestimmen der Übergabeparameter                                 |
;|    ( Alles Strings(!!!), bis auf ArgC )                                    |
;|    FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins         |
Const $Author="ar3.au3 ©2006 by ytwinky, MD";                                 |
;|   	EMail: [EMAIL]PIII1kSystem-AutoIt3Forum@yahoo.de[/EMAIL]                               |
;|    (Tastenkombination: keine)                                              |
;|                                                                            |
;|    Zweck : Schablone für den Anfang, nach Bedarf anpassen                  |
;|    Tab auf 2 setzen wg. Lesbarkeit                                         |
;+----------------------------------------------------------------------------+
Const $Dauer=2000, $Breite=62, $Hoehe=75, $Links=5, $Oben=2, $KeinTitel=1
Dim $s="", $Datei
If IsAdmin() Then $s="Ober"
$Datei=$Datei &$s &"Schlumpf.Gif"
If FileExists($Datei) Then
	SplashImageOn("", $Datei, $Breite, $Hoehe, $Links, $Oben, $KeinTitel)
	Sleep($Dauer)
Else
	MsgBox(64, "Grafik fehlt", $s &"Schlumpf", $Dauer)
EndIf
;</AutoItScript>

Alles anzeigen

Gruß
ytwinky

ytwinky

Tach erstma,
ich bin der Neue und möchte mich mit meinem Erstlingswerk ar3.au3 gleich vorstellen:
Die Benutzung von WhoAmI.Exe ist EIN möglicher Weg, um herauszufinden, ob ein Benutzer Admin-Rechte hat oder nicht.
Ich brauche das, weil ich, wie es sich gehört, nicht mit Admin-Rechten surfe! Manchmal muß aber der User(das ist der, der Surfen darf) Admin-Rechte haben und manchmal vergesse ich, ihm diese wieder zu entziehen
Was liegt also näher, als per Script abzufragen, was Phase ist.
Die Benutzung von WhoAmI.. s.o.
..und ist per Script doch recht langsam. In AutoIt3 ist das ganz einfach und ich habe gleich noch ausprobiert, wie ich Grafiken in ein Script einbauen kann. Die Rar-Datei ist unter http://fileanchor.com/18933-d
zu finden.
Gruß
ytwinky