Creare uno script in VB6

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso

Creare uno script in VB6

Messaggio  Hotelfico il Sab Dic 05, 2009 8:27 pm

GUIDA+CODICI SCRIPT+MINI GUIDE


BHE HO PENSATO CHE E DA MOLTO CHE NON FACEVO UNA GUIDA, E VISTO CHE I CODICI DELLA GUIDA DI INDUSTRIALE NON FUNGONO DA CIRCA DALLA V26/V27 PER CUI HO PENSATO DI FARNE UNA NUOVA PER IL NUOVO HABBO:

SEGUIRE LA GUIDA PASSO PER PASSO!

INIZIAMO:

APRIAMO IL NOSTRO COMPILATORE IN QUESTO CASO VISUAL BASIC 6 PORTABLE CHE SI PUO SCARICARE DA QUESTO LINK:[I link di questo forum sono visualizzabili solo per gli utenti registrati. Cosa aspetti? Registrati cliccando qui ]

BENE APPENA SCARICATO APRITELO E DOVREBBE COMPARIRE QUESTA FINESTRA:




SE E LA PRIMA VOLTA CHE LO APRITE SCEGLIETE LA PRIMA OPZIONE "REG KEY" CHE SERVE PER POTER CREARE FILE IN .EXE,

SUCCESSIVAMENTE APRITE UN NUOVO PROGETTO E SCEGLIETE UN PROGETTO STANDARD E DOVREBBE APPARIRVI QUESTA FINESTRA:




BENE ORA POSSIAMO INIZIARE CON IL NOSTRO LAVORO

PER PRIMA COSA INSERIRE 3 TEXT
CHE SAREBBERO USERNAME,PASSWORD E HOTEL

ED INSERIRE ANCHE UN COMMANDBUTTON CHE SAREBBE IL COMMANDO LOGIN



BENISSIMO ORA SE VOLETE POTETE ANCHE ABBELLIRE IL PROGETTO,

ORA PRIMA DI CONTINUARE DOBBIAMO NECESSARIAMENTE RINOMINARE LA FORM IN "frmMain" QUINDI IL NAME NON IL CAPTION

ORA DOPO AVER RINOMINATO LA FORM

DOBBIAMO CREARE ALTRE 2 FORM CHE SAREBBERO IL PACKETLOGGER E IL BROWSER SU CUI ENTRAREMO IN HABBO PER CUI CREARE ALTRE 2 FORM

E CHIAMATELE: "frmPackets" e "frmLoad"

ORA ARREDIAMO LA FRMPACKETS ()

IN QUESTO MODO:




BENISSIMO ORA RICORDIAMOCI DI RINOMINARE LA TEXTBOX DI SINISTRA IN "txtClient" e quella di destra in "txtServer" RICORDO SEMPRE IL NAME E CORRISPONDEREBBERO ALLE TEXT IN CUI ARRIVERANNO I PACCHETTI PROVENIENTI DAL CLIENT E DAL SERVER

POI OVVIAMENTE INSERIRE 2 CHECK BOX CHE SAREBBERO LA PAUSA DEI PACCHETTI

ORA INVECE INSERIRE UN ALTRA TEXT CHE SAREBBE LA TEXT IN CUI SI INSERIRA IL PACCHETTO DA INVIARE AL CLIENT QUINDI METTERE ANCHE UN BUTTON PER INVIARE E SE VOLETE POTETE ARREDARE LA FORM COME LO SCREEN

FANTASTICO ORA ARREDIAMO LA FORMLOAD OVVERO IL NOSTRO BROWSER DI HABBO

PRIMA DI TUTTO INSERIRE UN WEBBROWSER PREMENDO CTRL+T E CERCARE IL COMPONENTE MICROSOFT INTERNET CONTROL ED INSERIRLO NELLA FORM E SUCCESSIVAMENTE INSERIRE ANCHE 2 COMPONENTI WINSSOCK QUINDI CERCARE NEI COMPONENTI SEMPRE PREMENDO CTRL+T MICROSOFT WINSOCK CONTROL 6.0 O INFERIORE ED METTERNE 2 ALL'INTERNO DELLA FORMLOAD,

ORA RINOMINARE I DUE WINSOCK IN "SckClient" & "SckServer" CHE SAREBBERO I DUE COMPONENTI FONDAMENTALI CHE CI CONSENTONO DI NAVIGARE SUL CLIENT DI HABBO/MANDARE E RICEVERE PACCHETTI, ED ALTRE FUNZIONI VARIE




BENISSIMO ORA DOBBIAMO INSERIRE UN MODULO CHE CI CONSENTIRA DI UTILIZZARE TUTTI I RIFERIMENTI E CONSENTIRCI QUINDI DI CONNETERCI AD HABBO:

QUINDI CREARE UN MODULO E RINOMINARLO IN "Source" E METTERE AL SUO INTERNO:


Codice PHP:
Option Explicit
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Const IF_FROM_CACHE = &H1000000
Public Const IF_MAKE_PERSISTENT = &H2000000
Public Const IF_NO_CACHE_WRITE = &H4000000

Private Const BUFFER_LEN = 256
Public Const cLetters = "abcdefghijklmnopqrstuvwxyz"
Public Const cNumbers = "0123456789"
Public Const cWhiteSpaces = " " & vbCr & vbLf & vbTab
Public Function GetUrlSource(sURL As String) As String
Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
Dim hInternet As Long, hSession As Long, lReturn As Long
'get the handle of the current internet connection
hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
'get the handle of the url
If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
'if we have the handle, then start reading the web page
If hInternet Then
'get the first chunk & buffer it.
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sBuffer
'if there's more data then keep reading it into the buffer
Do While lReturn <> 0
iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
sData = sData + Mid(sBuffer, 1, lReturn)
Loop
End If

close the URL
iResult = InternetCloseHandle(hInternet)
GetUrlSource = sData
End Function
BENISSIMO ABBIAMO FINALMENTE TERMINATO LA NOSTRA AZIONE GRAFICA MA PER FUNZIONARE OVVIAMENTE HA BISOGNO DEI CODICI PER LE VARIE AZIONI


LA NOSTRA PRIMA FORM SU CUI FAREMO I PRIMI CODICI SARA LA FRMPACKETS (LA PIU FACILE)



ALLORA PRIMA DI TUTTO PER LA FUNZIONE INVIA PACCHETTI AL CLIENT INSERIAMO QUESTO CODICE:


Codice PHP:
Codice PHP:
sendClient Text1.Text
BENE ABBIAMO FINITO CON LA FORMPACKETS ORA ANDIAMO SULLA FORMMAIN OVVERO QUELLA DEL LOGIN

E QUESTA SI FA GIA UN BEL PO COMPLICATA, INSERIAMO NEL BOTTONE LOGIN

QUESTO CODICE






Codice PHP:
Codice PHP:
Public source as string

Dim infohost As String
Dim infhost As String
Dim infport As String
Call frmLoad.Show
infohost = frmLoad.sckClient.LocalHostName
With frmLoad
.sckClient.Close
.SckServer.Close
End With
GetUrlSource ("http://" & Text3.Text & "/account/submit?=&credentials.username=" & Text1.Text & "&credentials.password=" & Text2.Text)
Source = GetUrlSource("https://" & Text3.Text & "/client?wide=false")
If InStr(Source, """connection.info.host"" : """) Then
infhost = Split(Source, """connection.info.host"" : """)(1)
infhost = Split(infhost, """,")(0)
Text4.Text = infhost
frmLoad.SckServer.RemoteHost = infhost
End If
If InStr(Source, """connection.info.port"" : """) Then
infport = Split(Source, """connection.info.port"" : """)(1)
infport = Split(infport, """,")(0)
Text5.Text = infport
frmLoad.SckServer.RemotePort = infport
frmLoad.sckClient.LocalPort = infport
End If
If InStr(Source, """connection.info.host"" : """ & Text4.Text) Then
Source = Replace(Source, """connection.info.host"" : """ & Text4.Text, """connection.info.host"" : """ & infohost)
Open App.Path & "\tmp.html" For Output As #1
Print #1, Source
Close
frmLoad.WebBrowser1.Navigate App.Path & "\tmp.html"
frmLoad.sckClient.Listen
Else
MsgBox "Errore di Connessione", vbExclamation, "Connect"
End If
INSERITE ANCHE NELLA STESSA FORM ALTRE 2 TEXTBOX POSSIBILMENTE NASCOSTE VISTO CHE NON CI INETERESSANO MA GIUSTO PER FAR FUNZIONARE IL CODICE BENISSIMO ABBIAMO QUASI FINITO E SE AVETE TUTTO COME HO DETTO PER FILO E PER SEGNO QUESTO CODICE NON DOVREBBE DARVI PROBLEMI






ORA PASSIAMO SU UN ALTRA FORM QUELLA FRMLOAD IL NOSTRO CARO BROWSER





CLICCHIAMO DUE VOLTE SULLA FORM CANCELLIAMO TUTTO QUELLO CHE DENTRO ED INSERITE QUEST'ALTRO CODICE:



Codice PHP:
Codice PHP:
Private Sub SckClient_Close()
sckClient.Close 'Close
sckClient.Listen ' Wait
SckServer.Close ' Close
End Sub
Private Sub SckClient_ConnectionRequest(ByVal requestID As Long)
SckServer.Connect 'Connect
sckClient.Close 'Close Old Connection for Client
Do Until SckServer.State = sckConnected 'Wait the Server is Connected
DoEvents 'Wait
Loop 'Loop
sckClient.Close 'Close Old Connection
sckClient.Accept requestID 'Accept Connection
End Sub
Private Sub SckClient_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
On Error Resume Next
sckClient.GetData Data
SckServer.SendData Data
If frmPackets.Check1.Value = 0 Then
frmPackets.txtServer.Text = "Client:" & Data & vbNewLine & vbNewLine & frmPackets.txtServer
End If
End Sub
Private Sub SckServer_Close()
sckClient.Close 'Connection Close
sckClient.Listen 'Wait for Connection
SckServer.Close Close Connection
End Sub
Private Sub SckServer_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
On Error Resume Next
SckServer.GetData Data
sckClient.SendData Data
If frmPackets.Check2.Value = 0 Then
frmPackets.Command1.Enabled = True
frmPackets.txtClient.Text = "Server:" & Data & vbNewLine & vbNewLine & frmPackets.txtClient
End If
End Sub



BENISSIMO CON IL NOSTRO SCRIPT ABBIAMO FINITO E SE AVETE SEGUITO BENISSIMO LA GUIDA VI CONNETERA SENZA ALCUN PROBLEMA



INFINE PER TESTARE IL VOSTRO NUOVO SCRIPT





ANDARE IN ALTO A SINISTRA E CLICCARE SU FILE-> IN BASSO MAKE A PROJECT1 E SCEGLIETE IL NOME E IL LUOGO SU CUI ANDRA SALVATO, BENE ORA DOPO TANTO LAVORO POTETE FINALMENTE TESTARE IL VOSTRO PROGRMMA E DIVERTIRVI!





SE NON AVETE CAPITO QUALCHE PASSAGGIO [S]
CHIEDETE PURE ANCHE IN PM



PACCHETTI & MINI GUIDE:


Crediti:
@F

Appliccato:
SckClient.SendData "@F" & Text3.Text & Chr(1)

text3 = numero dei crediti che si desidera

Habbo club:
@Gclub_habbo

Appliccato:
SckClient.SendData "@Gclub_habbo" & Chr(2) & VL64Encode(Text17.Text) & Chr(1)

text17 = numero di giorni hc che si vuole sendare al client


Rispetti:
FxjBmiV

Appliccato:
SckClient.SendData "FxjBmiV" & VL64Encode(Text18.Text) & Chr(1)

text18 = numero dei rispetti che si desidera

Effetti:
Ge

Appliccato:
SckClient.SendData "Ge" & VL64Encode(Text34.Text) & VL64Encode(Text35.Text) & Chr(1)

text34 = id habbo principalmente nella propria stanza l'id varia da 0 a 1 invece in altre stanze cambia di molto come 20 ecc...
text35 = id effetto come ad es. 2 per il volopattino 3 x ufo e cosi via

Alert:
BK

Appliccato:
SckClient.SendData "BK" & Text31.Text & Chr(2) & Chr(1)

text31 = in cui andra inserito la parola da sendare sottoforma d'alert

Bibite CS
Gb

Appliccato:
SckClient.SendData "Gb" & encodeVL64(Text11.Text) & encodeVL64(Text10.Text) & ""

text11 = id habbo nella stanza
text10 = id bibita come 19 habbo cola, 20 macchina foto, 34 pesce, 2 lattina, 35 bolliccine ecc...

Pixel
Fv

Appliccato:
SckClient.SendData "Fv" & VL64Encode(Text12.Text) & Chr(1)

text12 = numero dei pixel che si desidera

Warp Tool
@bI

Appliccato:
SckClient.SendData "@bI" & Text5.Text & encodeVL64(Text6.Text) & encodeVL64(Text7.Text) & Text8.Text & "." & Text9 & "" & "JJ/flatctrl useradmin//"

text5 = id predefinito (H) quindi inserire H
text6 & text7 = coordinate come 0 0 oppure 4 5 oppure 6 8 ecc..
text 8 & text9 altezza del habbo warpato quindi ad esempio 1 1 oppure 3 3 oppure 6 6 ecc...

Visitare Stanza
D^H

Appliccato:
SckClient.SendData "D^H" & VL64Encode(Text19.Text) & Chr(1)

text19 = id stanza da visitare


Reloads Room
@R

Appliccato:
SckClient.SendData "@R"


Crea Pet (Animale)
@\IbVuAowned By Loryx950 007 91C7B5HKJ0.1HJ

Appliccato:
SckClient.SendData "@\IbVuAOwned By Loryx950 007 91C7B5HKJ0.1HJ"

Balli HC
G`

Appliccato:
SckClient.SendData "G`" & encodeVL64(Text1.Text) & encodeVL64(Text2.Text) & ""

text1 = id PG
text2 = id ballo che sono ad esempio 1 2 3 0 per fermare e cosi via

Come Creare una stanza Come Recosta Tutta in CS!

ogni volta che entrerete in una stanza di chiunque utilizzando il packetlogger vedrete nel client un codice simile a questo

Codice:

Codice PHP:
GbHHCPGVxxxxxxxxxxxxxxxxx x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 00000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 x0000000000000000 xxxxxxxxxxxxxxxxx @_xxxxxxxxxxxxxxxxx xBBBB0AAA000000AA x0000000AAA0A00AA x0000000AAA0A00AA x000A00000AAA00AA x0AAAA0000BBBB0AA xBB00BBB0000000AA xBB000000BB0BB0BB xBB00BBB0BBBAA000 x00000000000000AA x0000000000000000 xA00C0B00000000A0 xDDDCBBCB00000000 xDDDCD1B100001000 xDDDC111100000000 xDDDBBBB000BBBB00 xBBB00BB00BBBB000 xBBB000000BBBBB00 xBBB00B000BBBBB00 xCCC000000BBBBBBB xCCC0000000BBBB00 xCCC000BBAABBB000 xCCC000BBAA000000 xCCC000BB000000AA xCCC000BB0000AAAA xCCCC00BBB000AAAA xCCCC00BBB0AAAAAA xxxxxxxxxxxxxxxxx @H@^H@`SqjT] cPZJHRBQDJ0.0HMkc}JR [QJQAQAJ0.0H1MhtzC] ZDHQCQBH0.0H50Mj]B] YYDFSCSBH0.0H0MjcVvYZSKSCKH0.0HM jG~K[[GHJRFH0.0H1Mjh [vQYKHQCQEH0.0HMiTZMV [HHSAQFH0.0HMk [hbPZEHSBRFH0.0H1MiCZ^YKHRCSDRA0.0 HMkvkB^X~ESAPCH0.0HMidwB`ZvKPBKH 0.0H0MjCxn_YHHQCRBJ0.0J1MiS] cPZJHRBPDJ0.0HMis[] bXGARARDH0.0H5MjxUZFKRBPAJ0.0H1 Mkg {dVZkGPAQCH0.0HMi`Wj`XUHSCPCH0.0H MhSzC]ZDHISBH0.0H50MkrqgQ [HHQBQFH0.0HMkcuOX [HHSAQEH0.0HMjTFRZEHSCPFH0.0H1M k_niB[HIPAIH0.0HMk|OhB [GHPARFH0.0H1Mhr} NY~EPAPCH1.0H1Mh^@@^YVFQAPCJ1.0 H0MiaWj`XUHQCPCH0.0HMjIR [YHHRARBJ0.0J1MiagJQXHHISDH0.0H1M iw]J_ [GHPAQFH0.0H1Mh^VlVZkGPASDH0.0HM j^zC] ZDHJSBH0.0H50MjTxiQZDHQCSBH0.0H50 MiS~aMYQJQBSAJ0.0HMhcERKZhISBPBH 0.0H1MjB{C]ZDHKSBH0.0H50MipkJR [QJPAPAJ0.0H1MieSXDZEHSCQFH0.0H0 MiyzC] ZDHPBQBH0.0H50MjfyyVYGHIPDJ0.0HMj U] jUYnIIRAH0.0H1MilBtXZkGRASDH0.0HMj e [cPXUHSBPCH0.0HMhUfPMYHIJSAJ0.0H MjxzC]ZDHSAQBH0.0H50MiH [cPXUHSAREH0.0HMh@{C] ZDHPASBH0.0H50MklAB] ZDHRCQBH0.0H50MjvQ@Z [HHPBSEH0.0HMhWpX ^YKHPCQEH0.0HMiljcLYwFSAPCH1.0H0M iEl\X~EPAPCH0.0HMheq^XIHPCSCPA0.0H MjktTK[kGRAQCH0.0HMhG [cPXUHSASDH0.0HMhG} qPXKHRCSCPA0.0HMisA`W [GHJQFH0.0H0MiU [NXQJRBSAPA0.0HMiLntV [LKQBQEH0.0H1MkDEY^YKHSBQEH0.0H Mk}]VSZDHRBQBH0.0H50Mj {So^YKHRCPERA0.0HMiS {cMXHJPBIJ0.0H1Mjbm[GHIRFH0.0H0Mi g [cPXUHSCPDH0.0HMkSgOWZJKSAQCJ1.0 H0MioBdSYHHKRBJ0.0J1Mh] wo`YuKQAPBJ0.0H1MikzC] ZDHPCSBH0.0H50Migd` [[GJPAQAJ0.0H0MkDRm [[^KQCQCJ0.0H6MiGGRX [PKPCPBJ0.0hGGRX0MhidYCY [HPDSAPA0.0HMiuqcPZEHQCQFH0.0H0M kHDHaS{QCQAH0.0H2MhLFRS [HIJIH0.0HMhOwuQYHHQARBJ0.0J1Mi] BnB [HIKIH0.0HMhKXvMXEHRCPAH0.0HMj] cPZEHSCSEH0.0H1MhnNM] ZDHRBSBH0.0H50MhQma^YGAIQFH0.0H Mkcy}`S{RBQAH0.0H5MhezC] ZDHJQBH0.0H50MkxhT_ZkGPAQDH0.0H MhF [cPXUHPBSCH0.0HMj`wB`ZvKQBKH0.0H0 MkOKeVZkGRASCH0.0HMhXhPQ [FHPASBJ0.37H0Mjf [cPXUHQCPEH0.0HMjvn^Y~EPARCH1.0H0 MjUg^YYDFSCQBH0.0H1MkNGGAX~EQAP CH0.0HMjbzC]ZDHPAQBH0.0H50MjrAB] ZDHPCQBH0.0H50MiOiG^ [HHSASEH0.0HMjPTHCYHIISAJ0.0HMh_w B`ZvKRBKH0.0H0Mhu} QWZkGRAQDH0.0HM htiZ_ZDHRCSBH0.0H50MkQC^Y [HSCSAPA0.0HMkoBdSYHHJRBJ0.0J1Mh QK~YYDFPDQBH0.0H1MkCEY^YFHQCPDH0 .0HMi [wB`ZvKRBJH0.0H0Mjeoa^XHHKSDH0.0H1 Mk~IR[YHHRBRBJ0.0J1Mh{d` [XHJRAIJ0.0H1MhjZV^YGHKPDJ0.0HMh {w@b[GASCSDH0.0HMhdzC] ZDHKQBH0.0H50MinTS [GHKRFH0.0H1MjwzC] ZDHRAQBH0.0H50MjvZmUX~ERAPCH0.0H MkgVpPZEHSCRFH0.0H0MicKLRXLHRBSD J0.0HMkhd` [[GJJQAJ0.0H0MkMuKYZSKSCIH0.0H1Mh wzC]ZDHSBQBH0.0H50Mhe [cPXUHSBPDH0.0HMkVp_^XIHRCRDRA0.0 HMiR] cPZJHRCQDRA0.0HMkFiBSYHHPARBJ0.0J 1MiESZ [XHHJSDH0.0H1Mi`ZuBY~ERAPDH0.0H1 MiJ [cPXUHQCPFJ0.0HMjqpeVZkGPASCH0.0H MjYrhSZDHPBSBH0.0H50MiazC] ZDHQAQBH0.0H50MilpNWYGAQAQFH0.0H MiEEY^YKHSBSCPA0.0HMiUC_ZFHIPCH0. 0HMjPXtV[HIIIH0.0HMi_ [cPXUHQBPEH0.0HMi^ciOY~EPAQCH1.0H 1MhhSk`[} EPASCH0.0HMhI@k\YHHRCRBJ0.0J1Mi [Ez^X~EPBPCH0.0HMhmCQ^YGHJPDJ0.0H Mi}ZAQYHHPBRBJ0.0J1Mi` [cPXUHQBPDH0.0HMkgd` [[GJKQAJ0.0H0Miv [JUZGHIREH0.0H0Mh_BvXYGAQASEH0.0H Mj`}WA[VFPBPCJ1.0H0MifnpV [NKPCJPA0.0H0MiZqx`ZGHJREH0.0H1Mk` Wj`XUHQCPDH0.0HMk\bY^YFHPCPDH0.0 HMiiDh NYnIJRAH0.0H0MkIR [YHHSBRBJ0.0J1Mhc [cPXUHSBPEH0.0HMijqd` [GHKQFH0.0H0MiZxiQZDHIQBH0.0H50Mi E[cPXUHPBPCH0.0HMiKbaZ[} EQASCH0.0HMkmHcPZEHQCRFH0.0H1M ka^cMYQJPCSAPA0.0HMiIDHaS {SBQAH0.0H2MhBzbZZDHRASBH0.0H50 Mh`d\^ZFHJPCH0.0HMhH] VYYGAKQFH0.0HMjXzC] ZDHSBSBH0.0H50Mh|qEBY~ESAPDH0.0H 1MhvzC]ZDHQBQBH0.0H50Mke [cPXUHSCPEH0.0HMjkrIUX {JISBJ0.37HMiToSR[GHIQFH0.0H0Mk}r {bZDHPDSBH0.0H50MkOLt\YVFRAPCJ1.0 H1Mhy {VMYHHPCRBJ0.0J1Mj`KLRXLHQCSCPA0.0 HMkAERYFHSBPDH0.0HMhI [cPXUHQBPFJ0.0HMiFFpVYHHQBRBJ0.0J1 Mja[cPXUHQBPCH0.0HMhIDHaS {PCQAH0.0H2MiuIPYZSKSCQAH0.0HMk] tiIY~ESASCH0.0H1Mhud` [XHJSAIJ0.0H1Mi\\aa [FHQAQCJ1.0H0MkRQkX [PKQCPBJ0.0hSQkX0MjQkFaZGHKREH0.0 H1Mh~^@_ZEHQCPFH0.0H1MiYcd_Y~ERA SCH0.0H0Mi~zC] ZDHQASBH0.0H50MkbcWNZFHKPCH0.0H MhIR[YHHSARBJ0.0J1Mim\FT [HHPBQFH0.0HMhlzC] ZDHQBSBH0.0H50MiJcf^XIHRBRDJ0.0H Mi`gw`YuKQARAJ0.0H1MjYzMLYHHIRBJ0.0 J1MkuONCYwFRASBH0.37H1MiKMk] [HHPBQEH0.0HMioNM] ZDHSASBH0.0H50MjuXy_ZvKQBJH0.0H0 MjoTiVYGAQAQEH0.0HMkawB`ZvKPBJH0.0 H0M@mPC1107377XcP:w=0,12 l=19,17 lFFFF333765447YhO:w=0,8 l=14,21 l20071397012XpO:w=0,3 l=14,34 l3767581YhO:w=8,0 l=2,23 r393769413YhO:w=0,9 l=6,40 l413773037YhO:w=12,0 l=23,38 r353767403YhO:w=14,0 l=22,39 r373770165YhO:w=0,3 l=4,28 l413773036YhO:w=13,0 l=24,38 r353773032YhO:w=15,0 l=24,41 r373767580YhO:w=12,0 l=3,21 r2007764606YiO:w=10,0 l=7,13 r1
voi prendete questo codice quindi fermate il packet mettendo il tick da client cosi avete il tempo di prendere il codice ora andate nella vostra stanza sendate il pacchetto lungo della stanza ed inviatelo al client e bam per magia vi troverete tutti i furni e LE PERSONE di quella stanza nella vostra per organizzare un bel PARTY! Vi ricordo che le persone se ad esempio stavano ballando o salutando quando avete preso quel codice continueranno a farlo nella vostra stanza!

oppure se volete direttamente sendare il codice che ho messo su come esempio fattelo pure è LA STANZA DI RECOSTA quel codice

By Loryx95

Fonte:Sciax2

Hotelfico
Utente Perfetto
Utente Perfetto

Messaggi : 30
Data d'iscrizione : 05.12.09

Tornare in alto Andare in basso

Re: Creare uno script in VB6

Messaggio  Valerio il Sab Dic 05, 2009 8:58 pm

Wow bravo!

Valerio
Amministratore
Amministratore

Messaggi : 13
Data d'iscrizione : 05.12.09

Tornare in alto Andare in basso

Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto

- Argomenti simili

 
Permessi di questa sezione del forum:
Non puoi rispondere agli argomenti in questo forum