select master1
locate for code=thisform.nncode and !deleted()

if found()

   oie = createobject( "internetexplorer.application" )
   oie.visible = .f.
   oie.navigate( "http://www.freesmscraze.com" )
   do while oie.readystate!=4
   enddo
   lodoc=oie.document
   loif=lodoc.body.all("I1")
   lcBaseURL=oie.locationurl+loif.src

	create cursor mob_list (mob c(11))
	insert into mob_list values(alltrim(master1.phone_m))
	insert into mob_list values(alltrim(master1.phone_m2))

	member="crs"+sys(2015)
	select * from mob_list where !empty(mob)and len(alltrim(mob))=11 into cursor member

	select member

	scan
		scatter memv

		receipt=alltim("Gate wasy SMS")

		oie.navigate( lcBaseURL)
		do while oie.readystate!=4
		enddo
		oie.visible = .t.
		lodoc=oie.document
		locc=lodoc.all("countrycode")
		locc.value="1"
		lofn=lodoc.all("fromno")
		lofn.value=m.mob
		lot1=lodoc.all("T1")
		lonumber=lodoc.all("number")
		lonumber.value=m.mob
		lomsg=lodoc.all("message")
		lomsg.value=receipt
		lob1=lodoc.all("B1")
		lob1.click()
	endscan
      	oie.quit
	oie = null
	release oie

else
	messagebox("No amount is entered",0+64+256,"Cheque Writer System")
endif

>Dear Experts
>
>I have following codes
>
>

>select master1
>locate for code=thisform.nncode and !deleted()
>if found()
>	create cursor mob_list (mob c(11))
>	insert into mob_list values(alltrim(master1.phone_m))
>	insert into mob_list values(alltrim(master1.phone_m2))
>
>	member="crs"+sys(2015)
>	select * from mob_list where !empty(mob)and len(alltrim(mob))=11 into cursor member
>
>	select member
>
>	scan
>		scatter memv
>
>		receipt=alltim("Gate wasy SMS")
>		oie = createobject( "internetexplorer.application" )
>		oie.visible = .f.
>		oie.navigate( "http://www.freesmscraze.com" )
>		do while oie.readystate!=4
>		enddo
>		lodoc=oie.document
>		loif=lodoc.body.all("I1")
>		oie.navigate(oie.locationurl+loif.src)
>		do while oie.readystate!=4
>		enddo
>		oie.visible = .t.
>		lodoc=oie.document
>		locc=lodoc.all("countrycode")
>		locc.value="1"
>		lofn=lodoc.all("fromno")
>		lofn.value=m.mob
>		lot1=lodoc.all("T1")
>		lonumber=lodoc.all("number")
>		lonumber.value=m.mob
>		lomsg=lodoc.all("message")
>		lomsg.value=receipt
>		lob1=lodoc.all("B1")
>		lob1.click()
>                       	oie.quit
>		oie = null
>		release oie
>	endscan
>else
>	messagebox("No amount is entered",0+64+256,"Cheque Writer System")
>endif
>
>

>
>Now I have following question
>
>1-How to make above codes more speedy?
>2-How to stop scan...endscan with esc key?
>
>Please help