Visual basic ile hazırladığımız telnet server sayesinde bilgisayarınıza uzaktan erişip işlem yapmak artık çok kolay.
Aþaðýda kodlarýný verdiðim Telnet sunucusu ,bilgisayarýnýza internet veya yerel að üzerinden eriþerek neler yapabileceðinizi anlatan basit bir kod örneðidir.
Bu kodlarý kullanmadan önce form´unuzun üzerine 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 açý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 çalýþtýr" & vbCrLf & "2- Dos prompt çalýþ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
not: Alıntıdır. Kodlar çalışıyor.
Aþaðýda kodlarýný verdiðim Telnet sunucusu ,bilgisayarýnýza internet veya yerel að üzerinden eriþerek neler yapabileceðinizi anlatan basit bir kod örneðidir.
Bu kodlarý kullanmadan önce form´unuzun üzerine 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 açý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 çalýþtýr" & vbCrLf & "2- Dos prompt çalýþ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
not: Alıntıdır. Kodlar çalışıyor.