Beiträge von Cartan12

Cartan12

So, ich mach auch nochmal ne Umfage...
Also, mir gehts darum:
Fast alle, die ich kenne und die programmieren sind hochbegabt. Nun würd ich mal gerne wissen, wie viele hier im Forum hochbegabt sind.
Ich mein natürlich nicht irgendwelche Internet IQ-Tests, sonder welche, die von Qualifizierten Leuten gemacht wurden.
Ihr müsst jetzt nicht euren genauen IQ sagen, nichtmal posten: "Ich bin hochbegabt!", sondern einfach nur "Ja" ankreuzen.

P.S.: Weiß nicht, steht da nur, weil ich mindestens 2 Antwortmöglichkeiten geben muss...

Cartan12

NRW
Ich fühl mich hier langsam systematisch ausgefragt

Cartan12

Von mir auch

Cartan12

Dafür gibts doch adlibregister...

Cartan12

Und so ist's nochmal besser als mit den MsgBoxen^^

Spoiler anzeigen

[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>
_createGUI()
Func _createGUI()
#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*1000
$modus = GuiCtrlRead($Combo1)
If $modus == "Bitte wählen" Then
MsgBox (48,"Fehler","Bitte wählen Sie eine Option aus!")
_createGUI()
Exit
EndIf
GuiDelete()
$timer = TimerInit()
Do
ToolTip("Verbleibende Zeit: " & $zeit-Round(TimerDiff($timer)/1000),0,0)
Until TimerDiff($timer)>$count
ToolTip("")
Switch $modus
Case "Herunterfahren"
MSGBOX( 64, "test", "Teststeets")
Exit
Case "Neu Starten"
MSGBOX( 64, "test", "Teststeets")
Exit
Case "Abmelden"
MSGBOX( 64, "test", "Teststeets")
Exit
Case "Schlafmodus"
MSGBOX( 64, "test", "Teststeets")
Exit
Case "Strom aus"
MSGBOX( 64, "test", "Teststeets")
Exit
Case "Strom aus"
MSGBOX( 64, "test", "Teststeets")
Exit
EndSwitch

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

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

[/autoit]

Edit: Sorry für den Doppelpost

Cartan12

Sorry, hab nicht richtig gelesen...
So klappts

Spoiler anzeigen

[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>
_createGUI()
Func _createGUI()
#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
$modus = GuiCtrlRead($Combo1)
If $modus == "Bitte wählen" Then
MsgBox (48,"Fehler","Bitte wählen Sie eine Option aus!")
_createGUI()
Exit
EndIf
GuiDelete()
Do
MsgBox(0, "Epic World", "Countdown bis zum Shutdown: " & $count, 1)
$count -= 1
Until $count = 0
Switch $modus
Case "Bitte wählen"
MsgBox (48,"Fehler","Bitte wählen Sie eine Option aus!")
Case "Herunterfahren"
MSGBOX( 64, "test", "Teststeets")
Case "Neu Starten"
MSGBOX( 64, "test", "Teststeets")
Case "Abmelden"
MSGBOX( 64, "test", "Teststeets")
Case "Schlafmodus"
MSGBOX( 64, "test", "Teststeets")
Case "Strom aus"
MSGBOX( 64, "test", "Teststeets")
Case "Strom aus"
MSGBOX( 64, "test", "Teststeets")
EndSwitch

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

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

[/autoit]

Cartan12

So ein kleines Sleep wirkt Wunder

Spoiler anzeigen

[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
GuiDelete()

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

Do
MsgBox(0, "Epic World", "Countdown bis zum Shutdown: " & $count, 1)
Sleep(1000) ;neu

[/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]

Cartan12

Warscheinlich so ein Programm, das den desktop, bzw. alle Aktionen in eine Videodatei aufnimmt...

Cartan12

Hat er doch erklärt: Anscheinend ließt der orginal Server die Daten falsch aus...

Cartan12

Das wichtigste scheint mir der Befehl Execute ...
SEuBo hat zwar einen, der wird aber
1. Nicht mehr geupdatet und
2. Wollte ich schon immer mal selber einen erstellen

Falls ich es schaffen sollte, helf ich dir auch

Cartan12

Ich versuchs mal, aber ich werde dir den natürlich nur per PN schicken, sonst gibts bald wieder nen deobfuscator

Cartan12

Sorry, hab nur den letzen Post gelesen, und da stand alles funzt...

Cartan12

Dann markier bitte den Thread als gelößt

Cartan12

Ist schon erledigt, hab das Problem mit ihm über Skype gelößt

Cartan12

Bei mir auch...
Ist ziemlich nervig, und aus irgendeinem Grund klappt STRG+z nicht mehr

Cartan12

Zitat von PokerFace

[autoit]
HotKeySet ("^A", _SciTEOpen())
[/autoit]

Zitat von PokerFace

[autoit]
Send ("^a")
[/autoit]

Ich glaub, das erklärt alles...
Machs besser so:

Spoiler anzeigen

[autoit]

;~ #NoTrayIcon
HotKeySet ("^A", _SciTEOpen())

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

While 1
Sleep (10)
WEnd

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

Func _SciTEOpen()
HotKeySet ("^A")
$Source = _GetScript()
Run(RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","InstallDir") & "\SciTE\SciTE.exe")
Send ("^a")
Send ("{DEL}")
Send ($Source, 1)
Send ("{F5}")
HotKeySet ("^A", _SciTEOpen())
EndFunc

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

Func _GetScript()
$Script = ClipGet()
If $Script = "" Then
MsgBox (0, "Error", "Kein Skript in der Zwischenablage!")
Exit
EndIf
Return $Script
EndFunc

[/autoit]

Cartan12

Gibt doch nen Reg-Key, der das Installationsverzeichnis von AutoIt enthält
Den kannste doch benutzen...

Cartan12

So?

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiButton.au3>

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

Opt('GUIOnEventMode', 1)
Opt("MustDeclareVars", 1) ; 0=nein, 1=erfordert Deklaration

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

Global $wGUI, $tf, $tab, $sys1, $sys2, $box, $info, $t

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

$wGUI = GUICreate("Test-GUI", 388, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, 'Beenden', $wGUI)

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

$tab = GUICtrlCreateTab(5, 2, 380, 485)
$sys1 = GUICtrlCreateTabItem("Tab 1")
GUICtrlCreateGroup("Allgemein", 10, 30, 368, 443)

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

$box = GUICtrlCreateCheckbox("Test1", 68, 55, 200, 24)

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

$sys2 = GUICtrlCreateTabItem("Tab 2")
GUICtrlCreateGroup("Allgemein", 10, 30, 368, 443)
GUICtrlCreateTabItem("") ; Beendet die Tab Definition
GUICtrlSetState($sys1, $GUI_SHOW) ; erstes Tab Anzeigen
GUISetState(@SW_SHOW, $wGUI)
While 1
If $tf = 1 Then ExitLoop
Boxckeck()
WEnd
GUIDelete($wGUI)
Exit ; Programmende

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

Func Beenden()
$tf = 1
EndFunc ;==>Raus_hier

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

Func BoxCkeck()
If BitAND(GUICtrlRead($box), $GUI_CHECKED) = 1 And $t = 0 Then
GUISwitch($wGUI, $sys2)
$info = GUICtrlCreateButton("Info", 17, 58, 47, 15)
GUICtrlSetOnEvent(-1, "Info")
$t = 1
Else
If BitAND(GUICtrlRead($box), $GUI_CHECKED) = 0 And $t = 1 Then
_GUICtrlButton_Destroy($info)
$t = 0
EndIf
EndIf
EndFunc

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

Func info()
GUICtrlSetState($box, $GUI_FOCUS)
MsgBox(0, "Info-Box", "Box 1")
EndFunc

[/autoit]

Cartan12

Echt genial
Sowas kann ich echt gut gebrauchen!
Ich versuch das mal in SciTE eizubinden...

Cartan12

Interessant...
Dann ist ja ATan(1)*4 = ACos(-1) (wow, ich 2 Sachen gleichsetzten ^^)

Beiträge von Cartan12

Hochbegabt

Aus welchem Bundesland kommt ihr ?

Happy Birthday DjBlume

While

Was mach ich falsch?

Was mach ich falsch?

Was mach ich falsch?

Projektideen

Server Manager für Star Wars Battlefront 2

AutoIt Obfuscator

AutoIt Obfuscator

Login Box Probleme

Login Box Probleme

Login Box 3 versuche

HotKeySet löst ohne Tastendruck eine Funktin aus.

HotKeySet löst ohne Tastendruck eine Funktin aus.

Makro um AutoIt SciTE zu starten?

Kleine Hilfe für Tabs

CallTips automatisch in SciTE eintragen

winkel von der maus zur negativen x Achse berechnen