Mensajes

MSDN es para APIs de W$... hay muchas mas APIs... el API de Facebook, el API de pastebin... y un largo etcetera...

Yo creo que para W$ hay muchisima informacion, pero para otras APIs es necesaria ayuda extra...

De todas formas cualquier duda sobre APIs se encuentra en internet... pero en realidad gran parte de las dudas aqui hechas tiene respuesta Googleando...

En que lenguaje? PHP? javascript???

Exacto, de esta forma no te pasas o te quedas corto con el Buffer... Aunque hay que usar un API mas... pero bueno, depende de las necesidades que tengas

Saludos

No os he impedido hacerlo, solo que no creo que sea buena idea...

Hacker_Zero tu argumento es absurdo Es preferible que nadie publique nada, asi el lammer que quiera hacer un super h4x0r bot no lo tiene ni de lejos tan facil... pero bueno, si quereis crear un nuevo rxBot... El rxBot no fue idead como proyecto Open Source, pero vuestro proyecto provocará las misma reacciones: como indetectar x, no puedo compilar x... etc

Por supuesto, tranquilo, es  solo una muestra con GetForegroundWindow  directamente dentro de GetWindowText,, y devuelve el buffer, igual te tu code, 

Me refiero a que para ser optimo tendrias que usar GetWindowTextLenght()

Preferí no usar WindowTexto y declarar ret porque no me gusta usar un string para un dato que es Long.

No entiendo a que te refieres... digo hacer esto:

Código (vb) [Seleccionar] Expandir

Public Function WindowTexto() As String
    WindowTexto = Space$(256)
    WindowTexto = Left$(Texto, GetWindowText(GetForegroundWindow(), WindowTexto, 256))
End Function

Me gusta la idea
Pero no estoy de acuerdo con el proyecto... Causará problemas... cualquier persona podrá bajarse el código agregar una rutina robada de DDoS y ya esta empieza la fiesta

Sin duda es interesante utilizar tecnicas avanzadas como el sistema de addons que utilizan algunos bots... pero no me gusta porque acabará sin duda en desastre...

Por mi parte tal y como esta planteado no deberia hacerse....

Se me ocurre que tal vez agregando algun tipo de firma irremovible al codigo...

[@Hasseds:]

@Hasseds: No es necesario crear una nueva varible para el buffer puedes trabajar con WindowTexto. Ademas, sigue habiendo el mismo prolema... El titulo puede ser mucho mas pequeño que 256 o mas grande... Por lo tanto no es optimo

@SkullByte: Si!   Minimalismo

Muy interesante... pero se podria acortar si damos un buffer grande y trabajamos con el valor que retorna WM_GETTEXT:

The return value is the number of TCHARs copied, not including the terminating null character.

Por lo tanto:

Código (vb) [Seleccionar] Expandir

'USER32
Private Declare Function GetForegroundWindow Lib "USER32" () As Long
Private Declare Function SendMessageW Lib "USER32" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long

Private Const WM_GETTEXT = &HD

Public Function GetWindowText(ByVal lhWnd As Long) As String
    GetWindowText = Space$(512)
    GetWindowText = Left$(GetWindowText, SendMessageW(lhWnd, WM_GETTEXT, ByVal 512&, StrPtr(GetWindowText)))
End Function

Código (vb) [Seleccionar] Expandir

MsgBox GetWindowText(GetForegroundWindow)
Tu forma seria un mas optima, ya que crea el buffer necesario, ni mas grande ni mas pequeño...

mmm pensaba que era el exe del PowerVB Type Library Editor mmm °°"

No, es el .TLB con la declaracion de "__vbaCopyBytes" y "DllFunctionCall"

Si quieres el PowerVB Type Library Editor aqui lo tienes:

Código [Seleccionar] Expandir

http://www.box.net/shared/tsn9ezoyc1

Sangrientas lunas

[En mi opinion no es buena idea aprender a programar un troyano en VB con este codigo...]

En mi opinion no es buena idea aprender a programar un troyano en VB con este codigo...

Mejor aprender del Shark

Código [Seleccionar] Expandir

http://www.opensc.ws/attachments/vb-rat-source/1183d1193918667-shark-rat-src-shark.rar

El codigo es un poco viejo, pero por ahora el mejor codigo de troyano en VB6 que he visto...