Nun, du könntest die aktuelle Zeit so auswerten, das At.Exe zur nächsten vollen Minute ausgeführt wird..
Ähm, was sind denn das für Zwecke, die nicht mal max. 1min warten können?
Bzw. wenn deine Sachen sofort ausgeführt werden sollen, wieso hast du denn nicht die erforderlichen Berechtigungen?
Genug gebohrt..
Gruß
ytwinky
Beiträge von ytwinky
-
-
Hi,
sowohl VBS als auch AutoIt können problemlos in der Registry lesen und schreiben..
Warum also nicht die Registry als Datenpuffer benutzen?
[Edit]
Hinterher Registry aufräumen nicht vergessen
Gruß
ytwinky -
Hi,
zunächst, als Vorbemerkung, ich teile die Befürchtung von Th. Meger.
Imho sollte es hier nur darum gehen, als authorisierter Benutzer die erlaubten
Befehle auf eigenen Systemen(also auch Netzen) auszuführen.
Zu den erlaubten XP-Befehlen gehört auch At.Exe, das AFAIR mit Systemrechten arbeitet, allerdings nur zu einem bestimmten Zeitpunkt.
Ich erspare es mir, hier die Hilfe-Ausgabe 'reinzukopieren, da du sie dir mir At /? selber erstellen kannst..
Gruß
ytwinky -
Na, dann mal herzlichen Glühstrumpf zum 100. (Beitrag)

@Topic:
Wohlgemerkt doc hat nach VBS gefragt und das ist eine Scriptsprache wie AutoIt..
..ich wüßte nicht, wie man ohne Weiteres DLL oder was auch immer mit VBS
erstellen kann(OCX lassen sich erstellen, aber wer benutzt sowas?).
Es gibt Sachen, die VBS kann, doch AutoIt nicht..
..(Array() z.B.)aber ich denke, dafür ist VBS aber ein beliebtes Spielzeug von
Leuten, die es nicht immer gut mit einem PC meinen
und auf vielen Systemen (auch auf meinem) ist es abgeschaltet..
ShellExecute() ist ein möglicher Weg, der direkte Aufruf von WSH ein weiterer,
ich gebe aber zu bedenken, daß dafür ein Skript geschrieben, gespeichert und
aufgerufen werden muß..
..ist es das wert?
Gruß
ytwinky -
Hi,
[autoit]
Wenn ich deine Frage aus der Shoutbox richtig verstehe, ist die Situation folgende:Dim Null[9], Eins[9], Zwei[9]
[/autoit]Was spricht gegen folgende Lösung:
[autoit]Dim Alle[3, 9]
[/autoit]?
Gruß
ytwinky -
Normalerweise rufe ich meine Mutter an..
..brauch ich dies Jahr nicht, sie ist nicht da
btw:
Über den obigen Link ist jetzt eine (nicht nur qualitativ) bessere Version zu erhalten.
Viel Spaß beim Anhören..
Gruß
ytwinky -
..Grund genug, sich einmal Gedanken über die Bedeutung einer Mutter zu machen

Wer das nicht selber schafft, findet hier eine Gedankenstütze
Gruß
ytwinky -
Mein Computer ist auch 'durchsucht' worden

Schlauerweise habe ich diese Mail aber in einem Internet-Cafe gelesen..
..aber als ich meine Daten auf meinen Stick ziehen ließ, hatte ich einen Virus dabei..
(Aktenzeichen.Doc.Exe, in einer Zip-datei versteckt..)
Dabei habe ich gar nicht auf Download Anhang geklickt(jedenfalls nicht wissentlich oder gar absichtlich
)
Gruß
ytwinky -
ZitatAlles anzeigen
Original von sc4ry
[autoit]..
[/autoit]
While 1
$msg = GUIGetMsg()
Select
case $msg = $gui_event_close
ExitLoop
Exit
Case $cancel
ExitLoop
Exit
Case $ok
If GUICtrlRead($cbportal) = 1 Then
EndSelect
WEnd
..Wie Ber670 schon gesagt hat, ist das in dieser Form nicht richtig.
[autoit]
Aber du kannst ja auch..
[/autoit]
While 1
Switch GUIGetMsg()
Case $gui_event_close
Exit
Case $cancel
Exit
Case $ok
If GUICtrlRead($cbportal) = 1 Then ..
Case Else
;-)))
EndSwitch
WEnd
..benutzen..
[edit]
Wow, zum gelösten Problem gepostet, aber wenigstens nix Falsches
Gruß
ytwinky -
Hi,
[autoit]
..neulich war es mal wieder soweit: Gilt meine Monatskarte heute noch oder nicht?
Für so einen Fall habe ich mir mal ein HTA-Skript geschrieben, aber das kann's doch
nicht sein, nicht wirklich..
Außerdem mußte ich ja das neue Scite ausprobieren und auch die neueste Beta.
Alles k.P., also habe ich mir mit Koda erstmal eine 'schicke' Oberfläche gebastelt.
(Meine erste mit Kalender-Controls..)
Koda hat auch brav mitgespielt, sogar bei der Formatierung des Datums, okay.
Ich füge also den Code in das Skript ein und wer beschreibt mein Erstaunen, als ich
dort eine Zeile mit einem (für mich) neuen Befehl fand:GuiCtrlSendMsg(-1, 0x1005, 0, "ddd, dd.MM.yyyy")
[/autoit]Da die Zeile von Scite nicht bemängelt wurde, hatte ich keine Probleme damit..
Ich hatte das Skript fast fertig, da ritt mich der Teufel und ich ließ es per Beta-Run
laufen(ob das Absicht war oder ein Versehen weiß ich jetzt nicht mehr

Jedenfalls lief es nicht so, wie ich es erwartet hatte(in den Kalender-Controls stand
nur der Tag des Monats..). Ooops, verschrieben? Nö, mit der Stable ist alles klar.
Ich habe mir dann die Hilfe zum Kalender-Control angesehen und $DTS_SHORTDATEFORMAT
gefunden, damit geht es auch und wer den Wochentag braucht, kann ja das jeweilige
Control aufklappen. So, genug der Vorrede, hier isses:Spoiler anzeigen
[autoit];<AutoItScript>
[/autoit] [autoit][/autoit] [autoit]
#NoTrayIcon ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
Opt("MustDeclareVars", 0) ;0=ohne, 1=erfordert Variablen-Deklaration
#include <GUIConstants.au3>
#include <Constants.au3>
#include <date.au3>
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Autor="Zeitkarte.au3 ©2007 by ytwinky, MD"; |
;| EMail: [email='PIII1kSystem-AutoIt3Forum@yahoo.de'][/email] |
;| AutoIt3-Version: aktuelle beta |
;| Editor: SciTE aktuelle Version, feste Schriftart |
;| Zweck : Ermitteln der FBC-Versionen(geht nur auf PIII1k) |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Const $Moka=31, $Woka=7
Dim $Diff, $s
#Region ### START Koda GUI section ### Form=D:\Sprachen\AutoIt3\au3\kxf\Zeitkarte.kxf
$Zeitkarte=GUICreate("Zeitkarte", 308, 209, 248, 209)
GUISetFont(10, 400, 0, "Arial")
$Rahmen=GUICtrlCreateGroup("", 0, -44, 308, 253)
$Titel=GUICtrlCreateLabel("Zeitkarten-Berechnung", 8, 4, 295, 33, $SS_CENTER)
GUICtrlSetFont(-1, 18, 800, 0, "Arial")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetTip(-1, "©2007 by ytwinky, MD")$grModus=GUICtrlCreateGroup("Berechnungsmodus", 156, 36, 144, 105)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$rbMonat=GUICtrlCreateRadio("Monatskarte", 160, 56, 113, 17)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetTip(-1, "..gilt " &$MoKa &" Tage")
$rbWoche=GUICtrlCreateRadio("Wochenkarte", 160, 86, 113, 21)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetTip(-1, "..gilt " &$WoKa &" Tage")
$rbDelta=GUICtrlCreateRadio("Datumsdifferenz", 160, 120, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetTip(-1, "..berechnen ;-))")
GUICtrlCreateGroup("", -99, -99, 1, 1)$grErster=GUICtrlCreateGroup("Erster Geltungstag", 8, 36, 142, 49)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$ETag=GUICtrlCreateDate("2000/12/13", 16, 56, 127, 24, $DTS_SHORTDATEFORMAT)
GUICtrlCreateGroup("", -99, -99, 1, 1)$grLetzter=GUICtrlCreateGroup("Letzter Geltungstag", 8, 92, 142, 49)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$LTag=GUICtrlCreateDate(_NowDate(), 16, 112, 127, 24, $DTS_ShortDATEFORMAT)
GUICtrlCreateGroup("", -99, -99, 1, 1)$grDelta=GUICtrlCreateGroup("Differenz in Tagen", 8, 148, 142, 53)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$efDelta=GUICtrlCreateInput("", 16, 169, 57, 24)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)$btQuit=GUICtrlCreateButton("Quit", 224, 177, 75, 25, 0)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_DeltaDate()While 1
[/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg()
Case $rbMonat, $rbWoche, $rbDelta
If GUICtrlRead($rbDelta)=$GUI_CHECKED Then
GUICtrlSetState($efDelta, $GUI_Show)
GUICtrlSetState($grDelta, $GUI_Show)
_DeltaDate()
Else
GUICtrlSetState($efDelta, $GUI_HIDE)
GUICtrlSetState($grDelta, $GUI_HIDE)
$Diff=$Moka
If GuiCtrlRead($rbWoche)=$GUI_CHECKED Then $Diff=$Woka
$s=_Ger2EngDate($ETag)
$s=_DateAdd("D", $Diff-1, $s)
GUICtrlSetData($LTag, $s)
EndIf
Case $GUI_EVENT_CLOSE, $btQuit
Exit
EndSwitch
WendFunc _DeltaDate()
[/autoit] [autoit][/autoit] [autoit]
Dim $e=_Ger2EngDate($ETag), $l=_Ger2EngDate($LTag), $d=_DateDiff("D", $e, $l)+1
If @Error Then $d="@Error " &@Error
GUICtrlSetData($efDelta, $d)
EndFuncFunc _Ger2EngDate($From)
[/autoit] [autoit][/autoit] [autoit]
Dim $d=GuiCtrlRead($From), $n=StringRight($d, 4) &"/" &StringMid($d, 4, 2)
Return $n &"/" &StringLeft($d, 2)
EndFunc;</AutoItScript>
[/autoit]Ach so, ne Frage habe ich ja auch noch:
Gibt es eine (kurze) Erklärung für das, was ich eingangs beschrieben habe?
Ich würde nämlich schon ganz gerne den Wochentag mit in der Maske haben..
(Nein, nicht in einem Extra-Input-Feld :D)
Gruß
ytwinky -
Hi,
ich habe hier mal ein Script geschrieben, um das Modem nachträglich zu initialisieren, da der Gerätemanager generell nach neuen Geräten sucht, könnte das helfen..
Gruß
ytwinky -
Hi,
Du mußt halt nur aufpassen:
Bei Doubles ist in der Regel der Buchstabe 'E' für den Exponenten zuzulassen..
..ist ganz praktisch für die Eingabe von 1E-17 oder 1e37 oder wie auch immer.
Du kannst natürlich auch definieren, daß (wie in FORTRAN z.B.) der Buchstabe 'D' zugelassen ist..
Gruß
ytwinky -
Warum nicht kürzer?

Spoiler anzeigen
[autoit]HotKeySet("{ESC}", "Terminate")
[/autoit] [autoit][/autoit] [autoit]Func Terminate()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFunc#include <GUIConstants.au3>
[/autoit]
$Gui = GUICreate("Test", 146, 133, 704, 397)
$Button1 = GUICtrlCreateButton("Sleep", 32, 40, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Exit", 32, 72, 75, 25, 0)
GUISetState(@SW_SHOW)
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $Button2
Exit
Case $Button1
$Pause=10000
While $Pause
Sleep($Pause)
$Pause=0
WEnd
Case Else
;-)))
EndSwitch
WEnd(Allerdings (noch) ungetstet..)
Gruß
ytwinky -
Hi,
..auch mit der InputBox kann die Eingabe maskiert werden(habe ich in der Hilfe gelesen :D)
..und auch ausprobiert(Schleife ist kein Problem, oder ?)Spoiler anzeigen
[autoit]#NoTrayIcon ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
[/autoit]
Opt("MustDeclareVars", 1) ;0=ohne, 1=erfordert Variablen-Deklaration
Const $Admin="Administrator", $Nichtzulangeanzeigen=1, $NichtVorbesetzt="", $PwMaske="y"
Dim $pw="", $Prompt="Eingabe wird maskiert.." &@Lf &"..darf nicht leer sein.." &@Lf &"..und muß mehr als 8 Zeichen haben!"
Do
$pw=InputBox("Kennwort eingeben", $Prompt, $NichtVorbesetzt, $PwMaske, 220, 140, 0, @DesktopHeight-150)
Until ($pw<>"" And StringLen($pw)>7) Or $pw=$Admin
MsgBox(0, "Kein Geheimnis", "Das Kennwort im Klartext:" &@Lf &$pw, $Nichtzulangeanzeigen)
Gruß
ytwinky -
Na ja, für GUICtrlRead() bin ich wohl ein wenig zu spät

Aber eine Paßworteingabe bei der das Paßwort auf dem Schirm zu lesen ist, wirkt doch etwas unprofessionell:Spoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit]
#Region ### START Koda GUI section ### Form=D:\Sprachen\AutoIt3\au3\kxf\Passwort.kxf
$Form1 = GUICreate("AForm1", 413, 308, 303, 219)
$Input = GUICtrlCreateInput("", 44, 64, 241, 21, $ES_PASSWORD+$ES_AUTOHSCROLL)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
MsgBox(0,"Kein Geheimnis", "Das Paßwort ist:" &@Lf &GUICtrlRead($Input))
Exit
EndSwitch
WEndJedenfalls, wenn ein so leistungsfähiges Mittel wie AutoIt zur Verfügung steht

(Das Beispiel läßt sich noch schöner machen, aber darauf kam es ja jetzt nicht an)
Gruß
ytwinky -
Hi,
nun, da mein Geburtstag vorbei ist, möchte ich nochmals Allen danken,
die sich ein paar Sekunden Zeit für mich genommen haben..
..nein, ein besonderes Leckerchen habe ich nicht..
..nur ein kleines Nachtmahl.
Hauptsache, es bekommt keiner Bauchschmerzen davon
[Edit]
Wer nicht genug bekommen kann: Hier ist nicht nur das Nachtmahl drin
Gruß
ytwinky -
Hi Waluev,
schönen Dank und du darfst auch auf den Link klicken
btw:
ich hab schon einiges hie 'verbrochen':
Scriptomatic, XP-Antispy, NetStat, QSort, um nur einige zu nennen
Gruß
ytwinky -
Hallo peethebee,
zunächst einmal vielen herzlichen Dank für die Glückwünsche, die
fällt in diesem Jahr leider aus, da nach dem Auskurieren meiner Bronchitis
ein leichte Erkältung sich meines 'geschwächten' Körpers bemächtigt hat :lol:
(Das Foto auf 'ytwinky.freebasic.de --> zu meinem Geburtstag' zeigt, wie schlecht es mir geht
dafür ist es aber relativ aktuell, vom 17.04.2007, und es war vor dem Spargelessen)
Ich bin immer noch ziemlich häufig hier im Forum unterwegs, aber für Hilfe meistens zu spät..
Mal schauen, wann ich mal wieder Zeit habe, etwas zu posten. Ich muß jetzt erstmal prüfen,
was die die neue Beta Neues bietet.
(Ich muß gestehen, ich habe einige Betas verpaßt, aber meine Sig stimmt nach wie vor :D)
btw:
Ich hab mir doch hier im Forum so ein tolles Bild von Knut gezogen..
..ich weiß leider nicht mehr, wer den Link gepostet hat..
Jedenfalls schönen Dank
(legaler RadioMitschnitt, 3,4MB)
Gruß
ytwinky -
Hi,
ich weiß zwar noch nicht genau, wie diese Lib helfen kann, aber eines steht schonmal fest:
Schlicht genial..:)
(Freundlicherweise werden die 'Probleme' dort nicht gelöst, die ich gerade bearbeite, aber sonst dürfte für jeden Geschmack etwas dabei sein.)
Gruß
ytwinky -
Hi,
Die Xpi-Datei ist Klasse, aber die fehlende Umlaute fehlen halt!
Bis jetzt
Hier ist die Liste der Umlaute, die ich benutzt habe:
ä=ä
ö=ö
ü=ü
ß=ß
Ä=Ä
Ö=Ö
Ü=Ü
Und hier die bereits geänderte Xpi-Datei
Die Endung .Zip muß noch in .XPI geändert werden, sonst hätte ichs nicht
hochladen können. Ich hoffe, ich habe nix falsch gemacht, aber bei mir funzt's
Btw:
Ich habe mir die Freiheit genommen 'abonniert' mit 2 n zu schreiben
Achso, ich habe die Quellenangabe vergessen: H:\XP\Xpi
sprich:ich habe einfach bei meinen Erweiterungen nachgeschaut..
Gruß
ytwinky