Toggle sidebar

[GUIDA]Alcune Spiegazioni Su Come Codare un server in VB6

E

ElGrandepeppe

Utente Esperto
Autore del topic
7 Aprile 2007
1.044
0
Miglior risposta
0
Questa guida è stata creata da : ElGrandepeppe e Ketto93 per lo sciax2 Forum , Ogni tanto l'aggiorneremo aggiungendo cose nuove in modo che impariate a codare un server :emoji_slight_smile:.

Salve cari utenti di sciax2 Forum , in questa guida Fatta da me e ketto93 spiegheremo Alcune cose su come codare un server In Visual BASIC 6.0.

Programmi Che Dovete avere :
Visual basic professional - Express Edition 6.0 ( possibilmente con tutte le funzioni )
Source Del Server che volete codare/modificare , per iniziare consiglio le usa111 V9 :emoji_slight_smile:.

Guida :
Cominciamo con le cose basiliari , allora prima di tutto bisogna conoscere bene il Visual basic 6.0 e tutte le funzioni di calcolo, collegamento , operazioni e come fare delle librerie WINSOCK.

Passiamo al procedimento :

scaricare le source da qui:
-> USA111 V9 -
Perfavore, Entra oppure Registrati per vedere i Link!

-> Genga -
Perfavore, Entra oppure Registrati per vedere i Link!

-> Darkhabbo V1.9 Edited By PunkLessons -
Perfavore, Entra oppure Registrati per vedere i Link!

-> Golden Shox V5 -
Perfavore, Entra oppure Registrati per vedere i Link!

-> Habbo Resource -
Perfavore, Entra oppure Registrati per vedere i Link!

-> Fuselight Source -
Perfavore, Entra oppure Registrati per vedere i Link!

-> Primals Source -
Perfavore, Entra oppure Registrati per vedere i Link!

-> Infobus Source -
Perfavore, Entra oppure Registrati per vedere i Link!

Salvarle nel Pc e estrarle in una cartella.
Aprire il file project1 o project.vbp ( lo trovate nella cartella delle source ) vi trovate difronte ad una finestra vuota , a destra c'è un menù , Quello di sopra comprende Form e Mod (Spiegheremo dopo cosa sono), quello centrale che permette di modificare i form e quello di sotto per vedere la posizione del form.

Andare nel menù : Form e Aprire la Form Main ( FrmMain ) , ora spunterà l'immagine del server al centro della pagina del Visual basic.
Nell'immagine ci sono Degli orologi ( Detti Timer ) dei bottoni ( Detti Command Button ) delle finestre grigie ( Li Vengono scritti i log del server ) e altro...
In questo screen Indicherò alcune cose :
2a9cncy.jpg


Ora vi spiegherò qualcosa sui form e sulle mod .
Allora , La Form Che sarebbe la finestra del programma/server è il file in cui dobbiamo codare alcune funzioni del server e del programma.
Il Mod ( Module ) è il file in cui vengono codate le funzioni degli habbo es : La console , la chiamata mod , i comportamenti degli animali ecc...




Adesso vi spiegherò un pò di cose sul codice VB dei module e in parte dei form,
se apriamo ModKonsole ( per esempio ) troveremo questo codice :
21j67hg.png



2je1jdf.png



2v3ogf9.png


Screen By ketto93 ( Lo Ringrazio ^^ ).

Negli screen vedrete il codice Public Function loadconsole o altro , la parola public Function significa funzione pubblica ( Lo avevate già capito ma dirlo nn è male ), tutto l'altro codice che vedete sotto sono i file a cui è collegata la console x esempio al file count in cui fa i conteggi dei messaggi , nella lista habbos cioè per collegarsi agli altri habbo ecc....
Come vedete nella finestra della ModKonsole troverete il seguente codice :
If FSO.OpenTextFile(DBP & "habbos\" & LCase(Client(Index).Name) & "\friendlist.txt", ForReading).AtEndOfStream = False Then
Clicca per espandere...
Friendlist = Split(FSO.OpenTextFile(DBP & "habbos\" & LCase(Client(Index).Name) & "\friendlist.txt", ForReading).ReadAll, ">")
For a = 1 To UBound(Friendlist)
If Friendlist(a) <> "" And Friendlist(a) <> ">" Then
TheirName = Replace(Friendlist(a), "<", "")
TheirID = ""
For b = 1 To frmMain.SockI
If LCase(Client(b).Name) = LCase(TheirName) And frmMain.socket(b).State = sckConnected Then
TheirID = b
Clicca per espandere...
Bene , come vedete questo codice porta al file friendlist.txt che sarebbe il file della lista amici degli habbo , tramite questo codice il client riesce a fare un collegamento tra il client - il server e il File.txt.

2vvujaa.jpg


In questa Immagine vi spiegherò un pò la ModhabboClub , ovvero il modulo dell'habboclub , cme vedete ho segnato delle parti in rosso , la prima :
hcpresent(0) = ReadINI("HC", "present1", SettingIni) 'read saved presents
hcpresent(1) = ReadINI("HC", "present2", SettingIni)
hcpresent(2) = ReadINI("HC", "present3", SettingIni)
hcpresent(3) = ReadINI("HC", "present4", SettingIni)
hcpresent(4) = ReadINI("HC", "present5", SettingIni)
hcpresent(5) = ReadINI("HC", "present6", SettingIni)
hcpresent(6) = ReadINI("HC", "present7", SettingIni)
hcpresent(7) = ReadINI("HC", "present8", SettingIni)
hcpresent(8) = ReadINI("HC", "present9", SettingIni)
hcpresent(9) = ReadINI("HC", "present10", SettingIni)
hcpresent(10) = ReadINI("HC", "present11", SettingIni)
Che Indica I mesi hc Che Si sono configurati.
Il Secondo :
FSO.OpenTextFile(DBP & "furni\count.txt", ForWriting).Write TheCount2
FSO.CopyFolder DBP & "buy_furni\club_furni\" & ToGet(a), DBP & "furni\" & TheCount1
FSO.CopyFolder DBP & "buy_furni\club_furni\" & ToGet(a), DBP & "furni\" & TheCount2
FSO.CreateTextFile (DBP & "furni\" & TheCount1 & "\destination.txt")
FSO.OpenTextFile(DBP & "furni\" & TheCount1 & "\destination.txt", ForWriting).Write TheCount2
FSO.CreateTextFile (DBP & "furni\" & TheCount2 & "\destination.txt")
FSO.OpenTextFile(DBP & "furni\" & TheCount2 & "\destination.txt", ForWriting).Write TheCount1
PresentBoxContent = TheCount1 & ";" & TheCount2 & ";"
Ovvero i collegamenti ai furni HC da dare ogni mese e ai count dei furni dell'habbo club
E Infine l'ultima parte dell'habbo club :
OldCount = Val(FSO.OpenTextFile(DBP & "furni\count.txt", ForReading).ReadAll)
TheCount = OldCount + 1
FSO.OpenTextFile(DBP & "furni\count.txt", ForWriting).Write TheCount
FSO.CopyFolder DBP & "buy_furni\club_furni\" & ToGet(a), DBP & "furni\" & TheCount
PresentBoxContent = PresentBoxContent & TheCount & ";"
Che sarebbe sempre La parte dei furni ( Il Codice per contarli ) .
Per Ora questa è una parte della guida , ogni volta io e ketto aggiungeremo nuove cose in modo da fare una bella guida completa.


Ora vedo se posso hostarvi io il Visual basic 6.0 Express o professional .


Guida By ElGrandepeppe e ketto93 ( Ancora in lavorazione )

Aggiornamento By peppe Ore 22:50 Del 21/05/08
 
Ultima modifica:
  • Like
Reactions: 1 person
Si vede che lo fate solo per guadagnare messaggi. La guida non è ancora finita ed uno va a dire: "Bella Guida" ...... -.-
 
bella,buona e utilissima guida xPP proprio qll ke cercavo :-)
grande ketto e peppe xPP anke se nn è finita è buona :-)
in qst modo sicuramente evitate di far creare discussioini inutili del tipo :

COME SI CODA UN SERVER ?
MI AIUTATE A CODARE UN SERVER ?

e altro xPPP ripeto bravissimi :emoji_relieved:
 
invece di "accusarli" di "accumulare" messagge ( cs ke secondo qnt ha dtt ketto nn hanno intenzione di fare .__.°°° ) dovresti ringraziarli x la guida -_-
 
M a forse DarkVegeta intendeva quelle xsone che dicono "Bella guida" anche se non è finita!!cioè intende che anche se la guida non è finita dicono così x accumulare mex!!
 
Ketto non si riferiva a noi , si riferiva agli utenti che dicevano bella guida anche se non abbiamo ancora finito :emoji_slight_smile: cmq....ancora vi dobbiamo spiegare altre cose.... Come codare Infobus , chiamata mod ecc...

P.S : Inserito alcune funzioni dei codici della console.
 
Devi accedere o registrarti per rispondere qui.
 
 
Top
Indietro