WD Internet Seache with ActiveXEvent

// Manage the progress bar
ActiveXEvent(ManageProgress,ActiveX_Search,"ProgressChange")
ActiveXEvent(EndProgress,ActiveX_Search,"DownloadComplete")
// Default search
EDIT_SEARCH="PCSCloud"

// Start the search
ExecuteProcess(VALIDATE,trtClick)


// Local variables
sURLSearch is string // URL corresponding to the search

// Build the search URL according to the requested engine
SWITCH EDT_ENGINE
CASE 1 : // Google
sURLSearch = StringBuild("http://www.google.com/search?q=%1&meta=lr%3D%26hl%3Dfr&btnG=Search+Google",EDIT_SEARCH)

CASE 2 : // Yahoo
sURLSearch = StringBuild("http://search.yahoo.com/search?p=%1",EDIT_SEARCH)

CASE 3 : // AOL
sURLSearch = StringBuild("http://search.aol.com/aol/search?s_it=searchbox.webhome&query=%1",EDIT_SEARCH)

END

// Perform the search
HourGlass(True)
ActiveX_Search>>Silent(1)
ActiveX_Search>>Navigate(sURLSearch)
HourGlass(False)