Benutz doch while, hast eine viel bessere übersicht finde ich.
Beiträge von blubbstar
-
-
-
-
xD kommt vor
So hab dirs mal umgeschrieben weil mir langweilig war^^. Viel Spaß.
Spoiler anzeigen
[autoit]
[/autoit]
$file = FileOpen(@DesktopDir & "\test.txt", 1)
filewrite($file, @CRLF & @CRLF & "Schreibt das Hier In die Macro.dat in eurer Config.pk" & @CRLF & @CRLF & @CRLF & @CRLF)
filewrite($file, "(store (key " & GUICtrlRead($Input5) & ") ( index " & Guictrlread($Input2) & "))" & @CRLF)
filewrite($file, "_______________________________________________________________________" & @CRLF)
filewrite($file, "Schreibt Das Hier In eure InitNPC In eurer Server Config" & @CRLF & @CRLF & @CRLF & @CRLF)
filewrite($file, "(gennpc (index " & GUICtrlRead($Input6) & " ) (country 2) (kind 0) (shape 3) (html " & GUICtrlRead($Input6) & ") (map 0)" & @CRLF & "(xy " & GUICtrlRead($Input3) & ") (dir " & GUICtrlRead($Input4) & "))" & @CRLF)
filewrite($file, "_______________________________________________________________________" & @CRLF)
filewrite($file, "Schreibt das Hier in die Message-e.dat in euren config.pk" & @CRLF & @CRLF & @CRLF & @CRLF)
filewrite($file, "(npcname " & GUICtrlRead($Input6) & ' ' & '"' & GUICtrlRead($Input1) & '"' & ')' & @CRLF)
filewrite($file, "_______________________________________________________________________" & @CRLF & @CRLF)
filewrite($file, "Schreibt das Hier in Eine Neue Txt datei Nennt Diese s00" & GUICtrlRead($Input6) & " Und Convertiert sie anschliesend zu .dat" & @CRLF & @CRLF & @CRLF & @CRLF)
filewrite($file, "(filechk file_ver (country_type ENG) (filename s00" & GUICtrlRead($Input6) & "))" & @CRLF)
filewrite($file, "(background" & @CRLF & "(font 12)" & @CRLF & "(wrap270)" & @CRLF)
filewrite($file,'(link system ( param ( width 270) ( height 255) ( style title edge system vscroll) ( caption "Caption") ( layout script) ))' & @CRLF & @CRLF)
filewrite($file, "( frame ( font 12)" & @CRLF)
filewrite($file, '( line "Willkommen In Diesem Laden")' & @CRLF)
filewrite($file, '( link ( text "[Enter Store] Ja Ich Will Einkaufen") ( param load "store"' & GUICtrlRead($Input4) & '"))' & @CRLF)
filewrite($file, '( link close ( text "[End Talking] Cu "))' & @CRLF)
filewrite($file, ")" & @CRLF)
FileClose($file) -
Na klar ist filewrite kompatibel damit. Lies dir mal die Hilfe dazu durch:
http://www.autoit.de/dokumentation/functions/FileWrite.htm
Viel spaß
-
-
Teste es aus, ich kanns mir aber nicht vorstellen
-
Es gibt auch Exe binder, wo du 2 Exen in eine Packen kannst. Weiss nur nicht ob der Spaß legal ist, darum poste ich mal keinen Link
-
Ich komme dort immer auf 2/32 bei virustotal. Gibts denn da ne möglichkeit das auf 0/32 zu bringen? Denn meistens werden Dateien immer gescannt, wäre halt schon toll wenn man da mal 0/32 hätte
-
Möglich ist es alle mal, nur niemand weiss wie man einen gewissen JKA Server ansprechen kann. Benutz mal nen Sniffer und schau mal was hlsw da so alles sendet und bau das nach
-
Wäre schon möglich aber da ist x-protect etc besser geeignet.
-
Bitteschön... und weitere keys kannste dir mit dem geposteten programm createn lassen, starte es für 5 sekunden und beende es dann, dann schauste aufn dekstop und siehst eine a.txt. Da schauste rein, und den rest wirst du ja wohl noch selbst hinbekommen
p.s. für einen key braucht man nur einen input xDSpoiler anzeigen
[autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test ", 329, 204, 378, 200)
$Label1 = GUICtrlCreateLabel("Willkommen ", 104, 8, 124, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Bitte gib deinen Name / Key ein !!!!", 48, 40, 241, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Key :", 56, 80, 38, 24)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("OK", 56, 176, 49, 25, 0)
$Button2 = GUICtrlCreateButton("Beenden", 112, 176, 49, 25, 0)
$key = GUICtrlCreateInput("", 56, 130, 233, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_keycheck()
EndSwitch
WEndfunc _keycheck()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If GuiCtrlRead($key) = 'LBTV-NLEG-EJWO-PVQX-DEEY' Then
_activate()
ElseIf GuiCtrlRead($key) = 'XDNG-CGST-DETB-TAGE-HFYZ' Then
_activate()
ElseIf GuiCtrlRead($key) = 'IIHO-WGWI-QNYT-TLLN-OSZK' Then
_activate()
ElseIf GuiCtrlRead($key) = 'DDTD-FOGO-YLTH-DGDF-LKYO' Then
_activate()
ElseIf GuiCtrlRead($key) = 'SUTZ-RTEU-VCAD-NMJR-JVWS' Then
_activate()
Else
_notactivate()
EndIf
EndFuncFunc _notactivate()
[/autoit]
MsgBox(4096, "", "Key ungültig")
exit
EndFunc
Func _activate()
MsgBox(4096, "", "Key gültig, viel Spaß mit dem Programm :D")
; programmcode
EndFunc -
Eins Script aus der ersten Woche als ich mit Autoit begonnen hab xD Nunja... vereinfachbar aber ist mir doch ganz gut gelungen Tut was es tuen soll.
Spoiler anzeigen
[autoit]global $1, $2, $3, $4, $5, $m, $f, $s1, $s2
[/autoit] [autoit][/autoit] [autoit]$FILEPFAD = @DesktopDir & "\a.txt"
[/autoit] [autoit][/autoit] [autoit]while 1
[/autoit]
for $i = 1 to 4
$1 = Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1))
$2 = Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1))
$3 = Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1))
$4 = Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1))
$5 = Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1)) & Chr(Random(Asc("A"), Asc("Z"), 1))
$m = "-"
$f = "_activate()"
$s1 = "ElseIf GuiCtrlRead($key) = '"
$s2 = "' Then"
Next
filewrite($FILEPFAD, $s1 & $1 & $m & $2 & $m & $3 & $m & $4 & $m & $5 & $s2 & @CRLF & $f & @CRLF)
$1 = ""
$2 = ""
$3 = ""
$4 = ""
$5 = ""
wendHalt ganz oben dann noch nen if setzen mit einer Serial dann das erstellte aus der txt reinhauen und unten nen else mit _notactivate() noch dazusetzen + endif, dann ist das subba
Für simple Keyabfragen ist es bestimmt ganz lustig, aber ich bin da eher dafür, dass man sowas nicht einbaut. Man sollte die Scripts einfach immer für alle bereit stellen
-
Aber selbst so könntest du es nicht machen Fals der wahre Nutzer das Produkt gekauft hat und formatieren musste, kann er es nicht mehr registrieren
-
Ich hab das mal gemacht xD mit 10000keys im Programm aber integriert. Ist voll schwachsinn wenn dann musst du das professionell mit inet machen, das wenn ein key benutzt wurde, der dann vom server gelöscht wird.
-
Hm nein bei mir nicht.
-
Ja wie bereits progandy schon sagt.
Es wäre z.b. so möglich:
Spoiler anzeigen
[autoit]$Button1 = GUICtrlCreateButton("Start", 50, 82, 89, 25, 0)
[/autoit] [autoit][/autoit] [autoit]while 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$SKYPEPath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Skype\Phone", "SkypePath")
EndSwitch
WEnd -
Ist sicher auch ne Möglichkeit ;). Aber soweit ich weiss kannst du dann z.b. keinen Hotkey auf "a" o.ä. setzten.
Zu der Frage ob man das Script ohne anderes Programm starte kann. Z.z. ist mir da keine Lösung bekannt, aber ich denke das wäre auch zu aufwendig.
Gib deinem Programm einfach ein #notrayicon (nicht mehr unten rechts sichtbar) und setz es in den Autostart (Festplatte:\Dokumente und Einstellungen\Computername\Startmenü\Programme\Autostart). Dann hast du einen Prozess mehr, ich denke den kannst du verkraften ;).Edit: Das mit der Auslastung ist wirklich etwas, nunja. Ich komme auch auf 50% Auslastung ohne sleeps. Aber ich habe deutlich größere Programme mit einer Whileschleife, wo mehr IsPressed vorkommen als bei dir. Da komme ich auch 0% Auslastung. Ist etwas seltsam.
Edit2: Evtl hast du ja den sleep nach Then reingehauen ;). So läufts bei mir mit Auslastung 0%:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>
$dll = DllOpen("user32.dll")
$scriptrun = "yes"
sleep(1000)while 1
[/autoit] [autoit][/autoit] [autoit]
sleep(100)
if _IsPressed("70", $dll) AND $scriptrun = "yes" Then
$scriptrun = "no"
run("nekrodamreg.exe", "", @SW_SHOW)
EndIfif _IsPressed("71", $dll) Then
[/autoit] [autoit][/autoit] [autoit]
$scriptrun = "yes"
$Zeit = TimerInit()
$a = 0
while $a < 1000
$a = TimerDiff($Zeit)
ProcessClose("nekrodamreg.exe")
$PID = ProcessExists("nekrodamreg.exe")
If $PID Then ProcessClose($PID)
WEndEndIf
[/autoit] [autoit][/autoit] [autoit]WEnd
[/autoit] -
z.b. mit processclose oder winkill kannst du programme terminaten
Spoiler anzeigen
[autoit]#include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]
$dll = DllOpen("user32.dll")
$scriptrun = "yep"While 1
[/autoit]
sleep(100)
If _IsPressed("1B", $dll) and $scriptrun = "yep" Then
$scriptrun = "no"
run("script", "", @SW_SHOW)
EndIf
If _IsPressed("20", $dll) Then
ProcessClose("programmname.exe")
EndIf
wendIsPressed drückt die taste ja 11325235 tausend mal wie du ja vermutlich schon gemerkt hast beim starten eines scripts ;). So kannst du es z.b. simpel umgehen, das ers nur 1x startet, ohne einen sleep von 2000 zu verwenden.
p.s. mit exitloop geht man aus der schleife
-
Spoiler anzeigen
[autoit]HotKeySet("{F1}", "_run")
[/autoit] [autoit][/autoit] [autoit]Func _run()
[/autoit]
run("SCRIPTPFAD", "", @SW_SHOW)
EndFuncDamit kannste halt aus einem Script ein anderes starten.