Merhaba,
Aþaðýda kodlarýný verdiðim Telnet sunucusu ,bilgisayarýnýza internet veya yerel að uzerinden eriþerek neler yapabileceðinizi anlatan basit bir kod orneðidir.

Bu kodlarý kullanmadan once form´unuzun uzerine bir adet Winsock nesnesi ekleyerek index´ini 0 yapýnýz.

'Winsock index deðiþkeni
Dim Mc As Long
'Gelen veri deðiþkeni (Birden fazla kullanýcý kullanaiblsin diye bu deðiþkenede index vereceðiz)
Dim Gv() As String
Private Sub Form_Load()
'Port tanýmlanýyor.
Winsock1(0).LocalPort = 23
'Port acýlýyor.
Winsock1(0).Listen
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
If Index = 0 Then
Mc = Mc + 1
Load Winsock1(Mc)
ReDim Gv(Mc)
Winsock1(Mc).LocalPort = 0
Winsock1(Mc).Accept requestID
Winsock1(Mc).SendData "220 Telnet Server´e hoþ geldiniz.!" & vbCrLf & "1- Note Defterini calýþtýr" & vbCrLf & "2- Dos prompt calýþtýr." & vbCrLf & "3- Baðlantýyý kes" & vbCrLf
End If
End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Winsock1(Index).GetData Gv(Index)
If Gv(Index) = 1 Then
Shell "notepad.exe"
ElseIf Gv(Index) = 2 Then
Shell "command.com"
ElseIf Gv(Index) = 3 Then
Winsock1(Index).Close
End If
End Sub
baksana59
__________________