Accueil > Forum > > > > Aide sur la class Socket pour clien ntp
Aide sur la class Socket pour clien ntp
jeudi 27 mars 2008 à 21:30:34 |
Aide sur la class Socket pour clien ntp

slyderkiller
|
slt a tt Je voudrais me connecter a un serveur ntp pour qu'il me transmet l'heure mais je ne connais pas vraiment cette class je bug sur la connexion il me dit que le serveur a rejeté ma connexion Pour le protocol j'ai trouvé [ Lien ][code] Imports SystemImports System.TextImports System.IOImports System.NetImports System.Net.SocketsImports Microsoft.VisualBasic Public Class Form1PrivateSharedFunction ConnectSocket(ByVal server AsString, ByVal port AsInteger) As SocketDim s As Socket = NothingDim hostEntry As IPHostEntry = Nothing' Get host related information.hostEntry = Dns.GetHostEntry(server) ' Loop through the AddressList to obtain the supported AddressFamily. This is to avoid' an exception that occurs when the host host IP Address is not compatible with the address family' (typical in the IPv6 case).Dim address As IPAddressForEach address In hostEntry.AddressListDim endPoint AsNew IPEndPoint(address, port)Dim tempSocket AsNew Socket(endPoint.AddressFamily, SocketType.Dgram, ProtocolType.Udp)tempSocket.Connect(endPoint) If tempSocket.Connected Thens = tempSocket ExitForEndIfNext addressReturn sEndFunction ' This method requests the home page content for the specified server.PrivateSharedFunction SocketSendReceive(ByVal server AsString, ByVal port AsInteger) AsString'Set up variables to write to the server.Dim ascii As Encoding = Encoding.ASCIIDim request AsString = Date.UtcNow.ToStringDim bytesSent(8) As [Int64]Dim bytesReceived(8) As [Int64]bytesSent(0) = CBool(1056964608)bytesSent(5) = 0 bytesSent(6) = 0 bytesSent(7) = CBool(Date.UtcNow.ToString)' Create a socket connection with the specified server and port.Dim s As Socket = ConnectSocket(server, port)If s IsNothingThenReturn"Connection failed"EndIf' Send request to the server.s.Send(bytesSent, bytesSent.Length, 0) ' Receive the server home page content.Dim bytes As Int32' Read the first 256 bytes. Dobytes = s.Receive(bytesReceived, bytesReceived.Length, 0) LoopWhile bytes > 0Return bytesReceived(5).ToStringEndFunction PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickLabel1.Text = SocketSendReceive( "time.windows.com", 123)EndSubEnd Class[/code]
|
|
jeudi 27 mars 2008 à 21:52:41 |
Re : Aide sur la class Socket pour clien ntp

jack
|
Salut C'est du VB.Net, ça, pas du VB6 Catégorie modifiée
|
|
Cette discussion est classée dans : port, system, server, socket, byval
Répondre à ce message
Sujets en rapport avec ce message
Morpion en socket [ par wm198876 ]
Bonjour, Je suis actuellement en BTS d'informatique de gestion et j'ai un morpion à programmer en socket en VB gràce à Visual Basic 2005.Je suis lo
Morpion en socket [ par wm198876 ]
Bonjour, Je suis actuellement en BTS d'informatique de gestion et j'ai un morpion à programmer en socket en VB gràce à Visual Basic 2005.Je suis lo
port parralèle [ par benbonjour ]
Bonjour,Je souhaite commander le port parralèle avec VB2008. J'ai fais une application windows forms simple. Je colle la valeur des sorties voulues d
Imopsible d'ouvrire une Workbooks aprés avoir ouvert excel [ par Sephirothgex ]
Yop je déballe le petit code :Imports Excel = Microsoft.Office.Interop.ExcelPublic Class Form1 Dim j As Integer Dim str_bor As String Dim
Aide pour une basse de données [ par rolodo ]
bonjour a tout(e)s je m'explique dans vb 2008 j'ai commencé ceci : Atelier 4 - Manipuler des données de fichierje comprend pas tout mais j'essaie. ded
Affichage de données de prod VB 2008 Express [ par puipuich ]
Bonjour à tous !!! Je post pour la première fois ici car (là) je suis bloqué avec un problème à la con. Pour faire court (je donnerais des détails s
InvalidArgument=La valeur '0' n'est pas valide pour 'index' dans listview [ par guice11 ]
J'ai créer une listview qu'est alimenté de cinq ligne et 2 colonnes grace à un bouton. Je peux sélectionner une ligne afin d'obtenir l'index sélection
Progressbar et TimeOfDay [ par spawnermax ]
bonjour, voilà,j'ai voulu tout simplement faire, 3 Progressbar. seconds minutes heures pour l'heure et les minutes pas de problème! mais pour les
Afficher un texte 5 seconde après un clic [ par julien2424 ]
[color=green] Bonjour à tous... Je suis débutant, et je fais appel à vous pour savoir si vous pouvez m'aider. J'aimerai que lorsque que je clique su
Livres en rapport
|
Derniers Blogs
L'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIESL'INTERFACE NATURELLE DE WINDOWS PHONE 7 SERIES par odewit
La tendance est aux interfaces naturelles (NUI), et le keynote de Bill Buxton au MIX l'a bien souligné.
La charte graphique et ergonomique de Windows Phone 7 a donc été entièrement repensée en vue d'obtenir un maximum d'efficacité sur ce point. En re...
Cliquez pour lire la suite de l'article par odewit COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE?COMMENT MAPPER UNE VUE SQL SUR UNE COLLECTION DE COMPLEX TYPE? par Matthieu MEZIL
Avec EF, les vues doivent être mappées sur des entity types. Le problème c'est que les entity types doivent avoir une clé. Avec EF, nous avons les complex type qui n'ont pas de clé mais les vues ne peuvent pas être mappées dessus. Avec EF4, il est possibl...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL?[WF4] UN BINDING ACTIVITY/ACTIVITYDESIGNER QUI PASSE MAL? par JeremyJeanson
Certain d'entre vous on peut être vécu cette situation embarrassante après quelques temps passer avec WF4 : Au début avec mon " ActivityDesigner" , tout allait bien. Et puis un jour j'ai au des problèmes de " Binding" . Alors nous sommes allé sur le site ...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|