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 Sub
Citarmario.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