Où trouver Winsock ? oORésolu

Question

Comment obtenir Microsoft Winsock 6.0 ?

J'ai Visual Basic.NET mais pas Visual Basic 6.
J'ai r&#233;cup&#233;rer un fichier .ocx d'un ami qui l'a, mais il m'affiche une erreur de license.

Aidez moi je suis d&#233;sesp&#233;r&#233; !

beltegeuse · Accepted Answer

Bon alors pour utiliser Winsock en vb.net :



Il faut que tu importe le controle

pour ce faire tu met avant la class :



Imports System.Net


Imports System.Net.Sockets



exemple :



Imports System.Net

Imports System.Net.Sockets







Public Class frmMain

    Inherits System.Windows.Forms.Form



#Region " Code g&#233;n&#233;r&#233; par le Concepteur Windows Form "   

[.......]

#End Region



Apres pour utiliser le control tu declare :



Dim socket as socket

Dim TcpServer As System.Net.Sockets.TcpListener 'Pour le Tcp

...etc

MSDN est ton ami!



J'espere que ca va t'aider!

cs_CanisLupus · Answer

Salut,

L'ocx de winsock se nomme MSWINSCK.OCX. Si c'est bien &#231;a que tu as r&#233;cup&#233;r&#233;, place-le dans c:\windows\system32.

Ensuite, dans "d&#233;marrer/ex&#233;cuter", tape :

regsvr32 c:\windows\system32\mswinsck.ocx

Ca devrait l'enregistrer dans la registry et tu pourras travailler avec

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

LordMoth · Answer

Je l'ai fait comme tu l'a demand&#233;, mais il m'affiche toujours la m&#234;me erreur :/

LordMoth · Answer

Si c'est dans le registre, je ne dois pas red&#233;marrer ?

cs_CanisLupus · Answer

Red&#233;marres quand m&#234;me, mais sous xp je ne sais pas si c'est vraiment n&#233;cessaire.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

LordMoth · Answer

OK.
Bon ben merci quand m&#234;me
Mais &#231;a fonctionne toujours pas :/
J'ai v&#233;rifi&#233;, il est dans le bon path, mais apparamment Visual Basic n'en veut pas.

Message exact :
"Vous ne disposez pas de la license requise pour utiliser ce contr&#244;le ActiveX."

cs_CanisLupus · Answer

Il doit manquer des d&#233;pendances mais je t'avouerais que je ne sais pas exactement lesquelles.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

redblast · Answer

Salut



Quand tu installe vb6, il recopie les OCX, mais installe aussi une
license te permettant de les utiliser (des cl&#233;s dans la bdr) donc
impossible de les importer dans VB si tu n'a pas les cl&#233;s (et c'est
vrai pour la plupart des OCX livr&#233;s avec VB6).

LordMoth · Answer

Je ne conna&#238;t pas le "etc" comme tu dit, mais je vais t&#226;cher de comprendre seul ce contr&#244;le.
Sinon j'ai vu de multplies codes qui ont un rapport avec ce composant qu'est Winsock.
Je vais essayer &#231;a, merci

LordMoth · Answer

Bon j'abandonne ^^'

Si quelqu'un me servait carr&#233;ment sur un plateau :

1.) Se connecter &#224; un serveur sous la forme "terres2lineage.gameserve.com/".
2.) Extraire l'addresse IP du serveur et l'afficher dans un Textbox.
3.) Se d&#233;connecter.

J'ai trouv&#233; la m&#233;thode .connect, mais je pige rien de rien ^^'
Trouver un syst&#232;me pour d&#233;tecter l'addresse IP n'en parlons pas. Le mettre dans un textbox ? fiction.
Se d&#233;connecter... Ah nan &#231;a j'ai trouv&#233; 

En tout cas merci &#224; tous pour votre aide, principalement &#224; beltegeuse.
Quand &#224; MSDN, figure-toi que &#231;a fait 2 semaines que je suis sur ce probl&#232;me, et la librairie n'a jamais su m'aider correctement ^^' Chuis pas dou&#233; avec les biblioth&#232;ques :/

beltegeuse · Answer

Oki je vais essayer de te faire ca.
J'ai ma petite id&#233;e!

LordMoth · Answer

OK 

Sinon au cas ou vous n'auriez pas devin&#233; au nom de l'URL, le programme que je cr&#233;e est un qui est capable de d&#233;tecter l'IP &#224; partir d'une URL donn&#233;e (&#231;a &#231;a le fait pas encore  ), de mettre &#224; jour un fichier System via cette IP (&#231;a c'est fait) puis lancer le programme correspondant pour que celui-ci puisse se connecter au bon serveur.

Merci &#224; tous en tout cas

LordMoth · Answer

Bon toujours pas de r&#233;ponse...

Voil&#224; ce que j'ai trouv&#233; : 
socket.RemoteEndPoint()

Je voulais l'assigner avec label1.text, mais le programme me sort une confusion entre 2 types incompatibles (System.net.remoteendpoint & String)

Socket.connect()

Ici impossible de comprendre ce que je dois mettre entre les parenth&#232;ses, il sort une incompatabilit&#233; &#233;galement (System.net.endpoint & String).

Socket.close()

Ouf, &#231;a c'est bon, pour une fois 
Bien qu'il produise une erreur puisqu'il ne d&#233;tecte aucune connexion &#224; fermer...

Si l'on pouvait m'expliquer comment faire pour que ces probl&#232;mes d'incompatibilit&#233; s'arrangent, i am in paradise...

beltegeuse · Answer

C'est normal car il faut obligatoirement une adresse Ip pour se connecter

de plus la fonction pour se connecter c'est :



En option explicit :

 Public Socket As Socket = Nothing







Sub connected

 Dim ipserveur As String

        ipserveur = "192.168.0.91"



        'apel de la fonction conected socket

        Socket = ConnectSocket(Ipserveur, 5825)

End sub





 Private Shared Function ConnectSocket(ByVal server As String, ByVal port As Integer) As Socket



        Dim Socket As Socket = Nothing

        Dim hostEntry As IPHostEntry = Nothing

        Try

            hostEntry = Dns.Resolve(server)

        Catch ex As Exception

            If InStr(ex.ToString, "No such host") >= 1 Then

               
MessageBox.Show("Adresse IP non valide ou h&#244;te non connect&#233;.",
"Connexion", MessageBoxButtons.OK, MessageBoxIcon.Error)

                Exit Function

            End If

            MessageBox.Show(ex.ToString)

        End Try



        Dim address As IPAddress



        For Each address In hostEntry.AddressList

            Dim endPoint As New IPEndPoint(address, port)

            Dim
tempSocket As New Socket(endPoint.AddressFamily, SocketType.Stream,
ProtocolType.Tcp)



            Try

                tempSocket.Connect(endPoint)

            Catch

               
MessageBox.Show("Erreur lors de la connexion : h&#244;te non joignable.",
"Connexion", MessageBoxButtons.OK, MessageBoxIcon.Error)

                Exit Function

            End Try



            If tempSocket.Connected Then

                Socket = tempSocket

                Exit For

            Else

               
MessageBox.Show("Erreur lors de la connexion : non connect&#233;.",
"Connexion", MessageBoxButtons.OK, MessageBoxIcon.Error)

                Exit Function

            End If



        Next address



        Return Socket

    End Function



c'est tir&#233; du code de Ipchat

LordMoth · Answer

Tout petit probl&#232;me...
Comment je transmet l'IP sur un textbox ? 

Sinon &#231;a a l'air de fonctionner

beltegeuse · Answer

Euh bonne question :/ je vais essayer de voir ca

LordMoth · Answer

Merci trop sympa

beltegeuse · Answer

Bon voila je pense que si tu declare dans option explicit :

Dim hostEntry As IPHostEntry = Nothing



alors ta textbox c soit :



Textbox1.text = hostEntry

ou



tu declare dans option explicit :

 Dim address As IPAddress



et ta textbox c'est :

Textbox1.text = address 



Alors c bon?

beltegeuse · Answer

Mais tu l'apelle apres la fonction :

exemple :



Socket = ConnectSocket(Ipserveur, 5825)

Textbox1.text = ......tec

LordMoth · Answer

Avec Textbox1.text =  hostEntry :
Une valeur de type 'System.Net.IPAddress' ne peut pas &#234;tre convertie en 'String'.

 Avec TExtbox1.text = HostEntry.ToString : 
La r&#233;f&#233;rence d'objet n'est pas d&#233;finie &#224; une instance d'un objet.

Merci quand m&#234;me.
Sinon je pensais passer par :

Console.WriteLine(hostEntry)
Textbox1.text  = Console.read

cs_lacousine · Answer

textbox1.text = m_CoordServeur.Address.ToString( )

Mieux vaut &#234;tre blonde et poser des questions que de rester ignorante !!!!

Où trouver Winsock ? oO

21 réponses

Discussions similaires