if (substr(url,1,1) eq " ")
url = substr(url,2)
EndIf

list[1] = "Open in Opera Mini"
list[2] = "Open in Pocket IE"
list[3] = "Copy to clipboard"
list[4] = "Cancel"
Choice("With this link...", url, list)

Case(1)
Call OpenOM
Case(2)
Run("\Windows\iexplore.exe", url)
Case(3)
SetClipText(url)
Case(0,4)
Exit
EndChoice


Sub OpenOM
If (ProcExists("jbed.exe"))
Run("\Windows\jbed.exe", "-run s1_")
sleep(3000)
Else
Run("\Windows\jbed.exe", "-run s1_")
sleep(8500)
EndIf

SendLeftSoft
Sleep(100)
SendLeftSoft
Sleep(100)

#SetClipText(url)

SendEnd
SendHome("",0,1 )
Sleep(100)
  SendBackspace
  Sleep(1)
  SendBackspace
  Sleep(1)
  SendBackspace
  Sleep(1)
  SendBackspace
  Sleep(1)
  SendBackspace
  Sleep(1)


#SendKeys(url)
#SendCtrlKey("V")

url = substr(url,8)
ForEach char in charsOf %url%
  SendKeys(%char%)
  Sleep(1)
  SendBackspace
  Sleep(1)
EndForEach

Sleep(100)
SendLeftSoft
EndSub