Mensajes

Hola que bueno un nuevo reto jej , che esta todo muy colgado esto no se entendio bien y no estan bien los ejemplos

el ejemplo uno no tiene coerencia sobre el ejemplo dos, en el primero el zip zag lo hace volviendo a subir pero en el segundo la secuencia del  8 y 7 no tienen sentido hay que aclarar cual es la forma en que se deve hacer

100   104   111   45
1   2   4   7
3   5   8   16
6   7   9   22
10   14   21   45

y no me queda claro lo de las columnas superiores son las suma de que?, un dibujo vale mas que 1000 palabras.

Saludos.

no se casi nada de puerto com pero no estas ensimando los datos, intenta poner un Doevents o un doevents  + Sleep como para dejar una pequeña pausa y dar lugar a que el control com trabaje correctamente.

eso si entendi bien la pregunta por otro lado si es que no funciona cuando precionas los botones, quizas es porque te esta faltando algun caracter que hace dividir una instruccion de otra

es intencion ayudar quizas dije cualquiera.

saludos

hola creo que es la unica forma utilizando una imagen para crear el efecto, de otra forma no creo que se pueda.

Saludos.

Yo lo hacia con un cable estirado como de 15 cm, y una punta asemejando la circunferencia de una moneda... de igual manera con las rondanas, monedas antiguas ( sin valor obvio ), o con las rueditas de las chalupas...



P.D.: para el cable se nesesita 1 compañero minimo para hecharte aguas...

Dulces Lunas!¡.
.

jaja eso es un Argento, yo tambien lo hacia.

Hola como parte de mi aburrimiento hice este módulo para crear un efecto lluvia de TV, no se si tenga alguna utilidad para alguien pero bueno es para ir aprendiendo un poco mas.

Módulo

Código (vb) [Seleccionar] Expandir


Option Explicit
'Autor: Leandro Ascierto
'Web: www.leandroascierto.com.ar
Private Declare Function waveOutOpen Lib "winmm.dll" (lphWaveOut As Long, ByVal uDeviceID As Long, lpFormat As WAVEFORMATEX, ByVal dwCallback As Long, ByVal dwInstance As Long, ByVal dwFlags As Long) As Long
Private Declare Function waveOutPrepareHeader Lib "winmm.dll" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long
Private Declare Function waveOutWrite Lib "winmm.dll" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long
Private Declare Function waveOutUnprepareHeader Lib "winmm.dll" (ByVal hWaveOut As Long, lpWaveOutHdr As WAVEHDR, ByVal uSize As Long) As Long
Private Declare Function waveOutClose Lib "winmm.dll" (ByVal hWaveOut As Long) As Long
Private Declare Function waveOutReset Lib "winmm.dll" (ByVal hWaveOut As Long) As Long

Private Const WHDR_DONE = &H1
Private Const WAVE_MAPPER = -1&

Private Type WAVEHDR
    lpData As Long
    dwBufferLength As Long
    dwBytesRecorded As Long
    dwUser As Long
    dwFlags As Long
    dwLoops As Long
    lpNext As Long
    Reserved As Long
End Type

Private Type WAVEFORMATEX
    wFormatTag As Integer
    nChannels As Integer
    nSamplesPerSec As Long
    nAvgBytesPerSec As Long
    nBlockAlign As Integer
    wBitsPerSample As Integer
    cbSize As Integer
End Type

Private Declare Function CreatePatternBrush Lib "gdi32" (ByVal hBitmap As Long) As Long
Private Declare Function FillRect Lib "user32" (ByVal Hdc As Long, lpRect As RECT, ByVal hBrush As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateBitmap Lib "gdi32" (ByVal nWidth As Long, ByVal nHeight As Long, ByVal nPlanes As Long, ByVal nBitCount As Long, lpBits As Any) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private hWaveOut As Long
Private bStop As Boolean

Public Sub StopAnimation()
    bStop = True
    If hWaveOut Then waveOutReset hWaveOut
End Sub

Public Sub Play(ByVal Hdc As Long, Left As Long, ByVal Top As Long, ByVal Width As Long, ByVal Height As Long)
    Dim OutFormat As WAVEFORMATEX
    Dim lngBufferSize As Long
    Dim Rec As RECT
    Dim bData() As Byte
    Dim wvhdr As WAVEHDR
    Dim i As Long

    With OutFormat
        .wFormatTag = 1
        .nSamplesPerSec = 8000
        .wBitsPerSample = 16
        .nChannels = 1
        .nBlockAlign = 2
        .nAvgBytesPerSec = 16000
        .cbSize = Len(OutFormat)
    End With
   
    If waveOutOpen(hWaveOut, WAVE_MAPPER, OutFormat, 0, 0, 0) = 0 Then
   
        bStop = False
        lngBufferSize = 16000& * 30&
       
        ReDim bData(lngBufferSize)
       
        For i = 0 To lngBufferSize - 1
            bData(i) = Int((255 + 1) * Rnd())
        Next
           
        With wvhdr
            .lpData = VarPtr(bData(0))
            .dwBufferLength = lngBufferSize
        End With
       
        With Rec
            .Left = Left
            .Top = Top
            .Right = Left + Width
            .Bottom = Top + Height
        End With
   
        If waveOutPrepareHeader(hWaveOut, wvhdr, Len(wvhdr)) = 0 Then

            While bStop = False
                If waveOutWrite(hWaveOut, wvhdr, Len(wvhdr)) = 0 Then
                    While ((wvhdr.dwFlags And WHDR_DONE) <> WHDR_DONE)
                        Draw Hdc, Rec
                        DoEvents
                        Sleep 10
                    Wend
                End If
            Wend
           
            waveOutUnprepareHeader hWaveOut, wvhdr, Len(wvhdr)
       
        End If
   
        waveOutClose hWaveOut
    End If
       
    hWaveOut = 0
       
End Sub

Private Sub Draw(Hdc As Long, R As RECT)
    Dim hBitmap As Long, mBrush As Long
    Dim PicBits() As Byte, BytesPerLine As Long
    Dim i As Long, lColor As Byte
    Dim W As Long, H As Long
   
   
    W = (150 * Rnd() + 100)
    H = (150 * Rnd() + 100)
   
    BytesPerLine = (W * 3 + 3) And &HFFFFFFFC
       
    ReDim PicBits(1 To BytesPerLine * H * 3) As Byte
       
    For i = 1 To UBound(PicBits) - 4 Step 4
        lColor = Int((255 + 1) * Rnd())
        PicBits(i) = lColor
        PicBits(i + 1) = lColor
        PicBits(i + 2) = lColor
    Next
   
    hBitmap = CreateBitmap(W, H, 1, 32, PicBits(1))

    mBrush = CreatePatternBrush(hBitmap)
   
    FillRect Hdc, R, mBrush

    DeleteObject mBrush
    DeleteObject hBitmap

End Sub


En un formulario con dos botones

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
    Command1.Caption = "Play"
    Command2.Caption = "Stop"
End Sub

Private Sub Command1_Click()
    Call Play(Me.Hdc, 0, 0, Me.ScaleWidth / Screen.TwipsPerPixelX, Me.ScaleHeight / Screen.TwipsPerPixelY)
End Sub

Private Sub Command2_Click()
    StopAnimation
End Sub

Private Sub Form_Unload(Cancel As Integer)
    StopAnimation
End Sub

Yo creo que con tantos msg a interceptar te conviene pasa a una sublcasificación, te va a ser mas efectivo.

Saludos.

Gracias a todos por los comentarios, bueno supongo que viene bien entonces, aclaro nuevamente mucho y le falta optimizar vastante.

@Karcrack mis disculpas por no ponerte los creditos, no lo hice de mala leche es que con tantos modulos hasta se me olvido borrar el Error: caca"
no borre los comentarios yo utilize el modulo que venia con el RevShell de cobein que seguramente era una beta y no tenia los header, tambien aclaro que el formulario de consola es una replica del  RevShell  con alguna modificaciónes.

el nombre cliente, servidor siempre fue confuso para mi pero en fin se entiende, y compilarlo en pcode + upx lo reduce a unos 46.5 kb, pero bueno ya sabemos que pasa con los antivirus.

Saludos.

.
Que raro que no pueda navegar casi nunca por tu sitio, casi siempre tengo que usar un proxy.

Código [Seleccionar] Expandir



Servidor no encontrado

Firefox no puede encontrar el servidor en www.leandroascierto.com.ar.

    *   Compruebe que la dirección no tiene errores de escritura
          del tipo ww.ejemplo.com en lugar de
          www.ejemplo.com

    *   Si no puede cargar ninguna página, compruebe la conexión
          de red de su equipo.

    *   Si su equipo o red están protegidos por un cortafuegos
          o proxy, asegúrese de que Firefox tiene permiso
          para acceder a la web.



Viendo por un proxy las cosas se ven cool, lastima que no pueda descargarlo ¬¬", cosa el proxy web.

Dulces Lunas!¡.

Eso me estaba temiendo, hace unos días me pasaba lo mismo y fue que mi ip estaba baneada asi que hable con el tipo del server y la desbloqueo pero seguramente como me paso a mi debe haber muchas ip bloqueadas.
mañana veo si lo soluciono.

Alguien mas tiene este tipo de problemas?

Saludos.

Esta es la segunda parte del proyecto (aún sin nombre) de administración remota, en esta segunda parte se han añadido mas herramientas entre ellas Visor de Procesos y Ventanas, Visor de Webcam, Registro, Consola y Keylogger, el proyecto sigue en etapa de desarrollo por lo que hay muchos cabos sueltos.
Para esta al tanto de que se trata este proyecto leer este topic.

Como siempre me ver sus comentarios, que debería tener, que esta mal, que debería cambiar , o que no funciona.

Descargar

Aca esta biendo estos videos, el ultimo me mato de risa jeje, puede que tengas razon con lo de la piel

[youtube=425,350]http://www.youtube.com/watch?v=V7UdYzCMKvw&feature=related[/youtube]

[youtube=425,350]http://www.youtube.com/watch?v=1luwH35RNBk[/youtube]
[youtube=425,350]http://www.youtube.com/watch?v=OSgF2t15DrU[/youtube]