Hallo,
ist es möglich, den Tor-Browser mit Autoit als Standard einzurichten?
Nachdem Microsoft es mal wieder schwieriger gemacht hat bei Windows 11 den Standard-Browser im System zu ändern, zumindest über Skripte, musste ich mir was Neues basteln. Da ich inzwischen 6 sehr verschiedene Desktops auf einem Rechner habe und bei den einzelnen Desktops auch verschiedene Browser benötige. Nun wollte ich mir noch den Tor-Browser dazunehmen, was aber wohl nicht so einfach ist. Die anderen Browser ändere ich mit einem Powershell-Skript was beim Tor-Browser aber nicht klappt.
Jemand eine Idee, wie man das hinbekommen könnte?
Hier mal das neue Tool, mit dem ich jetzt meinen Standard-Browser und VPN-Verbindung einstelle, damit ihr eine Vorstellung bekommt, was ich meine.
C
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
$Form1_1 = GUICreate("Form1", 125, 409, 259, 159)
$Label1 = GUICtrlCreateLabel("Standart Browser", 16, 8, 100, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Firefox", 24, 40, 75, 25)
$Button2 = GUICtrlCreateButton("Opera", 24, 72, 75, 25)
$Button3 = GUICtrlCreateButton("Ege", 24, 104, 75, 25)
$Button4 = GUICtrlCreateButton("Chrome", 24, 144, 75, 25)
$Label3 = GUICtrlCreateLabel("NordVPN", 32, 176, 56, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Verbinden mit", 24, 232, 81, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Button10 = GUICtrlCreateButton("VPN AUS", 24, 200, 75, 25)
$Button5 = GUICtrlCreateButton("Kenya", 24, 248, 75, 25)
$Button6 = GUICtrlCreateButton("GBR", 24, 280, 75, 25)
$Button7 = GUICtrlCreateButton("Portugal", 24, 312, 75, 25)
$Button8 = GUICtrlCreateButton("Norwegen", 24, 344, 75, 25)
$Button9 = GUICtrlCreateButton("Sweden", 24, 376, 75, 25)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("wechseln", 32, 24, 57, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
Global $iTimeout = 3
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$iPID = Run("powershell.exe" & ' -ExecutionPolicy ByPass -File "C:\Browser_VPN\firefox.ps1"', "", @SW_HIDE, 0x2)
ProcessWaitClose($iPID)
Case $Button2
$iPID = Run("powershell.exe" & ' -ExecutionPolicy ByPass -File "C:\Browser_VPN\opera.ps1"', "", @SW_HIDE, 0x2)
ProcessWaitClose($iPID)
Case $Button3
$iPID = Run("powershell.exe" & ' -ExecutionPolicy ByPass -File "C:\Browser_VPN\ege.ps1"', "", @SW_HIDE, 0x2)
ProcessWaitClose($iPID)
Case $Button4
$iPID = Run("powershell.exe" & ' -ExecutionPolicy ByPass -File "C:\Browser_VPN\chrome.ps1"', "", @SW_HIDE, 0x2)
ProcessWaitClose($iPID)
Case $Button5
RunWait('C:\Browser_VPN\ken.bat', "", @SW_HIDE)
MsgBox($MB_SYSTEMMODAL, "Kenya", "VPN wurde nach ""Kenya"" gewechselt", $iTimeout)
Case $Button6
RunWait('C:\Browser_VPN\gbr.bat', "", @SW_HIDE)
MsgBox($MB_SYSTEMMODAL, "England", "VPN wurde nach ""England"" gewechselt", $iTimeout)
Case $Button7
RunWait('C:\Browser_VPN\por.bat', "", @SW_HIDE)
MsgBox($MB_SYSTEMMODAL, "Portugal", "VPN wurde nach ""Portugal"" gewechselt", $iTimeout)
Case $Button8
RunWait('C:\Browser_VPN\nor.bat', "", @SW_HIDE)
MsgBox($MB_SYSTEMMODAL, "Norwegen", "VPN wurde nach ""Norwegen"" gewechselt", $iTimeout)
Case $Button9
RunWait('C:\Browser_VPN\swe.bat', "", @SW_HIDE)
MsgBox($MB_SYSTEMMODAL, "Schweden", "VPN wurde nach ""Schweden"" gewechselt", $iTimeout)
Case $Button10
RunWait('C:\Browser_VPN\beenden.bat', "", @SW_HIDE)
MsgBox($MB_SYSTEMMODAL, "Beenden", "VPN wurde beendet", $iTimeout)
EndSwitch
WEndUnd hier eines der ps.1 Skripte:
Code
if ($env:OS -ne 'Windows_NT') { throw 'This script runs on Windows only' }
Stop-Process -ErrorAction Ignore -Name SystemSettings
Start-Process ms-settings:defaultapps
$ps = Get-Process -ErrorAction Stop SystemSettings
do {
Start-Sleep -Milliseconds 100
$ps.Refresh()
} while ([int] $ps.MainWindowHandle)
Start-Sleep -Milliseconds 200
$shell = New-Object -ComObject WScript.Shell
foreach ($i in 1..4) { $shell.SendKeys('{TAB}'); Start-Sleep -milliseconds 500 }
$shell.SendKeys("firefox"); Start-Sleep -seconds 1
$shell.SendKeys('{TAB}'); Start-Sleep -milliseconds 100
$shell.SendKeys('{ENTER}'); Start-Sleep -milliseconds 100
$shell.SendKeys('{ENTER}'); Start-Sleep -milliseconds 100
$shell.SendKeys('%{F4}')
$shell.SendKeys('%{F4}'); Start-Sleep -milliseconds 100
