SERVEUR EN VB, POUR HEBERGER SES PAGES WEB SUR SON PC, ET QUE LES AUTRES Y ACCÈDENT !

Commentaire de kilomaster le 25/02/2002 22:02:54

trop génial depuis le tps que je cherchais ça!!!
et puis on apprend plein de trucs là dedans.
C'est ou que t'a appris ça?

Commentaire de config le 26/02/2002 08:21:39

euh..... it doz not vork !
mé chui naze alor g du me tromper mais ça marche pas kan meme......

Commentaire de visualbasic le 26/02/2002 22:00:03

Il est terrible ton programme!!
FELICITATION!

Pourrais tu peux me faire un cours (sous word) sur les winsock et les réseaux avec VB?

Commentaire de celiphane le 28/02/2002 00:16:44

visualbasic : pas de probleme, donne moi une adresse email à laquelle je pourrai t'envoyer le tout, mais attention, je le ferai oui, mais quand j'aurai le temps ! (rassure toi je suis encore un petit étudiant de première année, donc j'ai souvent du temps :-) )

Billou : alors voila :
- tout d'abord procure toi une page web, va sur n'importe quel page d'un site et enregistre la sur ton disque (fichier enregistrer sous...)
- ensuite copie là (enregistre la directement) dans le même répertoire de l'application
- renomme la en "index.html"
- clique sur le boutton "mettre en ligne"

Dorénavant tu peux tester cette adresse dans ton explorateur internet quelqu'il soit : "http://[ip]:[port]"     où tu va logiquement remplacer [ip] par l'adresse IP spécifié dans la zone IP du programme et [port] par la valeur spécifiée dans la zone port du programme
par exemple tu pourrais avoir ceci "http://62.25.4.107:666

Evidemment ceci est un exemple purement fonctionnel, tu peux garder le nom original de la page et spécifié ce nom dans la zone page par défaut, tu peux créer tout un site en plaçant tes autres pages où tu veux sur ton disque, tant que tes liens dans tes pages sont bien saisies pour les relier entre elles !
aussi tu peux changer le port si celui-ci (666 par défaut) est déjà utiliser par ta machine
tchao

Commentaire de Danette le 23/07/2002 03:00:12

Tout simplement GENIAL...

Commentaire de Proger le 05/12/2002 17:28:16

Bravo, un serveur http qui fait 6Ko de code, c'est un record!

Bon, même si tu t'occupe d'autres projets en ce moment, y'a un truc très genant dans le code : sub dataarrival :

Open Info(1, 2) & Nom For Binary As #Num
Nom = ""
Do
  Get #Num, , Car  '#1
  Nom = Nom & Car  '#2
Loop Until EOF(Num)
Close #Num
W2(Index).SendData Nom '#3

#1 : arg faire une boucle pour charger les octets 1 par 1!!!
#2 : arg accumulé les caractères 1 par 1 en commençant par la chaine final (nom$=nom$ & car$ bcp plus lent que nom$=car$ + nom$ si nom$ est grand)
#3 : arg on a tout chargé en ram avant de l'envoyer!!!

bon, on reprend, calmement ;) :
on déclare notre string gentiment :
dim Nom$ as string * 1480
1480 car c'est proche du MTU de la connexion ADSL, ce qui permet d'optimiser la bande passante.
Open Info(1, 2) & Nom For Binary As #Num
Do
  Get #Num, , Nom$
if W2(index).state = 7 then W2(Index).SendData Nom
Loop Until EOF(Num)
Close #Num

a peu de chose près, c'est comme ça que ça marche. avec cette méthode j'atteind les 3Mo/s en réseau local (potentiellement plus si les machines étaient mieux foutu)

Sinon merci bien pour ton code, je vais m'en servir pour faire un serveur http bridé : avec limitation de bande passante (histoire de simuler un 56K, etc...)

Commentaire de Alan71 le 08/04/2003 20:24:22

vrément pour le plaisir de pozer un comment, tu peu utiliser le controle up/down o lieu d'une vscrollbar, C plu zoli.
il est dans les microsft common control il me semble

Commentaire de inconnuanonyme le 10/05/2003 18:06:49

celiphane,
T'es impressionant comme gars.
Je viens de regarder toutes tes sources, et à vrai dire, elles sont vraiment riches et interessantes.
Très bonne continuation.

Ps : serait - il possible de savoir dans quel domaine tu étudies en ce moment ? (en ce qui me concerne je suis en première année de Maths Sup)
A ui aussi, lé bien l'image que t'as pris. (vient d'où ?)

++

Commentaire de june97310 le 19/08/2003 02:15:01

salut,
je ne comprends pas pourquoi ç amarche une fois sur 2...c super space ce qui se passe..en tout cas merci du tuyau c cool qd ça marche... ;0)...si qq1 à une explication à me fournir...merkkkk i

Commentaire de joelmarie le 06/06/2005 22:18:54

Excellent , ça marche parfaitement bien , je n'ai pas encore lu le code ( je suis impatient de le découvrir ) .Ceci correspond exactement à mes besoins .
10/10


                    MERCI

Commentaire de leproc le 07/04/2007 16:26:06

Alors là bravo. C'est vraiment génial ce code.
Et moi j'ai mis 10/10