Lo del vb6 lo digo porque estás en el foro de Vb no de .NET y el código está etiquetado y coloreado bajo VB.

Te dejo lo que pides, simplemente obtengo las coordenadas actuales del Button y comienza un bucle que mueve el control mientras Y sea menor que 220:

Public Sub Mover_Button()
Dim X as Integer = Button1.Location.X
Dim Y as integer = Button1.Location.Y
 
While Y > 220
Y-=3
Button1.Location = New Point(X,Y)
End While
End Sub
 

Saludos!

Primero, esto no es vb6 amigo... tu mismo has dicho que trabajas en Visual Studio, pues dicha plataforma lleva integrada el framework de .NET
Segundo: el control por lo que veo (no he probado el código) solo se movería una vez ya que cada vez que se llama al evento MouseEvent declaras la variable Y con el mismo valor.

Entonces tenemos que la expresión y = y - 3 tendrá siempre el mismo valor, por lo que uno deduce que solo se moverá una vez el botón. ¿Qué hacer? Manejar Y habiendo declarado la variable de forma global.

Saludos.

La advertencia describe que si airmon airtun y derivados dejan de funcionar quiza debas matar esos procesos, tal vez tengas que matarlos.

Saludos.

Para matar un proceso conociendo su PID creo que se hace mediante

Kill pid

Donde pid es el identificador del proceso.

Aunque el post sea muy antiguo... El término es llevado a la confusión la mayoría de las veces, de ahí que salgan estos posts... Hacker es aquel que está al día de las nuevas tecnologías, quien conoce los fallos de seguridad de los sistemas, autodidacta o no destacan por su gran capacidad de aprendizaje, de visualizar las cosas como si estuvieran enfrente de su ordenador. Es aplicable a muchos campos de la informática, no tienes porque saber programación, puedes ser un bestia en otro campo sin tener conocimientos de otros, aunque a mi la programación me chifla.

Luego estaría por ahí la ética hacker, para que utilizar los conocimientos si para hacer "el bien" o darles a todos por la cpu.

Saludos.

Restaura el sistema a un estado anterior, vas a  Inicio > Todos los programas > Accesorios > Herramientas del Sistema > Restaurar Sistema y ahí escoges un punto de restauración segun la fecha.

Saludos.

Me dio por mirar tu perfil y hay vi que salia tu nick.. ya no sabia que compartias cuenta con ese tal berni.

Por cierto, lei la entrada...el batch es "interesante" al comienzo pero no conseguiras gran cosa....

No eres tú?xDD

¿No se te ocurrió pensar en que la forma de desinfección que mencionas sería para un caso en el que el atacante se conecta a nosotros? Si cambia de IP no hay conexión directa, pero y la conexión inversa? Lo mejor para un troyano + keylogger sería funcionar con la inversa conectando nuestro ordenador con el del atacante.

Ante la duda un buen scan.

Saludos.

VanX cuanto tiempo sin verte por aquí, que tal vamos?

Lo que pides es enviar pulsaciones a una aplicación externa verdad? Bueno con la API SendMessage es posible, los parametros a pasar son el Handle de la ventana donde quieres enviar la pulsacion (API Findwindow), el mensaje de Windows , el caracter en HEX y un count (veces que quieres que se pulse).

He utilizado FindWindowEx y FindWindowByClass ya que para escribir en el Notepad necesitas obtener su ventana hija.

Te dejo un ejemplo:

Imports System.Runtime.InteropServices
 
Public Class Form1
    Public Const WM_CHAR = &H102
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
    End Function
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
                      ByVal childAfter As IntPtr, _
                      ByVal lclassName As String, _
                      ByVal windowTitle As String) As IntPtr
    End Function
 
    <DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Shared Function FindWindowByClass( _
     ByVal lpClassName As String, _
     ByVal zero As IntPtr) As IntPtr
    End Function
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim hWndPadre As IntPtr = FindWindowByClass("Notepad", IntPtr.Zero)
        Dim Handle As IntPtr = FindWindowEx(hWndPadre, IntPtr.Zero, "Edit", Nothing)
        SendMessage(Handle, WM_CHAR, &H4B, 5)
    End Sub
End Class
 

Saludos.