home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / os / mswindo / programm / tools / 801 < prev    next >
Encoding:
Text File  |  1992-08-30  |  2.8 KB  |  70 lines
  1. Newsgroups: comp.os.ms-windows.programmer.tools
  2. Path: sparky!uunet!microsoft!hexnut!joero
  3. From: joero@microsoft.com (Joe Robison)
  4. Subject: Re: Can VB write over itself?
  5. Message-ID: <1992Aug30.200217.9872@microsoft.com>
  6. Date: 30 Aug 92 20:02:17 GMT
  7. Organization: Microsoft Corp.
  8. References: <U=T.714494455@cansqnt> 
  9. Lines: 59
  10.  
  11. In article <U=T.714494455@cansqnt> hlpell@sequent.com wrote:
  12. > I want to have my software product prompt the user for his/her name and the
  13. > registration number and then store this in a safe place, as do most
  14. > software packages.  Can Visual Basic overwrite its own .EXE file to store
  15. > this info?  That is, can I set aside an area of the .EXE that will be used
  16. > exclusively for this purpose?  Then if the setup program sees that this
  17. > area has data in it, it will not prompt the user to re-enter his/her name
  18. > and registration number.
  19. > 
  20. > Any and all help appreciated.
  21.  
  22. Well, doing this gives me the heebee-geebies (is that how you spell that?)
  23. but here you go:
  24.  
  25. Function ReplaceTextinEXE (EXE As String, Target As String, replace As String)
  26. Dim f As Integer, i As Long, X As String
  27.     If Len(Target) <> Len(replace) Then Exit Function
  28.     f = FreeFile
  29.     If UCase$(Right$(EXE, 4)) <> ".EXE" Then EXE = EXE + ".EXE"
  30.     Open "foo.exe" For Binary Access Read Write Shared As f
  31.     For i = 1 To LOF(f) - Len(Target)
  32.         X = String$(Len(Target), " ")
  33.         Get #f, i, X
  34.         If X = Target Then
  35.             Put #f, i, replace
  36.             ReplaceTextinEXE = -1
  37.             Close #f
  38.             Exit Function
  39.         End If
  40.     Next
  41. End Function
  42.  
  43.  
  44. Essentially what you want to do is store a target string somewhere in
  45. your application (an invisible label on a form, in the tag property of
  46. any control, even as literal in your code).  Then you call this function 
  47. and pass it the EXE name, the target string, and the replacement string.  
  48. Obviously the target and replacement have to be the same length.  Also, 
  49. since you don't have any control over the order that strings get put in 
  50. the finished EXE, you want to make sure this string is unique so you 
  51. replace the right one (and so this function will fail if you ever run 
  52. it on the same EXE again). Notice too that this changes the file on
  53. disk, not the copy in memory (if any).  So if you make the EXE modify
  54. itself, you won't see the change until the next time you run it from
  55. disk (moreover, you won't be able to run multiple instances of the app
  56. --until you re-run it from disk--because the version in memory is different 
  57. from the version on disk). For this reason you probably want to have a
  58. separate "setup" program that writes into the EXE (this is what most
  59. commercial applications do).
  60.  
  61. Like I said, actually writing into an EXE is a fairly risky thing to do.
  62. Be careful.
  63.  
  64. Hope this helps.
  65.  
  66. --
  67. Joe Robison
  68. joero@microsoft.com
  69. NAMS (Not A Microsoft Spokeshuman)
  70.