On Thu, Oct 29, 2009 at 5:50 PM, Stef Mientki <stef.mien...@gmail.com>wrote:
> thanks Kevin, > > Kevin Horn wrote: > >> On Wed, Oct 28, 2009 at 4:22 PM, Stef Mientki <stef.mien...@gmail.com<mailto: >> stef.mien...@gmail.com>> wrote: >> >> hello, >> >> For connecting though CheckPoint VPN, >> I need to check the item "Check Point SecuRemote" in the Local >> Area Connections Properties. >> >> I couldn't find a way to read and or toggle this switch (through >> some registry setting), >> so I made an AutoIt program to accomplish the task. >> >> The main disadvantage is that if the number of items above "Check >> Point SecuRemote" changes, >> the Auto-It script will (un)check the wrong item. >> >> thanks, >> Stef Mientki >> >> >> There are some python tools that do desktop automation in a fashion >> similar to what AutoIt does, but this kind of task is one of the few I >> actually don't usually use Python for. I usually use AutoIt. >> >> PyWinAuto (http://pywinauto.openqa.org/) is probably the best-known of >> the windows solutions out there. I thought there was another main one, but >> I can't find it at the moment. >> >> Before you go haring off looking for a new tool, have you tried getting >> the control ID using the AutoIt Winspy-thingy? I've been able to use that >> to send messages directly to individual controls, rather than the window, >> which has helped me in similar situations. >> >> Hope this helps, and let us know how it works out! >> > I updated my autoit script ( whole lot of trial and error :-( , > but it works now, the spy tip was a good one !! > If someone is interested, the code is below. > > cheers, > Stef > > ;********************************************************************************** > > ;Systeem Settings > ;********************************************************************************** > > ;Er moet voor gezorgd worden dat LAN en VPN gesynchroniseerd zijn > ;Het disablen van VPN by startup gaat als volgt: > ; Control Panel > ; Administrative Tools > ; Computer Management > ; Services and Applications > ; Services > ; CheckPoint SecuRemote Watchdog = manual > > ;********************************************************************************** > > ;Define directories and window titles in some local vars > ;********************************************************************************** > > local $Net_Conn = "Network Connections" > local $LAN_Status = "Local Area Connection Status" > local $LAN_Props = "Local Area Connection Properties" > > > ;********************************************************************************** > > ;correct the default AutoIt settings > ;********************************************************************************** > > ;AutoItSetOption("TrayIconHide",0) ;0 = hide (after 1 second) > AutoItSetOption("MouseCoordMode", 0) ;1 = absolute screen coordinates > (default) > ;BlockInput(1) > > > ;********************************************************************************** > > ;launch Network Connections, then launch LAN_status and close Network > Connections > ;********************************************************************************** > > Run("control ncpa.cpl") > > WinWait( $Net_Conn) > If Not WinActive( $Net_Conn) Then > WinActivate( $Net_Conn) > EndIf > > ControlFocus( $Net_Conn, "", "SysListView321") > ControlSend( $Net_Conn, "", "SysListView321","local") > Send("{ENTER}") > WinClose( $Net_Conn) > > ;********************************************************************************** > > ;wait till LAN_status window active, then click on Properties > ;********************************************************************************** > > WinWait($LAN_Status) > If Not WinActive($LAN_Status) Then > WinActivate($LAN_Status) > EndIf > > ControlFocus($LAN_Status, "", "&Properties") > ControlClick($LAN_Status, "", "&Properties") > WinClose( $LAN_Status) > > $WinText = '' > $Name = 'Check Point SecuRemote' > > $NameIndex = ControlListView ( $LAN_Props, $WinText, 'SysListView321', > "FindItem", $Name) > WinActivate($LAN_Props) > WinWaitActive($LAN_Props) > > ; THIS DOESN'T WORK !!! > ;ControlListView ( $WinTitle, $WinText, 'SysListView321', "SelectClear") > ;sleep(200) > ;ControlListView ( $WinTitle, $WinText, 'SysListView321', "Select", > $NameIndex) > ;sleep(200) > ;send("{space}") > > For $i = 1 to $NameIndex > Send("{down}") > Next > sleep(200) > send("{space}") > ControlClick($LAN_Props,$WinText,"Button8") ;OK knop > > BlockInput(0) > > No problem, glad it worked out! Kevin Horn
_______________________________________________ python-win32 mailing list python-win32@python.org http://mail.python.org/mailman/listinfo/python-win32
