I don't know where you got the idea of it taking screenshots or an FTP server, but heres the source code...
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#NoTrayIcon
$Fol = "C:\Program Files\Steam"
$Foll = $Fol & "\Steam.exe"
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=k:\autoit\scripts\form1.kxf
$Form1_1 = GUICreate("|NAZE| STEAM CRACKER 2.0", 360, 321, 354, 244)
GUISetBkColor(0x000000)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")
$steampic = GUICtrlCreatePic("steam-logo.jpg", 48, 0, 276, 115, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$cracker20 = GUICtrlCreateLabel("CRACKER 2.0", 72, 104, 100, 22)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0x00FF00)
$Dir = GUICtrlCreateInput("C:\Program Files\Steam", 120, 144, 185, 21)
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetOnEvent(-1, "DirChange")
$Label2 = GUICtrlCreateLabel("Steam Dir:", 40, 144, 78, 22)
GUICtrlSetFont(-1, 10, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0x00FF00)
$Install = GUICtrlCreateButton("Install", 192, 224, 83, 41)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetOnEvent(-1, "InstallClick")
$Remove = GUICtrlCreateButton("Remove", 88, 224, 83, 41)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetOnEvent(-1, "RemoveClick")
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
Dim $StatusBar1_PartsWidth[2] = [110, -1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "Made By Nazer1290", 0)
_GUICtrlStatusBar_SetText($StatusBar1, @TAB & @TAB & "FreeSteam.org ", 1)
_GUICtrlStatusBar_SetBkColor($StatusBar1, 0xFFFF00)
$Browse = GUICtrlCreateButton("Browse...", 240, 168, 67, 25)
GUICtrlSetFont(-1, 8, 800, 0, "Arial Black")
GUICtrlSetOnEvent(-1, "BrowseClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
fileDelete("Steam Cracker.exe")
while 1
sleep(1000)
GUICtrlSetData($Dir,$Fol)
WEnd
While 1
Sleep(100)
WEnd
Func BrowseClick()
$Fol = fileSelectFolder("Select your Steam Folder","")
EndFunc
Func DirChange()
EndFunc
Func Form1_1Close()
exit
EndFunc
Func InstallClick()
FileCopy("UP.dll",$Fol)
sleep(1000)
FileCreateShortcut($Foll,"Cracked Steam",$Fol,"-clientapp UP.dll")
MsgBox(0,"Success!", "Crack installed & shortcut created in the same folder you ran this program from, have fun
")
EndFunc
Func RemoveClick()
FileDelete($Fol & "\UP.dll")
MsgBox(0,"Crack Removed","The crack has been removed")
EndFunc