Mensajes

Acabo de destruir a google 

[links]

Lo que necesitas es algo así:

Código (vb) [Seleccionar] Expandir

For Each L in webbrowser.document.links
Msgbox L
Next

Como ves, con links puedes obtener la colección de enlaces del documento actual, muestra absolutamente todos los enlaces, inclusive los de las opciones de Búsqueda avanzada, preferencias, etc de google, así que solo es cuestión de filtrar los que interesan 
También deberías de moverte (navigate) a páginas siguientes de la búsqueda para poder acceder a los otros enlaces, ya que como he dicho, muestra la página actual 

Saludos

[BlaKore_Alpha]

Buen trabajo BlaKore_Alpha

Aquí un par de scripts que hacen lo mismo, pero con un par de problemas (uno de ellos sin razón alguna)  , en ambos me he salteado la parte de pedir los datos al usuario y he pasado directamente a generar el listado 

Código (vb) [Seleccionar] Expandir

Set objfso = Createobject("Scripting.filesystemobject")
Set objshell = Createobject("Wscript.shell")

IDir = "C:\"
objshell.run "cmd /c " & """" & IDir & """ /S /B /A:D > RegFile.txt", vbhide, True
Set IReg = objfso.opentextfile("RegFile.txt",1)

Do until IReg.atendofstream
Ruta = IReg.readline
Loop

El "problema" de este son los caracteres con los que ms-dos tiene problemas, como ser "ú" ... ej: "C:\Documents and Settings\Novlucker\Mis documentos\Mi m£sica"

Por lo que sería necesario aplicar algún tipo de filtro a estos caracteres, sería cuestión de un simple replace 
Ahora el otro ...

Código (vb) [Seleccionar] Expandir

On Error Resume Next
Set objfso = createobject("scripting.filesystemobject")
Set RegFile = objfso.createtextfile("RegFile.txt",True)
Set IDir = objfso.getfolder("c:\")

ListDirs(IDir)

Function ListDirs(IFol)

Regfile.writeline IFol.path
Set SubsIFol = IFol.subfolders

For each SF in SubsIFol
   ListDirs(SF)
Next

End Function

En este caso por alguna extraña razón, en el caso de elegir el directorio raíz da error  de "Acceso denegado" cuando llega a la carpeta Windows, por lo que no se puede acceder a esta carpeta, lo extraño es que si pasamos la carpeta win como parámetro inicial si funciona, es decir, NO puede ser por permisos de usuario  , así que en algún momento voy a revisarlo a ver que ocurre.

A pesar de estos problemas, estos scripts tienen la ventaja de ser algo más rápidos que el que has creado 

Saludos

Creo que no hay mucho más para decir, he leído la "broma" en el otro foro, y creo que los usuarios (sin importar privilegios) le han faltado el respeto a este foro y su admin, pero creo también, que aquí se ha hablado mal de aquel foro y su admin.

El tema esta en que ... TODOS somos libres de estar en este, aquel, o ambos foros, no es necesario remarcar las diferencias de uno y de otro, para bien o para mal, creo que ya todos somos lo suficientemente grandecitos como para decidir lo que nos gusta 

Saludos

Extraño, son el otro theme te va bien

Canción
No, funciona bien

[rob1104]

Es verdad lo que dice rob1104 sobre los parentesis, tengo la costumbre de ponerlos, pero en realidad no van 

[randomize()]

Y sin el randomize() no te sale siempre lo mismo?
Cierra la aplicación, abrela, y volverá a salir lo mismo 

Que es lo que estás utilizando para realizar las búsquedas? 

Hasta no saber donde tienes los links, va a ser difícil poder exportarlos 

Saludos

La codificación es la más básica de todas y tener músculos ayuda 
Querías pistas? 

Saludos

Lo que necesitas es algo como ...

Código (vb) [Seleccionar] Expandir

Randomize()
Text1.text = Int((10 - 1 + 1) * Rnd + 1)

Para que se entienda mejor ...

Código (vb) [Seleccionar] Expandir

Randomize()
Int((mayor - menor + 1) * Rnd + menor)

Saludos