Uzerinde bir adet winsock nesnesi olacak şekilde boş bir form oluşturun
Terminal olarak kullanacağımız bu Formun load kısmına alttakileri ekleyin
'-----------------Terminal -------------
Private Sub Form_Load() ' Form Yuklendiğinde
Winsock1.Close 'Soketi Kapat
Winsock1.LocalPort = 2004 '2004 Nolu Portu Ac
Winsock1.Listen 'Dinlemeye gec
End Sub
Private Sub Form_Unload(Cancel As Integer) 'Formdan Cıkarken
Winsock1.Close 'Soketi kapatmayı unutma
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) ' Karşıdan Talep Geldiğinde
If Winsock1.State 0 Then Winsock1.Close 'Eğer soket kapalı değilse once soketi kapat
Winsock1.Accept requestID 've Gelen Bağlantıyı Kabul Et
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'Bir Data Geldiğinde
Dim Gelen As String ' Gelen Adında Bir String Değişken Ata
Winsock1.GetData Gelen 'Winsock ile Gelen Bilgiyi Al
If Gelen = "Kapat" Then 'Eğer Gelen Bilgi Kapat 'a Eşit ise
Shell "c:windowsrundll32.exe user,exitwindows" 'Windows u Kapat
End If
End Sub
'--------------Terminal Bitti-------------
Yeni bir form acın
Formunuza 1 tane winsock 2 tane buton ekleyelim
1. buton bağlantı icin diğeri ise emri karşıya gondermek icin kullanılacak
'----------------Server-------------------
Private Sub Command1_Click()'1.butona Yani bağlan a Basıldığı Zaman
Winsock1.Close'Once Soketi kapat
Winsock1.Connect "ip.ip.ip.ip", 2004'Sonra belirtilen ip ye 2004.cu port dan bağlan
End Sub
Private Sub Command2_Click()'2. butona basıldığı zaman
Winsock1.SendData "Kapat" 'Kapat emrini gonder
End Sub
__________________