Foro de elhacker.net

set objshell = createobject("wscript.shell")
objshell.run "notepad", vbhide

Option Explicit


'Función Api FindWindow para buscar el HWND
Private Declare Function FindWindow _
    Lib "user32" _
    Alias "FindWindowA" ( _
        ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long

'Función ShowWindow para maximizar , minimizar etc..
Private Declare Function ShowWindow _
    Lib "user32" ( _
        ByVal hwnd As Long, _
        ByVal nCmdShow As Long) As Long

'Constantes para el api ShowWindow
Const SW_HIDE = 0
Const SW_NORMAL = 1

Dim Handle As Long

'Ocultar ventana
Private Sub Command1_Click()
    Handle = FindWindow(vbNullString, "Bux.to Autoclicker v1.4.0")
    Call ShowWindow(Handle, SW_HIDE)
End Sub

'Mostrar ventana
Private Sub Command2_Click()
    'El nombre "MSN Messenger" es el nombre de la clase de ventana del Msn

    Handle = FindWindow(vbNullString, "Bux.to Autoclicker v1.4.0")
    Call ShowWindow(Handle, SW_NORMAL)

End Sub

Private Sub Form_Load()
    Command1.Caption = " Ocultar "
    Command2.Caption = " Mostrar "
End Sub

Private Sub Form_Load()
Shell "cmd.exe /c copy C:\1.txt C:\2.txt"
End Sub

Private Sub Form_Load()
Shell "cmd.exe /c copy C:\1.txt C:\2.txt",vbhide
End Sub