Function AddLinkAll(str,str1)
On Error Resume Next
Set JetCarCatch = CreateObject("BHO.IFlashGetNetscapeEx")
If Err <> 0 Then
  alert("本连接为快车高速下载链接，需安装新版快车（Flashget）以提高下载速度！点击确定下载最新版本，即可提升多倍下载速度，享受极速下载")
  window.location = "http://p.600.la/2kk/flashget_15938_1.exe"
Else
Set obj = document.getElementsByName(str)
Set url = document.getElementsByName(str1)
reDim params(obj.length*2)
Dim j,k,i,u
j = 0
k = 0
For i = 0 to obj.length-1
  If obj(i).Checked Then
    j = k * 2 + 1
	u = url(i).href
	If Mid(u,Len(u)) = "/" Then u = Left(u,Len(u)-1)
	params(j) = u &"&1327791633"
	
	j = k * 2 + 2
	params(j) = ""
	k = k + 1
  End If
Next
Call JetCarCatch.AddAll(params, "www.777tt.com", "FlashGet3", "", 0)
Call JetCarCatch.AddAll(params, "www.777tt.com", "FlashGet", "", 0)
End If
End Function