Cum Faci Un Program Rat Simplu

Pagini: 1

# dYeZ
Administrator
Din: Alexandria
Postari: 40

Am sa va arat cum se face un simplu program rat.
Deschideti Visual Basic, New Project, Standard EXE si dati OK.

Click dreapta Components bifati Microsoft Winsock Control 6.0 si dati Apply.

Faceţi dublu clic pe form şi adăuga acest coduri:

Code:

Private Sub Command1_Click()
    Winsock1.Close
    winsick1.Connect Text1.Text, Text2.Text 
End Sub

Private Sub Command2_Click()
    Winsock1.SendData "open_s"
End Sub
Private Sub Command3_Click()
    Winsock1.SendData "msgbox"
End Sub

Acum creaţi o noua forma de server şi trebuie doar să adăugaţi winsock pe ea:

Faceţi dublu clic pe form şi adăuga acest coduri:

Code:

Private Sub Form_Load()
    Winsock1.Close
    Winsock1.LocalPort = 23950
    Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.Close
    Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    Call Winsock1.GetData(data, vbString)
    If data = "open_s" Then
        Shell "notepad.exe"
    ElseIf data = "msgbox" Then
        MsgBox "N-IT"
    End If
End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Winsock1.Close
    Winsock1.Listen
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Winsock1_Click()

End Sub

_______________________________________
# dYeZ a trecut pe aici

Idu' meu este: s1k_xp

Pagini: 1

Mergi la