Sentencias para VB?

Question

Estoy haciendo un programa y quisiera saber las sentencias para:
1. Saber el nombre de usuario de la seción en WinXP.
2. Quisiera que mi programa haga una determinada cosa cuando se abre un programa específico (Mame) y otra cuando se cierra este pregrama (no se mucho sobre api y no conozco las api de este programa, cómo saberlas? quisiera algo bien simple de entender).

Answer 1

1.- Espero que te sirvan estas dos rutinas:

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal strBuffer As String, intTamanio As Long) As Long
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal strBuffer As String, intTamanio As Long) As Long

Public Function NombreUsuario()
Dim Nombre As String
Dim Longitud As Long
Longitud = 256
Nombre = String(Longitud, 32)
If GetUserName(Nombre, Longitud) Then
NombreUsuario = Trim(Left(Nombre, Longitud - 1))
End If
End Function

Public Function NombreComputadora()
Dim Nombre As String
Dim Longitud As Long
Longitud = 16
Nombre = String(Longitud, 32)
If GetComputerName(Nombre, Longitud) Then
NombreComputadora = Trim(Left(Nombre, Longitud))
End If
End Function

2.- Solo se me ocurre que sustituyas el llamado de la linea de comando de la extension Mime que quieres por un archivo Bat, dentro de ese archivo puedes colocar las instrucciones que quieras y llamas al programa original.

Answer 2

Te recomiendo que busques en www.lawebdelprogramador.com o en www.canalvisualbasic.net, presta atencion en las secciones de codigo, guías y trucos API

Answer 3

Algo "simple de entender" y que quepa en una respuesta de estas no vas a encontrar.
Lo que querés hacer es un programa residente que monitorée los distintos ejecutables que se ponen en marcha en el sistema. Pues tendrás que estudiarte nomás las APIs.
Suerte