Public Class Form1
 
    Dim isbinded As Boolean = False
    Dim Winamp As clsWACC = New clsWACC
    Dim WithEvents mytimer As New Timer With {.Interval = 50, .Enabled = True}
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles mytimer.Tick
        isbinded = Winamp.Bind()
        ' Label1.Text = isbinded
        ' isbinded = Nothing
    End Sub
 
End Class

        Public Sub New(ByVal handle As IntPtr, ByVal str As String)
            'opens the process
            hWinamp = OpenProcess(DAccess.PROCESS_ALL_ACCESS, False, waPID)
            'If hWinamp.Equals(IntPtr.Zero) Then
            '    'exception
            'End If
 
            remStr = str
            remoteBuf = AllocWinamp(handle, Convert.ToUInt32(str.Length + 1))
            Dim localBuf As IntPtr = Marshal.StringToHGlobalAnsi(str)
 
            WriteProcessMemory(hWinamp, remoteBuf, localBuf, str.Length + 1, Nothing)
            Marshal.FreeHGlobal(localBuf)
        End Sub

    Dim path As String = Nothing
    Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Winamp", False)
 
   'Binds to WinAmp
    Public Function Bind() As Boolean
        Return Bind("")
    End Function
 
    Public Function Bind(ByVal PathToExecutable As String) As Boolean
        hWnd_Winamp = WinAPI.FindWindow(lpClassName, Nothing)
 
        'waProcess = New Process
        waProcess.EnableRaisingEvents = True
 
        'If WinAmp window handle not found, try to launch it
        If hWnd_Winamp.Equals(IntPtr.Zero) Then
 
            'if path was not specified, try to find it in the Windows registry
            If PathToExecutable = "" Then
                'Dim path As String
                'regKey = Registry.CurrentUser
                'regKey = regKey.OpenSubKey("Software\Winamp", False)
                If regKey IsNot Nothing Then
                    path = Convert.ToString(regKey.GetValue(""))
                    waProcess.StartInfo.FileName = path & "\Winamp.exe"
                    regKey.Close()
                Else
                    Return False
                End If
            Else
                waProcess.StartInfo.FileName = PathToExecutable
            End If
 
            Try
                waProcess.Start()
            Catch ex As System.ComponentModel.Win32Exception When ex.ErrorCode = -2147467259
                Debug.WriteLine("Executable not found")
                Return False
            Catch ex As Exception
                Debug.WriteLine("unknown exception")
                Return False
            End Try
 
            waProcess.WaitForInputIdle()
            hWnd_Winamp = waProcess.MainWindowHandle()
            waPID = waProcess.Id
        Else
 
            'WinAmp handle found
            'now bind to WinAmp process
            'get PID from hWnd
 
            WinAPI.GetWindowThreadProcessId(hWnd_Winamp, waPID)
            If waPID = 0 Then
                Return False
            End If
 
            waProcess = Process.GetProcessById(waPID)
            waProcess.EnableRaisingEvents = True
 
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
 
        End If
 
        'if hWnd of the main window is still zero,
        'it was not possible to launch or bind to WinAmp
        If hWnd_Winamp.Equals(IntPtr.Zero) Then
            Return False
        Else
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
        End If
    End Function

        If hWnd_Winamp.Equals(IntPtr.Zero) Then
             ' NADA
        Else
 
            'WinAmp handle found
            'now bind to WinAmp process
            'get PID from hWnd
 
            WinAPI.GetWindowThreadProcessId(hWnd_Winamp, waPID)
            If waPID = 0 Then
                Return False
            End If
 
            waProcess = Process.GetProcessById(waPID)
            waProcess.EnableRaisingEvents = True
 
            hWnd_Playlist = GetHWND(WinampWindow.Playlist)
            hWnd_Equalizer = GetHWND(WinampWindow.Equalizer)
            hWnd_Video = GetHWND(WinampWindow.Video)
            Return True
 
        End If

        '========================                        =========================
        '======================  GetWindowThreadProcessId  =======================
        '========================                        =========================
        'Retrieves the identifier of the thread that created the specified window 
        'and, optionally, the identifier of the process that created the window.
        <DllImport("user32.dll", SetLastError:=True)> _
        Public Shared Function GetWindowThreadProcessId( _
                                        ByVal hwnd As IntPtr, _
                                        ByRef lpdwProcessId As Integer) As Int32
        End Function

    Private Shared Function GetHWND(ByVal Window As WinampWindow) As IntPtr
        Return SendWA_IPC(Window, Message.IPC_GETWND)
    End Function
 
    Private Shared Function SendWA_IPC(ByVal param As Int64, ByVal MessageName As Message) As IntPtr
        Return WinAPI.SendMessage(hWnd_Winamp, WinAPI.Msg.WM_USER, IntPtr.op_Explicit(param), IntPtr.op_Explicit(MessageName))
    End Function
 
        '===============================           ===============================
        '=============================  SendMessage  =============================
        '===============================           ===============================
        'Sends the specified message to a window or windows. It calls the window 
        'procedure for the specified window and does not return until the window 
        'procedure has processed the message.
        <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
        Public Shared Function SendMessage(ByVal hWnd As IntPtr, _
                                           ByVal Msg As Msg, _
                                           ByVal wParam As IntPtr, _
                                           ByVal lParam As IntPtr) As IntPtr
        End Function

No es posible crear una nueva página de seguridad para la pila

sub loquesea(sender as object) handles algún evento cualquiera
     sender.propiedad = uno(32)
end sub
 
function uno(valor as int32)
    return dos(valor)
end sub
 
function dos(valor as int32)
    ' hacer cosas...
    return valor modificado
end function

Save_Icon(Resize_Image(Bitmap.FromFile(PictureBox_Regedit.Tag), "Regedit.ico")

Private Sub Save_Icon(ByVal Source As Bitmap, ByVal Filename As String)
 
    Try
        If Not Directory.Exists(AppDir) Then Directory.CreateDirectory(AppDir)
        If Not Directory.Exists(AppIcons) Then Directory.CreateDirectory(AppIcons)
        Source.MakeTransparent()
        Source.Save(Path.Combine(AppIcons, Filename), ImageFormat.Icon)
    Catch ex As Exception
        Throw New Exception(ex.Message)
    End Try
 
End Sub
 
Private Function Resize_Image(ByVal img As Image, ByVal Width As Int32, ByVal Height As Int32) As Bitmap
    Dim Bitmap_Source As New Bitmap(img)
    Dim Bitmap_Dest As New Bitmap(CInt(24), CInt(24))
    Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
    Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
    Return Bitmap_Dest
End Function

 [+] Syntax:

 REG2BAT [Registry File] [Output File]

:: Converted with REG2BAT By Elektro H@cker
 
REM Windows Registry Editor Version 5.00
 
REG ADD "HKEY_CURRENT_USER\Test" /V "Test Binary" /T "REG_BINARY" /D "1234567890" /F
REG ADD "HKEY_CURRENT_USER\Test" /V "Test Dword Dec" /T "REG_DWORD" /D "0x00bc614e" /F
REG ADD "HKEY_CURRENT_USER\Test" /V "Test Dword hex" /T "REG_DWORD" /D "0x12345678" /F
REG ADD "HKEY_CURRENT_USER\Test" /V "Test Expand SZ" /T "REG_EXPAND_SZ" /D "%%Temp%%\Hello" /F
REG ADD "HKEY_CURRENT_USER\Test" /V "Test Multi SZ" /T "REG_MULTI_SZ" /D "Hello\0world!\0" /F
REG ADD "HKEY_CURRENT_USER\Test" /V "Test Qword Dec" /T "REG_QWORD" /D "0x00000000000010e1" /F
REG ADD "HKEY_CURRENT_USER\Test" /V "Test Qword Hex" /T "REG_QWORD" /D "0x1234567891234567" /F
REG ADD "HKEY_CURRENT_USER\Test" /V "Test String" /T "REG_SZ" /D "By Elektro H@cker" /F