BorderGame

BorderGame > NosTale > Discussioni e Sondaggi > SCL All Source
Versione completa: SCL All Source
Al momento stai visualizzando i contenuti in una versione ridotta. Visualizza la versione completa e formattata.

SCL

13-11-2011, 01:04 PM
Siccome mollo tutto, come al solito vi posto i source dei miei progetti..

ENH [Elite Nos Hack] by SCL:

Citazione:#cs ---
;Author: MySCL
;Lenguage: Italiano
;AutoIT Version: 3.1.1.0
;Script Functions:
Elite Nos Hack - PhpMySCL - http://www.bordergame.it
#ce ---
#RequireAdmin

Global $Taglialegnax99_Var = 0,$Cavax99_Var = 0,$Sparax99_Var = 0,$Stagnox99_Var = 0,$Combox10_Var = 0,$Lv_5_0_Punti_Var = 0
Global $Taglialegnax99_g = 1,$Cavax99_g = 1,$Sparax99_g = 1,$Stagnox99_g = 1,$Combox10_g = 1, $Lv_5_0_Punti_g = 1


$Title = "NostaleX.dat"
$Author = "SCL"

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <NosLib.au3>
#Region ### START Koda GUI section ###
$Form1 = GUICreate("PhpMySCL - Elite Nos Hack", 284, 157, 379, 215)
$Tab1 = GUICtrlCreateTab(0, 0, 281, 153)
$TabSheet1 = GUICtrlCreateTabItem("Crediti")
$Label1 = GUICtrlCreateLabel("PhpMySCL - Elite Nos Hack", 8, 32, 263, 17)
$MyButton4 = GUICtrlCreateButton("LUH", 168, 112, 100, 30, BitOR($BS_NOTIFY,$BS_FLAT))
$Label2 = GUICtrlCreateLabel("If you click <LUH> the program will update the Pointer ", 8, 56, 261, 17)
$TabSheet2 = GUICtrlCreateTabItem("Bot")
$Group1 = GUICtrlCreateGroup("Funzioni:", 8, 24, 257, 121)
$MyButton1 = GUICtrlCreateButton("Go ExpBot", 24, 48, 100, 30, BitOR($BS_NOTIFY,$BS_FLAT))
$MyButton2 = GUICtrlCreateButton("Go JobBot", 136, 48, 100, 30, BitOR($BS_NOTIFY,$BS_FLAT))
$MyButton3 = GUICtrlCreateButton("Exit: PhpMySCL ENH - Bot", 24, 88, 212, 30, BitOR($BS_NOTIFY,$BS_FLAT))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet3 = GUICtrlCreateTabItem("Minigame Hack")
$Group2 = GUICtrlCreateGroup("Funzioni:", 8, 32, 257, 113)
$Checkbox1 = GUICtrlCreateCheckbox("x99 Life Taglia", 16, 56, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("x99 Life Cava", 16, 80, 97, 17)
$Checkbox3 = GUICtrlCreateCheckbox("x99 Life Stagno", 16, 104, 97, 17)
$Checkbox4 = GUICtrlCreateCheckbox("x99 Life Spara", 152, 56, 97, 17)
$Checkbox5 = GUICtrlCreateCheckbox("x10 C. taglia", 152, 80, 97, 17)
$Checkbox6 = GUICtrlCreateCheckbox("x0 Punti - Lv 5", 152, 104, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$TabSheet4 = GUICtrlCreateTabItem("EnH SZ")
GUICtrlSetState(-1,$GUI_SHOW)
$Group3 = GUICtrlCreateGroup("Funzioni:", 8, 32, 257, 105)
$Radio1 = GUICtrlCreateRadio("SpeedHack", 24, 56, 113, 17)
$Radio2 = GUICtrlCreateRadio("ZoomHack", 24, 80, 113, 17)
$Write_Your_Comands = GUICtrlCreateInput("Write_Your_Comands", 24, 104, 225, 21)
$MyButton5 = GUICtrlCreateButton("Inject Comands", 136, 48, 116, 46, BitOR($BS_NOTIFY,$BS_FLAT))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Sito = TrayCreateItem("www.bordergame.it")
TrayCreateItem("Enjoy")
$Esci = TrayCreateItem("Esci")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Radio2
_ZoomHack()
Case $Radio1
_SpeedHack()
Case $Esci
Exit 0
Case $MyButton3
Stop()
Case $MyButton2
JobBot()
Case $MyButton1
ExpBot()
Case $MyButton4
Funzione()
Case $Sito
ShellExecute("www.bordergame.it")
EndSwitch
WEnd

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

Func _SpeedHack()
While 1
$ERGEBNIS1 = _MEMORYPOINTERREAD($Address_X_Y, $P, $Off_X_Nos, "word")
Sleep(100)
$ERGEBNIS2 = _MEMORYPOINTERREAD($Address_X_Y, $P, $Off_X_Nos, "word")
If $ERGEBNIS1 <> $ERGEBNIS2 Then
If $ERGEBNIS1[1] > $ERGEBNIS2[1] Then
_MEMORYPOINTERWRITE($Address_X_Y, $P, $Off_X_Nos, $ERGEBNIS2[1] - 2, "word")
ElseIf $ERGEBNIS1[1] < $ERGEBNIS2[1] Then
_MEMORYPOINTERWRITE($Address_X_Y, $P, $Off_X_Nos, $ERGEBNIS2[1] + 2, "word")
EndIf
EndIf
$ERGEBNIS3 = _MEMORYPOINTERREAD($Address_X_Y, $P, $Off_Y_Nos, "word")
Sleep(100)
$ERGEBNIS4 = _MEMORYPOINTERREAD($Address_X_Y, $P, $Off_Y_Nos, "word")
If $ERGEBNIS3[1] <> $ERGEBNIS4[1] Then
If $ERGEBNIS3[1] > $ERGEBNIS4[1] Then
_MEMORYPOINTERWRITE($Address_X_Y, $P, $Off_Y_Nos, $ERGEBNIS4[1] - 2, "word")
ElseIf $ERGEBNIS3[1] < $ERGEBNIS4[1] Then
_MEMORYPOINTERWRITE($Address_X_Y, $P, $Off_Y_Nos, $ERGEBNIS4[1] + 2, "word")
EndIf
EndIf
Sleep(10)
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
EndFunc

Func ExpBot()
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 JobBot()
While 1
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
ControlSend($Title, "", "", "z")
Sleep(500)
WEnd
EndFunc

Func Stop()
msgbox(64, "ENH", "Hai fermato la funzione Bot")
Exit 0
Sleep(100)
EndFunc

Func Funzione()
shellexecute("http://bordergame.it/member.php?action=profile&uid=3568")
msgbox(64, "LUH", "Se sei in cerca di aiuti o informazioni non contattarmi; Non ti rispondo")
Endfunc

ARL Shell by SCL: [Source versione 0.0.1]

Citazione:#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ARL Shell v1.0.0 Beta", 279, 120, 333, 292)
$Radio1 = GUICtrlCreateRadio("Prompt", 16, 24, 113, 17)
$Radio2 = GUICtrlCreateRadio("TaskManager", 16, 48, 113, 17)
$Group1 = GUICtrlCreateGroup("Shell Functions:", 8, 8, 185, 97)
$Radio3 = GUICtrlCreateRadio("Prompt Basic Functions", 16, 72, 127, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$MyButton1 = GUICtrlCreateButton("HELP", 208, 16, 52, 86, BitOR($BS_NOTIFY,$BS_FLAT))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

msgbox(64, "Leggimi", " Questo script è stato fatto da SCL. Per qualsiasi problema con la shell contattatemi Tongue")
ShellExecute("http://www.******************************")

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $MyButton1
msgbox(64, "HELP", "Per Info su: Prompt Basic Function -> http://www.******************************/showthread.php?tid=30")
ShellExecute ("http://www.******************************/showthread.php?tid=30")
Case $Radio1
ShellExecute("cmd.exe")
Case $Radio2
ShellExecute("taskmgr.exe")
Case $Radio3
FileWrite("Prompt Basic Functions.ini", "Scrivi nel cmd.exe : tasklist [Vedi Process List]"&@CRLF&"Scrivi nel cmd.exe : ping"&@CRLF&"Scrivi nel cmd.exe : ipconfig"&@CRLF&"Scrivi nel cmd.exe : netstat -ano")
EndSwitch
WEnd


Libreria SCL VisualBasic [Risale a metà luglio del 2011]:

Citazione:;Libreria Creata da SCL
;Visual Basic Version 2010
; Language: Italiano
; Platform: All Windows
; Author: SCL


;///////////////////////////////////////////////Blocco Note Personalizzato//////////////////////


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1: TextBox1.Text = ""
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = "Scrivi le info del programma."
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Application.Exit()
End Sub


;////////////////////////////////////////////////PC Chat////////////////////////////////////////

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim SAPI
SAPI = CreateObject("sapi.spvoice")
SAPI.speak(TextBox1.Text)
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Application.Exit()
End Sub

Private Sub ParlaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ParlaToolStripMenuItem.Click
Dim SAPI
SAPI = CreateObject("sapi.spvoice")
SAPI.speak(TextBox1.Text)
End Sub

Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
Application.Exit()
End Sub


End Class


;////////////////////////////////////////////////Spam Bot///////////////////////////////////////

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Enabled = False
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
SendKeys.Send(TextBox1.Text)
SendKeys.Send("{Enter}")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub


;/////////////////////////////////////////////Web Browser personalizzato///////////////////////


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.GoBack()
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
WebBrowser1.Navigate(TextBox1.Text)
End Sub

Private Sub StatusStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)

End Sub

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs)

End Sub

Private Sub VaiAlSitoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VaiAlSitoToolStripMenuItem.Click
WebBrowser1.Navigate("http://nostrucchi.altervista.org/member.php?action=profileuid=3568")
End Sub

Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
Application.Exit()
End Sub


;/////////////////////////////////////////////Aprire programma esterno + primo form visibile o non///////////////////////
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
shell("nomeprogrammadaaprire.estensionechevuoi")
Me.visible = False
End Sub

Utente

13-11-2011, 01:25 PM
Interessante il codice in AI

SCL

13-11-2011, 01:32 PM
Tongue

tra poco posto il resto..

The_Ace

13-11-2011, 01:56 PM
io ho preso il primo soure ora ci sto lavorando ma non mi parte il minigame hack, grazie SCL

SCL

13-11-2011, 01:58 PM
Thx, non va siccome ci sono i pointer vecchi xD
la funzione aggiornamento dei pointer non l'ho compilata..

Rameel

13-11-2011, 03:15 PM
Salvati tutti.

Gafra96

13-11-2011, 03:21 PM
Complimenti pefr i progetti in VB

SCL

13-11-2011, 05:38 PM
nah gafra, sono vecchi..
e comunque, la libreria di vb, è aggiornata a luglio xD
ne ho di cose da metterci sennò

Gafra96

13-11-2011, 06:50 PM
be comunque sono utili Smile come tool...

Rameel

13-11-2011, 08:48 PM
SCL, grazie al tuo source ho imparato il GUI XD

'Hayabusa00

13-11-2011, 10:09 PM
SCL complimento e grazie mille Wink
Una curiosità: se posso saperlo perché molli???

SCL

13-11-2011, 11:54 PM
non tengo volgia di continuare

Angius2644

02-12-2011, 01:36 PM
ragazzi mi serve la nostalelib.au3 me la postate

SCL

02-12-2011, 02:14 PM
<.< devi chiedere a narumega.. oppure la trovi su arl <.<
BorderGame > NosTale > Discussioni e Sondaggi > SCL All Source
URL di riferimento