Upps... *sehr peinlich* ändere ich natürlich sofort
Beiträge von Ineluki
-
-
wieso 20.März, 20.Mai oder?
Naja, einen Smilie kann man ja wohl in 5 Tagen erstellen, oder?
Im Notfall kann ich die Frist auch etwas verlängern... -
In dem Thread gehts auch nicht darum, den Smilie zu tauschen, sondern darum, wer den schönsten hat :pinch:
-
Naja, dann könnten am Ende, wenn abgestimmt wird aber alle bei vielen Bildern erahnen, von wem das ist^^ Und ob die Abstimmung dann noch demokratisch wäre?....
-
Ehh klau mir nicht meinen Thread!!
Also wenn ich bitten darf!!
Du hast einen Thread erstellt, OB es einen Party Smilie GEBEN soll. Ich hab einen Thread erstellt, welcher Party Smilie der SCHÖNSTE ist.Ich hab eher an eine sofort Abstimmung gedacht, die z.B. bis zum 20sten geht, und der Threadsteller fügt die neue Smileys hinzu.
Kann ich auch machen, ist eigt. egal^^Also ich würd den Thread closen
.
Unfair... Der Smiley von Jonathan ist doch prima.
In diesem Thread geht es eigt. nur darum welcher der schönste ist, nicht, welcher der neue sein soll.Zitat von "Mir"[...]Wenn Jonathan einverstanden ist und Pee das möchte [...]
-
1: [Blockierte Grafik: http://img42.imageshack.us/img42/7287/smilie1.png]
2: [Blockierte Grafik: http://www.animiertegifs.de/smilies/Party/Party_Smilie_20.gif]
3: [Blockierte Grafik: http://img4.imageshack.us/img4/5371/smilie2.png]
4:
5: [Blockierte Grafik: http://img293.imageshack.us/img293/3042/smilie3.png]
-
Gut, ich erstelle schnell den Thread.
-
Jaaaaaa xD dann setz ich mich nochmal an einen besseren
-
Ich hab auch mal einen Smilie gemacht, längst nicht so schön, aber egal
-
Gefällt mir super
-
So, ich hab jetzt noch eine 3. Datei hinzugefügt. Diese verhindert, dass das Script beendet wird.
Aber: Wenn eure Einstellungen bei SciTE so sind, dass ein Script standartmäßig editiert wird, dann solltet ihr lieber nicht die Check.au3/Kindersicherung.au3 laufen lassen. Weil sonst bleibt euch nichts anderes übrig, als den Pc auszuschalten, weil dauerhaft die .au3 in den Vordergrund geholt wird. Optional könnt ihr auch einfach den Teil mit dem automatischen restart auskommentieren. -
Die Func klappt leider nicht mehr, Grund? kA..... Vor einer Woche ging es noch, naja, ega, hab den Code der Kindersicherung.au3 daher leicht verändert.
-
Guck mal hier: [Tut] FF.au3 – AutoIt-Funktionen im Browser
Besonders die Funktionen _FFSetValue und _FFFormSubmit könnten für dich interessant sein
-
Ich hab vor ein paar Wochen mal eine Kindersicherung gemacht und wollte diese jetzt mal vorstellen.
Kindersicherung.au3/.exe:
Man kann bis zu 5 Prozesse (werd ich wahrscheinlich noch erweitern) prüfen lassen. Sobald diese vorhanden sind, werden sie automatisch geschlossen. Welche Prozesse geprüft werden, wird in einer *.ini ausgelesen. Während das Script läuft, ist der Taskmanager geblockt. Außerdem prüft sie, ob die Prüfer.au3/.exe noch läuft. Dabei ist egal, wie die Check.au3/.exe heißt und wo sie sich befindet.Optionen.au3/.exe:
Wenn noch kein "Account" vorhanden ist, kommt man automatisch zu einem Fenster, wo man einen neuen erstellen kann. Nach der Erstellung kommt man in die Optionen GUI. Passwort und Benutzername werden Md5 verschlüsselt gespeichert. Wenn man schon einen "Account" hat, muss man sich anmelden, um zur Optionen Gui zu gelangen. In der Gui kann man dann einstellen, welche Prozesse geschlossen werden sollen, ob das Script bei jedem Systemstart mit gestartet werden soll, man kann die Login Daten ändern und sowohl die Kindersicherung.au3/.exe als auch die Check.au3/.exe beenden. Die Optionen.au3/.exe lässt sich zudem nur mit Adminrechten ausführen.
Check.au3/.exe
Die Prüfer.au3/.exe prüft nur, ob die Kindersicherung.au3/.exe noch läuft. Der Name und der Pfad der Kindersicherung.au3/.exe ist dabei egal.Kindersicherung.au3:
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_outfile=..\AutoIt .exe\Kindersicherung.exe
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=JanTimon
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
TraySetState(2)
$configdir=@CommonFilesDir&"\configkill"
RegWrite("HKEY_CLASSES_ROOT\krsung", "Exit", "REG_SZ", "krsungon")
If @ScriptFullPath <> RegRead("HKEY_CLASSES_ROOT\krsung", "ScriptSavePath") Then RegWrite("HKEY_CLASSES_ROOT\krsung", "ScriptSavePath", "REG_SZ", @ScriptFullPath)
If @ScriptName <> RegRead("HKEY_CLASSES_ROOT\krsung", "ScriptSaveName") Then RegWrite("HKEY_CLASSES_ROOT\krsung", "ScriptSaveName", "REG_SZ", @ScriptName)While sleep(60)
[/autoit]
If RegRead("HKEY_CLASSES_ROOT\krsung", "Exit")<>"krsungoff" Then
If NOT ProcessExists(RegRead("HKEY_CLASSES_ROOT\krsung", "ScriptCheckName")) Then ShellExecute(RegRead("HKEY_CLASSES_ROOT\krsung", "ScriptCheckPath"))
EndIf
If RegRead("HKEY_CLASSES_ROOT\krsung", "Exit")="krsungoff" Then Exit
If ProcessExists(IniRead($configdir, "ProcessClose", "Process1", "ERROR")) Then $pro1=ProcessClose(IniRead($configdir, "ProcessClose", "Process1", "ERROR"))
If ProcessExists(IniRead($configdir, "ProcessClose", "Process2", "ERROR")) Then $pro2=ProcessClose(IniRead($configdir, "ProcessClose", "Process2", "ERROR"))
If ProcessExists(IniRead($configdir, "ProcessClose", "Process3", "ERROR")) Then $pro3=ProcessClose(IniRead($configdir, "ProcessClose", "Process3", "ERROR"))
If ProcessExists(IniRead($configdir, "ProcessClose", "Process4", "ERROR")) Then $pro4=ProcessClose(IniRead($configdir, "ProcessClose", "Process4", "ERROR"))
If ProcessExists(IniRead($configdir, "ProcessClose", "Process5", "ERROR")) Then $pro5=ProcessClose(IniRead($configdir, "ProcessClose", "Process5", "ERROR"))
If IniRead($configdir, "Other", "Autostart", "1") = "1" Then
If NOT FileExists(@StartupCommonDir&@ScriptName) Then FileCopy(@ScriptFullPath, @StartupCommonDir)
ElseIf IniRead($configdir, "Other", "Autostart", "0") = "0" Then
If FileExists(@StartupCommonDir&@ScriptName) Then FileDelete(@StartupCommonDir&@ScriptName)
EndIf
If ProcessExists("taskmgr.exe") Then ProcessClose("taskmgr.exe")
WEndOptionen.au3:
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_outfile=..\AutoIt .exe\Optionen.exe
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=JanTimon
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****#include <EditConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstants.au3>
#include <Crypt.au3>If IsAdmin()=0 Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0, "ERROR", "Sie können nur mit Adminrechten diese Datei öffnen.")
Exit
EndIf$configdir=@CommonFilesDir&"\configkill"
[/autoit] [autoit][/autoit] [autoit]$lGUI = GUICreate("Login", 214, 114, 193, 125)
[/autoit] [autoit][/autoit] [autoit]
$ID = GUICtrlCreateInput("Benutzername", 80, 8, 113, 21)
GUICtrlCreateLabel("Benutzername:", 8, 8, 55, 21)
GUICtrlCreateLabel("Passwort:", 8, 48, 53, 21)
$PW = GUICtrlCreateInput("Passwort", 80, 48, 113, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$bLogin = GUICtrlCreateButton("Login", 24, 80, 169, 25, 0)
$cGUI = GUICreate("Login", 214, 114, 193, 125)
$cID = GUICtrlCreateInput("Benutzername", 80, 8, 113, 21)
GUICtrlCreateLabel("Benutzername:", 8, 8, 55, 21)
GUICtrlCreateLabel("Passwort:", 8, 48, 55, 21)
$cPW = GUICtrlCreateInput("Passwort", 80, 48, 113, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$cbLogin = GUICtrlCreateButton("Account erstellen", 24, 80, 169, 25, 0)
If IniRead($configdir, "Login", "Username", "ERROR") <> "ERROR" And IniRead($configdir, "Login", "Passwort", "ERROR") <> "ERROR" Then
GUISetState(@SW_SHOW, $lGUI)
Else
GUISetState(@SW_SHOW, $cGUI)
EndIf
$oGUI = GUICreate("Optionen", 272, 266, 193, 125)
GUICtrlCreateLabel("Prozessname oder PID:", 8, 16, 115, 17)
$p1 = GUICtrlCreateInput("", 144, 16, 105, 21)
GUICtrlCreateLabel("Prozessname oder PID:", 8, 53, 115, 17)
$p2 = GUICtrlCreateInput("", 144, 53, 105, 21)
GUICtrlCreateLabel("Prozessname oder PID:", 8, 90, 115, 17)
$p3 = GUICtrlCreateInput("", 144, 90, 105, 21)
GUICtrlCreateLabel("Prozessname oder PID:", 9, 127, 115, 17)
$p4 = GUICtrlCreateInput("", 145, 127, 105, 21)
GUICtrlCreateLabel("Prozessname oder PID:", 9, 164, 115, 17)
$p5 = GUICtrlCreateInput("", 145, 164, 105, 21)
$astart = GUICtrlCreateCheckbox("Das Programm bei jedem Computerstart mit starten", 8, 200, 257, 17)
$changeo = GUICtrlCreateButton("Ändern", 8, 232, 65, 25, 0)
$changel = GUICtrlCreateButton("Login Daten ändern", 88, 232, 113, 25, 0)
$exit = GUICtrlCreateButton("Beenden", 208, 232, 49, 25)While True
[/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $bLogin
$checkid = _Crypt_HashData(GUICtrlRead($ID), $CALG_MD5)
$checkpw = _Crypt_HashData(GUICtrlRead($PW), $CALG_MD5)
If IniRead($configdir, "Login", "Username", "ERROR") = $checkid And IniRead($configdir, "Login", "Passwort", "ERROR") = $checkpw Then
GUISetState(@SW_HIDE, $lGUI)
MsgBox(64, "Erfolgreich", "Erfolgreich eingeloggt")
options()
Else
GUISetState(@SW_HIDE, $cGUI)
MsgBox(48, "Fehlgeschlagen", "Login Fehlgeschlagen")
EndIf
Case $cbLogin
IniWrite($configdir, "Login", "Username", _Crypt_HashData(GUICtrlRead($cID), $CALG_MD5))
IniWrite($configdir, "Login", "Passwort", _Crypt_HashData(GUICtrlRead($cPW), $CALG_MD5))
MsgBox(64, "Erfolgreich", "Account wurde erfolgreich erstellt")
Call("options")
Case $changel
IniDelete($configdir, "Login")
GUISetState(@SW_SHOW, $cGUI)
Case $changeo
IniWrite($configdir, "ProcessClose", "Process1", GUICtrlRead($p1))
IniWrite($configdir, "ProcessClose", "Process2", GUICtrlRead($p2))
IniWrite($configdir, "ProcessClose", "Process3", GUICtrlRead($p3))
IniWrite($configdir, "ProcessClose", "Process4", GUICtrlRead($p4))
IniWrite($configdir, "ProcessClose", "Process5", GUICtrlRead($p5))
If GUICtrlRead($astart) = $GUI_Checked Then
IniWrite($configdir, "Other", "Autostart", "1")
Else
IniWrite($configdir, "Other", "Autostart", "0")
EndIf
Exit
Case $exit
RegWrite("HKEY_CLASSES_ROOT\krsung", "Exit", "REG_SZ", "krsungoff")
sleep(500)
RegWrite("HKEY_CLASSES_ROOT\krsung", "Exit", "REG_SZ", "krsungon")
EndSwitch
WEndFunc options()
[/autoit]
GUISetState(@SW_SHOW, $oGUI)
EndFuncCheck.au3:
Spoiler anzeigen
[autoit]If @ScriptFullPath <> RegRead("HKEY_CLASSES_ROOT\krsung", "ScriptCheckPath") Then RegWrite("HKEY_CLASSES_ROOT\krsung", "ScriptCheckPath", "REG_SZ", @ScriptFullPath)
[/autoit]
If @ScriptName <> RegRead("HKEY_CLASSES_ROOT\krsung", "ScriptCheckName") Then RegWrite("HKEY_CLASSES_ROOT\krsung", "ScriptCheckName", "REG_SZ", @ScriptName)
While sleep(10)
If RegRead("HKEY_CLASSES_ROOT\krsung", "Exit")="krsungoff" Then Exit
If RegRead("HKEY_CLASSES_ROOT\krsung", "Exit")<>"krsungoff" Then
If NOT ProcessExists(RegRead("HKEY_CLASSES_ROOT\krsung", "ScriptSaveName")) Then ShellExecute(RegRead("HKEY_CLASSES_ROOT\krsung", "ScriptSavePath"))
EndIf
WEndKindersicherung.exe: http://www.file-upload.net/download-25182…herung.exe.html
Optionen.exe: http://www.file-upload.net/download-2517834/Optionen.exe.html
Check.exe: http://www.file-upload.net/download-2518238/Check.exe.htmlVorschläge und konstruktive Kritik sind gerne gesehen..
Wichtig: Wenn eure Einstellungen bei SciTE so sind, dass ein Script standartmäßig editiert wird, dann solltet ihr lieber nicht die Check.au3/Kindersicherung.au3 laufen lassen. Weil sonst bleibt euch nichts anderes übrig, als den Pc auszuschalten, weil dauerhaft die .au3 in den Vordergrund geholt wird. Optional könnt ihr auch einfach den Teil mit dem automatischen restart auskommentieren.
-
Der Buttonname oder die Button Variable sind nicht die ControlId
-
Die ist ein Beispiel, was ein grünes/rotes Feld erstellt, jenachdem, auf welchen Button man drückt:
Spoiler anzeigen
[autoit]#include <GUIConstants.au3> ; Binde die GUIConstants.au3 ein (für $GUI_EVENT_CLOSE)
[/autoit] [autoit][/autoit] [autoit]GUICreate("Test", 280, 184, 192, 124) ; Erstelle die GUI "Test" an bestimmter Position mit bestimmter Größe
[/autoit] [autoit][/autoit] [autoit]
$Button1 = GUICtrlCreateButton("An", 8, 112, 97, 33) ; Erstelle $Button1 an bestimmter Position mit bestimmter Größe und der Aufschrift "An"
$Button2 = GUICtrlCreateButton("Aus", 128, 112, 105, 33) ; Erstelle $Button2 an bestimmter Position mit bestimmter Größe und der Aufschrift "Aus"
$Label1 = GUICtrlCreateLabel("", 16, 16, 44, 41) ; Erstelle $Label1 an bestimmter Position mit bestimmter Größe und mit keiner Schrift
GUICtrlSetBkColor(-1 , 0xFF0000) ; Ändere von dem zuletzt erstellten Control die Farbe auf Rot
GUISetState() ; Mache die GUI sichtbarWhile 1 ; Endlosschleife
[/autoit]
Switch GUIGetMsg() ; Schalter GUIGetMsg
Case $GUI_EVENT_CLOSE ; Falls das Rote X gedrückt wurde
Exit ; Beende
Case $Button1 ; Falls $Button1 gedrückt wurde
GUICtrlSetBkColor($Label1, 0x00FF00) ; Ändere die Hintergrundfarbe von $Label1 auf Grün
Case $Button2 ; Falls $Button2 gedrückt wurde
GUICtrlSetBkColor($Label1, 0xFF0000) ; Ändere die Hintergrundfarbe von $Label1 auf Rot
EndSwitch ; Ende vom Schalter
WEnd ; Wiederhole die Schleife -
Schöner wäre es, wenn die Münzen und das Ziel an einer zufälligen Stelle sein würden und nicht immer an der gleichen. Ansonsten gefällt es mir ganz gut.
-
Mal probiert mit ohne Array Consolewrite benutzen?
Soll er es jetzt mit oder ohne versuchen?
-
In Zeile 33 ist ein Fehler
Das then muss weg. -
Was ist denn daran bitte animiert?
