Volks, tu iciste el turbinas, podrias explicar como lo iciste o mas bien que es lo q acia...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúMsgbox text1.text
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
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0
Private Sub Form_Load()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, "Mi PC")
If hWnd <> 0 Then
'ShowWindow hWnd, SW_SHOWHIDE 'esto lo oculta
'ShowWindow hWnd, SW_SHOWNORMAL ' y esto lo muestra
End If
End Sub
Open ("C:\prueba.txt") for output as #1
print #1, "hackxcrack"
close #1