Commande M2M via socket et Windev

Cartes Ethernet IPX800
15

Bonsoir à tous, alors c’est bien cela, il fallait envoyer un mot de passe avant.

Voici le bout de code qui fonctionne : (pas très propre comme codage mais c’est pour donner un exemple)

RES est un entier //reçoit le resultat

// ouverture Socket IPX
SocketConnecte("IPX",9898,"192.168.2.41")
SI ErreurDétectée ALORS
	Erreur("Impossible de créer la socket ",ErreurInfo(errComplet))
	FinProgramme()
FIN

SocketChangeModeTransmission("IPX",SocketSansMarqueurFin)

Res = SocketEcrit("IPX","key=xxxxxxxx")
SI PAS Res ALORS
	Erreur(ErreurInfo(errComplet))
FIN
affiche("retour socket : " + Res)

Res = SocketEcrit("IPX","Set011")
SI PAS Res ALORS
	Erreur(ErreurInfo(errComplet))
FIN
affiche("retour socket : " + Res)

SocketFerme("IPX")

Merci !!!

2 « J'aime »