[VB2008] Conexão Direta (Winsock)

[ReeN]

Meio de Conectar duas Forms, muito utilizado em Trojans/RAT e KL's

Crie um novo projeto


Adicione:

1 Controle Winsock (AxWinsock1)
1 Button (Button1)
3 TextBox (TextBox1, TextBox2 e TextBox3)

No Evento Button1_Click:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWinsock1.Close()
AxWinsock1.Connect(TextBox1.Text, TextBox2.Text) ' TextBox1 = IP, TextBox2 = Porta
End Sub

No Evento AxWinsock1_ConnectEvent:

Private Sub AxWinsock1_ConnectEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxWinsock1.ConnectEvent
TextBox3.Text = "Funcionando"
End Sub

Compile e Crie um novo projeto


Adicione:

1 Controle Winsock (AxWinsock1)
1 TextBox (TextBox1)


No Evento Form1_Load:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AxWinsock1.Close()
AxWinsock1.RemotePort = "3232"
AxWinsock1.LocalPort = "3232"
AxWinsock1.Listen()
End Sub

No Evento AxWinsock1_ConnectionRequest:

Private Sub AxWinsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionR equestEvent) Handles AxWinsock1.ConnectionRequest
AxWinsock1.Accept(requestID:=1)
End Sub

Compile e teste

Obs: No RemotePort e LocalPort, voce pode escolher a porta qe usará, mas tera de usar a mesma para colocar no TextBox2 do primeiro projeto
Obs2: Para testar use o IP "127.0.0.1" ou seu proprio IP

Download do Winsock: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...