Dấu thông điệp trong bức ảnh.

Public Function PutMessage(path as string, Messages as string) as string

Open path For Binary As #1

Dim SpaceS As String

SpaceS = Space(LOF(1))

Get #1, , SpaceS

Close #1

Kill (path)

Dim Message As String

Open path For Binary As #2

Message = SpaceS & Messages & Chr(Len(Messages))

Put #2, , Message

End function

Public Function getMessage(path as string) as string

Open path For Binary As #1

Dim SpaceS As String

SpaceS = Space(LOF(1))

Get #1, , SpaceS

Close #1

Dim Message As String

Dim holder As String

holder = Right(SpaceS, 1)

Message = Right(SpaceS, Asc(holder) + 1)

Message = Left(Message, Len(Message) - 1)

getMessage = Message

End if

End function