Programación General > Visual Basic 6.0 e inferiores

 Exe's Y Valores

<< < (2/2)

Cyclop:
Puedes hacerlo asi


--- Código: Text ---Dim sBuffer As StringsFileName = App.Path + App.EXEName + &#34;.exe&#34;Open (sFileName) For Binary Read Write As #1nSize = LOF(1)sBuffer = Space(1)Get #1, nSize - 1, sBuffer' Chequeamos si tiene marcaIf sBuffer = &#34;X&#34; Then    sBuffer = Space(3)    Get #1, nSize - 4, sBuffer Else    sBuffer = &#34;&#34;EndIfsBuffer = Format(Val(sBuffer) + 1, &#34;###&#34;)Put #1, nSize - 4, sBuffer&#036;Close #1  
Aun que vas a tener problemas si le abres del mismo exe ya que te va a dar un error, de que el archivo esta siendo utilizado por otro porgrama.


Salu2


Cyclop


 :D

Navegación

[0] Índice de Mensajes

[*] Página Anterior