[src] Fastwritter + metin2 torrent killer

Page 1 of 3 1 23
06/26/2010 01:11 bladerofdarknes#1
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...


[Only registered and activated users can see links. Click Here To Register...]

PHP Code:
#include <GUIConstantsEx.au3>
#include <sound.au3>

_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 :-)")


MsgBox("attention", "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("FasWriter 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, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Spammer")
$save1 = IniRead("writer.ini", "texte", "say1", "")
$Input1 = GUICtrlCreateInput($save1, 40, 56, 177, 21)
$save2 = IniRead("writer.ini", "texte", "say2", "")
$Input2 = GUICtrlCreateInput($save2, 40, 112, 177, 21)
$save3 = IniRead("writer.ini", "texte", "say3", "")
$Input3 = GUICtrlCreateInput($save3, 40, 168, 177, 21)
$save4 = IniRead("writer.ini", "texte", "say4", "")
$Input4 = GUICtrlCreateInput($save4, 40, 216, 177, 21)
$save5 = IniRead("writer.ini", "texte", "say5", "")
$Input5 = GUICtrlCreateInput($save5, 40, 264, 177, 21)
$savekey1 = IniRead("writer.ini", "keys", "key1", "")
$Input6 = GUICtrlCreateInput($savekey1, 272, 56, 73, 21)
$savekey2 = IniRead("writer.ini", "keys", "key2", "")
$Input7 = GUICtrlCreateInput($savekey2, 272, 112, 73, 21)
$savekey3 = IniRead("writer.ini", "keys", "key3", "")
$Input8 = GUICtrlCreateInput($savekey3, 272, 168, 73, 21)
$savekey4 = IniRead("writer.ini", "keys", "key4", "")
$Input9 = GUICtrlCreateInput($savekey4, 272, 216, 73, 21)
$savekey5 = IniRead("writer.ini", "keys", "key5", "")
$Input10 = GUICtrlCreateInput($savekey5, 272, 264, 73, 21)
$Button2 = GUICtrlCreateButton("Read 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, $GUI_SHOW)
$panicread1 = IniRead("writer.ini", "other stuff", "panic", "")
$Input17 = GUICtrlCreateInput($panicread1, 48, 72, 177, 21)
$Label2 = GUICtrlCreateLabel("type in your panickey", 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, $GUI_SHOW)
$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, $GUI_SHOW)
$Group1 = GUICtrlCreateGroup("others", 24, 64, 225, 289)
$Button9 = GUICtrlCreateButton("creat 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)


$key1 = IniRead("writer.ini", "keys", "key1", "")
HotKeySet($key1, "hotkey1")

Func hotkey1()
    $text1 = IniRead("writer.ini", "texte", "say1", "")
    Send($text1)
EndFunc   ;==>hotkey1


$key2 = IniRead("writer.ini", "keys", "key2", "")
HotKeySet($key2, "hotkey2")

Func hotkey2()
    $text2 = IniRead("writer.ini", "texte", "say2", "")
    Send($text2)
EndFunc   ;==>hotkey2

$key3 = IniRead("writer.ini", "keys", "key3", "")
HotKeySet($key3, "hotkey3")

Func hotkey3()
    $text3 = IniRead("writer.ini", "texte", "say3", "")
    Send($text3)
EndFunc   ;==>hotkey3

$key4 = IniRead("writer.ini", "keys", "key4", "")
HotKeySet($key4, "hotkey4")

Func hotkey4()
    $text4 = IniRead("writer.ini", "texte", "say4", "")
    Send($text4)
EndFunc   ;==>hotkey4

$key5 = IniRead("writer.ini", "keys", "key5", "")
HotKeySet($key5, "hotkey5")

Func hotkey5()
    $text5 = IniRead("writer.ini", "texte", "say5", "")
    Send($text5)
EndFunc   ;==>hotkey5

$panic2 = IniRead("writer.ini", "other stuff", "panic", "")
HotKeySet($panic2, "_panic")
Func _panic()
    Exit
EndFunc   ;==>_panic

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $Button4
            $panic1 = GUICtrlRead($Input17)
            IniWrite("writer.ini", "other stuff", "panic", $panic1)

        Case $Button5
            FileDelete("readme.txt")

        Case $Button6
            ShellExecute("www.elitepvpers.com")

        Case $Button2
            $read1 = GUICtrlRead($Input1)
            IniWrite("writer.ini", "texte", "say1", $read1)
            $read2 = GUICtrlRead($Input2)
            IniWrite("writer.ini", "texte", "say2", $read2)
            $read3 = GUICtrlRead($Input3)
            IniWrite("writer.ini", "texte", "say3", $read3)
            $read4 = GUICtrlRead($Input4)
            IniWrite("writer.ini", "texte", "say4", $read4)
            $read5 = GUICtrlRead($Input5)
            IniWrite("writer.ini", "texte", "say5", $read5)

            $read6 = GUICtrlRead($Input6)
            IniWrite("writer.ini", "keys", "key1", $read6)
            $read7 = GUICtrlRead($Input7)
            IniWrite("writer.ini", "keys", "key2", $read7)
            $read8 = GUICtrlRead($Input8)
            IniWrite("writer.ini", "keys", "key3", $read8)
            $read9 = GUICtrlRead($Input9)
            IniWrite("writer.ini", "keys", "key4", $read9)
            $read10 = GUICtrlRead($Input10)
            IniWrite("writer.ini", "keys", "key5", $read10)

        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
                Local $Dll = DllOpen("writer.dll")
                $process1 = IniRead("writer.ini", "window1", "name1", "")
                WinGetProcess($process1)
                $open1 = DllOpen("writer.dll")
                $advance1 = DllCall($Dll, "HWnd", "GetHandle", "Str", $process1)
                $hiddertext1 = IniRead("writer.ini", "hidespamm", "text1", "")
                DllCall($open1, "none", "SendKeyHwnd", "Hwnd", $advance1, "str", $hiddertext1)
            EndIf

        Case $Button9
            _FileCreate("Metin2 torrent bypass.bat")
            Sleep(100)
            $File = FileOpen(@ScriptDir & "Metin2 torrent bypass.bat", 1)
            FileWrite("Metin2 torrent bypass.bat", "start metin2client.bin")
            Sleep(100)
            FileClose($File)

        Case $Button6
            ShellExecute("http://www.elitepvpers.com/forum/autoit/624415-src-fastwritter-metin2-torrent-killer.html#post5760474")

        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd 
[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]

[Only registered and activated users can see links. Click Here To Register...]


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 ;)
06/26/2010 01:13 x-X-Muffin-X-x#2
Einer Erklärung für blöde wäre gut :P
06/26/2010 01:20 bladerofdarknes#3
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
06/26/2010 14:04 PenGuin :O#4
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
06/26/2010 14:32 bladerofdarknes#5
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 :p

mit den unnötigen reads kannst du dich gerne herumschlagen :D
06/26/2010 14:42 PenGuin :O#6
Ä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.
06/26/2010 14:49 bladerofdarknes#7
also bei mir gibts garkeine errors ;)
habs extra auf meinem laptop (win7 64bit) getestet, gabs auch keine errrors.
06/26/2010 14:56 PenGuin :O#8
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
06/26/2010 15:19 bladerofdarknes#9
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..
06/26/2010 15:21 PenGuin :O#10
Ä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.
06/26/2010 15:26 bladerofdarknes#11
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 :D :

Quote:
eX 3Messages QTypInfo CVariants $VarUtils IDlgs 1TpcShrd ÁImm —RichEdit †ToolWin +Graphics ÇConsts 8Registry ÝIniFiles ¢IOUtils =Masks _DateUtils Wincodec ³Forms CUxTheme SyncObjs ?TimeSpan CommCtrl 5Themes &Controls ‰Dwmapi EActnList vMenus ÍImgList ‡Contnrs ¥MultiMon ßStdActns nComCtrls 3CommDlg (ShlObj ‚StructuredQueryCondition  PropSys ObjectArray ïUrlMon ?WinInet »RegStr *ShellAPI ¥ComStrs °Printers WWinSpool GraphUtil ÇZLib ßListActns dStdCtrls ‘ExtCtrls *Dialogs RHelpIntfs ¸Clipbrd FlatSB   @   4    @   4    @   4    @   4    @   4    @   4    @   4     ¨  <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
type="win32"
name="CodeGear RAD Studio"
version="14.0.3615.26342"
processorArchitecture="*"/>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
publicKeyToken="6595b64144ccf1df"
language="*"
processorArchitecture="*"/>
</dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
<security>
<requestedPrivileges>
<requestedExecutionLevel
level="asInvoker"
uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>
der rest der davor kommt tut wohl nichts zur sache ;)
06/26/2010 15:32 PenGuin :O#12
Naja ist mir auch egal, sollte nur gut gemeinte Kritik sein...
Naja für meinen Teil weiß ich eig. nun, dass du nie ernsthaft programmieren willst...

Quote:
die dll wurde nur erstellt um zu zeigen wie das später aussehn wird.
d.h. die vorab Version im Startpost geht auch noch nicht? Weil da wird die Datei ja auch mit _FileCreate erstellt...
06/26/2010 15:46 bladerofdarknes#13
sagte ich doch!
aha das siehst du nun an meiner art wie der source aussieht? :D
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!
06/26/2010 15:55 PenGuin :O#14
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 :D
06/26/2010 16:01 bladerofdarknes#15
:P

ja der source sieht speziell aus, aber ey, ich bin speziell! :D
Page 1 of 3 1 23