Hvor dan får jeg kontakt til en news server?

News servere kører på port 119.

Du smider en MS WinSock ocx på en form - så skulle følgende kode kunne sætte dig på sporet.

Sub Form_Load()
WinSock1.RemoteHost = "news.inet.tele.dk"
WinSock1.RemotePort = 199
WinSock1.Connect
End Sub

Sub WinSock1_DataArrival(ByVal bytesTotal as Long)
Static sStatus As Integer
Dim InData as String
WinSock1.GetData InData
If Mid(InData,1,3) = "+OK" Then
  Text1.SelStart = 0
  Text1.SelText = "Recieving " & InData & vbCrLf
  Select Case sStatus
  Case 0
  Text1.SelStart = 0
  Text1SelText = "Sending HELP" & vbCrLf
  WinSock1.SendData "HELP" & vbCrLf
  Case 1
  Text1.SelStart = 0
  Text1SelText = "Getting new groups since 991101 010101" & vbCrLf
  WinSock1.SendData "newgroups 991101 010101" & vbCrLf
  Case 2
  Text1.SelStart = 0
  Text1SelText = "Closing" & vbCrLf  WinSock1.Close
End If
End Sub

Herfra skulle det være let at se hvordan resten af sessionen bør kører.

Forresten så kører news.inet.tele.dk kun hvis du ahr Opasia eller Tele Danmark Internet Basis abonnement.

Ellers skal du nok kontakte din ISP og høre hvilken newsserver du skal bruge.

Eller gå ind på http://tucows.inet.tele.dk og downloade en newsserver, men det er nok at skyde gråspurve med atomraketter. (eller med andre ord; at formaterer en lommeregner)

Jeg har prøvet med 2 forskellige server, jeg kan få kontakt til dem begge med andre programmer.
jeg kan se på mit Inet icon i tray bakken, at computerne snakker lidt sammen ca. 4 sek. hvor efter der sker dette:
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

Number:10061
Description:Connection is forcefully rejected
Scode:-2146818227
Source:C:\WINDOWS\SYSTEM\MSWINSCK.OCX
HelpFile:
HelpContext:0
CancelDisplay:Sand
hvad er en ISP

jeg har lige opdaget at du har skrevet anden port i koden prøverlige.

IPS = Internet Service Provider (Internet Udbyder)

News kører normalt på port 119... kom vidst til at skrive 199 i sourcen...

er:
If Mid(InData, 1, 3) = "+OK" Then
for at se om der er forbindelse?
fordi jeg får svaret inData =
2200 news.get2net.dk -- get2net news server (Typhoon v1.1.8)

If Mid(InData, 1, 3) = "+OK" er fordi jeg er van til POP3 servere, de returnerer altid +OK hvis der ikke opstod fejl. Du kan roligt fjerne den If sætning, eller andre den til If InData = Some_Sort_Of_Error_Message_Constant eller noget i den retning... ;)

Endnu en rettelse:

WinSock1.SendData "newgroups 991101 010101" & vbCrLf

ændres til

WinSock1.SendData "newgroups 991001 010101" & vbCrLf

Ja der er også et par punktummer der mangler, og get2net vil gerne have 4 tal i årdet så tak for hjælpen. lige en sidste ting hvorfor & vbCrLf?

vbCrLf = chr(13) & chr(10) altså et linieskift, ellers tror serveren ikke at din commando er færdig og venter på at du sender mere... nogle servere. Husk på at alle servere er forskellige og at du kun kan væpre sikker på de enkelte commandoer med commandoen HELP.

Help kan også bruges på de fleste POP3/SMTP servere.
HTTP på port 80.
FTP på port 19 tror jeg nok.
POP3 på port 110.
SMTP på port 25.
NNTP på port 119.
ICQ på port 4000.
Ellers kan jeg ikke lige komme på andre.

Håber det var det du søgte.

/WinKill
One OS shall bring them all,
in darkness bind them.