Search the Community
Showing results for tags 'regedit win8'.
-
Text translated from Portuguese by google - please apologize for any errors I need help on the issue of compatibility with win 8.1 I made this small program to make it easier to search and clean items without a Windows registry It works perfectly in XP but for win8.1 even running as administrator it shows me the type of control but does not get the text that the control has #Region - - -Au3Recorder generated code Start(v3.3.9.5 KeyboardLayout = 00000416) - - - #Region --- Internal functions Au3Recorder Start --- Func _Au3RecordSetup() Opt('WinWaitDelay', 100) Opt('WinDetectHiddenText', 1) Opt('MouseCoordMode', 0) Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '') If $aResult[1] <> '00000416' Then MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000416->' & $aResult[1] & ')') EndIf EndFunc ;==>_Au3RecordSetup Func _WinWaitActivate($title, $text, $timeout = 0) WinWait($title, $text, $timeout) If Not WinActive($title, $text) Then WinActivate($title, $text) return WinWaitActive($title, $text, $timeout) EndFunc ;==>_WinWaitActivate _Au3RecordSetup() #EndRegion --- Internal functions Au3Recorder Start --- Func Busca($a) Local $sText="" While True $hWnd = _WinWaitActivate("Editor do Registro", "") $sControl = ControlGetFocus($hWnd) Switch $sControl Case "SysTreeView321" $sText = ControlTreeView($hWnd, "", $sControl, "GetSelected") Case "SysListView321" $indice = ControlListView($hWnd, "", $sControl, "GetSelected",1) $sText = ControlListView($hWnd, "", $sControl, "GetText",$indice,0) EndSwitch If $sText <> $a Then ExitLoop ToolTip("Controle[" & $sControl & "]=["& $sText &"]") WEnd Return $sText EndFunc $a=Busca("") While True $ultimo=Busca("") Send("{F3}") $a=Busca($ultimo) #Region --- CodeWizard generated code Start --- ;MsgBox features: Title=Yes, Text=Yes, Buttons=Yes, No, and Cancel, Icon=None, Timeout=5 ss, Miscellaneous=Top-most attribute If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer $iMsgBoxAnswer = MsgBox(262147, _ "Escolha o tipo", _ "Sim para o Foco nao mudar foco e Cancelar para sair", _ 5) Select Case $iMsgBoxAnswer = 6 ;Yes $hWnd= _WinWaitActivate("Editor do Registro", "") Send("{DEL}") ;Send("{ENTER}") Case $iMsgBoxAnswer = 7 ;No _WinWaitActivate("Editor do Registro", "") Send("{TAB}") Send("{DEL}") ;Send("{ENTER}") Case $iMsgBoxAnswer = 2 ;Cancel ExitLoop Case $iMsgBoxAnswer = -1 ;Timeout _WinWaitActivate("Editor do Registro", "") Send("{DEL}") ;Send("{ENTER}") EndSelect #EndRegion --- CodeWizard generated code Start --- WEnd #EndRegion --- Au3Recorder generated code End --- #EndRegion Note that it should show no ToolTip but does not show the text of the control.