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 (http://www.uploadfilego.com/download.php?file=29cfe51ed29a221787063e8c8c947c0f)
Gracias por el Aporte!!
Ya c como se hace... Es muy lento el programa.. eso si..(en la parte de "Acerca de..") :xD :¬¬
que bytes le suma exactamente???
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...
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
y el intervalo del time y el valor de los textbox?
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
Y PB1 y pb2 ?
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
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
no es nada. Gracias a ti por preguntar. salu25
Lo he estado mirando y me parece interesante por este motivo:
los bytes que añades están "medio escondidos", me explico:
Si realmente se quisiera hacer bien la aplicación, para poder utilizar esos bytes tendrías que modificar el PEheader, pero en tu caso solamente los añades al final y como la última sección en el PEheader ya tiene un size, pues realmente esos bytes aparecen "medio escondidos"...
me ha parecido interesante, me lo guardo y gracias por el source.