Part of Slepp's ProjectsPastebinTURLImagebinFilebin
Feedback -- English French German Japanese
Create Upload Newest Tools Donate
Sign In | Create Account

Advertising

Untitled
Wednesday, May 24th, 2006 at 8:23:00pm MDT 

  1. Func nroute_route_address($numeric, $alpha, $city, $prov)
  2.                         Send("!RA")
  3.                         WinActivate("Find Places")
  4.                         Send($numeric)
  5.                         Send("{TAB 2}")
  6.                         Send("{END}+{HOME}") ; Select City
  7.                         Send($city)
  8.                         Sleep(300)
  9.                         Send("{TAB}")
  10.                         Send("{END}+{HOME}") ; Select Prov
  11.                         Send($prov)
  12.                         Sleep(200)
  13.                         Send("{TAB}+{TAB}{TAB}") ; force Prov to be selected
  14.                         sleep(200)
  15.                         ControlClick("","",6282) ; click select street
  16.                         WinWait("Select Street")
  17.                         Send($alpha&"{TAB}{ENTER}")
  18.                         ControlClick("","","Button20")
  19. EndFunc
  20.  
  21.  
  22. Working version:
  23.  
  24. Func nroute_route_address($numeric, $alpha, $city, $prov)
  25.         Send("!RA")
  26.         WinActivate("Find Places")
  27.         ControlClick("Find Places","","Button3")
  28.         Sleep(200)
  29.         ControlFocus("","","Edit1")
  30.         Send($numeric)
  31.         ControlFocus("","","Edit2")
  32.         Send($city)
  33.         Sleep(500)
  34.         Send("{TAB}")
  35.         Send($prov)
  36.         Sleep(500)
  37.         Send("{TAB}")
  38.         ControlClick("","","Button1")
  39.         WinWait("Select Street")
  40.         ControlSetText("","","Edit2","1")
  41.         ControlFocus("","","Edit1")
  42.         Send($alpha)
  43.         Sleep(1000)
  44.         Send("{ENTER}")
  45.         Sleep(200)
  46.         ControlClick("","","Button2")
  47.         For $i = 1 to 5
  48.                 Sleep(500)
  49.                 if(ControlCommand ("Find Places", "", "Button20", "IsEnabled", "")) Then
  50.                         $selected = ControlListView ("","","SysListView321","GetText",ControlListView ("","","SysListView321","GetSelected"))
  51.                         OSD($selected,2000)
  52.                         ControlClick("Find Places","","Button20")
  53.                         Return 1
  54.                 EndIf
  55.         Next
  56.         MsgBox(48,"No Address Found!", "No Address Found!", 2)
  57.         ControlClick("","","Button21")
  58.         Return 0
  59. EndFunc

advertising

Update the Post

Either update this post and resubmit it with changes, or make a new post.

You may also comment on this post.

update paste below
details of the post (optional)

Note: Only the paste content is required, though the following information can be useful to others.

Save name / title?

(space separated, optional)



Please note that information posted here will expire by default in one month. If you do not want it to expire, please set the expiry time above. If it is set to expire, web search engines will not be allowed to index it prior to it expiring. Items that are not marked to expire will be indexable by search engines. Be careful with your passwords. All illegal activities will be reported and any information will be handed over to the authorities, so be good.

worth-right
worth-right
fantasy-obligation