Ağdaki Makineyi Kapatmak

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
__________________