Toggle sidebar

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

la discussione è gia vecchia mi dispiace ma non so se andra avanti perche se leggete i messaggi prima elgrandpeppe a distrutto il pc

Forza ketto ce la puoi fare anche tu!!
 
ElGrandepeppe ha detto:
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 :

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
Clicca per espandere...

bella guida ma l'ultima parte è sbagliata ...
il secondo riquadro serve per creare i file necessari se il furno in questione si tratta di un teletrasporto ...
mentre il terzo riquadro viene eseguito nel caso in cui il furno non è un teletrasporto e quindi le operazioni da fare sono di meno ...
 
Scusate ma la guida? non dovevate completarla? e sistemereste i link dei source? ty,

Daviex
 
Non ci sarà stato tempo rikku...Io infatti è da un pò di tempo che non vedo elgranpeppe sul forum
 
Grazie per il lavoro
Appena è finita mi metto a creare un server
Buon lavoroooooooo!!!!!!!!!!!!!!!!!
 
Fa nulla.. ha fatto un commento, augurando buon lavoro .. e informando che aspetta la guida finita...Non esageriamo..
 
scusate se Resuscito una discussione di 7 mesi fa ma vorrei sapere se questa guida va bene anche x i server in v26
 
Devi accedere o registrarti per rispondere qui.
 
 
Top
Indietro