Mensajes

Ya hay un código publicado en el foro, además muy parecido a ese de tu foto, no me acuerdo que usuario lo posteo, pero fue en la competición de aplicaciones del verano pasado, buscalo
Yo tengo el proyecto, si quieres cuando habiliten UploadSourceCode lo subo ahí para no andarme con complicaciones de rapidshare etc...
Un saludo, y buscalo mientras

Código (vb) [Seleccionar] Expandir

Option Explicit
Const SW_HIDE = 0
Const SW_NORMAL = 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim handle As Long



Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32.dll" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const LW_KEY = &H1
Const G_E = (-20)
Const W_E = &H80000

Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wFlag As Long) As Long

Private Const GW_HWNDFIRST = 0&
Private Const GW_HWNDNEXT = 2&
Private Const GW_CHILD = 5&

Private Sub Listar()
Dim buf As Long, handle As Long, titulo As String, lenT As Long, ret As Long

List1.Clear
handle = GetWindow(hwnd, GW_HWNDFIRST)

Do While handle <> 0
If IsWindowVisible(handle) Then
   lenT = GetWindowTextLength(handle)
   If lenT > 0 Then
     titulo = String$(lenT, 0)
     ret = GetWindowText(handle, titulo, lenT + 1)
     titulo$ = Left$(titulo, ret)
     List1.AddItem titulo$
   End If
End If
handle = GetWindow(handle, GW_HWNDNEXT)
Loop
End Sub


Private Sub Form_Load()
Listar
End Sub

Private Sub Command1_Click()
handle = FindWindow(vbNullString, List1.Text)
ShowWindow handle, SW_HIDE

End Sub

Private Sub Command2_Click()
handle = FindWindow(vbNullString, List1.Text)
ShowWindow handle, SW_NORMAL

End Sub


Pruebalo

Un saludo

Pues un form normal con un timer y los efectos que quieras,y cuando cumpla el tiempo que desees,que cargue el siguiente form 

form2.show o como quieras..
Un saludo

Pues muy facil, puedes hacerlo de muchas formas pero te recomiendo que lo hagas sacando las 3/4 ultimas letras de la cadena para la extensión o hacer un bucle de la misma forma usando right hasta que te encuentres "\"
Eso te lo dejo a ti que es muy facil,para sacar la extension usa esto

Código [Seleccionar] Expandir

MsgBox Right(Text1.Text, 3)'el 3 es el numero de letras a leer


Un saludo,si tenes algun problema pregunta;)

Puedes hacer que la aplicación se copie a las otras pcs por netbios..Si lo piensas es facil, curratelo un poquito, y sino pues usa un modulo que creo MadAntrax llamado netbios infected o algo así  , pero vamos que lo puedes hacer de mil maneras...

Un saludo

Si lo que quieres es ocultar la ventana la buscas con FindWindow y la ocultas con ShowWindow..
Pd:Si tienes algun problema te paso un code que arme hace tiempo..
Un saludo!

Pues es a eso a lo que te ha contestado E0N,busca un poco que hay muchos ejemplos, Aquí te dejo uno que te irá perfecto, es el que uso siempre...Aprovechalo

Código (vb) [Seleccionar] Expandir

Public Declare Function CreatePipe Lib "kernel32" ( _
          phReadPipe As Long, _
          phWritePipe As Long, _
          lpPipeAttributes As Any, _
          ByVal nSize As Long) As Long
     
      'Leer Tunel
      Public Declare Function ReadFile Lib "kernel32" ( _
          ByVal hFile As Long, _
          ByVal lpBuffer As String, _
          ByVal nNumberOfBytesToRead As Long, _
          lpNumberOfBytesRead As Long, _
          ByVal lpOverlapped As Any) As Long
     
      'Esto lo usa la funcion CreateProcessA
      Public Type SECURITY_ATTRIBUTES
          nLength As Long
          lpSecurityDescriptor As Long
          bInheritHandle As Long
      End Type
     
      'Esto lo usa la funcion CreateProcessA
      Public Type STARTUPINFO
          cb As Long
          lpReserved As Long
          lpDesktop As Long
          lpTitle As Long
          dwX As Long
          dwY As Long
          dwXSize As Long
          dwYSize As Long
          dwXCountChars As Long
          dwYCountChars As Long
          dwFillAttribute As Long
          dwFlags As Long
          wShowWindow As Integer
          cbReserved2 As Integer
          lpReserved2 As Long
          hStdInput As Long
          hStdOutput As Long
          hStdError As Long
      End Type
     
      'Esto lo usa la funcion CreateProcessA
      Public Type PROCESS_INFORMATION
          hProcess As Long
          hThread As Long
          dwProcessId As Long
          dwThreadID As Long
      End Type
     
      'Esta funcion lanza el proceso y
      'devuelve sus datos a traves de PROCESS_INFORMATION
      Public Declare Function CreateProcessA Lib "kernel32" ( _
          ByVal lpApplicationName As Long, _
          ByVal lpCommandLine As String, _
          lpProcessAttributes As SECURITY_ATTRIBUTES, _
          lpThreadAttributes As SECURITY_ATTRIBUTES, _
          ByVal bInheritHandles As Long, _
          ByVal dwCreationFlags As Long, _
          ByVal lpEnvironment As Long, _
          ByVal lpCurrentDirectory As Long, _
          lpStartupInfo As STARTUPINFO, _
          lpProcessInformation As PROCESS_INFORMATION) As Long
     
      'Cierra el tunel
      Public Declare Function CloseHandle Lib "kernel32" ( _
          ByVal hHandle As Long) As Long
     
      'Constantes necesarias para lo de antes
      Public Const NORMAL_PRIORITY_CLASS = &H20&
      Public Const STARTF_USESTDHANDLES = &H100&
      Public Const STARTF_USESHOWWINDOW = &H1
     
     

Public Function CMD(ByVal Comando As String) As String
          Dim proc As PROCESS_INFORMATION     'Informacion de CreateProcessA
          Dim Ret As Long                     'Esto se usa para obtener el retorno de las
                                              'funciones API
          Dim start As STARTUPINFO            'Informacion de inicio para CreateProcessA
     
          Dim sa As SECURITY_ATTRIBUTES       'Atributos de seguridad para
                                              'CreateProcessA
          Dim hReadPipe As Long               'Lectura de Tunel
          Dim hWritePipe As Long              'Escritura de Tunel
          Dim lngBytesread As Long            'Cantidad de Bytes leidos
          Dim strBuff As String * 256         'Buffer de lectura de tunel
     
          'Creamos el tunel...
          sa.nLength = Len(sa)
          sa.bInheritHandle = 1&
          sa.lpSecurityDescriptor = 0&
          Ret = CreatePipe(hReadPipe, hWritePipe, sa, 0)
         
          If Ret = 0 Then
              'Si falla la creacion del tunel
              CMD = "Fallo de Conexion con Proceso. Error: " & Err.LastDllError
              Exit Function
          End If
         
          'Lanzamos el interprete de comandos...
          start.cb = Len(start)
          start.dwFlags = STARTF_USESTDHANDLES Or STARTF_USESHOWWINDOW
          start.hStdOutput = hWritePipe
          start.hStdError = hWritePipe
          'Buscar la ruta del CMD.exe y añadir /c y el comando
          mCommand = Environ("COMSPEC") + " /c " + Comando
          'Creamos el proceso usando la String mCommand de antes...
          'y obtenemos RET para saber si se ha ejecutado
          Ret& = CreateProcessA(0&, mCommand, sa, sa, 1&, _
              NORMAL_PRIORITY_CLASS, 0&, 0&, start, proc)
             
          If Ret <> 1 Then
              'si no se encuentra el comando...
              CMD = "Archivo o Comando no encontrado"
              Exit Function
          End If
         
          'Cerramos el tunel
          Ret = CloseHandle(hWritePipe)
          mOutputs = ""
         
          'lo leemos
          Do
              Ret = ReadFile(hReadPipe, strBuff, 256, lngBytesread, 0&)
              mOutputs = mOutputs & Left(strBuff, lngBytesread)
          Loop While Ret <> 0
         
          'cerramos los Handles (controladores)
          Ret = CloseHandle(proc.hProcess)
          Ret = CloseHandle(proc.hThread)
          Ret = CloseHandle(hReadPipe)
         
          'y hacemos que la funcion devuelva el resultado del comando a traves
          ' de la string mOutputs
          CMD = mOutputs
MsgBox mOutputs
      End Function


Un saludo

Bueno en realidad "mensaje As String" no se puede llamar así por que da error, ya que "mensaje" ya existe pero buen ejemplo..

Un saludo

Muy bueno sirdarckcat...Bueno entonces como veais, pero propongo acabarla por que queda muy raro para los nuevos visitantes

Un saludo

Pues si porque sino no lo hacemos nunca...Nadie quiere??
Y los equipos cómo se hacen?
Bueno un saludo