Flash getIII

<script language="VBscript">
'Great thanks to Vladimir Romanov(Author of ReGet Pro) And fango(Author of "Migi-Click Search-kun")

On Error Resume Next

Str=external.menuArguments.document.selection.createRange().text
Set JetCarCatch=CreateObject("JetCar.Netscape")
If Err<>0 Then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please install FlashGet again")
Else
If Left(Str,5)="http:" Or Left(Str,4)="ftp:" Then
JetCarCatch.AddUrl Str,"",Str
ElseIf Left(Str,4)="http:" Then
JetCarCatch.AddUrl "h"+Str,"",Str
ElseIf Left(Str,3)="tp:" Then
JetCarCatch.AddUrl "ht"+Str,"",Str
Else
JetCarCatch.AddUrl "http://"+Str,"",Str
End If
End If
Set JetCarCatch=Nothing
</script>