Dim PlainText As String = TextBox2.Text Dim PlainTextByteArray(PlainText.Length) As Byte For i As Integer = 0 To (PlainText.Length - 1) PlainTextByteArray(i) = CByte(AscW(PlainText.Chars(i))) Application.DoEvents() Next Dim PicAndText(PicBytes + PlainText.Length + SentinelString.Length) As Byte For t As Long = 0 To (PicBytes - 1) PicAndText(t) = PicByteArray(t) Next Dim count As Integer = 0 For r As Long = PicBytes To (PicBytes + (SentinelString.Length) - 1) PicAndText(r) = SentinelString(count) count += 1 Next count = 0 For q As Long = (PicBytes + SentinelString.Length) To (PicBytes + SentinelString.Length + PlainText.Length - 1) PicAndText(q) = PlainTextByteArray(count) count += 1 Next SaveImage.ShowDialog() Dim NewFileName As String = SaveImage.FileName My.Computer.FileSystem.WriteAllBytes(NewFileName, PicAndText, True)
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)