Mensajes

Hola, soy Xo0m o Sub-X, es lo mismo.
Soy Moderador Supremo en otro Foro de Hacking.
Mi Duda es esta:
   Estoy programando el Turkish Trojan, pero quiero ver como enviar datos por el WinSock, solo se poner Label1.Caption=Ws.RemoteIP, pero yo quiero saber como enviar como por ejemplo Espacio libre en el disco, Memoria RAM, Procesador, espero que me puedan ayudar, gracias.
PD: Saludos a E0N, su manual del Joiner, RootKit y troyano me sirvieron Demasiado.

Lo que debes hacer es:

Código (vb) [Seleccionar] Expandir


ws.remotehost=IP
ws.remoteport=puerto
ws.connect
'posteriormente en tu evento:
ws.sendData DatosAEnviar


o igual de esta forma

Código (vb) [Seleccionar] Expandir


ws.connect ip, byval puerto
'posteriormente en tu evento:
ws.sendData DatosAEnviar


Los datos de memoria espacio en disco etc. son ajenos a elWinSock.

P.D.:como dices leiste eltutodeEON de Troyano (no lo e visto pero igual) deberias REPASARLO.

ejecuto la aplicacion pero no puedo ver el video ... solo se escucha el audio ....
al parecer hay algun problema con los codecs instalados que tengo (klite codecs)...
pero buena trabajo... aprovechando el code esto tambien puede ajustarse para un salvapantallas ... recuerdo haber visto un compilado tuyo ... pero sin source.

saludos.

El programa en si funciona con estar mostrados los iconos a i igual me pasa eso se escucha la canción y demás cosas pero solo si tengo activos los iconos en escritorio por ende lo demás no se visualiza en el lugar descrito.

Hola, aca esta tambien:

Control Ocx para aplicar Skins

saludos.

Ese link... o si ese link es a la respuesta de este miso tema ¬¬".

Es decir me devuelve a el mismo tema pero en modo respuesta es decir para postear algo ¬¬"

Arrastra un archivo multimedia sobre él y lo reproduce.
No me gusta mucho, puesto que después el fondo de pantalla queda negro 

lo mejor es reproducir un video asi se ve mejor pero igual puede ser musica o imagenes (estos ultimos solo ponen el fondo algo oscuro no es negro en si pero igual ¬¬").

el codigo es original de Leandro Ascierto solo cambie un poco este:

Solo se nesesita un modulo
        No requiere Formulario
No tiene dependencias
        Por ende quite el WindowsMediaPlayer y ya trabaja sobre MCI
Al estar COMPILADO y al Arrastrar un Archivo de Música, Video o Imagen se reproduce (OJO las imagenes no tardan mucho en cerrar Sorry jem)

Al termino de la Reproducción del Archivo se Cierra Automaticamente.

Source Solo se nesesita un Modulo

Código (vb) [Seleccionar] Expandir


Option Explicit
'By Leandro Ascierto
'Modificado por BlackZeroX (Parte MCI)
'Corrección Api SystemParametersInfo
'Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, byval lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function SetSysColors Lib "user32.dll" (ByVal nChanges As Long, ByRef lpSysColor As Long, ByRef lpColorValues As Long) As Long
Private Declare Function GetSysColor Lib "user32.dll" (ByVal nIndex As Long) As Long

'Declraciones Anidadas
Private Const SPI_GETWORKAREA = 48
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
'Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'Fin

Private Const COLOR_BACKGROUND As Long = 1
Private Const SPIF_UPDATEINIFILE As Long = &H1
Private Const SPIF_SENDWININICHANGE As Long = &H2
Private Const SPI_GETDESKWALLPAPER As Long = 115
Private Const SPI_SETDESKWALLPAPER As Long = 20
Dim lOldColor As Long
Dim sOldWallPaper As String

Sub Main()
    'Sustitución de la Dependencia WindowsMediaPlayer por el MCI
    Dim T_rect As RECT
    Dim data As String
    data = Space(255)
    mciSendString "close all ", 0, 0, 0 'Activa la linea si Aun no lo compilas
    mciSendString "open " & Command$ & " alias MedioX style popup ", 0, 0, 0
    SystemParametersInfo SPI_GETWORKAREA, 0, T_rect, 0
    mciSendString "put MedioX window at 0 0 1 1 ", 0, 0, 0
    mciSendString "play MedioX ", 0, 0, 0
    mciSendString "window MedioX state hide", 0, 0, 0
    mciSendString "put MedioX window at 0 0 " & Int(T_rect.Right - T_rect.Left) & " " & Int(T_rect.Bottom - T_rect.Top + 40) & " ", 0, 0, 0
    'ShowWindow GetActiveWindow, 0
'--------------------------------------
    'Source Leandro Ascierto
    sOldWallPaper = Space(255)
    'SystemParametersInfo SPI_GETDESKWALLPAPER, 255, sOldWallPaper, 0 'Original
    SystemParametersInfo SPI_GETDESKWALLPAPER, 255, ByVal sOldWallPaper, 0 'Corrección
    lOldColor = GetSysColor(COLOR_BACKGROUND)
    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, " ", 0)
    Call SetSysColors(1, COLOR_BACKGROUND, RGB(16, 0, 16))
    Do
        mciSendString "status MedioX mode", data, 255, 0
        If Not Left(data, 7) = "playing" Then
            Exit Do
        End If
        DoEvents
        Debug.Print Left(data, 7)
        WaitMessage
    Loop
    Call SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, sOldWallPaper, 0)
    Call SetSysColors(1, COLOR_BACKGROUND, lOldColor)
End Sub

Post Original

[Se necesita:]

Se necesita: -Visual Basic 6.0 -Visual C++

y el source de C++ ?¿

Se puede usar una función para evitar crear tantos prosesos, ojo

Hola a todos es el siguiente
duda, esta es
'=======================
  'string
Dim Camre la cadena
"Esta cadena recibe la captura de la leva que
está en Picture1
forma de carga ()
picture1.picture = get.clipboard
Camre picture1.picture =
Ws.senddata "WebCam |" & Camre
End Sub
'=====================
Más el tiempo que el cliente recibe la cadena
rechaza ... da error ...
'=====================
Ws_dataarrial
seleccione caso
caso "WebCam"
pic1.picture vec = (1) 'error es aki
seleccione final
cómo resolver?
português

>
espanhol

alterar
Traduzir
      
Ps:   
lo siento si no entiende porque he usado el traductor de google

pon el original...¡!

hola que tal quisiera saber como colocar barra de carga algun formulario o algun proyecto en visual basic

ejemplo que a la hora de salir de proyecto me carge una barra y luego salga de pantalla....

por ejemplo una barra así

debeias poner un progreso de carga y descarga solo si tu programa es REALMENTE pesado y sabes que cargara todo antes de iniciar (por ejemplo un calculo matematico complejo que requiera escanear algo o no se) pero en su puedes poner algo así

Código (vb) [Seleccionar] Expandir


with barra
.min=0
.max=100
.value=0
end with


en un timer para ver como funciona

Código (vb) [Seleccionar] Expandir


static iv as integer
iv=iif(iv=100,0,iv+1)
barra.value=iv


haber si te sirve
P.D.: nesesitas agregar el componente



Accede a Componentes con Control+T despues
busca y activa
Microsoft Windows Common Controls 6 (sp6)
aceptra todo
dibuja el control Progressbar
cambia su nombre a Barra
lo demás es cosa tuya.

Se vacian las variables cada ves que se entra en la funcion o usaban ebp la verdad es que no me acuerdo cual de las dos pero en las dos se limpian antes de todo.

si de hecho al termino del proceso se limpian sea cual sea. almenos que esten declaradas globalmente en un modulo o en el "encabezado" (hasta arrribobota donde no da la luz jo) en un formulario.

o ALMENOS que uses Static para declararlas hay no se limpian

Ejemplo:

{
dim variable
´demas procesos
}
en este caso se limpia cuando termina

{
Static variable
´demas procesos
}
en este caso perduraran los datos almacenados almenos que al ultimo se pongan un valor Nulo como 0 o "" según sea el caso

si se declaran en un modulo dichas variables serán globales almenos que se les defina lo contracion sean Publicas

public variable

o privadas

Private Variable

resulta y se aplica los mismo en un formulario clase o demás lugares,

Ojala te sirva lo expuesto.

Dulces Lunas.

Pues eso al añadir datos con Open "c:\nejemplo.txt" For Append As #1 se te añaden uno debajo del otro y yo me preguntaba como se hace para que se añadan seguido.

Si son tan amables...  xD

salu2!

mmm solo que deseas es agregardatos a un archivo y cerrarlo posteriormente seguir añadiendo datos ja bueno haber intenta con esto:

Código (vb) [Seleccionar] Expandir


    Open Ruta For Binary As #1
        Seek (1), LOF(1) + 1
        Put #1, , Datos
    Close #1


Saludos.