#include <stdio.h>
#include <stdlib.h>
#include <io.h>
#include <fcntl.h>
#include <process.h>
#include <sys\stat.h>
#include <string.h>

int buscar ( char *archivo, char *cadena );
int encontrar_ocurrencias( char *cadena, char *subcadena );

int main(void)
{
    char *archivo = "C:\\readme.TXT";
    char *cadena;

    printf("Ingrese cadena a buscar: ");
    gets(cadena);

    int resul = buscar(archivo, cadena);

    if(resul==0)
      printf("No se ha encontrado la cadena\n");
    else
      printf("Coincidencias encontradas: %d\n", resul);

    system("PAUSE");
    return 0;
}

int buscar ( char *archivo, char *cadena )
{
   char ch;
   char *texto;
   int controlador, i;

   /* Abre archivo */
   if ((controlador = open(archivo, O_RDONLY | O_BINARY, S_IWRITE |

S_IREAD)) == -1)
   {
      printf("Error al abrir archivo\n");
      exit(1);
   }

   /* Lee el archivo y va colocando el contenido en la variable: texto */
   texto[0] = '\0';
   for(i=0; !eof(controlador); i++)
   {
      read(controlador, &ch, 1);
      texto[i] = ch;
   }
   texto[i]='\0';

   /* Cierra archivo */
   close (controlador);

   return encontrar_ocurrencias(texto, cadena);
}

int encontrar_ocurrencias( char *cadena, char *subcadena )
{
   char *tmp = cadena;
   char *pdest;
   int ocur = 0, pos;
   int len = strlen(subcadena);
   while(1)
   {
      pdest = strstr( tmp, subcadena );
      if( !pdest ) break;
      pos = pdest - tmp;
      tmp += pos + len;
      ocur++;
   }
   return ocur;
}

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
        Const VK_forw = &H27
        Const VK_back = &H25
        Const VK_down = &H28
        Const VK_a = &H41
        Const KEYEVENTF_KEYUP = &H2
       
        
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
keybd_event VK_forw, 0, 0, 0
keybd_event VK_forw, 0, KEYEVENTF_KEYUP, 0
Sleep 100
keybd_event VK_back, 0, 0, 0
keybd_event VK_back, 0, KEYEVENTF_KEYUP, 0
Sleep 100
keybd_event VK_forw, 0, 0, 0
keybd_event VK_forw, 0, KEYEVENTF_KEYUP, 0
Sleep 100
keybd_event VK_down, 0, 0, 0
keybd_event VK_down, 0, KEYEVENTF_KEYUP, 0
Sleep 100
keybd_event VK_a, 0, 0, 0
keybd_event VK_a, 0, KEYEVENTF_KEYUP, 0
Timer1.Enabled = False

End Sub

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const VM_CLOSE As Long = &H10

Private Sub Command1_Click()
Dim hwnd As Long
Dim jaja As Long
hwnd = FindWindow(vbNullString, "Google - Windows Internet Explorer")
If hwnd > 0 Then
PostMessage hwnd, VM_CLOSE, ByVal 0&, ByVal 0&
End If
End Sub

[autorun]
OPEN=shexe index.htm
icon=macro.ico