DeadlyPredator
Messages postés222Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention30 juin 2008
-
18 févr. 2004 à 18:40
cs_corentin666
Messages postés3Date d'inscriptionlundi 2 février 2004StatutMembreDernière intervention24 mars 2004
-
24 mars 2004 à 11:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_corentin666
Messages postés3Date d'inscriptionlundi 2 février 2004StatutMembreDernière intervention24 mars 2004 24 mars 2004 à 11:41
On le met dans un module ton truc ????? Merci d'avance
UniCyclon
Messages postés38Date d'inscriptionjeudi 27 juin 2002StatutMembreDernière intervention27 février 2006 19 févr. 2004 à 11:14
La réponse est simple :
J'ai vu l'utilité de ce code lorsque j'ai souhaité faire un programme étant capable d'afficher des pages PHP. J'ai donc réalisé en Visual Basic un serveur supportant le PHP pour servir les pages prévues pour cette application. Dans ce cas, je n'ai nul besoin de me soucier des clients, étant donné que c'est le programme qui se connecte au serveur (un EXE séparé), il suffit donc qu'il sache quel est le port du serveur, et c'est réglé. J'avoue malgré tout que l'utilité de ce code est limitée.
DeadlyPredator
Messages postés222Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention30 juin 2008 18 févr. 2004 à 21:44
Ha pi une question : quelle est l'utilitée de ce code car comment veux tu qu'un client se connecte à toi si ton port vari?
DeadlyPredator
Messages postés222Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention30 juin 2008 18 févr. 2004 à 21:44
Ha pi une question : quelle est l'utilitée de ce code car comment veux tu qu'un client se connecte à toi si ton port vari?
DeadlyPredator
Messages postés222Date d'inscriptionjeudi 15 janvier 2004StatutMembreDernière intervention30 juin 2008 18 févr. 2004 à 18:40
NON. J'aime pas ça. c pas beau un goto. j'ai pluz simple :
<
Function FindPort(Start as integer) as integer
on error resume next
for i = start to 65000
winsock1.localport=i
winsock1.listen
if winsock1.state = 2 then FindPort=i:exit for
winsock1.close
'Doevents <- je suis pas sûr que c'est nécéssaire
next
end function
>
24 mars 2004 à 11:41
19 févr. 2004 à 11:14
J'ai vu l'utilité de ce code lorsque j'ai souhaité faire un programme étant capable d'afficher des pages PHP. J'ai donc réalisé en Visual Basic un serveur supportant le PHP pour servir les pages prévues pour cette application. Dans ce cas, je n'ai nul besoin de me soucier des clients, étant donné que c'est le programme qui se connecte au serveur (un EXE séparé), il suffit donc qu'il sache quel est le port du serveur, et c'est réglé. J'avoue malgré tout que l'utilité de ce code est limitée.
18 févr. 2004 à 21:44
18 févr. 2004 à 21:44
18 févr. 2004 à 18:40
<
Function FindPort(Start as integer) as integer
on error resume next
for i = start to 65000
winsock1.localport=i
winsock1.listen
if winsock1.state = 2 then FindPort=i:exit for
winsock1.close
'Doevents <- je suis pas sûr que c'est nécéssaire
next
end function
>