---

Jeg har lidt problemer med at få W3 Sockets til at forbinde til en
newsserver. Jeg sidder lige nu og tester det i et vbs-script, men det
virker ikke.

Min kode er:

Function GetNNTP(strhost)
   set Socket = CreateObject("Socket.TCP")
   socket.Host = strHost
   Socket.TimeOut = 100000
   Socket.Open
   Socket.SendLine("group k-net.public.snak")

   Socket.WaitForDisconnect()
GetNNTP = Socket.Buffer
   Socket.Close()
End Function

msgbox GetNNTP("news.k-net.dk:119")

Men den timer ud, når jeg forsøger at forbinde til serveren. Der er ingen
problemer med at telnette til serveren via port 119 fra den klient, hvor
jeg kører scriptet.

Kan I se, hvad der er galt ?

--
Jesper Stocholm
http://stocholm.dk
http://asp.stocholm.dk
Svar til gruppen og ikke til mig privat pr. email :|

---

"Jesper Stocholm" <spam200203@stocholm.dk> skrev i en meddelelse
news:Xns91CF6A316DEDAspamstocholmdk@130.226.1.34...
> Jeg har lidt problemer med at få W3 Sockets til at forbinde til en
> newsserver. Jeg sidder lige nu og tester det i et vbs-script, men det
> virker ikke.

> Socket.SendLine("group k-net.public.snak")
> Socket.WaitForDisconnect()

Hej Jesper

Du bruger WaitForDisconnect() og serveren afbryder jo ikke socket
forbindelsen blot ved en "GROUP" kommando. Prøv at sende en QUIT kommando
efter din GROUP sådan her:


Function GetNNTP(strhost)
set Socket = CreateObject("Socket.TCP")
socket.Host = strHost
Socket.TimeOut = 100000
Socket.Open
Socket.SendLine("group k-net.public.snak")
Socket.SendLine("quit")
Socket.WaitForDisconnect()
GetNNTP = Socket.Buffer
Socket.Close()
End Function

msgbox GetNNTP("news.k-net.dk:119")

--
Jakob Andersen