Mensajes

No creo que una PC se pueda encender si esta apagada

y cuando querias encenderla cuando ya estaba encendida 

ya hablando en serio me parece muy interesante esto, no conocia ese lado del vb lo voy a probar, saludos y gracias

c-ya 

Tampoco sabia que la placa de red se queda en modo "dormida" 

Saludos

Aun asi el ordenador no podria estar apagado del todo no ??

Hola, No creo que una PC se pueda encender si esta apagada. Ya que el programa que se ejecuta en el ordenador no esta funcionando y si me equivoco ami tambien me gustaria saber ese   




SaluDDOS 

Si tambien le estoy leyendo a el pero por ahora nada  .

El problema es que no se como hacer que envie lo que seria la alerta o el msgbox a la victima con el texto que yo he puesto y el titulo.


Saludos

jeje creo que no puedes borrar tus mensajes...osea solo los moderadores 
deberia de ver una propuesta en       Sugerencias y dudas sobre el Foro   sobre ese tema si esque ya no la hay 


Bueno no encontre nada uno de los temas esta cerrado los demas ni hacen referencia a lo que busco uno de ellos con el socket de pago o algo asi..alguna solucion mas ?? 

Con el 0.00001 % que se de Visual Basic  me he decidido hacer un troyano es. Pa mi quedaria guapo (si es que lo termino)..bueno he de reconocer que la mayoria del codigo la he encontrado en alguna web o aqui entre posts (copiar y pegar). El caso es que ahora estoy en la sección de MSGBOX (osea para eviar mensajes a la victima) y no puedo o ne tengo ni p**a idea de como conseguir que el winsock del server reciba el texto, el tipo de mensajes que es (exclamacion, normal etc..) y el titulo he buscado por google pero o soy tonto o me salen tonterias. Ya que eso subire el codigo y aver aque no se si ara falta... DOWNLOAD.
Si te fijas en los timers....son muchos pere es que me gusta tenerlo todo organizado y que cada cosa haga la suya.

Saludos

bueno buscando por ahi encontre uno que te serviria para obtener el codigo fuente de la pagina que deseas:
Tiene que tener un RichTextBox + un Command1...y bueno el rich text box le tienes que poner los scrollbars verticales. XDDD

Código (vb) [Seleccionar] Expandir

Option Explicit


' Constantes para las funciones Api
Const scUserAgent = "API-Guide test program"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const INTERNET_FLAG_NO_CACHE_WRITE = &H4000000

' Esta funcio'n crea una conexio'n a internet
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" ( _
    ByVal sAgent As String, _
    ByVal lAccessType As Long, _
    ByVal sProxyName As String, _
    ByVal sProxyBypass As String, _
    ByVal lFlags As Long) As Long

' Esta Api abre un Url
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" ( _
    ByVal hInternetSession As Long, _
    ByVal lpszUrl As String, _
    ByVal lpszHeaders As String, _
    ByVal dwHeadersLength As Long, _
    ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Long

' Esta cierra la conexio'n pasandole el Handle que habi'amos obtenido antes
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

' Esta Api lee el contenido y lo devuelve en un Buffer que _
    contendra' el contenido del fichero
Private Declare Function InternetReadFile Lib "wininet" ( _
    ByVal hFile As Long, _
    ByVal sBuffer As String, _
    ByVal lNumBytesToRead As Long, _
    lNumberOfBytesRead As Long) As Integer

Private Sub Command1_Click()

Dim hOpen As Long
Dim hFile As Long
Dim sBuffer As String * 128
Dim Ret As Long
Dim str_Total As String
Dim Url As String

   
    Url = InputBox(" Escribir la direccio'n Url incluyendo el Http://", " Abrir Url ")
   
    If Url = vbNullString Then Exit Sub
   
    ' Abrimos una conexio'n a internet
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, _
                         vbNullString, vbNullString, 0)
                         
    ' Si devuelve 0 es por que o no hay conexio'n a internet u otro error
    If hOpen = 0 Then
        MsgBox " Error al intentar conectar a Internet ", vbCritical
        Exit Sub
    Else
        'Abrimos la url
        hFile = InternetOpenUrl(hOpen, Trim$(Url), vbNullString, _
                            ByVal 0&, INTERNET_FLAG_NO_CACHE_WRITE, ByVal 0&)
    End If
   
    If hFile = 0 Then
       'Error
       MsgBox " Error al querer acceder al archivo ", vbCritical
       Exit Sub
    Else
       
        'Lee una porcio'n del fichero ( 128 bytes )
        Call InternetReadFile(hFile, sBuffer, 128, Ret)
       
        str_Total = sBuffer
       
        While Ret <> 0
            'Lee de 128 bytes. Cuando ret devuelve 0 finalizo'
            Call InternetReadFile(hFile, sBuffer, 128, Ret)
           
            'Va acumulando el archivo para luego asignarlo al RichTextBox
            str_Total = str_Total & Mid(sBuffer, 1, Ret)
         
            DoEvents
        Wend
   
    End If
   
    'Cerramos el handle anterior (del archivo y de la conexio'n a internet )
    Call InternetCloseHandle(hFile)
    Call InternetCloseHandle(hOpen)
   
    'Mostramos el fichero en el control RichTextBox
    RichTextBox1 = str_Total
   
    'Finalizado
    MsgBox " Listo ", vbInformation
   
End Sub

Private Sub Form_Load()

Command1.Caption = " >> Obtener archivo "
Me.Caption = " Ejemplo para obtener el co'digo fuente de una pa'gina "
End Sub



Fuente: http://www.recursosvisualbasic.com.ar/htm/listado-api/api-24.htm

Saludos

Tines el nero ??? si le tienes abra un programa que te permite editar el audio creo que se llamaba SoundTrack o algo así....Abre le y después abre el archivo de sonido no hagas nada simplemente Guardar Como y abajo en la lista seleccionas el *.mp3 o algo asi
y lo guardas....no te puedo decir como se llama con exactitud xk acabo de reinstalar windows y todavia no le he instalado 



Saludos

No se...creo que lo de systray solo esta ahi por que le subi por error pero el formulario no creo que lleve el control. Bueno como veras todavia soy nuevo en esto  lo de los timeres ya lo intentare arreglar  La clase esa  es bastante complicada almenos a primera vista pero ahora voy a ver tambien hay opciones que me gustaria incluir dentro del mio    Gracias




Saludos

Gracias voy a porbar a todos. La verdad es que la segunda cosa lo de convertir en unicode para este programita no me sirve pero igual para otro viejo que tenia por ahi si 

de todos modos Gracias a todos y bueno a probar los codigos 




Saludos