Tuto, crear un buscador de seriales

¿como crear un buscador de seriales?

1) necesitamos un archivo txt con un monton de seriales, como por ejemplo este que es mío: seriales.txt

2) le cambiaremos el nombre por No tienes permitido ver los links. Registrarse o Entrar a mi cuenta y lo meteremos en la carpeta que tendremos nuestro proyecto

3) creamos un nuevo proyecto de vb6 (un exe)

agregamos un label en el que pondremos "ingrese el nombre de la aplicación" y un textbox al lado donde la persona ingresará el nombre del programa al que quiere buscar el serial. luego un command button en donde ingresaremos de caption "buscar"

abajo pondremos un listbox donde quedará la lista de los seriales encontrados.

4) crearemos un modulo bas. (ingresaremos la funciones)

en el modulo bas pondremos esto:

'#########################
'#  Modulo Especial para el tutorial   #
'#   Del buscador de seriales           #
'#########################
option explicit
dim seriales as string

public function abrir_seriales() 'esta será la funcion para abrir la lista de seriales
    Open app.path & "\data.srl" For Input As #1
        seriales = Input(LOF(1), #1)
    Close #1
end function

public function buscar(byval lista as listbox, palabra as string) 'funcion que buscará los seriales
Dim t() As String
Dim linea As String
dim response as string
t = Split(Text1.Text, vbCrLf)
For cuenta = 0 To UBound(t)
linea = t(cuenta)
response = instr(1,linea,palabra,vbtextcompare)
if response <> 0 then
lista.additem linea
end if
Next cuenta
end function

public function separate(byval index as integer, texto as string) 'separamos y devolvemos las palabras utilizando un index
dim alex, ins1, ins2 as integer
for alex=1 to index
ins2= instr(ins1,texto," ",vbtextcompare)
separate= mid(texto,ins1,ins2-ins1)
ins1= instr(ins2,texto," ",vbtextcompare)
next alex
end function

public function wath_index(byval texto as string) 'devuelve la cantidad de indexes en el texto
dim alex as integer
alex = 1
dim contador as integer
dim yn as boolean
do while yn <> true
alex = instr(alex,texto," ",vbtextcompare)
if alex <> 0 then
contador = contador + 1
else
yn=true
end if
loop
wath_index=contador
end function

de que nos sirve esto? pues piensen, con la funcion abrir_seriales se guardan todos los seriales en memoria para luego buscarlos. con la funcion wath_index devuelve la cantidad de palabras que hay en lo que el usuario ingresa para buscar. con separate devuelve la palabra que le indiquemos en el texto que ingresa el usuario. si le ponemos

separate 1,text1.text

sacará la primer palabra del text1 podríamos separar cada una de las palabras y realizar una busqueda con la funcion buscar, para que busque cada palabra en la lista de seriales, y devuelva el serial correspondiente a esa palabra.

lindo modulo no? pues con eso ya tendríamos hecho todo el code, pero no se los terminaré, terminenlo ustedes, para algo tienen el bocho las funciones estan explicadas en el texto anterior.