Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

Ответ
 
Опции темы
Старый 12.05.2013, 03:07   #1
 Рыцарь-капитан
Аватар для kiler1997
 
kiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норриса
Регистрация: 14.12.2009
Сообщений: 523
Популярность: 9445
Золото Zhyk.Ru: 15
Сказал(а) спасибо: 140
Поблагодарили 375 раз(а) в 178 сообщениях
Отправить сообщение для kiler1997 с помощью Skype™
 
По умолчанию Royal Hack Creator
Благодаря данной программы без особых знаний языка программирования вы сможете создать чит программу, с двумя дизайнами , я чит немножко отредактировал перевёл часть кода на Ру язык (офф. тема [Ссылки могут видеть только зарегистрированные пользователи. ])

Вы должны обязательно иметь autoit 3.3.8.1 и include NomadMemory.au3
[Ссылки могут видеть только зарегистрированные пользователи. ]

Инструкиця:
1. Скачайте архив
2. Запустите программу

[Ссылки могут видеть только зарегистрированные пользователи. ]

3. выберите дизайн

1. Дизайн (тёмный)

[Ссылки могут видеть только зарегистрированные пользователи. ]

2. Дизайн (чистый)

[Ссылки могут видеть только зарегистрированные пользователи. ]

4. После того как выбрали дизайн нужно добавить так сказать флажок и новый текст делается это всё пкм(для того что бы изменить текст нажмите на insert)

[Ссылки могут видеть только зарегистрированные пользователи. ]

5. после того как мы добавили что хотели, нужно указать сам адрес к примеру как на этой картинке

[Ссылки могут видеть только зарегистрированные пользователи. ]

6. после, как мы вписали адрес и на что изменять нажимаем на кнопку сохранить

7. Затем пкм нажимаем по форме и кликаем по слову Экспорт

8. у нас появилась папка S4League Hack где будет лежать наш скрипт S4Hack.au3

Код:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <NomadMemory.au3>
#include <String.au3>
#RequireAdmin

;EDIT==================================================================
	Global Const $Titel				= "Royal S4 Hack"
	Global Const $Icon 				= "img/Icon.ico"

	Global Const $ClientWidth 		= 640
	Global Const $ClientHeight		= 400

	Global Const $Font 				= "BIRTH OF A HERO"
	Global Const $FontSize 			= 20
	Global Const $FontColor 		= 0x333333

	Global Const $WaitX 			= 18
	Global Const $WaitY 			= 360
	Global Const $WaitHeight 		= 30
	Global Const $WaitWidth 		= 220
	Global Const $WaitSize 			= 20

	Global Const $ExitWidth 		= 53
	Global Const $ExitHeight 		= 40
	Global Const $ExitX 			= 589
	Global Const $ExitY 			= 18

	Global Const $IconID			= "76F449379ACDCCE8C0DF4EAB035801318DE528BE04729A108D406060E33B2A34A844E72BDB3F30E3262680B90A3AB441"
;EDIT==================================================================

#Region ### START Koda GUI section ### Form=
$Gui = GUICreate($Titel, $ClientWidth, $ClientHeight, 192, 154,BitOR($WS_SYSMENU,$WS_POPUP),$WS_EX_CONTROLPARENT)
	GUISetFont($FontSize, 400, 0, $Font, $Gui)
	GUISetIcon($Icon)
$Bg = GUICtrlCreatePic("img\background.jpeg", 0, 0, $ClientWidth, $ClientHeight)
	GUICtrlSetState(-1,$GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Wait for S4Client.exe", $WaitX, $WaitY ,$WaitWidth, $WaitHeight)
	GUICtrlSetFont(-1,$WaitSize,400,0,$Font)
	_BKColor(-1, -1)
	GUICtrlSetColor(-1, $FontColor)
$EXIT = GUICtrlCreatePic("", $ExitX, $ExitY, $ExitWidth, $ExitHeight)

Dim $Checkbox[0] = []
Dim $Label[0] = []

For $i=0 to UBound($Label)-1
	_BKColor(-1,$Label[$i])
Next

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While not ProcessExists("S4Client.exe")
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $EXIT
			Exit
	EndSwitch

	For $i=0 to UBound($Checkbox)-1
		If $nMsg = $Checkbox[$i] Then
			_Switch($nMsg)
		EndIf
	Next
WEnd

GUICtrlSetData($Label1,"Found")

$Wait = ProcessWait("S4Client.exe")

$Open = _MemoryOpen($Wait)
	$Random = Random(1000,99999)&".pref"
	FileWrite(@TempDir&"\"&$Random,_StringEncrypt(0,FileRead("add.list"),$IconID,2))
	$Ini = IniReadSectionNames(@TempDir&"\"&$Random)
	For $i=1 to $Ini[0]
		If GUICtrlRead($Ini[$i]) = "1" Then
			$Addresse = IniRead(@TempDir&"\"&$Random,$Ini[$i],"offset","")&IniRead(@TempDir&"\"&$Random,$Ini[$i],"Address","")
			$Type = IniRead(@TempDir&"\"&$Random,$Ini[$i],"Type","")
			$Value = IniRead(@TempDir&"\"&$Random,$Ini[$i],"value","")
			_MemoryWrite($Addresse, $Open, $Value, $Type)
		EndIf
	Next
_MemoryClose($Open)
FileDelete(@TempDir&"\"&$Random)
GUICtrlSetData($Label1,"Good Luck !")
Sleep(2000)

Func _BKColor($BackColor_ = "", $GuiID_ = -1, $Textcolor_ = 0x000000)
	If $BackColor_ = "" Or $BackColor_ = -1 Then
		GUICtrlSetBkColor($GuiID_, $GUI_BKCOLOR_TRANSPARENT)
		GUICtrlSetColor($GuiID_, $Textcolor_)
	Else
		GUICtrlSetBkColor($GuiID_, $BackColor_)
		GUICtrlSetColor($GuiID_, $Textcolor_)
	EndIf
EndFunc   ;==>_BKColor

Func _ExCreateCheckbox($x,$y)
	$Button = GUICtrlCreateButton("0",$x,$y, 25, 25, $BS_ICON)
		GUICtrlSetImage(-1, "img\checkboxa.ico", -1)
	Return $Button
EndFunc

Func _Switch($GUI)
	$Status = GUICtrlRead($GUI)
	If $Status = "0" Then
		GUICtrlSetData($GUI,"1")
		GUICtrlSetImage($GUI, "img\checkboxb.ico", -1)
	Else
		GUICtrlSetData($GUI,"0")
		GUICtrlSetImage($GUI, "img\checkboxa.ico", -1)
	EndIf
EndFunc#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
#include <NomadMemory.au3>
#include <String.au3>
#RequireAdmin

;EDIT==================================================================
	Global Const $Titel				= "Royal S4 Hack"
	Global Const $Icon 				= "img/Icon.ico"

	Global Const $ClientWidth 		= 640
	Global Const $ClientHeight		= 400

	Global Const $Font 				= "BIRTH OF A HERO"
	Global Const $FontSize 			= 20
	Global Const $FontColor 		= 0x333333

	Global Const $WaitX 			= 18
	Global Const $WaitY 			= 360
	Global Const $WaitHeight 		= 30
	Global Const $WaitWidth 		= 220
	Global Const $WaitSize 			= 20

	Global Const $ExitWidth 		= 53
	Global Const $ExitHeight 		= 40
	Global Const $ExitX 			= 589
	Global Const $ExitY 			= 18

	Global Const $IconID			= "76F449379ACDCCE8C0DF4EAB035801318DE528BE04729A108D406060E33B2A34A844E72BDB3F30E3262680B90A3AB441"
;EDIT==================================================================

#Region ### START Koda GUI section ### Form=
$Gui = GUICreate($Titel, $ClientWidth, $ClientHeight, 192, 154,BitOR($WS_SYSMENU,$WS_POPUP),$WS_EX_CONTROLPARENT)
	GUISetFont($FontSize, 400, 0, $Font, $Gui)
	GUISetIcon($Icon)
$Bg = GUICtrlCreatePic("img\background.jpeg", 0, 0, $ClientWidth, $ClientHeight)
	GUICtrlSetState(-1,$GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("Wait for S4Client.exe", $WaitX, $WaitY ,$WaitWidth, $WaitHeight)
	GUICtrlSetFont(-1,$WaitSize,400,0,$Font)
	_BKColor(-1, -1)
	GUICtrlSetColor(-1, $FontColor)
$EXIT = GUICtrlCreatePic("", $ExitX, $ExitY, $ExitWidth, $ExitHeight)

Dim $Checkbox[2] = [_ExCreateCheckbox(16,24),_ExCreateCheckbox(16,112)]
Dim $Label[2] = [GUICtrlCreateLabel('Беск. Сп',64,104),GUICtrlCreateLabel('Бессмертие',56,16)]

For $i=0 to UBound($Label)-1
	_BKColor(-1,$Label[$i])
Next

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While not ProcessExists("S4Client.exe")
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $EXIT
			Exit
	EndSwitch

	For $i=0 to UBound($Checkbox)-1
		If $nMsg = $Checkbox[$i] Then
			_Switch($nMsg)
		EndIf
	Next
WEnd

GUICtrlSetData($Label1,"Found")

$Wait = ProcessWait("S4Client.exe")

$Open = _MemoryOpen($Wait)
	$Random = Random(1000,99999)&".pref"
	FileWrite(@TempDir&"\"&$Random,_StringEncrypt(0,FileRead("add.list"),$IconID,2))
	$Ini = IniReadSectionNames(@TempDir&"\"&$Random)
	For $i=1 to $Ini[0]
		If GUICtrlRead($Ini[$i]) = "1" Then
			$Addresse = IniRead(@TempDir&"\"&$Random,$Ini[$i],"offset","")&IniRead(@TempDir&"\"&$Random,$Ini[$i],"Address","")
			$Type = IniRead(@TempDir&"\"&$Random,$Ini[$i],"Type","")
			$Value = IniRead(@TempDir&"\"&$Random,$Ini[$i],"value","")
			_MemoryWrite($Addresse, $Open, $Value, $Type)
		EndIf
	Next
_MemoryClose($Open)
FileDelete(@TempDir&"\"&$Random)
GUICtrlSetData($Label1,"Good Luck !")
Sleep(2000)

Func _BKColor($BackColor_ = "", $GuiID_ = -1, $Textcolor_ = 0x000000)
	If $BackColor_ = "" Or $BackColor_ = -1 Then
		GUICtrlSetBkColor($GuiID_, $GUI_BKCOLOR_TRANSPARENT)
		GUICtrlSetColor($GuiID_, $Textcolor_)
	Else
		GUICtrlSetBkColor($GuiID_, $BackColor_)
		GUICtrlSetColor($GuiID_, $Textcolor_)
	EndIf
EndFunc   ;==>_BKColor

Func _ExCreateCheckbox($x,$y)
	$Button = GUICtrlCreateButton("0",$x,$y, 25, 25, $BS_ICON)
		GUICtrlSetImage(-1, "img\checkboxa.ico", -1)
	Return $Button
EndFunc

Func _Switch($GUI)
	$Status = GUICtrlRead($GUI)
	If $Status = "0" Then
		GUICtrlSetData($GUI,"1")
		GUICtrlSetImage($GUI, "img\checkboxb.ico", -1)
	Else
		GUICtrlSetData($GUI,"0")
		GUICtrlSetImage($GUI, "img\checkboxa.ico", -1)
	EndIf
EndFunc
9. нам остаётся собрать скрипт и радоваться :3 делается это так, нажимаем по скрипту пкм и нажимаем на Compile Script
Вложения
Тип файла: rar HackCreator.rar (774.1 Кб, 51 просмотров)
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
Последний раз редактировалось kiler1997; 26.01.2014 в 20:43.
  Ответить с цитированием
4 пользователя(ей) сказали cпасибо:
Kuodo (12.05.2013), Panda_v_prada (16.06.2013), phoenix666 (12.05.2013), Toxan4ik (12.05.2013)
Старый 12.05.2013, 09:26   #2
 Разведчик
Аватар для Oa1234
 
Oa1234 никому не известный тип
Регистрация: 10.04.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Royal Hack Creator
В Value всегда писать то что ты написал ?

Добавлено через 22 минуты
[Ссылки могут видеть только зарегистрированные пользователи. ] Такая ошибка
Последний раз редактировалось Oa1234; 12.05.2013 в 09:49. Причина: Добавлено сообщение
  Ответить с цитированием
Старый 12.05.2013, 13:31   #3
 Разведчик
Аватар для phoenix666
 
phoenix666 никому не известный тип
Регистрация: 28.03.2012
Сообщений: 11
Популярность: 10
Сказал(а) спасибо: 7
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: Royal Hack Creator
[Ссылки могут видеть только зарегистрированные пользователи. ]
У меня такая беда
  Ответить с цитированием
Старый 12.05.2013, 14:47   #4
 Рыцарь-капитан
Аватар для kiler1997
 
kiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норрисаkiler1997 троюродный дядя Чака Норриса
Регистрация: 14.12.2009
Сообщений: 523
Популярность: 9445
Золото Zhyk.Ru: 15
Сказал(а) спасибо: 140
Поблагодарили 375 раз(а) в 178 сообщениях
Отправить сообщение для kiler1997 с помощью Skype™
 
По умолчанию Re: Royal Hack Creator
Цитата:
Сообщение от phoenix666Посмотреть сообщение
У меня такая беда

Цитата:
Сообщение от kiler1997Посмотреть сообщение
Вы должны обязательно иметь autoit 3.3.8.1 и include NomadMemory.au3

скачай NomadMemory.au3 я его сюда выложил и засунь его в папку AutoIt3\Include

Добавлено через 44 минуты
Обновил
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
Последний раз редактировалось kiler1997; 12.05.2013 в 15:31. Причина: Добавлено сообщение
  Ответить с цитированием
Старый 17.05.2013, 23:57   #5
 Разведчик
Аватар для kaktuzz1994
 
kaktuzz1994 никому не известный тип
Регистрация: 25.03.2013
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
По умолчанию Re: Royal Hack Creator
[Ссылки могут видеть только зарегистрированные пользователи. ]
Вот такая вот ошибочка....
  Ответить с цитированием
Ответ

« Предыдущая тема | Следующая тема »

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Программа] Royal Hack v 1.d by •L• v34 •L• Counter-Strike: Source 0 01.04.2012 17:52
[Программа] Hack Creator by Yoshiyuki anime-kawai S4 League 1 28.09.2010 13:02
[Программа] Hack Creator v2 MyNameIsHacker S4 League 14 08.09.2010 21:53
[Программа] L2J Buff Creator 1.0 FFForever Lineage 2 0 27.03.2009 20:33

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 22:12.

Обратная связь - Zhyk.org - Первый Чит-портал RUнета без хайдов! - Архив - Условия использования - Вверх
Пишите нам: [email protected]
Copyright © 2025 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net