5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Flash getIII

88 :名無しさん@お腹いっぱい。:03/03/01 16:13 ID:V3vvw/re
<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)="ttp:" 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>

74 KB
■ このスレッドは過去ログ倉庫に格納されています

★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)