Me apunto!!! 
DoEvents¡!

DoEvents¡!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú


Public Function Get_Gmails(ByVal sText As String) As Collection
Dim cTemp As New Collection
Dim oRegExp As Object
Dim oMatch As Object
Dim oMatches As Object
Dim sPatern As String
'# Para evitar las referencias
Set oRegExp = CreateObject("VBScript.RegExp")
sPatern = "([\w\.-_]+@gmail\.com )" '# Quitando el maldito espacio del final
With oRegExp
.Pattern = sPatern
.Global = True
.IgnoreCase = True
End With
Set oMatches = oRegExp.Execute(sText)
For Each oMatch In oMatches
cTemp.Add oMatch.Value
Next
Set Get_Gmails = cTemp
End Function
Private Sub Form_Load()
Dim vItem As Variant
Dim sStringtoAnalyze As String
sStringtoAnalyze = "Hola, esto es un ejemplo mario.234@gmail.com para que veas que funciona mimamamemima_to2losdias@gmail.com"
For Each vItem In Get_Gmails(sStringtoAnalyze)
Debug.Print vItem
Next
End SubCitarmario.234@gmail.com
mimamamemima_to2losdias@gmail.com
Cita de: Shell Root en 11 Agosto 2010, 00:23 AMSeh!
Expresiones regulares

Citar(\S+@gmail\.com )
Citar([\w\.-_]+@gmail\.com )

Cita de: Novlucker en 10 Agosto 2010, 22:08 PMjajajaj
Exacto, no al menos de manera automática por "culpa" del autorun.inf, pero eso no quiere decir que el virus ya no tenga efecto si alguien lo ve dentro del pendrive y le da doble click
Saludos








Citar/
Debes comprobar la velocidad con el proyecto compilado, si no no es de fiar... por ejemplo, el codigo de Cobein era un poco mas rapido que el mio cuando lo prove...
Para hacer tu codigo mas rapido deberias hacer la comprobacion trabajando con los bits... voy a ver si puedo hacer algo sin pasarlo a String... que eso consume mucho

