グーグルクローンで入力するマクロ

質問

グーグルクローンで(IEですると、あまりにも時間がかかるので)http://www.vid-dl.net/を開き、動画
URLの空白のところに"sssss"と入力したいのですが、うまくいきません(できれば、リンク解析のボタンも押したいのですが、追記してもらえれば助かります)？
どなたか、修正していただけないでしょうか?　よろしくお願い致します。
Sub test6()
Dim chromePath As String
chromePath = """C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"""
Shell (chromePath & " -url http://www.vid-dl.net/")
Application.Wait Now + TimeValue("00:00:02")
With CreateObject("WScript.Shell")
Do
If .AppActivate("動画URL") Then
.SendKeys "sssss"
DoEvents
.SendKeys "{enter}"
Exit Do
End If
DoEvents
Loop
End With
End Sub

回答No.1

kamikami30

グーグルクローン？

Google Chromeぐーぐるくろーむ
の事ですか？

因みにクローンはCloneです。