GPEditor macro immune? [solved]

[Akarillon]

I am trying to do a script which makes the screensaver have a timeout and the alternative to turn it off.

My problem is when I try to send keystrokes (Send() ) the program doesn't do anything.

EDIT: The program I am trying to change settings in are the Local Group Policy Editor(gpedit.msc)

All help is appreciated

expandcollapse popup

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_x64=C:\Installationwizard\Remove_Screensaver.exe
#AutoIt3Wrapper_Compression=4
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 287, 145, 252, 147)
$TimeoutInput = GUICtrlCreateInput("TimeoutInput", 104, 64, 121, 21)
$Label = GUICtrlCreateLabel("How many second timeout?", 104, 40, 135, 17)
$ON = GUICtrlCreateRadio("ON", 48, 40, 41, 17)
$OFF = GUICtrlCreateRadio("OFF", 48, 64, 41, 17)
$Exit_button = GUICtrlCreateButton("Exit", 144, 104, 75, 25)
$Start_button = GUICtrlCreateButton("Start", 56, 104, 75, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
Global $var[3]
$var[0] = 0
$var[1] = 0
$var[2] = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $OFF
   $var[0] = 1
  Case $ON
   $var[1] = 1
  Case $Start_button
   $var[2] = GUICtrlRead($TimeoutInput)
   ShellExecute("gpedit.msc", "", "C:\Windows\system32\")
   winwaitActive("Local Group Policy Editor", "", 3000)
   Send("{LEFT}")
   Sleep(300)
   Send("{RIGHT}")
   Sleep(300)
   Send("{DOWN 2}")
   Sleep(300)
   Send("{RIGHT}")
   Sleep(300)
   Send("{DOWN 3}")
   Sleep(300)
   Send("{RIGHT}")
   Sleep(300)
   Send("{DOWN}")
   Sleep(300)
   Send("{RIGHT}")
   Sleep(300)
   Send("{DOWN 3}")
   Sleep(300)
   Send("{TAB}")
   Sleep(300)
   If $var[0] = 1 Then
    Send("{DOWN 3}")
    Sleep(300)
    Send("{ENTER}")
    Sleep(300)
    Send("{TAB 2}")
    Sleep(300)
    Send("{DOWN 2}")
    Sleep(300)
    Send("{ENTER}")
    Sleep(300)
    ProcessClose("mmc.exe")
   EndIf
   If $var[1] = 1 Then
    Send("{DOWN 3}")
    Sleep(300)
    Send("{ENTER}")
    Sleep(300)
    Send("{TAB 2}")
    Sleep(300)
    Send("{DOWN 1}")
    Sleep(300)
    Send("{ENTER}")
    Sleep(300)
    Send("{DOWN 9}")
    Sleep(300)
    Send("{ENTER}")
    Sleep(300)
    Send("{TAB 2}")
    Sleep(300)
    Send("{DOWN}")
    Sleep(300)
    Send("{TAB 3}")
    Sleep(300)
    Send("^a")
    Sleep(300)
    Send("{DEL}")
    Sleep(300)
    Send($var[2])
    Sleep(300)
    Send("{ENTER}")
    Sleep(300)
    ProcessClose("mmc.exe")
   EndIf
  Case $Exit_button
   Exit
 
EndSwitch
WEnd

Kind Regards,

Akarillon

Edited September 8, 2011 by Akarillon

[rcmaehl]

I think some Windows Vista/7 system tools are in a secure desktop (like logonui.exe) that prevents virtual key presses. I'd google it myself if I wasn't already busy multitasking with school work.

[Juvigy]

I think it would be better to find which registry settings are changed and do a REGWRITE(). Send() is not a good automation practice.

[Akarillon]

I know, but I don't find any info about policy changes in the registry.

The strings seems to not be there.

[rcmaehl]

  On 9/7/2011 at 12:33 PM, Juvigy said:

I think it would be better to find which registry settings are changed and do a REGWRITE(). Send() is not a good automation practice.

You have to remember that not everyone likes to go DEEP into the system. Most people prefer using a mouse over typing, notice the KODA GUI generation comments in the code he/she provided, you can logically reason that he/she does not like to go too deep into the system, and thus you should attempt to suggest a solution that would be easy for him/her to implement. Just saying.

[Akarillon]

  On 9/7/2011 at 12:39 PM, rcmaehl said:

You have to remember that not everyone likes to go DEEP into the system. Most people prefer using a mouse over typing, notice the KODA GUI generation comments in the code he/she provided, you can logically reason that he/she does not like to go too deep into the system, and thus you should attempt to suggest a solution that would be easy for him/her to implement. Just saying.

hehe (I am a he)

Also, I just started with AutoIT(I have programming experience).

I can do a registry edit, but I really want to know where the strings for policy editor is (or screensaver at least)

[rcmaehl]

GPE Registry: http://msdn.microsoft.com/en-us/library/ms815238.aspx

Screensaver Registry Help: http://support.microsoft.com/kb/314493

These may be a bit old but they should still work.

[BrewManNH]

In Windows XP the screensaver settings are in the registry key HKey_CURRENT_USER\Control Panel\Desktop. I believe they may be in the same place in Windows 7 but the Win7 machine I have doesn't have a screensaver active and it's set by company policy so I can't change it to see if it is in the same place.

[Akarillon]

  On 9/7/2011 at 12:52 PM, rcmaehl said:

GPE Registry: http://msdn.microsoft.com/en-us/library/ms815238.aspx

Screensaver Registry Help: http://support.microsoft.com/kb/314493

These may be a bit old but they should still work.

GPE Registry was really useful =)

I am on a university domain, so the defaul settings in HKey_CURRENT_USER\Control Panel\Desktop does not work with my user.

I have to use the HKEY_USERS\S-1-5-21-1927809936-1189766144-1318725885-362183\Software\Policies\Microsoft\Windows\Control Panel\Desktop path instead, but same thing

Thank all, and the problem is fixed(got a new one, but will make a new topic about it)

Kind Regards,

Akarillon