Salve ospite, se leggi questo messaggio vuol dire che non sei registrato, cosa aspetti ? Premi qui per registrarti La registrazione è completamente gratuita e ti permetterà di usufruire di tutte le funzionalità del nostro forum. Buona navigazione.


Vendo, Compro, Scambio NosTale! Riapre il Black Market, concludi i tuoi scambi NosTale gratuitamente! Più info  -   Accedi alla sezione
Download file Server : File Retro Server NosTale
Visita la nuova sezione di BorderGame dedicata a Blade & Soul! Sezione Blade and Soul

 
Valutazione discussione:
  • 2 voti - 5 media
  • 1
  • 2
  • 3
  • 4
  • 5
SCL All Source
13-11-2011 01:04 PM
Messaggio: #1
SCL All Source
SCL

 

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
Torna al primo messaggio
Rispondi
13-11-2011 01:25 PM
Messaggio: #2
RE: SCL All Source
Utente
*
Staf Away - Gruppo Onorario
Elite Coder
Utente Saggio
Utente Storico

official Mod -ON-

Messaggi : 1,844

Registrato dal : Nov 2010

Reputazione : 57

Stato : Away


Premi :



Interessante il codice in AI
Citazione:Potete (dovreste) leggere i Regolamenti di questa community.

Problemi? Inviami una Mail così possiamo parlare meglio.
Problemi qui sul Forum? Inviami un PM (Messaggio Privato) cosi possiamo discutere direttamente qui, sulla board.
Il mio Profilo sulla community di BorderGame.
Tutti i miei Thread (e le mie risposte) su BorderGame.

Il nostro Staff.
Ti sono stato d'aiuto? Reputami come meglio credi.
Torna al primo messaggio
Email WWW Cerca Rispondi
13-11-2011 01:32 PM
Messaggio: #3
RE: SCL All Source
SCL

 

Tongue

tra poco posto il resto..
Torna al primo messaggio
Rispondi
13-11-2011 01:56 PM
Messaggio: #4
RE: SCL All Source
The_Ace
*
Subber
Utente Storico

Apprendista Del Grande Diedarrow13

Messaggi : 357

Registrato dal : Jul 2011

Reputazione : 24

Stato : Offline


Premi :



io ho preso il primo soure ora ci sto lavorando ma non mi parte il minigame hack, grazie SCL
İmage
Cit. Diluvio
Spoiler:
Non credo piu all'amore ma neanche lui a me
non provo piu dolore no non fa per me
Non credo piu all'amore ma neanche lui a me
non provo piu dolore no non fa per me
İmage


Torna al primo messaggio
Email WWW Cerca Rispondi
13-11-2011 01:58 PM
Messaggio: #5
RE: SCL All Source
SCL

 

Thx, non va siccome ci sono i pointer vecchi xD
la funzione aggiornamento dei pointer non l'ho compilata..
Torna al primo messaggio
Rispondi
13-11-2011 03:15 PM
Messaggio: #6
RE: SCL All Source
Rameel
*
Vip
Utente Saggio
Utente Storico
Spammer

I farfallini sono forti.

Messaggi : 2,360

Registrato dal : May 2011

Reputazione : 83

Stato : Offline


Premi :



Salvati tutti.
Perché avere una firma è troppo mainstream.
Torna al primo messaggio
Email Cerca Rispondi
13-11-2011 03:21 PM
Messaggio: #7
RE: SCL All Source
Gafra96
Elite Coder

Rynn
Spammer
Staf Away - Gruppo Onorario
Utente Saggio
Utente Storico
Vip

Finder/Tester

Messaggi : 2,029

Registrato dal : Dec 2010

Reputazione : 279

Stato : Offline


Premi :



Complimenti pefr i progetti in VB
İmage
Torna al primo messaggio
Email Cerca Rispondi
13-11-2011 05:38 PM
Messaggio: #8
RE: SCL All Source
SCL

 

nah gafra, sono vecchi..
e comunque, la libreria di vb, è aggiornata a luglio xD
ne ho di cose da metterci sennò
Torna al primo messaggio
Rispondi
13-11-2011 06:50 PM
Messaggio: #9
RE: SCL All Source
Gafra96
Elite Coder

Rynn
Spammer
Staf Away - Gruppo Onorario
Utente Saggio
Utente Storico
Vip

Finder/Tester

Messaggi : 2,029

Registrato dal : Dec 2010

Reputazione : 279

Stato : Offline


Premi :



be comunque sono utili Smile come tool...
İmage
Torna al primo messaggio
Email Cerca Rispondi
13-11-2011 08:48 PM
Messaggio: #10
RE: SCL All Source
Rameel
*
Vip
Utente Saggio
Utente Storico
Spammer

I farfallini sono forti.

Messaggi : 2,360

Registrato dal : May 2011

Reputazione : 83

Stato : Offline


Premi :



SCL, grazie al tuo source ho imparato il GUI XD
Perché avere una firma è troppo mainstream.
Torna al primo messaggio
Email Cerca Rispondi
13-11-2011 10:09 PM
Messaggio: #11
RE: SCL All Source
'Hayabusa00
Moderatori
Meys
Spammer
Utente Saggio
Utente Storico
Vip

Pitlover_Enforcement

Messaggi : 3,183

Registrato dal : Dec 2010

Reputazione : 319

Stato : Offline


Premi :



SCL complimento e grazie mille Wink
Una curiosità: se posso saperlo perché molli???
Torna al primo messaggio
Email WWW Cerca Rispondi
13-11-2011 11:54 PM
Messaggio: #12
RE: SCL All Source
SCL

 

non tengo volgia di continuare
Torna al primo messaggio
Rispondi
02-12-2011 01:36 PM
Messaggio: #13
RE: SCL All Source
Angius2644
*
Vip
Gath
Spammer
Utente Saggio
Utente Storico

Spammer

Messaggi : 3,384

Registrato dal : Mar 2011

Reputazione : 158

Stato : Offline


Premi :



ragazzi mi serve la nostalelib.au3 me la postate
İmage

İmage

İmage

İmage

永遠に 一緒に
Se la nostra storia fosse finita lì, non penso esisterebbe al mondo alcuna storia che varrebbe la pena di essere raccontata.
Torna al primo messaggio
Cerca Rispondi
02-12-2011 02:14 PM
Messaggio: #14
RE: SCL All Source
SCL

 

<.< devi chiedere a narumega.. oppure la trovi su arl <.<
Torna al primo messaggio
Rispondi

PubblicitàLa tua pubblicità qui, clicca per informazioni e per le offerte!

Stanno visualizzando la discussione : 1 Ospite(i)

  • Versione stampabile
  • Invia ad un amico
  • Sottoscrivi questa discussione