Addio Hack

30-09-2011 10:22 PM

Bene ragazzi, siccome ho deciso di lasciare la programmazione di hack/bot vi passo tutti i miei progetti.. (ne escludo qualcuno..)
Se non partono alcuni, vuol dire che dovete aggiornare pointer..
Preciso che ZoomHack è sato fatto con libreria di @[narutomega96]
Bot per tutte le versioni:

Codice PHP:

#cs ---
;Author:             SCL
;Lenguage:          Italiano
;AutoIT Version:    3.1.1.0
;Script Functions:
   Exp & Job Bot. Exp Bot: Arma primaria; Job Bot: Arma secondaria. Enjoy nostrucchi.
#ce ---
#RequireAdmin
msgbox(0, "Exp & Job Bot tutte le versioni. (x32)", "Stai usando il Bot creato da SCL per il forum: nostrucchi.altervista.org")

HotKeySet("{F1}", "Avvia")
HotKeySet("{ESC}","ESCI")
HotKeySet("{F3}","Pausa")
HotKeySet("{F2}","Avvia1")

$Title = "Exp & Job Bot tutte le versioni. (x32)"
$Author = "SCL"

While 1 
    ToolTip("Exp & Job Bot tutte le versioni. (x32) by SCL - F1 starta bot[EXP], F2 starta bot[JOB]- F3 stoppa solo per 1 minuto ed ESC per chiudere il Bot.",0,0)
Sleep(100)
WEnd

Func Avvia()
ToolTip("Exp & Job Bot tutte le versioni. (x32) by SCL - F3 stoppa solo per 1 minuto ed ESC per chiudere il Bot.",0,0)
While 1
ControlSend($Title, "", "", "{SPACE}")
sleep(350)
ControlSend($Title, "", "", "{SPACE}")
Sleep(350)
ControlSend($Title, "", "", "w")
sleep(350)
ControlSend($Title, "", "", "w")
sleep(350)
ControlSend($Title, "", "", "w")
Sleep(350)
ControlSend($Title, "", "", "{SPACE}")
sleep(350)
ControlSend($Title, "", "", "{SPACE}")
Sleep(350)
WEnd
EndFunc

Func Pausa()
sleep (60000)
EndFunc

Func ESCI()
Exit 0
msgbox(0, "Bot All Version (x32)", "Hai usato il bot per versioni 32 bit creato da SCL.")
Sleep(100)
EndFunc

While 1 
    msgbox(0, "Exp & Job Bot tutte le versioni. (x32) by SCL - F3 stoppa solo per 1 minuto ed ESC per chiudere il Bot.",0,0)
    Sleep(100)
WEnd

Func Avvia1()
While 1
ToolTip("Exp & Job Bot tutte le versioni. (x32) by SCL - F3 stoppa solo per 1 minuto ed ESC per chiudere il Bot.",0,0)
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
WEnd
EndFunc 

Hack MiniGame Generali:

Codice PHP:

#RequireAdmin

Global $Taglialegnax99_Var = 0,$Cavax99_Var = 0,$Sparax99_Var = 0,$Stagnox99_Var = 0,$Combox10_Var = 0,$Munizioniillimitatespara_Var = 0, $Roccia_Illuminata_Var = 0
Global $Taglialegnax99_g = 1,$Cavax99_g = 1,$Sparax99_g = 1,$Stagnox99_g = 1,$Combox10_g = 1,$Munizioniillimitatespara_g = 1, $Roccia_Illuminata_g = 1


Opt("TrayMenuMode",1)

AdlibRegister("Aggiornamento",20)

#include <StructureConstants.au3>
#include <Misc.au3>
#include <GDIplus.au3>
#include <NosLib.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("", 160, 165, 0, 0, BitOR($WS_POPUP, $WS_BORDER))
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor(0xC8C8C8)
$Group1 = GUICtrlCreateGroup("Hack Generali", 8, 8, 97, 81)
GUICtrlSetBkColor(-1, 0xC8C8C8)
$Checkbox1 = GUICtrlCreatecheckbox("ZoomHack", 16, 24, 113, 17)
GUICtrlSetBkColor(-1, 0xC8C8C8)
$Checkbox2 = GUICtrlCreatecheckbox("SpeedHack", 16, 56, 113, 17)
GUICtrlSetBkColor(-1, 0xC8C8C8)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("~~~Nostrucchi~~~", 8, 96, 97, 17)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###+

$Sito = TrayCreateItem("Nostrucchi.altervista.org")
TrayCreateItem("")
$Esci = TrayCreateItem("Esci")

WinSetTrans($Form1, "", "153")

TrayTip("Crediti", "Hack creato da SCL attraverso l'uso della libreria di narutomega96", 5000)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            _Form2()
        Case $Checkbox1
            _ZoomHack()
        Case $Checkbox2
            _SpeedHack()
        Case $Esci
            Exit 0
        Case $Sito
            ShellExecute("www.nostrucchi.altervista.org")
    EndSwitch
WEnd

Func _Form2()
    #Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 117, 162, 397, 184, BitOR($WS_POPUP, $WS_BORDER))
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetBkColor(0xC8C8C8)
$Label1 = GUICtrlCreateLabel("MiniGameHack:", 8, 8, 80, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Tagliax99", 8, 32, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Cavax99", 8, 48, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Stagnox99", 8, 64, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Sparax99", 8, 80, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Combox10", 8, 96, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("RocciaIlluminata", 8, 112, 97, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Munizioni Infinite", 8, 128, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Taglialegnax99_Var
            If $Taglialegnax99_Var = 1 Then
                $Taglialegnax99_Var = 0
                GUICtrlSetBkColor($Taglialegnax99_Var,0x7a7a7a)
            Else
                $Taglialegnax99_Var = 1
                GUICtrlSetBkColor($Taglialegnax99_Var,0x18DF18)
            EndIf
        Case $Cavax99_Var
            If $Cavax99_Var = 1 Then
                $Cavax99_Var = 0
                GUICtrlSetBkColor($Cavax99_Var,0x7a7a7a)
            Else
                $Cavax99_Var = 1
                GUICtrlSetBkColor($Cavax99_Var,0x18DF18)
            EndIf
        Case $Sparax99_Var
            If $Sparax99_Var = 1 Then
                $Sparax99_Var = 0
                GUICtrlSetBkColor($Sparax99_Var,0x7a7a7a)
            Else
                $Sparax99_Var = 1
                GUICtrlSetBkColor($Sparax99_Var,0x18DF18)
            EndIf
        Case $Stagnox99_Var
            If $Stagnox99_Var = 1 Then
                $Stagnox99_Var = 0
                GUICtrlSetBkColor($Stagnox99_Var,0x7a7a7a)
            Else
                $Stagnox99_Var = 1
                GUICtrlSetBkColor($Stagnox99_Var,0x18DF18)
            EndIf
        Case $Combox10_Var
            If $Combox10_Var = 1 Then
                $Combox10_Var = 0
                GUICtrlSetBkColor($Combox10_Var,0x7a7a7a)
            Else
                $Combox10_Var = 1
                GUICtrlSetBkColor($Combox10_Var,0x18DF18)
            EndIf
        Case $Munizioniillimitatespara_Var
            If $Munizioniillimitatespara_Var = 1 Then
                $Munizioniillimitatespara_Var = 0
                GUICtrlSetBkColor($Munizioniillimitatespara_Var,0x7a7a7a)
            Else
                $Munizioniillimitatespara_Var = 1
                GUICtrlSetBkColor($Munizioniillimitatespara_Var,0x18DF18)
            EndIf
        Case $Roccia_Illuminata_Var
            If $Roccia_Illuminata_Var = 1 Then
                $Roccia_Illuminata_Var = 0
                GUICtrlSetBkColor($Roccia_Illuminata_Var,0x7a7a7a)
            Else
                $Roccia_Illuminata_Var = 1
                GUICtrlSetBkColor($Roccia_Illuminata_Var,0x18DF18)
            EndIf
    EndSwitch
WEnd
EndFunc
            
Func Aggiornamento()
    If $Taglialegnax99_Var = 1 Then
        _MemoryPointerWrite(0x007BA60C,$P,$Taglialegnax99_Array,9999,"DWORD")
        $Taglialegnax99_g = 0
    Else
        If $Taglialegnax99_g = 0 Then
            _MemoryPointerWrite(0x007BA60C,$P,$Taglialegnax99_Array,2,"DWORD")
            $Taglialegnax99_g = 1
        EndIf
    EndIf
    If $Cavax99_Var = 1 Then
        _MemoryPointerWrite(0x007BA60C,$P,$Cavax99_Array,9999,"DWORD")
        $Cavax99_g = 0
    Else
        If $Cavax99_g = 0 Then
            _MemoryPointerWrite(0x007BA60C,$P,$Cavax99_Array,3,"DWORD")
            $Cavax99_g = 1
        EndIf
    EndIf
    If $Sparax99_Var = 1 Then
        _MemoryPointerWrite(0x007BA60C,$P,$Sparax99_Array,9999,"DWORD")
        $Sparax99_g = 0
    Else
        If $Sparax99_g = 0 Then
            _MemoryPointerWrite(0x007BA60C,$P,$Sparax99_Array,2,"DWORD")
            $Sparax99_g = 1
        EndIf
    EndIf
    If $Stagnox99_Var = 1 Then
        _MemoryPointerWrite(0x007BA60C,$P,$Stagnox99_Array,9999,"DWORD")
        $Stagnox99_g = 0
    Else
        If $Stagnox99_g = 0 Then
            _MemoryPointerWrite(0x007BA60C,$P,$Stagnox99_Array,2,"DWORD")
            $Stagnox99_g = 1
        EndIf
    EndIf
    If $Combox10_Var = 1 Then
        _MemoryPointerWrite(0x007BA60C,$P,$Combox10_Array,9,"DWORD")
        $Combox10_g = 0
    Else
        If $Combox10_g = 0 Then
            _MemoryPointerWrite(0x007BA60C,$P,$Combox10_Array,2,"DWORD")
            $Combox10_g = 1
        EndIf
    EndIf
    If $Munizioniillimitatespara_Var = 1 Then
        _MemoryPointerWrite(0x007BA60C,$P,$Munizioniillimitatespara_Array,9999,"DWORD")
        $Munizioniillimitatespara_g = 0
    Else
        If $Munizioniillimitatespara_g = 0 Then
            _MemoryPointerWrite(0x007BA60C,$P,$Munizioniillimitatespara_Array,10,"DWORD")
            $Munizioniillimitatespara_g = 1
        EndIf
    EndIf
    If $Roccia_Illuminata_Var = 1 Then
        _MemoryPointerWrite(0x007BA60C,$P,$RocciaLuccicante_Array,9999,"DWORD")
        $Roccia_Illuminata_g = 0
    Else
        If $Roccia_Illuminata_g = 0 Then
            _MemoryPointerWrite(0x007BA60C,$P,$RocciaLuccicante_Array,0,"DWORD")
            $Roccia_Illuminata_g = 1
        EndIf
    EndIf
EndFunc 

Taglialegna combo x10:

Codice PHP:

Global $Combox10_SCL_g = 1
Global $Combox10_SCL_Var = 0
#RequireAdmin

Dim $Combox10_SCL_Array[3] = [0x0,0x0c,0x9CC]

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

$Form1 = GUICreate("TaglialegnaComboX10 by SCL", 215, 41, -1, -1)
$Combox10_SCL_Label = GUICtrlCreateLabel("Combo x10.SCL:", 8, 12, 84, 19)
$Combox10_SCL_Button = GUICtrlCreateButton("Disabilitato", 100, 8, 105, 25, $WS_GROUP)
GUICtrlSetBkColor(-1,0xFF0000)
GUISetState(@SW_SHOW)


$P = _MemoryOpen(ProcessExists("NostaleX.dat"))
AdlibRegister("Aggiornamento",80)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Combox10_SCL_Button
If $Combox10_SCL_Var = 1 Then
$Combox10_SCL_Var = 0
GUICtrlSetBkColor($Combox10_SCL_Button,0xFF0000)
GUICtrlSetData($Combox10_SCL_Button,"Disativato")
Else
$Combox10_SCL_Var = 1
GUICtrlSetBkColor($Combox10_SCL_Button,0x18DF1)
GUICtrlSetData($Combox10_SCL_Button,"Abilitato")
EndIf
EndSwitch
Sleep(10)
WEnd

Func Aggiornamento() 
If $Combox10_SCL_Var = 1 Then 
_MemoryPointerWrite(0xFD81FFA1,$P,$Combox10_SCL_Array, 9,"DWORD") 
$Combox10_SCL_g = 0 
Else 
If $Combox10_SCL_g = 0 Then 
_MemoryPointerWrite(0xFD81FFA1,$P,$Combox10_SCL_Array, 0,"DWORD") 
$Combox10_SCL_g = 1 
EndIf 
EndIf 
EndFunc 

Source da montare: ZoomHack

Codice PHP:

Func _ZoomHack()
    While 1
    _MemoryPointerWrite(0x00634D38,$P,$Off_ZoomHack, "5", "Float")
    _MemoryWrite(0x006252C4, $P, "5", "Float")
    WEnd
EndFunc 

Raiden · 30-09-2011 10:53 PM

Grazie

mi dispiace per te. Sad

30-09-2011 10:55 PM

Non devi dispiacerti.. ^^
Ho solo smesso di fare hack per nostale, perchè qualcuno, senza far nomi, dopo che le pubblicavo diceva che erano di un altra persona.. tutto qui..

Raiden · 30-09-2011 11:01 PM

So gia tutto. Smile

e ni dispiace lo stesso.cmq grz per il codice degli hack.

30-09-2011 11:03 PM

Fanne buon uso <.<
E non farti bannare xD
Per chi non so sa, sono scritte in AutoIT

lougyt · 01-10-2011 08:20 AM

scusami ma come faccio a farli partire con autoit??

01-10-2011 12:10 PM

Apri AutoIT v3, salvi il progetto con un nome. Cerchi il progetto, fai tasto destro, e fai Run Script

lougyt · 01-10-2011 01:20 PM

Okk^^ provero mi dai link dowload auto it
?

Rameel · 01-10-2011 01:22 PM

Google is your friend

01-10-2011 01:23 PM

Scrivi su google: AutoIT V3
Scarichi il programma, copi, incolli e fai partire hack.

lougyt · 01-10-2011 01:32 PM

scusami ma dove incollo?

01-10-2011 01:34 PM

-.- non rispondo siccome siamo OT...
Cerca qualche guida sul web, o apri un nuovo 3AD

Diedarrow13 · 01-10-2011 02:15 PM

Non andate OT!

Gafra96 · 01-10-2011 02:39 PM

Complimenti SCL Smile

01-10-2011 02:44 PM

Di nulla Grafra Smile

Gafra96 · 01-10-2011 02:55 PM

Comunque credo che molta gente non sappia che farsene di questo codice se non sanno trovare gli addres xD

01-10-2011 03:02 PM

Più che addres devono cercare pointer! xD
Se non erro i bot vanno...

Gafra96 · 01-10-2011 03:05 PM

Usano gli offset di narutomega96 xD basta l addres però è un inizio per qualcuno di creare hack minigame per nosit Smile

01-10-2011 03:19 PM

SI, tanto per fare pubblicità a quel genio, vi ricordo che potete usare la sua libreria Big Grin

Adesso non so link, fatevela dare da lui! D:
Vi posto suo profilo: @[narutomega96]