Indetectables

saludos brothers, bueno pues acabo de hacer un crypter en vb6, y esta sin EOF
le quise agregar esa opsion pero no me funciona hice esto :

* agrege el modulo MEOF.BAS luego declare en boton de encriptar

Private Sub cmdEncriptar_Click()
eof As String
If chkEOF.Value = 1 Then
eof = ReadEOFData(txtRuta.Text)

porque no funciona?

Te lo muevo a su seccion

No funciona porque te falta otro parte, haz esto!

Código: Seleccionar todo

Private Sub cmdEncriptar_Click()
Dim EOF As String
If chkEOF.Value = vbChecked Then EOF = ReadEOFData(txtRuta)

Después, o mejor dicho a lo último colocas ésto!

Código: Seleccionar todo

If chkEOF.Value = vbChecked Then Call WriteEOFData(CD.FileName, EOF) 'CD = Common Dialog

Eso es todo, espero y te sirva,
Salu2!¡

o si kieres hacerlo mas korto haz esto

Código: Seleccionar todo

If chkEOF.Value = vbChecked Then Call WriteEOFData(CD.FileName, ReadEOFData(txtRuta.Text))

Indetectables

agregar el EOF en el source/Solucionado

agregar el EOF en el source/Solucionado

Re: agregar el EOF en el source

Re: agregar el EOF en el source

Re: agregar el EOF en el source