Mensajes

Déjame adivinar tienes  la version del IE inferior a la 7. Porque creo que sólo funciona del 7 en adelante. 

DoEvents!

...
edit: mmm cuando apreto algún boton o link, el ruidito lo escucho igual.. Lo probé desde vb, y después ya compilado pero no hay caso...

Pues qué raro. Al menos a mí me va de perlas, compilado y desde el IDE, voy a revisar a ver si puse mal algo.  

DoEvents!

Prueba con:

Código [Seleccionar] Expandir

WebBrowser1.Silent = True

DoEvents!

[SÓLO]

Pensé que no había solución humana a esto, también sé que hasta ahora se hacían chapuzadas modificando el registro y demás.
He dado con la forma definitiva:

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Declare Function CoInternetSetFeatureEnabled Lib "urlmon.dll" (ByVal FeatureEntry As Long, ByVal dwFlags As Long, ByVal fEnable As Long) As Long

Private Const FEATURE_DISABLE_NAVIGATION_SOUNDS     As Long = &H15
Private Const SET_FEATURE_ON_PROCESS                As Long = &H2

Private Sub Form_Load()
   CoInternetSetFeatureEnabled FEATURE_DISABLE_NAVIGATION_SOUNDS, SET_FEATURE_ON_PROCESS, True
End Sub

Afecta SÓLO sobre nuestro programa.

NOTA IMPORTANTE: Sólo funciona si tienes una versión del IE 7 o superior.

DoEvents!

Código [Seleccionar] Expandir

http://foro.elhacker.net/aporte_uchotkey-t315630.0.html

Código [Seleccionar] Expandir

http://foro.elhacker.net/programacion_visual_basic/vb6_creacion_de_un_keylogger_avanzado_hook-t264469.0.html

Código [Seleccionar] Expandir

http://leandroascierto.com/blog/keylogger/

DoEvents!

[RegExp]

Bueno, aquí dejo como sería la forma más rápida con RegExp por si a alguien le interesa:

Código (vb) [Seleccionar] Expandir


'cGetNums.cls
Option Explicit
Private oRegExp As Object

Private Sub Class_Initialize()
    Set oRegExp = CreateObject("VBScript.RegExp")
    With oRegExp
        .Global = True
        .Pattern = "\D+"
    End With
End Sub

Public Static Function pGetNums(ByRef sText As String) As String
    pGetNums = oRegExp.Replace(sText, vbNullString)
End Function

Private Sub Class_Terminate()
    Set oRegExp = Nothing
End Sub

Ejemplo:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Form_Load()
Dim c As New cGetNums
    Debug.Print cGetNums("0asdasd1sa sd sd 2 3  sdfdfdsf456       7!!!!!!!!!!!!!!!!!!8?????9asd")
    Set c = Nothing
End Sub

Resultado:

Código [Seleccionar] Expandir

0123456789

No es muy rápida, pero bueno, tan solo participaba respetando las normas.

DoEvents!

Código [Seleccionar] Expandir

OJO mi función limpia sTest en otras palabras, despues de mi funcion sTest es una cadena vacia... por lo tanto deberian hacerse los test de otra menera:
Comprendo, ahora encaja todo... por cierto...
¿Y eso no es trampa? Se supone que sTest lo debe dejar como está, como las demás funciones, ¿no?

DoEvents!

[@seba123neo]

@seba123neo
Gracias, culpa mía que no leí bien.



Después pongo mi forma de hacerlo...

DoEvents!

@Black tu función me da error aquí:

Código [Seleccionar] Expandir

wWord = thisWord(dwOffSetGet)

Código [Seleccionar] Expandir

Subscript out range

DoEvents!

[@Karcrack]

Me apunto, aunque estoy muy oxidado, mañana pongo la mía.

@Karcrack
¿Por qué haces el bucle así? 

DoEvents!