Update: source aufgeräumt und neue version hochgeladen
so leute ich habe mich heute einwenig mit spammbots und co beschäftigt, ich werde hier jetzt meinen bot releasen + den source, die hidden funktion hab ich mal ausenvorgelassen weil sie nicht richtig funktioniert im moment (leider)
trotzdem viel spaß, scriptkiddys bedient euch...
_FileCreate("readme.txt")
FileOpen(@ScriptDir & "readme.txt", 1)
FileWrite("readme.txt", "please save all keys or texts as ""{key}"" or ""text""" & @CRLF & "fastwriter was coded by bladerofdarknes" & @CRLF & "please visit elitepvpers for latest updates or something else" & @CRLF & "if you have any ideas or bugs please report me on elitepvpers!" & @CRLF & "and now enjoy the fastwriter" & @CRLF & "useing at own risk, but should be save :-)")
Case $Button3
If MsgBox(0x34, "Achtung", "Achtung! wenn sie die writer.ini löschen gehen all ihre einstellungen verloren! wirklich löschen?") = 6 Then FileDelete("writer.ini")
Case $Button7
If MsgBox(0x34, "Achtung", "Achtung! wenn sie die writer.dll löschen gehen all ihre hide spammer einstellungen verloren! wirklich löschen?") = 6 Then FileDelete("writer.dll")
Case $Button1
$window1 = GUICtrlRead($Input11)
IniWrite("writer.ini", "window1", "name1", $window1)
Case $Button6
ShellExecute("http://www.elitepvpers.com/forum/autoit/624415-src-fastwritter-metin2-torrent-killer.html#post5760474")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
die includes sind zu viele ich weiß, und das script ist auch leicht doppeltgemoppelt an manchen stellen, war aber auch ein alter source mit dem ich mich heute neu beschäftigt habe, dennoch viel spaß.
ps: ein hinweis wie das mit dem hiddenschreiben funktioniert ist ansatzweise drinn, außerdem gibts hier auch im forum ein kleines tut dazu wie man einzelne tasten (!!) hidden senden kann, mit ein wenig c++ kentnissen kann man sich das ganze passend in einer library zurechtlegen
sorry für rechtschreibfehler, man beachste die uhrzeit
ohje :S
das bring ich morgen hintermich ^^
ich denke das ganze ist für könner unterste niveau, weil fast alles mit datenverwaltung zu tuen hat iniread/iniwrite/_filecreate
die scriptkiddys können sich gerne bedienen
aber eine erklärung mach ich morgen noch dazu
Dein Code ist schrecklich o_O
Ich räum den mal auf und befrei den von Errors.
Omg, ich brech zusammen o_O
Du erstellst mit _FileCreate eine dll? o_O
und machst dann noch ein DLLCall daraus? Respekt, AutoIt kann doch dlls erstellen.
Noch was: FileOpen benutzt und kein FileClose. Bitte überarbeite doch immer nochmal deinen Source bevor du den hochlädst, da sind so viele Fehler drin und Unsaubere Programmierungen o_O
Vorläufiger Stand: 2 Includes sind noch übrig geblieben, der Rest war dermaßen sinnfrei :O
pinguin was sagte ich schon zu dir ich füg immer soviele includes ein O.o
ich weiß das ein fileclose fehlt, ist aber kein zusammenbruch, er soll nur als beispiel dienen, außerdem sagte ich das ich den code vor langer zeit erstellt hatte und ihn nur ein bisschen bearbeitet hatte und ich glaube die unsaubere programmierung stört keinen solange das funktioniert
sollen sich doch die leecher damit rumärgern, der code war eigentlich eh nicht für die veröffentlichung bestimmt
und ja ich weiß ich brauche nur
#include <GUIConstantsEx.au3> = Gui
#include <ie.au3> = internet seite öffnen
#Include <File.au3> = .bat datei erstellen
#include <sound.au3> = anfangssound abspielen
aber wenn dir daran so viel liegt änder ich das natürlich direkt
mit den unnötigen reads kannst du dich gerne herumschlagen
Ähm, an dem Code geht gar nichts, nur so zur info, der hat direkt Errors gegeben, den konnte man noch nichtmal starten. Ich hab den Code im Anfangspost kopiert.
dll kann man nicht mit _FileCreate erstellen.
FileWrite reicht zum erstellen, dann sparst du dir Fileopen und _FileCreate.
_IeCreate brauchst du auch nicht, ShellExecute tuts auch.
Die Includes die du brauchst sind.
#include <Sound.au3>
#include <GUIConstantsEx.au3>
Ich erzähle dir später noch was zur sauberen Programmierung erstmal beende ich den Source.
Ich hatte 6 Stück, die Nachvollziehbar waren.
Functions in einer Schleife z.B. ...
Code:
#include <Sound.au3>
Dim $aInput[11]
$aInput[0] = 10
Dim $aKey[10]
If Not FileExists(@ScriptDir & "\readme.txt") Then
FileWrite("readme.txt", "please save all keys or texts as ""{key}"" or ""text""" & @CRLF & "fastwriter was coded by bladerofdarknes" & @CRLF & _
"please visit elitepvpers for latest updates or something else" & @CRLF & "if you have any ideas or bugs please report me on elitepvpers!" & @CRLF & _
"and now enjoy the fastwriter" & @CRLF & "useing at own risk, but should be save :-)")
EndIf
;~ MsgBox(0, "Info", "der hidden spammer funktioniert im moment leider nicht da ich ein paar probleme mit dem umschreiben in hex habe, wird aber bald gefixxt!")
$sound1 = _SoundOpen(@ScriptDir & "\materials\intro.wma")
_SoundPlay($sound1)
$Form1 = GUICreate("FastWriter v1.1 by bladerofdarknes", 548, 455, 193, 124)
$Pic1 = GUICtrlCreatePic("materials\logo_elitepvpers.jpg", 8, 376, 529, 65)
$Tab1 = GUICtrlCreateTab(16, 0, 513, 377)
GUICtrlSetResizing(-1,0x0100 + 0x0200)
$TabSheet1 = GUICtrlCreateTabItem("Spammer")
$save1 = IniRead("writer.ini", "texte", "say1", "")
$aInput[1] = GUICtrlCreateInput($save1, 40, 56, 177, 21)
$save2 = IniRead("writer.ini", "texte", "say2", "")
$aInput[2] = GUICtrlCreateInput($save2, 40, 112, 177, 21)
$save3 = IniRead("writer.ini", "texte", "say3", "")
$aInput[3] = GUICtrlCreateInput($save3, 40, 168, 177, 21)
$save4 = IniRead("writer.ini", "texte", "say4", "")
$aInput[4] = GUICtrlCreateInput($save4, 40, 216, 177, 21)
$save5 = IniRead("writer.ini", "texte", "say5", "")
$aInput[5] = GUICtrlCreateInput($save5, 40, 264, 177, 21)
$savekey1 = IniRead("writer.ini", "keys", "key1", "")
$aInput[6] = GUICtrlCreateInput($savekey1, 272, 56, 73, 21)
$savekey2 = IniRead("writer.ini", "keys", "key2", "")
$aInput[7] = GUICtrlCreateInput($savekey2, 272, 112, 73, 21)
$savekey3 = IniRead("writer.ini", "keys", "key3", "")
$aInput[8] = GUICtrlCreateInput($savekey3, 272, 168, 73, 21)
$savekey4 = IniRead("writer.ini", "keys", "key4", "")
$aInput[9] = GUICtrlCreateInput($savekey4, 272, 216, 73, 21)
$savekey5 = IniRead("writer.ini", "keys", "key5", "")
$aInput[10] = GUICtrlCreateInput($savekey5, 272, 264, 73, 21)
$Button2 = GUICtrlCreateButton("Create Settings", 72, 312, 177, 49)
$Label9 = GUICtrlCreateLabel("For how to use read the readme!", 296, 328, 157, 17)
$Label10 = GUICtrlCreateLabel("Texts", 64, 32, 30, 17)
$Label11 = GUICtrlCreateLabel("HotKey", 280, 32, 39, 17)
$TabSheet2 = GUICtrlCreateTabItem("settings")
GUICtrlSetState(-1, 16)
$panicread1 = IniRead("writer.ini", "other stuff", "panic", "")
$Input17 = GUICtrlCreateInput($panicread1, 48, 72, 177, 21)
$Label2 = GUICtrlCreateLabel("type in your panic-key", 240, 72, 108, 17)
$Button3 = GUICtrlCreateButton("Erase writer.ini", 56, 128, 121, 41)
$Button4 = GUICtrlCreateButton("Save it!", 376, 64, 137, 57)
$Button5 = GUICtrlCreateButton("Erase readme.txt", 56, 184, 121, 41)
$Button6 = GUICtrlCreateButton("check for update", 56, 296, 121, 41)
$Button7 = GUICtrlCreateButton("erase writer.dll", 56, 240, 121, 41)
$Pic2 = GUICtrlCreatePic("materials\autoit.jpg", 240, 144, 265, 217)
$panicread1 = IniRead("writer.ini", "other stuff", "panic", "")
$TabSheet3 = GUICtrlCreateTabItem("Hide Spammer")
GUICtrlSetState(-1, 16)
$Label1 = GUICtrlCreateLabel("enter window name", 40, 40, 76, 17)
$prozessread1 = IniRead("writer.ini", "window1", "name1", "")
$Input11 = GUICtrlCreateInput($prozessread1, 144, 40, 145, 21)
$Label3 = GUICtrlCreateLabel("At the moment hide spamm just work for metin2 and some other games idkn, but i will fix it soon!", 48, 336, 451, 17)
$Input12 = GUICtrlCreateInput("hide spamm ", 40, 96, 185, 21)
$Input13 = GUICtrlCreateInput("hide spamm", 40, 152, 185, 21)
$Input14 = GUICtrlCreateInput("hide spamm", 40, 200, 185, 21)
$Input15 = GUICtrlCreateInput("time", 312, 96, 97, 21)
$Input16 = GUICtrlCreateInput("time", 312, 152, 97, 21)
$Input18 = GUICtrlCreateInput("time", 312, 200, 97, 21)
$Label4 = GUICtrlCreateLabel("Key to stop hide spamm:", 48, 248, 119, 17)
$Input19 = GUICtrlCreateInput("hide spamm stop key", 192, 248, 113, 21)
$Button1 = GUICtrlCreateButton("save settings", 64, 280, 129, 41)
$Button8 = GUICtrlCreateButton("start hide spamm", 296, 280, 129, 41)
$Label5 = GUICtrlCreateLabel("it also works on the most games with cheat protection because anticheat protection", 80, 352, 397, 17)
$Checkbox1 = GUICtrlCreateCheckbox("macro nutzen", 424, 96, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("macro nutzen", 424, 152, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("macro nutzen", 424, 200, 97, 17)
$TabSheet4 = GUICtrlCreateTabItem("Metin2 Stuff")
GUICtrlSetState(-1, 16)
$Group1 = GUICtrlCreateGroup("others", 24, 64, 225, 289)
$Button9 = GUICtrlCreateButton("create metin2 torren bypass", 56, 96, 153, 41)
$Label6 = GUICtrlCreateLabel("navigate it to your metin2 folder and start it", 32, 160, 209, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("AutoLogin", 280, 64, 233, 289)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button4
$panic1 = GUICtrlRead($Input17)
IniWrite("writer.ini", "other stuff", "panic", $panic1)
$panic2 = IniRead("writer.ini", "other stuff", "panic", "")
HotKeySet($panic2, "_panic")
Case $Button5
FileDelete("readme.txt")
Case $Button6
ShellExecute("www.elitepvpers.com")
Case $Button2
For $i = 1 To 5
IniWrite("writer.ini", "texte", "say" & $i, "")
IniWrite("writer.ini", "keys", "key" & $i, "")
Next
For $i = 1 To 5
$read = GUICtrlRead($aInput[$i])
IniWrite("writer.ini", "texte", "say" & $i, $read)
Next
$a = 1
For $i = 6 To 10
$read = GUICtrlRead($aInput[$i])
IniWrite("writer.ini", "keys", "key" & $a, $read)
$a += 1
Next
For $i = 1 To 5
$aKey[$i] = IniRead("writer.ini", "keys", "key" & $i, "")
Next
For $i = 1 To 5
HotKeySet($aKey[$i], "hotkey" & $i)
Next
Case $Button3
If MsgBox(0x34, "Achtung", "Achtung! wenn sie die writer.ini löschen gehen all ihre einstellungen verloren! wirklich löschen?") = 6 Then FileDelete("writer.ini")
Case $Button7
If MsgBox(0x34, "Achtung", "Achtung! wenn sie die writer.dll löschen gehen all ihre hide spammer einstellungen verloren! wirklich löschen?") = 6 Then FileDelete("writer.dll")
Case $Button1
$window1 = GUICtrlRead($Input11)
IniWrite("writer.ini", "window1", "name1", $window1)
$hidespamm1 = GUICtrlRead($Input12)
IniWrite("writer.ini", "hidespamm", "text1", $hidespamm1)
$hidespamm2 = GUICtrlRead($Input13)
IniWrite("writer.ini", "hidespamm", "text2", $hidespamm2)
$hidespamm3 = GUICtrlRead($Input14)
IniWrite("writer.ini", "hidespamm", "text3", $hidespamm3)
$writetimehidden1 = GUICtrlRead($Input15)
IniWrite("writer.ini", "writetimehidden", "time1", $writetimehidden1)
$writetimehidden2 = GUICtrlRead($Input16)
IniWrite("writer.ini", "writetimehidden", "time2", $writetimehidden2)
$writetimehidden3 = GUICtrlRead($Input18)
IniWrite("writer.ini", "writetimehidden", "time3", $writetimehidden3)
$hidestop1 = GUICtrlRead($Input19)
IniWrite("writer.ini", "spammhidestop", "key1", $hidestop1)
$process1 = IniRead("writer.ini", "window1", "name1", "")
WinGetProcess($process1)
Case $Checkbox1
If GUICtrlRead($Checkbox1) = 1 Then
$process1 = IniRead("writer.ini", "window1", "name1", "")
WinGetProcess($process1)
$advance1 = WinGetHandle($process1)
$hiddertext1 = IniRead("writer.ini", "hidespamm", "text1", "")
ControlSend($advance1, "", "", $hiddertext1)
EndIf
Case $Button9
If Not FileExists(@ScriptDir & "\Metin2 torrent bypass.bat") Then
FileWrite("Metin2 torrent bypass.bat", "start metin2client.bin")
EndIf
Case $Button6
ShellExecute("http://www.elitepvpers.com/forum/autoit/624415-src-fastwritter-metin2-torrent-killer.html#post5760474")
Case -3
Exit
EndSwitch
WEnd
Func hotkey1()
$text1 = IniRead("writer.ini", "texte", "say1", "")
Send($text1)
EndFunc ;==>hotkey1
Func hotkey2()
$text2 = IniRead("writer.ini", "texte", "say2", "")
Send($text2)
EndFunc ;==>hotkey2
Func hotkey3()
$text3 = IniRead("writer.ini", "texte", "say3", "")
Send($text3)
EndFunc ;==>hotkey3
Func hotkey4()
$text4 = IniRead("writer.ini", "texte", "say4", "")
Send($text4)
EndFunc ;==>hotkey4
Func hotkey5()
$text5 = IniRead("writer.ini", "texte", "say5", "")
Send($text5)
EndFunc ;==>hotkey5
Func _panic()
_SoundClose($sound1)
Exit
EndFunc ;==>_panic
Inwiefern der jetzt funktioniert weiß ich nicht, auf jedenfall mehr als dein alter, denn die hidden Function kann gar nicht gehen, da du keine DLL hattest um das alles auszuführen...
Das was ich hier gemacht habe ist exakt das was dein Script auch gemacht hätte, wären keine Errors. Es ist nun schneller und sauberer Programmiert. Ich hätte noch ein paar Dinge einbauen können, wie z.B., wenn man im Hotkey Input ist, dass man nur die Taste drücken muss, die man benutzen will. Aber dazu hab ich keine Lust.
In Zukunft achte auf deine Sauberkeit, es bringt keinem was,wenn du dreckige Scripte hast.
Erst sollten includes kommen, dann Global Declarations u.a. auch Opts und HotKey Sets. Dann kommt deine GUI, dann die Hautpschleife und ganz unten kommen die Funcions, NICHT mittendrin.
Zu mehr hab ich keine Lust bei dem Script. Das ist ja ne Zumutung o_O
die dll habe ich auch über c++ erstellen lassen von einem bekannten.
und ich glaube es ist wohl bekannt welcher befehl in der .dll gesetzt sein muss damit autoit sie bearbeiten kann oder?
die dll wurde nur erstellt um zu zeigen wie es später einmal aussieht.
ja du übst irgendwie nur kritik aber tust selber nicht releasen und ich sehe es nicht ein das ich mir dauernd von dir eine dumme bemerkung anhängen lassen muss, mag sein das deins in deinen augen "besser aussieht", meins sah in meinen gut aus, und funktionierte einwandfrei, warum du aber mit Func _panic()
_SoundClose($sound1)
Exit
EndFunc
den sound beendest muss ich nicht verstehen oder?
der diente eigentlich zum quick exit..
Ähm _SoundClose muss beim Programmende aufgerufen werden.
Ich geb Kritik ab, weil deine Sourcecodes einfach nur grottig aussehen.
Wenn du die dll von einem Bekannten erstellt lassen hast, verstehe ich nicht, warum du sie mit einem _FileCreate erstellst.
Ich persönlich hab gegen dich nichts, aber deine Art zu Programmieren ist nicht wirklich die Beste und wenn du das ernsthaft machen würdest, weil du meinst du kannst es, dann halt dich doch bitte an grundlegende Dinge.
sagte ich das ich es einwandfrei kann?
ich hab vor 7 tagen wieder angefangen und ich vermute mal das die src's für mich verständlich sein müssen nicht für irgendwen anderst und in der funktion ändert sich auch nicht viel und die dll wurde nur erstellt um zu zeigen wie das später aussehn wird. wenn du meine dll mal lesen willst *lach* hier :
sagte ich doch!
aha das siehst du nun an meiner art wie der source aussieht?
ich mag deine kristallkugel =)
ob ich jemals ernsthaft programmieren kann/will steht sowieso in den sternen, mir macht das spaß und deshalb tue ich es, wenn du es machst weil du sonst nix zu tuen hast ist das gut und schön für dich und ich finde es auch nett das du ideen miteinbringst, aber der unterton gefällt mir nicht!
Klinge wohl ein wenig energisch :P
Ich mag es einfach nicht, wenn da so Programmierer ankommen und dann so einen unsauberen Source hinklatschen... Ist einfach nicht schön >.<
Ähm deinen Source, wie der in der Exe ausschaut? Ähm ja das war meine Kristallkugel
[TOOL] Metin2 Torrent Beender (T-Killer) V2 11/19/2010 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 99 Replies Hi,
Da ich nicht möchte, dass der Metin2 Torrent bei mir dauer Offen ist, hab ich mir ein Tool geschrieben, dass diesen Beenden!
Da ich probleme mit der Beenden Funktion hatte!
Das Programm killt den metin2torrent, so dass ihr nicht dauernd Connectet seit!
Hier der Link zum Tool:
T-Killer V2 @ Rapidshare
Hat wer torrent killer 03/30/2010 - Metin2 Hacks, Bots, Cheats, Exploits & Macros - 9 Replies Hallo leute hat einer ein neuen torrent killer das ich torrent patch ausmachen kann
metin2 torrent 02/22/2010 - Metin2 - 2 Replies is das normal das der so n metin2 torrent patch oda so macht?
![[src] Fastwritter + metin2 torrent killer](https://www.elitepvpers.com/forum/iconimages/autoit/src-fastwritter-metin2-torrent-killer_ltr.gif){kind=small}
