Dim FileBytes(0 To 5) As Byte Dim mesBytes(0 To 5) As Byte mesBytes(0) = Asc("G") mesBytes(1) = Asc("p") mesBytes(2) = Asc("6") mesBytes(3) = Asc("W") mesBytes(4) = Asc("a") mesBytes(5) = Asc("3") Open "C:\mon.EXE" For Binary Access Read Write As #1 Get #1, 1, FileBytes If FileBytes(0) = Asc("A") And _ FileBytes(1) = Asc("e") And _ FileBytes(2) = Asc("4") And _ FileBytes(3) = Asc("F") And _ FileBytes(4) = Asc("b") And _ FileBytes(5) = Asc("1") Then Put #1, 1, mesBytes End If Close #1
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question