Moin moin,
betreibe ein kleines Forum wo auch Sehbehinderte reinschauen.
Nach dem mir diese per PN Mitgeteilt haben das es für sie nur sehr schwer Lesbar ist habe ich mal Versucht dies
mit Windows Bordmitteln in die Reihe zu bekommen.
Den Style neu machen war mir einfach zu Aufwändig daher dachte ich mir das es mit Autoit wohl zu machen sein müßte.
Kann ja sein das einer von euch noch Verbesserungen hat wie man es noch anders oder besser machen könnte.
Bevor ich es auf die User loslasse.
Hier mal das Skript:
Spoiler anzeigen
#RequireAdmin
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]Global $Colors, $Size, $Face, $FullScreen, $EnableOnStartup, $ZoomFactor, $Invert
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Tool für Sehbehinderte", 439, 440, 448, 138)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Starten", 154, 397, 123, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("Beenden", 286, 397, 123, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Button3 = GUICtrlCreateButton("Zurücksetzen", 144, 331, 147, 33)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("wird die Seite geöffnet", 176, 256, 209, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Internet Explorer", 117, 98, 166, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("In", 24, 256, 21, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Internetseite", 159, 10, 118, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Checkbox1 = GUICtrlCreateCheckbox("Farbe aus", 21, 137, 145, 17)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Checkbox2 = GUICtrlCreateCheckbox("Schrift groß", 22, 169, 145, 25)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Checkbox3 = GUICtrlCreateCheckbox("Invertiert mit Lupe", 199, 209, 217, 25)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Checkbox4 = GUICtrlCreateCheckbox("meine Schrift", 21, 210, 145, 25)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Checkbox5 = GUICtrlCreateCheckbox("Fullsceen", 199, 170, 145, 25)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Checkbox6 = GUICtrlCreateCheckbox("Tastaturnavigation an", 199, 134, 217, 25)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$www = GUICtrlCreateInput("www.autoit.de", 56, 40, 313, 32)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Combo1 = GUICtrlCreateCombo("Zoom", 56, 249, 105, 25)
GUICtrlSetData(-1, "100%|125%|150%|175%|200%|225%|250%|275%|300%|325%|350%|375%|400%")
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Group3 = GUICtrlCreateGroup("", 8, 80, 417, 305)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If Not FileExists ("C:\Temp\sehhilfe.ini") Then
$Colors = RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings", "Always Use My Colors" )
$Size = RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings", "Always Use My Font Size" )
$Face = RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings", "Always Use My Font Face" )
$FullScreen = RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "FullScreen" )
$EnableOnStartup = RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CaretBrowsing", "EnableOnStartup" )
$ZoomFactor = RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom", "ZoomFactor" )
$Invert = RegRead ( "HKEY_CURRENT_USER\Software\Microsoft\ScreenMagnifier", "Invert" )
IniWrite("C:\Temp\sehhilfe.ini", "Settings", "Always Use My Colors", $Colors)
IniWrite("C:\Temp\sehhilfe.ini", "Settings", "Always Use My Font Size", $Size)
IniWrite("C:\Temp\sehhilfe.ini", "Settings", "Always Use My Font Face", $Face)
IniWrite("C:\Temp\sehhilfe.ini", "Main", "FullScreen", $FullScreen)
IniWrite("C:\Temp\sehhilfe.ini", "CaretBrowsing", "EnableOnStartup", $EnableOnStartup)
IniWrite("C:\Temp\sehhilfe.ini", "Zoom", "ZoomFactor", $ZoomFactor)
EndIf
GUICtrlSetOnEvent($Button1, "aendern")
GUICtrlSetOnEvent($Button2, "endmain")
GUICtrlSetOnEvent($Button3, "zuruecksetzen")
GUISetOnEvent($GUI_EVENT_CLOSE, "endmain")
While 1
Sleep(50)
WEnd
Func zuruecksetzen()
[/autoit] [autoit][/autoit] [autoit]If $Checkbox1 And BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState ($Checkbox1, $GUI_UNCHECKED)
EndIf
$Colors = IniRead("C:\Temp\sehhilfe.ini", "Settings", "Always Use My Colors", "")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Colors", "REG_SZ", $Colors)
If $Checkbox2 And BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState ($Checkbox2, $GUI_UNCHECKED)
EndIf
$Size = IniRead("C:\Temp\sehhilfe.ini", "Settings", "Always Use My Font Size", "")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Font Size", "REG_SZ", $Size)
If $Checkbox3 And BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState ($Checkbox3, $GUI_UNCHECKED)
EndIf
$Face = IniRead("C:\Temp\sehhilfe.ini", "Settings", "Always Use My Font Face", "")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Font Face", "REG_SZ", $Face)
If $Checkbox4 And BitAND(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState ($Checkbox4, $GUI_UNCHECKED)
EndIf
$FullScreen = IniRead("C:\Temp\sehhilfe.ini", "Main", "FullScreen", "")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" ,"FullScreen", "REG_SZ", $FullScreen)
If $Checkbox5 And BitAND(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState ($Checkbox5, $GUI_UNCHECKED)
EndIf
$EnableOnStartup = IniRead("C:\Temp\sehhilfe.ini", "CaretBrowsing", "EnableOnStartup", "")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CaretBrowsing" ,"EnableOnStartup", "REG_DWORD", $EnableOnStartup)
If $Checkbox6 And BitAND(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then
GUICtrlSetState ($Checkbox6, $GUI_UNCHECKED)
EndIf
$ZoomFactor = IniRead("C:\Temp\sehhilfe.ini", "Zoom", "ZoomFactor", "")
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $ZoomFactor)
$PID = ProcessExists("magnify.exe")
If $PID Then ProcessClose($PID)
EndFunc;==>Zuruecksetzen
Func aendern()
If $Checkbox1 And BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED Then
$wert = 1
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Colors", "REG_SZ", $wert)
Else
$wert = 0
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Colors", "REG_SZ", $wert)
EndIf
If $Checkbox2 And BitAND(GUICtrlRead($Checkbox2), $GUI_CHECKED) = $GUI_CHECKED Then
$wert = 1
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Font Size", "REG_SZ", $wert)
Else
$wert = 0
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Font Size", "REG_SZ", $wert)
EndIf
If $Checkbox3 And BitAND(GUICtrlRead($Checkbox3), $GUI_CHECKED) = $GUI_CHECKED Then
ShellExecute("magnify.exe")
$wert = 1
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\ScreenMagnifier" ,"Invert", "REG_DWORD", $wert)
Else
$wert = 0
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\ScreenMagnifier" ,"Invert", "REG_DWORD", $wert)
EndIf
If $Checkbox4 And BitAND(GUICtrlRead($Checkbox4), $GUI_CHECKED) = $GUI_CHECKED Then
$wert = 1
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Font Face", "REG_SZ", $wert)
Else
$wert = 0
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Font Face", "REG_SZ", $wert)
EndIf
If $Checkbox5 And BitAND(GUICtrlRead($Checkbox5), $GUI_CHECKED) = $GUI_CHECKED Then
$wert = "yes"
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" ,"FullScreen", "REG_SZ", $wert)
Else
$wert = "no"
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" ,"FullScreen", "REG_SZ", $wert)
EndIf
If $Checkbox6 And BitAND(GUICtrlRead($Checkbox6), $GUI_CHECKED) = $GUI_CHECKED Then
$wert = 1
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CaretBrowsing" ,"EnableOnStartup", "REG_DWORD", $wert)
Else
$wert = 0
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CaretBrowsing" ,"EnableOnStartup", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "125%" Then
$wert = 125000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "150%" Then
$wert = 150000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "175%" Then
$wert = 175000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "200%" Then
$wert = 200000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "225%" Then
$wert = 225000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "250%" Then
$wert = 250000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "275%" Then
$wert = 275000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "300%" Then
$wert = 300000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "225%" Then
$wert = 325000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "350%" Then
$wert = 350000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "375%" Then
$wert = 375000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "400%" Then
$wert = 400000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
If (GUICtrlRead($Combo1)) = "Zoom" Then
$wert = 100000
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $wert)
EndIf
$seite = GUICtrlRead($www)
ShellExecute("iexplore", $seite)
EndFunc;==>aendern
Func endmain()
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Colors", "REG_SZ", $Colors)
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Font Size", "REG_SZ", $Size)
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Settings" ,"Always Use My Font Face", "REG_SZ", $Face)
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main" ,"FullScreen", "REG_SZ", $FullScreen)
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\CaretBrowsing" ,"EnableOnStartup", "REG_DWORD", $EnableOnStartup)
RegWrite ( "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Zoom" ,"ZoomFactor", "REG_DWORD", $ZoomFactor)
$PID = ProcessExists("magnify.exe")
If $PID Then ProcessClose($PID)
FileDelete("C:\Temp\sehhilfe.ini")
Exit
EndFunc;==>endmain
Edit: Habe es mal so umgebaut das es sich die Anfangswerte merkt und diese beim Beenden wieder reinschreibt.
mfg
oh-ha