dredgy/TunebladeSupressor
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Reversion

Browse Source
This commit is contained in:
josh
2025-11-26 13:53:22 +10:00
parent 11d638123d
commit 782200f3ee
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
TuneBladeSupressor/Program.fs
View File

@@ -51,10 +51,10 @@ let startTuneBlade (exePath: string) =
false false
[<EntryPoint>] [<EntryPoint>]
let main argv = let main _ =
let tuneBladeExe = @"C:\Program Files (x86)\TuneBlade\TuneBlade\TuneBlade.exe" let tuneBladeExe = @"C:\Program Files (x86)\TuneBlade\TuneBlade\TuneBlade.exe"
printfn "TuneBlade Auto-Restarter" printfn "TuneBlade Suppressor"
printfn "Monitoring for errors and restarting from: %s" tuneBladeExe printfn "Monitoring for errors and restarting from: %s" tuneBladeExe
printfn "Press Ctrl+C to exit" printfn "Press Ctrl+C to exit"
printfn "" printfn ""
@@ -71,7 +71,7 @@ let main argv =
startTuneBlade tuneBladeExe |> ignore startTuneBlade tuneBladeExe |> ignore
System.Threading.Thread.Sleep(3000) System.Threading.Thread.Sleep(3000)
let mutable child = FindWindowEx(IntPtr.Zero, IntPtr.Zero, "#32770", "TuneBlade") let child = FindWindowEx(IntPtr.Zero, IntPtr.Zero, "#32770", "TuneBlade")
if child <> IntPtr.Zero then if child <> IntPtr.Zero then
printfn "TuneBlade dialog window detected — restarting application..." printfn "TuneBlade dialog window detected — restarting application..."
if killTuneBlade() then if killTuneBlade() then