Mensajes

Me prend0

Usas Win 98 ??

Che pero estas seguro que eso funciona ??
tengo mis dudas... y no hay ganas de probarlo xDDD

Aca te los comento

Código [Seleccionar] Expandir


'¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬
On Error Resume Next
Dim datos As String
ws.GetData datos 'obtiene los datos que llegan del WS
If datos = "enviar" Then 'si los datos que llegaron dicen "Enviar" entonces
progreso = True 'iniciamos el "Progreso" ??
ws.SendData filedata 'mandamos el archivo
End If
If datos = "recibido" Then 'si los datos que llegaron dicen "Recibido" entonces
ws.SendData "cierra" 'manda la orden para que se cierre el archivo
End If
If Left(datos, 7) = "archivo" Then 'si las primeras 7 leras de los datos dicen "Archivo" entonce
send = True 'manda
    filesize = Mid(datos, 8) 'el tamaño del archivo
    ws.SendData "enviar" 'envia la orden
    datos2 = ""
Else
    If Len(datos2) <> filesize And send = True Then 'si los datos que llegaron NO son el tamaño del archivo entonces
        datos2 = datos2 + datos
        pb.Min = 0 'pone la progressbar ? en 0
        pb.Max = filesize 'y el maximo es el tamaño del archivo
        pb.Value = Len(datos2)
        pb.Refresh
    End If
        If Len(datos2) = filesize And send = True Then 'si los datos que llegan SI es el tamaño del archivo entonces
        ws.SendData "recibido" 'manda la señala de que lo recibio
        pb.Value = 0
        cd.Filter = "Archivos " & ext & "| *" & ext
        cd.FileName = ""
        cd.ShowSave 'Muestra la ventana para guardar el archivo
        Open cd.FileName For Binary As #1 'abre el archivo para comenzar a guardarlo
        Put #1, 1, datos2 'introduce los datos
        Close #1 'se cierra
        End If
End If
'¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬¬


un abraz0

G0nz4

no, no, no
no es eso lo que quiero hacer...
lo que necesito es saber si hay algun metodo para poder cambiar el tamaño con el CURSOR del mouse... como en una ventana normal, pero mientras el form esta sin bordes
no c si me explico :S

salu2

hola gente
bueno, estuve investigando y no encontre nada =S...
necesito cambiar el tamaño de un Form sin borde (Border Style = 0 - None) como si tuviera la propidad en 2 - Sizable en tiempo de ejecucion...
si alguien sabe como hacerl0 le agradeceria mucho que me lo dijiera

un salud0

G0nz4

ah sarpad0 xD
dsp voy a ver bien con funciona...

muchas gracias

un abraz0

no entendi bien =S
q es lo que hace ese programa ?? pega el Exe con los OCX ??

salu2

bue ahora voy a ver que onda el modulo... sho siempre usaba el OCX pero la verdad que no es nada necesario... (si un poco mas comodo xD)
ahora pruebo a ver si me resulta ... sino, a seguir usando el mswinsck.ocx

PD: rey, hay un post con chincheta del modulo

salu2

G0nz4

pone un codigo que mueva el OCX q se descomprimio junto con el troyano al System32...pero no te recomiendo eso, ya que tendrias que enviar 2 archivos y lo hace mas sospechoso...

leete esto: http://foro.elhacker.net/index.php/topic,62753.0.html

un salud0

G0nz4

lei x ahi que se pueden usar APIs en vez del control... busca x el foro...

sino podes enviar el OCX con el programa y apenas se ejecute mande el control al %sistemroot/System32  xDDD (obviamente le tenes q cambiar el nombre y es0 )
te recomiendo lo de las APIs, aunke es un pokito mas engorroso... (aclaro que nunca las use y no tengo idea de como se usan, asike no me pidas ayuda sobre eso xD)

un abraz0

G0nz4