浏览器

开发平台：

Visual Basic

NetAnts.vbs：源码内容

							On Error Resume Next
download_url=WScript.Arguments(0)
download_info=WScript.Arguments(1)
document_Url=WScript.Arguments(2)
err.clear
set NetAntsApi=CreateObject("NetAnts.API")
	if err<>0 then
		MsgBox("NetAnts not properly installed on this PC!")
	else
		if NetAntsApi.IsUrlExist(download_url) then
			MsgBox(download_url+vbCrLf+"already in queue")
		else
			call NetAntsApi.AddUrl(download_url, download_info, document_Url)
		end if
	end if

						