Aqui os dejo mi ultimo programilla, lo estoy mejorando. Salu2
(No viene con "regalito" solo es el source xD)
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
Última edición por HDetect el 11 Abr 2010, 13:11, editado 1 vez en total.
CrismonTrojan - 5%
CrismonMSNPateador - 100%
CrismonCrypter - 20%
Porfavor si solo es source,A Fuentes yTextos de Programacion!

Salu2
Blog técnico dedicado a la seguridad informática y al estudio de nuevas vulnerabilidades.
Blog: http://www.seginformatica.net
Twitter: https://twitter.com/#!/p0is0nseginf
Perdon, mia culpa, que algun modder lo mueva.

Salu2
CrismonTrojan - 5%
CrismonMSNPateador - 100%
CrismonCrypter - 20%
No pasa nada todos nos podemos equivocar alguna vez,solo te lo digo para la proxima...

Salu2
Blog técnico dedicado a la seguridad informática y al estudio de nuevas vulnerabilidades.
Blog: http://www.seginformatica.net
Twitter: https://twitter.com/#!/p0is0nseginf
Gracias! amigo buena source,,,:bye:
¿Por que tanta gente vive en el pasado?. No era mejor ser joven antes,debes crear tus propios iconos,tu propia manera de vivir.

Lo hecho,hecho esta. Mirar hacia atras para buscar la inspiracion,es copiar el pasado.Eso no es ser indetectable xD
Se tu mismo,haz algo nuevo. ¿Sabes lo que quiero decir no?
Kaa. escribió:Me marca un error en esa i marcada.

¿Como lo puedo solucionar?
(He resumido un poco el trozo del source)

Private Sub Command1_Click()
Command1.Enabled = False
Clipboard.Clear
Clipboard.SetText ":[:[:[:[:[:[:[CrismonMSNPateador:..."
AppActivate "Conversación"
Sleep "50"
For i = 1 To 300
SendKeys "^v"
SendKeys "{ENTER}"
Next i
Command1.Enabled = True
End Sub
di que error te marca.. quiza no esta declarada, o bien no esta hecho en el tipo correcto.
pon que te sale en el error.
Yo lo puedo compilar perfectamente :S
No se, pregunta a alguien mas experto que yo
CrismonTrojan - 5%
CrismonMSNPateador - 100%
CrismonCrypter - 20%

Código: Seleccionar todo

Private Sub Command1_Click()
Dim i As Integer

 Command1.Enabled = False
  Clipboard.Clear
  Clipboard.SetText ":[:[:[:[:[:[:[CrismonMSNPateador:..."
  AppActivate "Conversación"
  Sleep "50"

For i = 1 To 300
 SendKeys "^v"
 SendKeys "{ENTER}"
Next i

  Command1.Enabled = True

End Sub
Y seguramente se soluciona
Imagen
Como te dicen,
Dim I as Integer

Salu2
Blog técnico dedicado a la seguridad informática y al estudio de nuevas vulnerabilidades.
Blog: http://www.seginformatica.net
Twitter: https://twitter.com/#!/p0is0nseginf
Responder

Volver a “Otros lenguajes”