Option Explicit
On Error Resume Next
Dim WS, Process, ProcessID, IE, Clip, Ret
Set WS = WScript.CreateObject("WScript.Shell")

Set IE = WScript.CreateObject("InternetExplorer.Application")
IE.Visible = False
IE.Navigate "about:blank"
Do While IE.Busy
  WScript.Sleep 10
Loop
Ret = IE.Document.parentWindow.clipboardData.setData("Text","")
IE.Quit
Set IE = Nothing

For Each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("SELECT * FROM Win32_Process WHERE NAME='kiri8.exe'")
  WScript.Sleep 100
  Set IE = WScript.CreateObject("InternetExplorer.Application")
  IE.Visible = False
  IE.Navigate "about:blank"
  Do While IE.Busy
    WScript.Sleep 10
  Loop
  WS.AppActivate Process.ProcessID
  WScript.Sleep 100
  WS.Sendkeys("%(EC)")
  Clip = IE.Document.parentWindow.clipboardData.getData("Text")
  If Left(Clip,4) = "http" Then
    IE.Visible = True
    IE.Navigate Clip
  Else
    IE.Quit
  End If
  Set IE = Nothing
 'Exit For
Next

Set WS = Nothing
Set Process = Nothing
WScript.Quit