Menú

Mostrar Mensajes

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ú

Mensajes - Psyke1

#761
Me apunto!!!  :D

DoEvents¡! :P
#762
 :xD
Pues yo lo hacia manualmente!!! :laugh: :laugh: :laugh: :laugh: :¬¬

DoEvents¡! :P
#764
Mira, espero que no me "riñan" por hacerte los deberes:

Código (vb) [Seleccionar]
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


Me devuelve:
Citarmario.234@gmail.com
mimamamemima_to2losdias@gmail.com

PD: Te envie un MP...

DoEvents¡! :P
#765
Cita de: Shell Root en 11 Agosto 2010, 00:23 AM
Expresiones regulares :D
Seh! :D

Más info:
http://es.wikipedia.org/wiki/Expresi%C3%B3n_regular

Un ejemplo:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/198-expresion-regular-extraer-url.htm

Para lo que buscas se me ocurre esto:
Citar(\S+@gmail\.com )

O esto para que no saque un mail incoherente (ej : mario($%234@gmail.com):
Citar([\w\.-_]+@gmail\.com )

PD: Nose porque co***es me pone un espacio antes de cerrar el parentesis... >:(

DoEvents¡! :P
#766
Seguridad / Re: Windows Seven y autorun.inf
10 Agosto 2010, 22:35 PM
Cita de: Novlucker en 10 Agosto 2010, 22:08 PM
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 :rolleyes:

Saludos
jajajaj :laugh:
Gracias!
Tengo entendido que en el Win 8 resolveran eso que dices del doble click! :¬¬ :xD

DoEvents¡! :P
#767
Seguridad / Windows Seven y autorun.inf
10 Agosto 2010, 21:53 PM
Hola, según esto:
http://www.genbeta.com/sistemas-operativos/adios-a-autoruninf-en-windows-7

Ya no tienen nada que hacer los virus que se propagan por USB?¿  :huh:

DoEvents¡! :P
#768
Cada vez que entro en el IRC no tengo voz, aviso a un moderador o a un admin, consigo voz, pero me conecto por la tarde y ya no tengo... :-\
Que es lo que pasa?¿ :huh:

PD: Obviamente me identifico, y no me da ningun error...

Gracias! :)

DoEvents¡! :P
#769
Ok gracias, me informare!! ;)
Te debo muchas!  :-* :laugh:

DoEvents¡! :P
#770
mmmm
No, es que me acorde de lo que me dijiste aqui:
http://foro.elhacker.net/programacion_visual_basic/snippetreto_isitprime_comprobar_si_un_numero_es_primo-t298929.0.html;msg1483010#msg1483010

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

Quizas ni te entendi bien, hacias referencia a lo que estoy preguntando?¿  :huh:

Gracias!  ;)

DoEvents¡! :P