begin process at 2012 02 16 18:05:16
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > Forum > 

VB.NET et VB 2005

 > 

Réseaux & Internet

 > 

Sockets

 > 

Aide sur la class Socket pour clien ntp

Derniers messages déposésPoser une question dans le forum ou lancer une discussion

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

 System

Imports

 System.Text

Imports

 System.IO

Imports

 System.Net

Imports

 System.Net.Sockets

Imports

 Microsoft.VisualBasic

 

 

 

Public

Class Form1

PrivateSharedFunction ConnectSocket(ByVal server AsString, ByVal port AsInteger) As Socket

Dim s As Socket = Nothing

Dim 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 IPAddress

ForEach address In hostEntry.AddressList

Dim endPoint AsNew IPEndPoint(address, port)

Dim tempSocket AsNew Socket(endPoint.AddressFamily, SocketType.Dgram, ProtocolType.Udp)

tempSocket.Connect(endPoint)

If tempSocket.Connected Then

s = tempSocket

ExitFor

EndIf

Next address

Return s

EndFunction

 

' 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.ASCII

Dim request AsString = Date.UtcNow.ToString

Dim 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 IsNothingThen

Return"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.

 

 

Do

bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)

LoopWhile bytes > 0

Return bytesReceived(5).ToString

EndFunction

 

 

 

PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Label1.Text = SocketSendReceive(

"time.windows.com", 123)

EndSub

End

Class

[/code]
jeudi 27 mars 2008 à 21:52:41 | Re : Aide sur la class Socket pour clien ntp

jack

Administrateur CodeS-SourceS
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 [Catégorie modifiée VB6 --> .Net] envoi d'un fichier par RS232 [ par wajdibh ] bjr à tous, svp j'ai besoin de votre aide pour achevé mon mini projet,(VB.NET). le projet consiste a envoyer un fichier soit .txt ou excel qui contien reception de donnée port serie [ par zzr69 ] Bonjour, j'essaye de plusieurs jours de recevoir des données sur mon port série et de les afficher sur dans une textbox je me suis inspiré de plusieu Erreur InvalidOpérationExcepion [ par jbgames ] Bonjour, je crée actuellement une application plutôt simple et lorsque je veux la déboguer le message suivant apparait : [IMG]http://img809.i Comment faire progresser une ProgressBar avec un BackgroundWorker, voici mon code... [ par fabiano13 ] Bonjour, Je n'arrive pas à faire progresser ma progressbar avec un backgroundworker. Ais-je oublié de déclarer quelque chose ? De plus je pensais qu Aides s'il vous plait ? [ par zyza ] bonjour j'ai un problème donc voila j'ai mis les script sur des image (ouvrir, enregistrer etc...) mais quand je le test les script ne fonctionne pas. multi onglet comment faire naviguateur [ par david45400 ] Bonjour je me présente David je travaille dans l'informatique dans une entreprise de dépannage j'ai 25 ans , en alternance école plus formation, je veillez me couriger ce code ,d'un equation de 2m degre [ par badbadtoo ] Public Class Form1 Dim a As Double Dim b As Double Dim c As Double Dim d As Double Dim x1 As Double Dim x2 As Double Dim s


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,616 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)