winsock chat

[Sando60]

Hallo,

Ik heb op internet al een tutorial gevonden over hoe je een winsock chat maakt in visual basic.
Ik wil dat de server bij de client programma's kan openen.
Ik heb al van alles geprobeerd, maar het lukt niet.

ik heb bij DataArrival het volgende geprobeerd:

Dim OpenEXE as string

sock1.Getdata OpenEXE

Shell "msconfig"

end sub

En bij de Client, command1

Dim OpenEXE As String

sock1.SendData OpenEXE
end sub

Maar dat doet niks

Wat doe ik verkeerd?

bvd

 

[kevinsoftware]

Veel,

Try this:

CLIENT:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim sckstr As String
Winsock1.GetData sckstr
If sckstr = "shellmsconfig" Then
    Shell "msconfig.exe"
End If
End Sub

SERVER:

Private Sub Command1_Click()
Winsock1.SendData "shellmsconfig"
End Sub

Ik neem aan dat je weet hoe je een verbinding kan maken?

Laat even weten of het lukt,