[RELEASE]Fusionsky2 - SpammBot

#RequireAdmin

Global $Fusionsky2 = ProcessExists("fusionsky2"&".exe")

If $Fusionsky2 = False Then
MsgBox(16,"","TwelveSky2 isn't started!")
Exit
EndIf


MsgBox(32,"","Spamming is bannable. Use on own risk.")
MsgBox(32,"","How to use?"&@CRLF&@CRLF&"1.) Never keep holding the NUM1 or NUM2 pressed!"&@CRLF&"2.) Fusionsky2 have to be always on the foreground.")

HotKeySet("{NUMPAD1}","TEXT1")
HotKeySet("{NUMPAD2}","TEXT2")

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Version = "V1.5"
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)

#Region ### START Koda GUI section ### Form=C:\Users\Burak\Desktop\Fusionsky2 - SpammBot\Koda.kxf
$Form1 = GUICreate("Fusionsky2 - SpammBot", 300, 278, 193, 126)
$MenuItem1 = GUICtrlCreateMenu("More Cheats")
$MenuItem3 = GUICtrlCreateMenuItem("", $MenuItem1)
GUICtrlSetState(-1, $GUI_DISABLE)
$YouTube = GUICtrlCreateMenuItem("YouTube", $MenuItem1)
GUICtrlSetState(-1, $GUI_CHECKED)
$MenuItem5 = GUICtrlCreateMenuItem("", $MenuItem1)
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem2 = GUICtrlCreateMenu("Credits")
$MenuItem6 = GUICtrlCreateMenuItem("", $MenuItem2)
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem9 = GUICtrlCreateMenuItem("By: [RWH] Running with hacks", $MenuItem2)
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem7 = GUICtrlCreateMenuItem("Version: 1.0", $MenuItem2)
GUICtrlSetState(-1, $GUI_DISABLE)
$MenuItem8 = GUICtrlCreateMenuItem("", $MenuItem2)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor(0xFFFFFF)
$Pic1 = GUICtrlCreatePic(@ScriptDir&"\Data\Logo\fusion.jpg ", 0, 0, 299, 116)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Website: Twelvesky2hacks.bplaced.net", 46, 96, 194, 17)
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
$Group1 = GUICtrlCreateGroup("Spamm Bot", 0, 112, 299, 145, BitOR($GUI_SS_DEFAULT_GROUP,$BS_CENTER))
$Input1 = GUICtrlCreateInput("", 8, 152, 281, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetLimit(-1, 60)
$Input2 = GUICtrlCreateInput("", 8, 208, 281, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetLimit(-1, 60)
$Label3 = GUICtrlCreateLabel("Press NUM1 to spamm TEXT1.", 8, 176, 152, 14)
$Label4 = GUICtrlCreateLabel("TEXT1:", 8, 136, 41, 14)
GUICtrlSetColor(-1, 0xFF0000)
$Label5 = GUICtrlCreateLabel("TEXT2:", 8, 192, 41, 14)
GUICtrlSetColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Press NUM2 to spamm TEXT2.", 8, 232, 152, 14)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

WinSetOnTop("","",1)

Global $TextDatei1 = FileExists(@ScriptDir&"\LastSpammText\lastspamm_te xt1.ini")
Global $TextDatei2 = FileExists(@ScriptDir&"\LastSpammText\lastspamm_te xt2.ini")

If $TextDatei1 = True Then
$LastSpammText1 = FileRead(@ScriptDir&"\LastSpammText\lastspamm_text 1.ini")
GUICtrlSetData($Input1,$LastSpammText1)
EndIf

If $TextDatei2 = True Then
$LastSpammText2 = FileRead(@ScriptDir&"\LastSpammText\lastspamm_text 2.ini")
GUICtrlSetData($Input2,$LastSpammText2)
EndIf


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Label1
;~ Website
ShellExecute("www.twelvesky2hacks.bplaced.net")

Case $YouTube
;~ YouTube - Cheat program
ShellExecute("https://www.youtube.com/watch?v=0LrxPRAlDdY")

Func TEXT1()

;~ Spamm Text 1
$Readtext1 = GUICtrlRead($Input1)
FileDelete(@ScriptDir&"\LastSpammText\lastspamm_te xt1.ini")
FileWrite(@ScriptDir&"\LastSpammText\lastspamm_tex t1.ini",$Readtext1)

Send("{ENTER}")
Send($Readtext1)
Sleep(2000)
Send("{ENTER}")
Send("{ENTER}")

EndFunc

Func TEXT2()

;~ Spamm Text 2
$Readtext2 = GUICtrlRead($Input2)
FileDelete(@ScriptDir&"\LastSpammText\lastspamm_te xt2.ini")
FileWrite(@ScriptDir&"\LastSpammText\lastspamm_tex t2.ini",$Readtext2)

Send("{ENTER}")
Send($Readtext2)
Sleep(2000)
Send("{ENTER}")
Send("{ENTER}")

EndFunc

EndSwitch
WEnd