Browser Client

Development Platform:

Visual Basic

新建文本文档.txt：Code Content

							[DownManager]
MonitorFileType=.ZIP;.RAR;.EXE;.CAB;.GZ;.Z;.TAR;.ARJ;.LZH;.AVI;.RM;.RAM;.ASF;.WMV;.MPG;.MPEG;.RMVB;.MP3
N1=FlashGet
S1=<script language="vbscript">nset JetCarCatch=CreateObject("JetCar.Netscape")ncall JetCarCatch.AddUrl("%download_url","%download_info",document.Url)n</script>
N2=NetAnts
S2=<script language="VBScript">nOn Error Resume Nextnset NetAntsApi=CreateObject("NetAnts.API")nif err<>0 thennMsgBox("NetAnts not properly installed on this PC!")nelsenif NetAntsApi.IsUrlExist("%download_url") thennMsgBox("%download_url"+vbCrLf+"already in queue")nelsencall NetAntsApi.AddUrl("%download_url", "%download_info", document.Url)nend ifnend ifn</script>
N3=Net Transport
S3=<script language="vbscript">nset NTIECatcher=CreateObject("NTIEHelper.NTIEAddUrl")ncall NTIECatcher.AddLink(document.Url, "%download_url", "%download_info")n</script>
N4=Download Express
S4=<script language="JavaScript">nvar DP = new ActiveXObject("Mdpph.API.1");nif(DP)DP.DownloadFile("%download_url", document.Url, "");nelse nalert("download express is not installed yet"); n</script> 
N5=HiDownload
S5=<script language="VBScript">nset NetMolesApi=CreateObject("NetMoles.NetMoles")nif err<>0 thennMsgBox("NetMoles not properly installed on this PC!")nelsenNetMolesApi.NMAddUrl "%download_url", document.Urlnend ifn</script>
N6=DLExpert
S6=<script language="VBScript">nset dlexpertapi= CreateObject("dlexpertapi")ncall dlexpertapi.addjob("%download_url",document.Url)n</script>
N7=GetRight
S7=<script language="JavaScript1.2">window.clipboardData.setData("Text", "%download_url");</script>

						