Beiträge von EpicWorld

EpicWorld

aber ich will ja auch checkbox und button und input weiß machen das geht aber ncicht

EpicWorld

8ich will ja die schriftfarbe ändern

EpicWorld

und wie mach ich dann die schrift weiß? Sonst sieht man die ja nicht

EpicWorld

Hey ich wollte die hintergrundfarbe von einer GUI ändern wisst ihr wie das geht???

EpicWorld

es geht jetzt nicht darum sondern um mein problem ...

Ps: Ich bin nur ein verträter von epic world

EpicWorld

[autoit]

#cs #
# #
# _____ _ __ __ _ _ #
#| ___| |_| \ \ /\ / / | | | | #
#| |___ _____ _ ____ \ \ / \ / /__ _ __| | ___| | #
#| ___| _ | |/ __) \ \_/ /\ \_/ / _ \| '__| _ | #
#| |___| |_| | |( (__ \ / \ /||_||| | | |_| | #
#|_____| ___|_|\____) \_/ \_/ \___/|_| |_||_____| #
# |_| #
# #
# Copyright by Epic World #
# Alle Rechte vorbehalten! #
# #
# Wir haften nicht für Eventuelle Schäden oder sonstiges #
# was beim benutzen des Scriptes auftreten kann! #
#ce #

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

; Epic World the best place to play!
; Es ist untersagt einen Script von uns zu kopieren.

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

HotKeySet("{PAUSE}", "TogglePause")

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

Global $Paused
Global $FailLogIn = 0

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

Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script is "Paused"', 0, 0)
WEnd
ToolTip("Script is running")
EndFunc ;==>TogglePause

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

Func end()
Exit
EndFunc ;==>end

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

HotKeySet("{F8}", "end")

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

Func RandomSleep($min, $max)
$time = Random($min, $max)
Sleep($time)
EndFunc ;==>RandomSleep
#NoTrayIcon
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Epic World Kindersicherung", 559, 383, 192, 124)
$Label1 = GUICtrlCreateLabel("Made by Epic World", 224, 272, 196, 33)
$Label2 = GUICtrlCreateLabel("Copyright by Epic World", 408, 8, 117, 17)
$Label4 = GUICtrlCreateLabel("Minuten:", 16, 24, 93, 49)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Input1 = GUICtrlCreateInput("", 136, 16, 113, 21)
$Benutzer = GUICtrlCreateInput("Benutzername", 72, 200, 121, 21)
$Passwort = GUICtrlCreateInput("Passwort", 72, 250, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Label5 = GUICtrlCreateLabel("Notwendig für die Entsperrung bei der Option Sperren", 10, 300, 221, 65)
$Label5 = GUICtrlCreateLabel("Funktion nach Zeitablauf:", 16, 96, 221, 65)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Combo1 = GUICtrlCreateCombo("Bitte wählen", 240, 88, 169, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Herunterfahren|Sperren|Internet abschalten|")
$Button1 = GUICtrlCreateButton("Kindersicherung starten", 232, 176, 297, 81)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

$Loginname = GuiCtrlRead ($Benutzer)
$PW = GUICtrlRead ($Passwort)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUIDelete()
$zeit = GUICtrlRead($Input1)
$count = $zeit * 60000
$modus = GUICtrlRead($Combo1)
If $modus == "Bitte wählen" Then
MsgBox(48, "Fehler", "Bitte wählen Sie eine Option aus!")

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

EndIf
$timer = TimerInit()
Do
ToolTip("Verbleibende Zeit in Minuten: " & $zeit - Round(TimerDiff($timer) / 60000), 0, 0)
Until TimerDiff($timer) > $count
ToolTip("")
Switch $modus
Case "Herunterfahren"
Msgbox(64,"test","test")
Case "Sperren"
AdlibRegister("_maus",200)
$Form1 = GUICreate("Epic World Entsperren", 261, 209, 194, 122)
$Input7 = GUICtrlCreateInput("Benutzername", 72, 24, 121, 21)
$Input8 = GUICtrlCreateInput("Passwort", 72, 56, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
$Button9 = GUICtrlCreateButton("Entsperren", 96, 88, 75, 25)
$Label10 = GUICtrlCreateLabel("Made by Epic World", 88, 144, 100, 17)
$Label11 = GUICtrlCreateLabel("Copyright by Epic World", 80, 168, 117, 17)
GUISetState(@SW_SHOW)

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

if guictrlread($Input7)=$Loginname and guictrlread($Input8)=$PW then
MSGbox(64, "test", "teste")
EndIf
$FailLogIn += 1
If $FailLogIn = 3 Then
Switch $FailLogIn
Case 1
MsgBox(64, "Error", "Sie haben ein falschen Benutzernamen oder Passwort eingegeben. Fehlerhafte Loginversuche: 1",5)

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

Case 2
MsgBox(64, "Error", "Sie haben ein falschen Benutzernamen oder Passwort eingegeben. Fehlerhafte Loginversuche: 2",5)

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

Case 3
MsgBox(64, "Error", "Sie haben ein falschen Benutzernamen oder Passwort eingegeben. Fehlerhafte Loginversuche: 3 ! Ein weiterer und der Computer sperrt sich komplett",5)
Case 4
MsgBox(64, "Error", "Computer sperrt sich nun komplett" ,5)
BlockInput(1)

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

EndSwitch
EndIf

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

Case "Internet abschalten"
;Hier wird das internet abgeschaltet

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

EndSwitch

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

EndSwitch
WEnd

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

Func _maus()
If ProcessExists("taskmgr.exe") Then ProcessClose("taskmgr.exe")
If Not WinActive("Computer Sicherung") Then WinActivate("Computer Sicherung")
EndFunc

[/autoit]

Bitte nicht Script kopieren!

1. Problem:

Immer wenn ich das combo menü benutze und starten klicke dann kommt immer nur das ergebnis (hier jetzt die msgbox test) Auch wenn ich sperren klicke kommt immer nur herunterfahren.

2. Problem:
Ich will wie schon gesagt das internet sperren/deaktivieren

EpicWorld

willst du den script sehen???

EpicWorld

... als ob ich das jetzt für was anderes benutzen würde ...

EpicWorld

hab doch gesagt ich versteh den script ned

EpicWorld

Meine allgemein internet also das internet einfach ausgeht
Das man keine internet spiele spielen kann und so

EpicWorld

Warum unschön?
2. Wer baut sich schon extra einen Script um des auszuschalten

EpicWorld

Man kann es nicht ausmachen taskmanager blockiert no tray icon
Phonix aus dem kann ich nichts lesen kannst du mir bitte den befehl sagen wegen dem internet auschalten

EpicWorld

Gutentag,
ich wollte sowas wie eine Kindersicherung machen uhnd fragen ob man mit autoit das internet abschalten kann nach einer gewissen zeit?

EpicWorld

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Tutorial Bilder\epicworld.ico
#AutoIt3Wrapper_Res_Comment=Epic World Shutdown Script
#AutoIt3Wrapper_Res_Description=Epic World Shutdown Script
#AutoIt3Wrapper_Res_Fileversion=3.1.7
#AutoIt3Wrapper_Res_LegalCopyright=Epic World
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

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

#cs #
# #
# _____ _ __ __ _ _ #
#| ___| |_| \ \ /\ / / | | | | #
#| |___ _____ _ ____ \ \ / \ / /__ _ __| | ___| | #
#| ___| _ | |/ __) \ \_/ /\ \_/ / _ \| '__| _ | #
#| |___| |_| | |( (__ \ / \ /||_||| | | |_| | #
#|_____| ___|_|\____) \_/ \_/ \___/|_| |_||_____| #
# |_| #
# #
# Copyright by Epic World #
# Alle rechte vorenthalten! #
# #
# Wir haften nicht für Eventuelle Schäden oder sonstiges #
# was beim benutzen des Scriptes auftreten kann! #
#ce #

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

; Epic World the best place to play!
; Jeglicher versuch einen Script von uns zu kopieren, wird Strafrechtlich verfolgt und zur Anzeige gebracht!
HotKeySet("{PAUSE}", "TogglePause")

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

Global $Paused

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

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("Script is running")
EndFunc

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

func end()
Exit
EndFunc

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

hotkeyset("{F8}", "end")

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

func RandomSleep($min, $max)
$time = Random($min, $max)
Sleep($time)
endfunc

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

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Epic World Shutdown Script", 605, 304, 192, 124)
$Label1 = GUICtrlCreateLabel("Made by Epic World", 232, 232, 100, 17)
$Label2 = GUICtrlCreateLabel("Alle Rechte vorenthalten", 224, 256, 121, 17)
$Label3 = GUICtrlCreateLabel("Optionen:", 8, 56, 114, 57)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Combo1 = GUICtrlCreateCombo("Bitte wählen", 136, 56, 161, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Herunterfahren|Neu Starten|Abmelden|Schlafmouds|Standby|Strom aus|")
$Label4 = GUICtrlCreateLabel("Sekunden:", 320, 56, 96, 57)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Input1 = GUICtrlCreateInput("", 456, 56, 129, 21)
$Button1 = GUICtrlCreateButton("Start", 184, 160, 193, 49)
GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans MS")
$Label5 = GUICtrlCreateLabel("Copyright by Epic World", 224, 8, 117, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
AdlibRegister("_sicher", 200)
$zeit = GUICtrlRead($Input1)
$count = $zeit

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

Do
MsgBox(0, "Epic World", "Countdown bis zum Shutdown: " & $count, 1)
GuiDelete()

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

$count = $count - 1

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

Until $count = 0

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

If GuiCtrlRead($Combo1) = "Bitte wählen" Then
MsgBox (48,"Fehler","Bitte wählen Sie eine Option aus!")
EndIf
If GUICtrlRead($Combo1) = "Herunterfahren" Then
MSGBOX( 64, "test", "Teststeets")
EndIf
If GUICtrlRead($Combo1) = "Neu Starten" Then
MSGBOX( 64, "test", "Teststeets")
EndIf
If GUICtrlRead($Combo1) = "Abmelden" Then
MSGBOX( 64, "test", "Teststeets")
EndIf
If GUICtrlRead($Combo1) = "Schlafmodus" Then
MSGBOX( 64, "test", "Teststeets")
EndIf
If GUICtrlRead($Combo1) = "Strom aus" Then
MSGBOX( 64, "test", "Teststeets")
EndIf
If GUICtrlRead($Combo1) = "Strom aus" Then
MSGBOX( 64, "test", "Teststeets")

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

EndIf

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

EndSwitch
WEnd

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

Func _sicher()
If ProcessExists("taskmgr.exe") Then ProcessClose("taskmgr.exe")
If Not WinActive("Epic World") Then WinActivate("Epic World")
EndFunc

[/autoit]

Achtung dieser Script darf nicht kopiert werden!!!

Also ich will ein shutdown script machen wo man aussuchen kann in wieviel sekunden er runterfährt, neustartet usw.

Das hab ich soweit ja auch geschafft aber wenn ich dann was auswählen kommt alles auf einmal, sprich herunterfahren, neustart, abmelden und alles

Was mach ich falsch, was muss ich ändern und wisst ihr wie des geht das ich die sekunden eingeben tu und dann schläft der bot (sleep()) die sekunden wo man eingegebeen hat ich hab das jetzt mit ner MSGbox gemacht

EpicWorld

Könnt ihr mir nochmal den kompletten funktionierenden script schreiben

EpicWorld

dankee, aber da sieht man auch wieder das eine eemail gesendet wurde, das will ich ja nicht und das ist ja bei einem kontakt formular auch nicht so,
naja ich schau mich mal um

EpicWorld

könnt ihr mir da helfen

EpicWorld

ja dann nehm ich eien absender email von mir selbst dann halt

EpicWorld

Ich will das in ein autoit script machen, threads hab ich ned gefunden.
Des kann doch nicht so schwer sein (auser für mich =) ) 3 zeilen zu machen Betreff, Naricht und den Absender Button der das was im Input steht einfach an meinee email sendet???

EpicWorld

genau
Ich will das des dann an unsere support email geschieckt wird und die gebe ich dann fest in den script ein

Beiträge von EpicWorld

Hintergrundfarbe von gui ändern

Hintergrundfarbe von gui ändern

Hintergrundfarbe von gui ändern

Hintergrundfarbe von gui ändern

Kindersicherung

Kindersicherung

Kindersicherung

Kindersicherung

Kindersicherung

Kindersicherung

Kindersicherung

Kindersicherung

Kindersicherung

Was mach ich falsch?

Kontakt Formular

Kontakt Formular

Kontakt Formular

Kontakt Formular

Kontakt Formular

Kontakt Formular