[FONT=Courier New][COLOR=darkblue]Option[/COLOR] [COLOR=darkblue]Explicit[/COLOR]
[COLOR=green]'API declaration to suspend operation[/COLOR]
[COLOR=green]'for a specified time (Milliseconds)[/COLOR]
[COLOR=darkblue]Private[/COLOR] [COLOR=darkblue]Declare[/COLOR] [COLOR=darkblue]Sub[/COLOR] Sleep _
[COLOR=darkblue]Lib[/COLOR] "kernel32" _
([COLOR=darkblue]ByVal[/COLOR] dwMilliseconds [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR])
[COLOR=darkblue]Public[/COLOR] [COLOR=darkblue]Sub[/COLOR] wWait(tSecs [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Single[/COLOR])
[COLOR=green]' Timer to create a pause[/COLOR]
[COLOR=green]' auteur: Joost Verdaasdonk[/COLOR]
[COLOR=darkblue]Dim[/COLOR] sngSec [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Single[/COLOR]
sngSec = Timer + tSecs
[COLOR=darkblue]Do[/COLOR] [COLOR=darkblue]While[/COLOR] Timer < sngSec
DoEvents
[COLOR=darkblue]Loop[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]
[COLOR=darkblue]Public[/COLOR] [COLOR=darkblue]Sub[/COLOR] Test_OK()
[COLOR=darkblue]Dim[/COLOR] id [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Variant[/COLOR]
id = Shell("cmd", vbNormalFocus)
Application.Wait Time + TimeSerial(0, 0, 2)
AppActivate id [COLOR=green]'Active la fenêtre dos[/COLOR]
SendKeys "cd c:\sqlite3", [COLOR=darkblue]True[/COLOR]
wWait 0.5: SendKeys "~", [COLOR=darkblue]True[/COLOR]
wWait 0.5: SendKeys "sqlite3 places.sqlite", [COLOR=darkblue]True[/COLOR]
wWait 0.5: SendKeys "~", [COLOR=darkblue]True[/COLOR]
wWait 0.5: SendKeys ".dump txt", [COLOR=darkblue]True[/COLOR]
wWait 0.5: SendKeys "~", [COLOR=darkblue]True[/COLOR]
wWait 0.5: SendKeys ".output hhhhtest.txt"
wWait 0.5: SendKeys "~", [COLOR=darkblue]True[/COLOR]
SendKeys "select url,title from moz_places;": wWait 0.5
SendKeys "~", True: SendKeys ".q", [COLOR=darkblue]True[/COLOR]
wWait 0.5: SendKeys "~", True
SendKeys "exit", True: wWait 0.5: SendKeys "~", True
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR][/FONT]