浏览器

开发平台：

Visual Basic

FlashGet.vbs：源码内容

							On Error Resume Next
download_url=WScript.Arguments(0)
download_info=WScript.Arguments(1)
document_Url=WScript.Arguments(2)
err.clear
set JetCarCatch=CreateObject("JetCar.Netscape")
if err.number=0 then
	call JetCarCatch.AddUrl(download_url,download_info,document_Url)
else
	msgbox "error"
end if

						