Change Settings In Hotsync Manager

[emmanuel]

so, my Visor was hanging up while trying to sync without being connected to the Outlook server, so I found that by changing the settings to not sync outlook, it worked fine. This taking all of like, 20 clicks or something was obviously unacceptable, so I spent a hour or two writing this... and since I went and did that, I figured I'd better post it here, so that someday it might be worth something to someone... you know, more than the learning experiance it was for me...

You may need to change things a bit if you have different conduits installed, your milage may vary, etc...

EnsureExists( "HotSync Manager", "", @ProgramFilesDir & "\Handspring\HOTSYNC.EXE")

WinSetState("HotSync Manager", "", @SW_SHOW)
WinMenuSelectItem("HotSync Manager", "", "&Options", "&Custom...")
ControlFocus("Custom", "", "ListBox1")
ControlSend("Custom", "", "ListBox1", "{down}{down}!+c")
DoNothing()
ControlSend("Custom", "", "ListBox1", "{down}!+c")
DoNothing()
ControlSend("Custom", "", "ListBox1", "{down}!+c")
DoNothing()
ControlSend("Custom", "", "ListBox1", "{down}!+c")
DoNothing()
ControlClick("Custom", "", "Button1")
WinSetState("HotSync Manager", "", @SW_HIDE)
MsgBox(0, "hotsync change complete", "sync with outlook disabled" & @CRLF & "   Now you can hit hotsync")

Func EnsureExists($SZTITLE, $SZTEXT, $SZLAUNCH)
  ;EnsureExists checks for the title and text of a program, if they're not present it launches the $szLaunch app. then brings that app to the front.
   If Not WinExists($SZTITLE, $SZTEXT) Then
      Run($SZLAUNCH)
   EndIf
   WinWait($SZTITLE, $SZTEXT, 90)
   While Not WinActive($SZTITLE, $SZTEXT)
      WinActivate($SZTITLE, $SZTEXT)
      Sleep(100)
   Wend
   WinWaitActive($SZTITLE, $SZTEXT, 90)
EndFunc  ;==>EnsureExists

Func DoNothing()
  ;DoNothing selects Do Nothing and clicks Ok in the Change HotSync Action window
   WinWait("Change HotSync Action")
   ControlClick("Change HotSync Action", "", "Button4");click Do Nothing
   ControlClick("Change HotSync Action", "", "Button6");click Ok
EndFunc  ;==>DoNothing

Edit: In the interests of giving credit where credit is due EnsureExists is a derivative of EnsureActive that Larry posted.

Edited May 13, 2004 by emmanuel