Winsock uden .ocx

Tja, du kan jo starte med at downloade API Guide fra http://www.allapi.net - her er alle API funktioner samlet i grupper, og godt beskrevet. Dernæst kan du se på deres eksempel med Windows sockets:
http://www.allapi.net/apilist/socket.shtml#

... Klik på "Download File" eksemplet

Har en API guide, og jeg har prøvet den der.. Men hvordan sætter du den til listen mode?
Ikke nogle der har et link til fx tutorial hvor der er server og client.. Sådan man kan se nogen lunde hvordan de arbejder sammen (virker)
Det var på den måde jeg lærte det med .ocx

http://www.allapi.net/vbexamples/vbexample.php?vbexample=SERVERCLIENT&screenshot=1&category=SOURCE

Hvis du er dus med (Winsock.ocx), så er her et godt api class module (Winsock)

http://www.vbip.com/winsock-api/csocket-class/csocket-class-01.asp
http://www.vbip.com/winsock-api/csocket-class/CSocket-1.0.12.zip

'------------------------------------------ Form1 ------------------------------------------
' Sådan bruger du det:
' du skal bruge CSocket.cls og MSocketSupport.bas + en TextBox (Text1)

Option Explicit

Private WithEvents Winsock As CSocket

Private Sub Winsock_OnClose()
'Winsock CSocket
End Sub

Private Sub Winsock_OnConnect()
'Winsock CSocket
Winsock.SendData "GET /winsock-api/csocket-class/csocket-class-01.asp HTTP/1.0" & vbCrLf & vbCrLf
End Sub

Private Sub Winsock_OnConnectionRequest(ByVal requestID As Long)
'Winsock CSocket
End Sub

Private Sub Winsock_OnDataArrival(ByVal bytesTotal As Long)
'Winsock CSocket
Dim strText As String
Winsock.GetData strText, vbString, bytesTotal
Text1.Text = Text1.Text & strText
End Sub

Private Sub Winsock_OnError(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)
'Winsock CSocket
End Sub

Private Sub Winsock_OnSendComplete()
'Winsock CSocket
End Sub

Private Sub Winsock_OnSendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
'Winsock CSocket
End Sub

Private Sub Form_Load()
  Set Winsock = New CSocket
  Winsock.Connect "www.vbip.com", "80"
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set Winsock = Nothing
End Sub
'------------------------------------------ Form1 ------------------------------------------

Det ville være GINIALT hvis det bare virkede :|
får en fejl lige her
Private Sub Class_Initialize()
    '
    'Socket's handle default value
    m_lngSocketHandle = INVALID_SOCKET
    'Initialize the Winsock service
    m_lngMaxMsgSize = MSocketSupport.InitWinsockService '<< lige her:
    'den lyder sådan: Variable not defined
    '
End Sub

Det er i class filen. Hvis bare jeg / du kan få det til at virke ryger der sq lige 200 points til dig ;)

Du får sq point alligevel. spørgsmålet er besvaret! men det kunne være dejligt hvis du kunne hjælpe mig med overstående..

Det kan godt ske dette lyder underligt men : sjh DU ER GUD. DEN CLIENTSERVER ting jeg downloadede ER GULD!!!!
Never mind med overstående.
Ville sq gerne kunne give dig 1000 points hvis jeg kunne ;)

/nameless

Jeg for ikke nogle fejl. prøv at fjerne "MSocketSupport."

m_lngMaxMsgSize = InitWinsockService

eller se om der er 2 funktioner der heder "InitWinsockService" i dit projekt.

Desværre er jeg ikke GUD men det er tæt på ;-)

Håber at du for det til at virke, og tak for point :-)