Sign in to follow this  
Followers 0
nullschritt

Save INI data to exe. (while open)

13 posts in this topic

#1 ·  Posted (edited)

Hello all, this script(wrapper) uses Alternative Data Streams to store INI formatted data in the active executable even while it is running. This is great for standalone executables, or storing data you don't want a user being able to edit!

There are four simple commands:

Func _iniwrite($section, $key, $value, $stream = "DEFAULT")
    return IniWrite(@ScriptFullPath&":"&$stream, $section, $key, $value)
EndFunc

Func _iniread($section, $key, $default = "", $stream = "DEFAULT")
    return IniRead(@ScriptFullPath&":"&$stream, $section, $key, $default)
EndFunc

Func _inidelete($section, $key = "", $stream = "DEFAULT")
    if $key <> "" Then
    Return IniDelete(@ScriptFullPath&":"&$stream, $section, $key)
Else
    Return IniDelete(@ScriptFullPath&":"&$stream, $section)
    EndIf
EndFunc

Func _inirenamesection($section, $newsection, $flag = 0, $stream = "DEFAULT")
    return IniRenameSection(@ScriptFullPath&":"&$stream, $section, $newsection, $flag)
EndFunc

Simply copy and paste these functions into your script!

Edited by nullschritt
3 people like this

Share this post


Link to post
Share on other sites



Struggling here to think of a use.

To me, you might as well use regular variables.

Unless I'm missing something.

I personally use the method to store product keys of programs which require an active subscription to work.

Not to mention it quite literally associates the data with the exe, so programs that store user data can be made completley standalone, and still have redundant setting storage.

And there's also the fact that the user can't delete or edit the data directly, so as not to cause any errors by invalid config settings.

I know it's a really simple wrapper, but it does have practical uses.

Share this post


Link to post
Share on other sites

Of course this has its limitations.


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

Of course this has its limitations.

Yes, Alternative Data Streams only work with NTFS file system (which is can be a positive as well as a negative) [data is lost when the file is copied to another pc] *(under MOST conditions)

But that's the only "limitation" I can think of (:

Share this post


Link to post
Share on other sites

Thanks for submitting this. I have used INI's off and on. I have hidden them within the OS or create a temp INI and then kill if off. This makes it much more straightforward.

Cheers.

Share this post


Link to post
Share on other sites

As I know nothing about Alternative Data Streams, if the idea is what I think it is, it could be a great and simple way to store .ini at the .exe

1- how do I embeb my ini lines at the .exe, supposing I have a previous .ini? This data becomes part of the .exe?

2- once embebed it will stay there? Even betwen runs?

3- if I copy this .exe to another PC, you told that the data will not be at the other PC. Can you tell why?

Thanks

Jose

Share this post


Link to post
Share on other sites

joseLB,

googling "Alternative Data Streams" would answer all your 3 questions, and more.


This wonderful site allows debugging and testing regular expressions (many flavors available). An absolute must have in your bookmarks.
Another excellent RegExp tutorial. Don't forget downloading your copy of up-to-date pcretest.exe and pcregrep.exe here
RegExp tutorial: enough to get started
PCRE v8.33 regexp documentation latest available release and currently implemented in AutoIt beta.

SQLitespeed is another feature-rich premier SQLite manager (includes import/export). Well worth a try.
SQLite Expert (freeware Personal Edition or payware Pro version) is a very useful SQLite database manager.
An excellent eBook covering almost every aspect of SQLite3: a must-read for anyone doing serious work.
SQL tutorial (covers "generic" SQL, but most of it applies to SQLite as well)
A work-in-progress SQLite3 tutorial. Don't miss other LxyzTHW pages!
SQLite official website with full documentation (may be newer than the SQLite library that comes standard with AutoIt)

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

As I know nothing about Alternative Data Streams, if the idea is what I think it is, it could be a great and simple way to store .ini at the .exe

1- how do I embeb my ini lines at the .exe, supposing I have a previous .ini? This data becomes part of the .exe?

2- once embebed it will stay there? Even betwen runs?

3- if I copy this .exe to another PC, you told that the data will not be at the other PC. Can you tell why?

Thanks

Jose

1)If you want to copy a previous INI to the exe, you will have to write a code to read the previous ini file then write then to current exe using some sort of loop. The data is not actually stored inside the executable code, but rather along side it.

2)Yes the data is persistent between runs.

3)The data is only lost when the exe file is copied to a filesystem which doesnt support Alternative Data Streams (webservers, most flash drives, and discs)

Ex: Copying from point A to point B on the same pc wouldnt cause data loss, but coping from pc1 to pc2 would.

Hope this helps!

Edited by nullschritt

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

2)Yes the data is persistent between runs.

Now that's a decent use for this.

EDIT:

For example if you wanted to invisibly keep track of how many times a user runs your script.

Edited by JohnOne

AutoIt Absolute Beginners    Require a serial    Pause Script    Video Tutorials by Morthawt   ipify 

Monkey's are, like, natures humans.

Share this post


Link to post
Share on other sites

Nice idea :)


 

OS : Win XP SP2 (32 bits) / Win 7 SP1 (64 bits) / Win 8 (64 bits) | Autoit version: latest stable / beta.
Hardware : Intel(R) Core(TM) i5-2400 CPU @ 3.10Ghz / 8 GiB RAM DDR3.

My UDFs : Skype UDF | TrayIconEx UDF | GUI Panel UDF | Excel XML UDF | Is_Pressed_UDF

My Projects : YouTube Multi-downloader | FTP Easy-UP | Lock'n | WinKill | AVICapture | Skype TM | Tap Maker | ShellNew | Scriptner | Const Replacer | FT_Pocket | Chrome theme maker

My Examples : Capture toolIP Camera | Crosshair | Draw Captured Region | Picture Screensaver | Jscreenfix | Drivetemp | Picture viewer

My Snippets : Basic TCP | Systray_GetIconIndex | Intercept End task | Winpcap various | Advanced HotKeySet | Transparent Edit control

 

Share this post


Link to post
Share on other sites

1)If you want to copy a previous INI to the exe, you will have to write a code to read the previous ini file then write then to current exe using some sort of loop. The data is not actually stored inside the executable code, but rather along side it.

2)Yes the data is persistent between runs.

3)The data is only lost when the exe file is copied to a filesystem which doesnt support Alternative Data Streams (webservers, most flash drives, and discs)

Ex: Copying from point A to point B on the same pc wouldnt cause data loss, but coping from pc1 to pc2 would.

Hope this helps!

Thanks nullscritt, it become clear

Do you think there is a way to include the .ini, and also images/icons, (used in gui´s for example) and even sounds in the .exe?

I mean, to have just one file (.exe) with all these items, so if I send this .exe file, for example, zipped thru an email, it will work?

Better, if I do not have to modify my gui created with Koda, for example

Thanks

Jose

Share this post


Link to post
Share on other sites

#13 ·  Posted (edited)

Sorry about me posting in this old thread but... wow I never knew about this, thanks for sharing!

Here is my more complete version of it, also supporting non-NTFS filesystems through a fallback routine:

#include <WinAPIFiles.au3>

Func _StreamIniDelete($sSection = "", $sKey = Default, $sStream = "DEFAULT")
    If $sSection = "" Then
        ;completely delete ini file stream through winapi (built in filedelete doesn't support it)
        Return _WinAPI_DeleteFile(_StreamIniPath($sStream, 1))
    Else
        Return IniDelete(_StreamIniPath($sStream, 1), $sSection, $sKey)
    EndIf
EndFunc

Func _StreamIniRead($sSection, $sKey, $sDefault, $sStream = "DEFAULT")
    Return IniRead(_StreamIniPath($sStream, 1), $sSection, $sKey, $sDefault)
EndFunc

Func _StreamIniReadSection($sSection, $sStream = "DEFAULT")
    Return IniReadSection(_StreamIniPath($sStream, 1), $sSection)
EndFunc

Func _StreamIniReadSectionNames($sStream = "DEFAULT")
    Return IniReadSectionNames(_StreamIniPath($sStream, 1))
EndFunc

Func _StreamIniRenameSection($sSection, $sNewSection, $iFlag = 0, $sStream = "DEFAULT")
    Return IniRenameSection(_StreamIniPath($sStream), $sSection, $sNewSection, $iFlag)
EndFunc

Func _StreamIniWrite($sSection, $sKey, $sValue, $sStream = "DEFAULT")
    Return IniWrite(_StreamIniPath($sStream), $sSection, $sKey, $sValue)
EndFunc

Func _StreamIniWriteSection($sSection, $vData, $iIndex = 1, $sStream = "DEFAULT")
    Return IniWriteSection(_StreamIniPath($sStream), $sSection, $vData, $iIndex)
EndFunc

Func _StreamIniPath($sStream = "DEFAULT", $iRead = 0)
    Local Static $sBase = ""
    Local $sPath = ""

    If StringLen($sStream) Then
        If $sBase = "" Then
            If DriveGetFileSystem(StringLeft(@ScriptDir, 2)) = "NTFS" Then
                ;current drive is NTFS (supports streams)
                $sBase = @ScriptFullPath
            Else
                ;current drive is not NTFS (no stream support)
                ;fallback to regular path
                $sBase = @TempDir & "\" & @ScriptName
            EndIf
        EndIf
        If $sBase = @ScriptFullPath Then
            $sPath = $sBase & ":" & $sStream
        Else
            ;create directory if necessary
            If Not $iRead And DirGetSize($sBase) = -1 Then DirCreate($sBase)
            $sPath = $sBase & "\" & $sStream & ".ini"
        EndIf
    EndIf

    Return $sPath
EndFunc

One really cool thing is, FileWrite and InetGet also support writing to these alternate data streams, so you could use _StreamIniPath to load a remote standard config directly into your .au3/.exe :D

Edited by Synix
2 people like this

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0

  • Similar Content

    • ercicttech
      By ercicttech
      Hello, all..

      My AutoIT is pretty terrible - but I get by with trawling here
      I came across an issue where i had to parse a large key in a large ini file, and found that I was victim of inireadsection's limit of "Only the first 32767 chars are read for legacy reasons."
       
      I've attempted to put together some terrible code that parses an ini section.
      It's absolutely nowhere near good, but I figured I'd put it here so that folk who know what they're doing can laugh at improve it.
      $Ini = @ScriptDir & "\bigini.ini" Dim $IniArray[0][2] $KeyName = "Person" $R = FileOpen($Ini, 0) $IniStr = FileRead($R) FileClose($R) $Start = StringInStr($iniStr, "[" & $KeyName & "]") If $Start = 0 then Msgbox(16, "Error", "String not found") Exit EndIf $Stop = StringInStr($IniStr, @CRLF & "[", 0, 1, ($Start + 1)) If $Stop = 0 then $Stop = StringLen($IniStr) EndIf $String = StringMid($IniStr, $Start, ($Stop - $Start)) $Split = StringSplit($String, @CRLF, 1) $KeyCount = 0 Dim $IniArray[65535][2] For $Loop = 1 to $Split[0] $Add = "Y" $Str = $Split[$Loop] $EQBreak = StringInStr($Str, "=") Select Case StringMid($Str, 1, 1) = ";" $Add = "N" Case $EQBreak = 0 $Add = "N" Case Else $Add = "Y" EndSelect If $Add = "Y" then $KeyCount = $KeyCount + 1 $Key = StringMid($Str, 1, ($EQBreak - 1)) $Val = StringMid($Str, ($EQBreak + 1)) $IniArray[$KeyCount][0] = $Key $IniArray[$KeyCount][1] = $Val EndIf Next Redim $IniArray[$KeyCount +1][2] ; Add the number of hits to 00 to match inireadsection $IniArray[0][0] = $KeyCount _ArrayDisplay($IniArray) ; Do stuff with the Array like you would inireadsection  
    • RC86
      By RC86
      Afternoon!
      Just a quick one as this has dawned on me recently when creating a little program.  When calling an executable I've created like Run(otherapp.exe) from within my executable is there a best practice to ensure things have gone smoothly?  So for example, should I monitor the PID to ensure it runs and closes within an acceptable timeframe?  Or within my other executable should I do EXITs in a certain way after functions and return codes etc?
      Could be a silly question but thought I'd ask.
    • Eggsplorer
      By Eggsplorer
      Hi,
      Ich hab ein Script für Windows Updates, dass nach dem OOBE aufgerufen werden soll. Run/RunOnce ist daher nicht möglich.
      Stattdessen möchte ich das Script in den Autostart schreiben lasse. Wenn die OOBE beendet wird und der Administrator angemeldet wird, soll das Update-Script einmalig aufgerufen werden und sich anschl. selbst löschen.
      Lang rede, kurzer Sinn:
      Wie kann ich folgendes Script in den Autostart schreiben?
      RunWait(@ComSpec & " /c " & "C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -File C:\UA\Scripts\win-updates.ps1 -MaxUpdatesPerCycle 100 -RestartRequired 1", "") Ich würde ungern eine BAT oder EXE reinkopieren, da ich es unsauber finde. Die müsste ja auch zusätzlich irgendwo liegen.
      Danke
      Eggsplorer
    • RC86
      By RC86
      Afternoon, I could very well be doing this wrong so feel free to totally advise otherwise - I'm wanting to use a GUI to first display a key from within an INI file, then secondly change the INI file by using a FileSelectFolder command but then I want to see the GUI change to reflect the change I've just made.
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 615, 437, 192, 124) $Input1 = GUICtrlCreateInput(Iniread(@WorkingDir & "\test.ini","Path","FilePath",""), 64, 80, 121, 21) $Button1 = GUICtrlCreateButton("Change", 200, 80, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $selectedFolder = FileSelectFolder("Select Log Path Directory",@WorkingDir,0) If NOT $selectedFolder = "" Then $newLogPath = IniWrite(@WorkingDir & "\test.ini","Path","FilePath",$selectedFolder) EndIf EndSwitch WEnd So 2 part question really: (1) Should I be using GUICtrlCreateInput to display my INI read from within the GUI? (2) How can I refresh the GUI to update that to read the new information I've just written to the GUI?
      Thanks!

    • mememememememe
      By mememememememe
      Hello everyone, has anyone of you guys tried to create an an automated installer for this?

      Source: https://support.office.com/en-us/article/Deploy-Office-365-ProPlus-from-a-local-source-35d4cb3b-4cc9-4bc9-9f20-eaf3c50f8331
      Issue: You can't run the installer "as administrator" because opens a error message. You have double click and then you may enter the credentials..
      i was trying to do this without disabling the UAC, his there any one who found a way out?
      Notice: The processo runs perfectly by hand, i only need a workaround for this thing. 
       
      Ty in advance.