Evento KeyAscii : al presionar el arroba que aparesca....

[Zion_Tm]

Buenas

Agregamos un textbox e insertamos lo siguiente

Código:

Private Sub text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc("@") Then
        KeyAscii = Asc("©")
    End If

End Sub

Eso hace que si intentamos escribir el @ en el texbox nos muestre el simbolo © (Copy Rigth ). Pero quiero hacer que haga lo mismo en una pagina web especialmente cuando la victima quiera entrar a www.hotmail.co m  jejeje , alguein sabe como se puede hacer ??

[ranefi]

Buenas

Agregamos un textbox e insertamos lo siguiente

Código:

Private Sub text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = Asc("@") Then
        KeyAscii = Asc("©")
    End If

End Sub

Eso hace que si intentamos escribir el @ en el texbox nos muestre el simbolo © (Copy Rigth ). Pero quiero hacer que haga lo mismo en una pagina web especialmente cuando la victima quiera entrar a www.hotmail.co m  jejeje , alguein sabe como se puede hacer ??

Hola Zion_Tm. Creo que esto te podrá ayudar.

Agregar 1 control Timer e insertar el siguiente código en un...

Formulario

Código:

Private Declare Function GetAsyncKeyState Lib "user32" _
    (ByVal vKey As Long) As Integer

Private Sub Form_Load()
    Form1.Hide
   
    Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyMenu) Or GetAsyncKeyState(vbKeyShift) Then
        SendKeys "ranefi hace spam "
    End If
End Sub

Espero esto te ayude en algo. Nos vemos.

[Zion_Tm]

Gracias Ranefi, muy bueno...ademas me da otras ideas intresantes