sumarle bytes a un exe

Iniciado por Tengu, 27 Julio 2007, 23:46 PM

0 Miembros y 1 Visitante están viendo este tema.

Tengu

Lo posteo aquie por q pense q era donde mejor se veria aceptado.(por favor no lo borren)



este es un pequeño codigo para sumarle bytes a tus exe.

DESCARGA:este link es de la aplicacion,pruebenla si les interesa posteamos el code para poder mejorarlo.

http://www.uploadfilego.com/download.php?file=29cfe51ed29a221787063e8c8c947c0f

Encuentros por Video y Chat !!

Freeze.

#1
Gracias por el Aporte!!

Ya c como se hace... Es muy lento el programa.. eso si..(en la parte de "Acerca de..") :xD :¬¬

Red Mx

que bytes le suma exactamente???
Desarrollar Malware Es Causa De Cancer...

Freeze.

A que te refieres?...

No estoy seguro de que quieres decirme pero creo q te entendi de 2 maneras
¿Que caracteres le suma?
R 1- Le suma espacios
¿Que cantidad le suma?
R 2- Le suma la cantidad q quieras...

Tengu

voy a asumir qpor el codigo se imaginan los controles a usar..... saludos

Private Sub Command1_Click()
CD1.ShowOpen
Text1.Text = CD1.FileName
End Sub

Private Sub Command2_Click()
If Text1.Text <> "" And Text2.Text > 0 Then
fsiz = ShowFileSize(Text1.Text)
PB1.Value = 0
PB1.Max = Text2.Text
PB1.Visible = True
Open Text1.Text For Binary As #1
For a = 1 To Text2.Text
Put #1, fsiz - 1 + a, 0
PB1.Value = a
Next
Close
End If
PB1.Visible = False
PB1.Value = 0
End Sub
Function ShowFileSize(file)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(file)
    ShowFileSize = f.Size
    's = UCase(f.Name) & " uses " & f.Size & " bytes."
    'MsgBox s, 0, "Folder Size Info"
End Function
'94208

Private Sub Command3_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Text1.Text = App.Path & "\"
End Sub

Private Sub Text3_Change()
pb2.Max = Text3.Text
End Sub

Private Sub Timer1_Timer()
Form1.Hide
pb2.Value = pb2.Value + 1
If pb2.Value = Text3.Text Then
Form1.Show
pb2.Value = 0
Timer1.Enabled = False
End If
End Sub

Encuentros por Video y Chat !!

ActiveSheet

y el intervalo del time y el valor de los textbox?

Tengu

#6
timer1.interval=1000 'debe ir por defecto declarado en el codigo o en el objeto
test2.text="1000"(pueden modificarse con la aplicacion ejecutada)
text3.text="80"(pueden modificarse con la aplicacion ejecutada)

el text1 sera la reta del archivo sobre el cual se va a trabajar.
el text2 la cantidad de bytes a sumar.
el text3 simplemente la cantidad de segundos q deseas q la aplicacion desaparezca.
Command1 es el boton delexplorador de archivos (para elegir el nuestro)
command2 es el q da la orden de sumar los bytes.
Command3 es el q hace desaparecer el form por la cantidad de segundos indicados.



            Salu25

Encuentros por Video y Chat !!

ActiveSheet


Tengu

#8
pb1 min=0 max=100
pb2 min=0 max=100


igualmente los valores sobre si es visible o no o el color de el progress bar pueden hacerlos variar uds. eso no afecta a la efectividad de la aplicacion

Encuentros por Video y Chat !!

ActiveSheet

pero si a la depuracion xD  no savia que era un progress bar
no lo mencionaste pero ya todo esta aclarado gracias por tu tiempo