Mensajes

Google -> MSDN y ya miras las apis q kieras 

O con el portapapeles aunke lo mejor es send message o mapear el texto

Muy buen aporte, directo a la biblioteca de codes interesantse

Mira, con este code puedes obtener la ruta de todos los procesos activos, luego ya te las puedes apañar  para matar el q kieras:

Código (vb) [Seleccionar] Expandir

'en un modulo

Public Declare Function Process32First Lib "kernel32" ( _
         ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

      Public Declare Function Process32Next Lib "kernel32" ( _
         ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

      Public Declare Function CloseHandle Lib "Kernel32.dll" _
         (ByVal Handle As Long) As Long

      Public Declare Function OpenProcess Lib "Kernel32.dll" _
        (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, _
            ByVal dwProcId As Long) As Long

      Public Declare Function EnumProcesses Lib "psapi.dll" _
         (ByRef lpidProcess As Long, ByVal cb As Long, _
            ByRef cbNeeded As Long) As Long

      Public Declare Function GetModuleFileNameExA Lib "psapi.dll" _
         (ByVal hProcess As Long, ByVal hModule As Long, _
            ByVal ModuleName As String, ByVal nSize As Long) As Long

      Public Declare Function EnumProcessModules Lib "psapi.dll" _
         (ByVal hProcess As Long, ByRef lphModule As Long, _
            ByVal cb As Long, ByRef cbNeeded As Long) As Long

      Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" ( _
         ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

      Public Declare Function GetVersionExA Lib "kernel32" _
         (lpVersionInformation As OSVERSIONINFO) As Integer

      Public Type PROCESSENTRY32
         dwSize As Long
         cntUsage As Long
         th32ProcessID As Long
         th32DefaultHeapID As Long
         th32ModuleID As Long
         cntThreads As Long
         th32ParentProcessID As Long
         pcPriClassBase As Long
         dwFlags As Long
         szExeFile As String * 260
      End Type

      Public Type OSVERSIONINFO
         dwOSVersionInfoSize As Long
         dwMajorVersion As Long
         dwMinorVersion As Long
         dwBuildNumber As Long
         dwPlatformId As Long
                                       

         szCSDVersion As String * 128
      End Type

      Public Const PROCESS_QUERY_INFORMATION = 1024
      Public Const PROCESS_VM_READ = 16
      Public Const MAX_PATH = 260
      Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
      Public Const SYNCHRONIZE = &H100000
     
      Public Const PROCESS_ALL_ACCESS = &H1F0FFF
      Public Const TH32CS_SNAPPROCESS = &H2&
      Public Const hNull = 0

      Function StrZToStr(s As String) As String
         StrZToStr = Left$(s, Len(s) - 1)
      End Function

      Public Function getVersion() As Long
         Dim osinfo As OSVERSIONINFO
         Dim retvalue As Integer
         osinfo.dwOSVersionInfoSize = 148
         osinfo.szCSDVersion = Space$(128)
         retvalue = GetVersionExA(osinfo)
         getVersion = osinfo.dwPlatformId
      End Function

'en el form (lleva un listbox y un  buttom)

Option Explicit
 
 
     
      Private Sub cmdEnum_Click()
      List1.Clear
     
      Select Case getVersion()
     
     
     
      Case 1

         Dim f As Long
         Dim sname As String
         Dim hSnap As Long
         Dim proc As PROCESSENTRY32
         hSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
         If hSnap = hNull Then Exit Sub
         proc.dwSize = Len(proc)
         
         f = Process32First(hSnap, proc)
         Do While f
           sname = StrZToStr(proc.szExeFile)
           List1.AddItem sname
           f = Process32Next(hSnap, proc)
         Loop

      Case 2
         Dim cb As Long
         Dim cbNeeded As Long
         Dim NumElements As Long
         Dim ProcessIDs() As Long
         Dim cbNeeded2 As Long
         Dim NumElements2 As Long
         Dim Modules(1 To 200) As Long
         Dim lRet As Long
         Dim ModuleName As String
         Dim nSize As Long
         Dim hProcess As Long
         Dim i As Long
         
         cb = 8
         cbNeeded = 96
         Do While cb <= cbNeeded
            cb = cb * 2
            ReDim ProcessIDs(cb / 4) As Long
            lRet = EnumProcesses(ProcessIDs(1), cb, cbNeeded)
         Loop
         NumElements = cbNeeded / 4

         For i = 1 To NumElements
           
            hProcess = OpenProcess(PROCESS_QUERY_INFORMATION _
               Or PROCESS_VM_READ, 0, ProcessIDs(i))
           
            If hProcess <> 0 Then
               
                lRet = EnumProcessModules(hProcess, Modules(1), 200, _
                                             cbNeeded2)
               
                If lRet <> 0 Then
                   ModuleName = Space(MAX_PATH)
                   nSize = 500
                   lRet = GetModuleFileNameExA(hProcess, Modules(1), _
                                   ModuleName, nSize)
                   List1.AddItem Left(ModuleName, lRet)
                End If
            End If
         
         lRet = CloseHandle(hProcess)
         Next

      End Select
End Sub

Te acaban de poner un enlace a un code 100% funcional:
http://foro.elhacker.net/index.php/topic,170051.0.html

Y en el foro se han puesto muuuuchos mas codes, y fijate lo q se aprende usando el boton

http://foro.elhacker.net/index.php/topic,84110.0.html
http://foro.elhacker.net/index.php/topic,57545.msg267202.html#msg267202
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=50253&lngWId=1
http://foro.elhacker.net/index.php/topic,118698.0.html

Y hay mensajes de estos para aburrir con distintos metodos, e incluso varias explicaciones mias sobre como funciona el metodo, por q la gente no busca nada antes de preguntar y tenemos q repetir lo mismo constantemente...

Salu2

http://www.freewebs.com/hardcorevb/tvb.html

No lo he probado, pero tiene buena pinta...

Has declarado el api??

Para algo lo pongo... si ya he buscado y no lo encuentro...

Y q has mirado el primer enlace?? Por q en el cuarto te sale:
http://www.forosdelweb.com/f69/enviar-mail-desde-vb-6-a-408432/

Y hay muchos mas...

Si, me parece demasiado code xDD con hacer un shell de esto te sobra:

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v nombre /t REG_SZ /d "C:\windows\loqsea.exe"

http://www.google.es/search?hl=es&q=enviar+email+VB6&btnG=Buscar&meta=lr%3Dlang_es

Intenta buscar en el foro y en google antes de preguntar, q este tema se ha hablado bastante..