Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ärger mit dem Winsock Control
Autor: CyberMous
Datum: 20.01.02 16:46
Ich hoffe das hilft dir weiter : option explicit dim Sended as byte Private Sub Timer1_Timer() If Not Winsock1.State = 7 then 'Winsock wird geschlossen Winsock1.Close 'Die IP des Servers Winsock1.RemoteHost = Deine IP 'Der Port des Servers Winsock1.RemotePort = Dein Port 'Verbinde Winsock ! Winsock1.Connect end if if Winsock1.State = 7 and not sended = 1 then Winsock1.SendData "Ich sende einen Text " sended = 1 end if end sub Jetzt musst du nur noch beim Timer die gewünschte Zeit einstellen. Mit dem Code müsste das Programm alle z.b. 15 Minuten (hängt vom Timer ab) versuchen sich zu deinem Rechner zu verbinden und wenn es sich verbinden konnte einmal den Text "Ich sende einen Text " zu dem Rechner, mit dem es verbunden ist senden.

Ärger mit dem Winsock Control	99	Stefan	20.01.02 15:32
Re: Ärger mit dem Winsock Control	45	CyberMous	20.01.02 16:46
Re: Ärger mit dem Winsock Control	39	Stefan	20.01.02 16:53

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen