'------------------------------------------------------------
' 常量定义
'------------------------------------------------------------
'Const ID_SELECT_CLEAR_CURUN = 25
'Const ID_SELECT_PUT = 521 
'Const ID_SELECT_END = 522
'Const ID_SELECT_CLEAR_CUNORUN = 26
'Const ID_SELECT_CLEAR_LMRUN = 27
'Const ID_SELECT_CLEAR_LMNORUN = 28
'Const ID_SELECT_CLEAR_STARTUP = 29
'Const ID_SELECT_CLEAR_NOSTARTUP = 30
'Const ID_SELECT_CLEAR_STARTUP2 = 31
'Const ID_SELECT_CLEAR_NOSTARTUP2 = 32
'Const ID_SELECT_GET = 520
'Const ID_SELECT_CLEAR_IEMENUEXT = 21
'Const ID_SELECT_CLEAR_IETOOLBUTTONEXT = 22
'Const ID_SELECT_CLEAR_IETOOLBUTTONEXT2 = 23
'Const ID_SELECT_CLEAR_HIS_ADDRESS = 20 
'Const ID_SETMESSAGER = 101
'Const ID_GET_BKEEPIE = 533
'Const ID_GET_KEEPIESTYLE = 534
'Const INVOKE_XPSTYLE_START = 8001
'Const ID_XP_QUICKPOWEROFF = 8002
'Const ID_XP_MENUSHOWDELAY = 8004
'Const ID_XP_LARGESYSTEMCACHE = 8008
'Const ID_XP_IOPAGELOCKLIMIT = 8009
'Const ID_XP_DISABLEPAGING = 8007
'Const ID_XP_UNLOADDLL = 8011
'Const ID_XP_DISABLESR = 8006
'Const ID_XP_MENUSHOWDELAY = 8003
'Const ID_XP_ENABLEAUTOTRAY = 8012
'Const ID_ASUNINFO_ENUMUNINSTALLKEY = 5002
'Const ID_ASUNINFO_GETUSERID = 5003
'Const ID_XP_TASKBARSIZEMOVE = 8015
'Const ID_XP_TASKBARGLOMMING = 8014
'Const ID_CHGBUTTON = 6725
'Const ID_WEBINSTALLINIT = 6740
'Const ID_WEBCHANGEBTN = 6742
'Const ID_CHGBUTTON = 6725
'Const ID_SHOWICON = 6730
'Const ID_TEXTCHANGE = 6735
'Const INVOKE_ADFILTER_START = 4001

'------------------------------------------------------------
' 基本常量定义
'------------------------------------------------------------
Const PAGE_ASSIST_INSTALL = "assist_install.htm"	'安装导航页面


'----------------------------------------
' 判断是否安装了 yLive
'----------------------------------------
Function HasAutolive()
	On error resume Next
	dim auto
	set auto = CreateObject("YALive.Live")
	If IsObject(auto) then
		HasAutolive = true
	else
		HasAutolive = false
	end if
	set auto = nothing
End Function

'----------------------------------------
' 判断是否安装了 Autolive
'----------------------------------------
Function HasOldAutolive()
	On error resume Next
	dim auto
	set auto = CreateObject("Autolive.live")

	If IsObject(auto) Then
		If HasOldAssist() Then 
		   HasOldAutolive = True
	  Else
	  	HasOldAutolive = False
	  End If 		
	else
		  HasOldAutolive = false
	end if
	set auto = nothing
  err.clear
  
End Function

Function HasOldAssist()
	On error resume Next
	dim tass
	Set tass = CreateObject("Assist.EasyAssist")
	If IsObject(tass) then
		HasOldAssist = true
	else
		HasOldAssist = false
	end if
	Set tass = Nothing
	err.clear
End Function

Function CheckOldAsbar()

     document.write("<object id='object_autolive' classid='clsid:7CA83CF1-3AEA-42D0-A4E3-1594FC6E48B2' height=0 width=0></object>")
  
        object_autolive.Action "assist", 1, "asbar.dll", "", version
        if isEmpty(version) then
           CheckOldAsbar = False
        Else
           CheckOldAsbar = True
        End If   	         

End Function 

'----------------------------------------
' 判断是否安装了 Assist
'----------------------------------------
Function HasAssist()
	On error resume Next
	dim tass
	Set tass = CreateObject("YAssist.EasyAssist")
	If IsObject(tass) then
		HasAssist = true
	else
		HasAssist = false
	end if
	Set tass = nothing
  err.clear
End Function

'----------------------------------------
' 判断是否安装了 Cns
'----------------------------------------
Function HasCns()
	On error resume Next

	dim tass
	Set tass = CreateObject("CnsHelper.CH")
	If IsObject(tass) then
		HasCns = true
	else
		HasCns = false
	end if
	Set tass = nothing
  err.clear
End Function

'----------------------------------------
' 判断是否安装了新版雅虎助手
'----------------------------------------
function isNewBar()
	On error resume Next

	dim auto
	isNewBar = false

	set auto = CreateObject("YALive.Live")
	If not IsObject(auto) then
		exit function
	end if

	CreateYLiveObject(true)

	version = ""
	object_ylive.Action "Assist", 1, "yasbar.dll", "", verFile
	object_ylive.Action "Assist", 1002, "yasbar.dll", "", verReg
	If "" <> verFile AND "" <> verReg Then
		If verFile < verReg Then
			version = verReg
		Else
			version = verFile
		End If
	End If

	if mid(version,1,1)="3" then
		isNewBar = true
	end If
	err.clear
end Function

'----------------------------------------
' 获取助手导航页面安装地址
'----------------------------------------
Function getAssistinstallPage() 'Not used
	On Error Resume Next
	getAssistinstallPage = PAGE_ASSIST_INSTALL
End Function

'----------------------------------------
' 获取 URL 中指定参数的值
'----------------------------------------
Function RequestQueryString( url, ArgName )
	On Error Resume Next
	Dim retVal
	dim nPos, tmpArgVal, ArrTmp

	url	= trim(url)
	ArgName	= trim(ArgName)
	retVal	= ""

	If url = "" Or IsNull(url) Then
		If IsObject(parent.location) Then
			url = parent.location.href
		ElseIf IsObject(location) Then
			url = location.href
		Else
			url = location
		End If
	End If

	If Len(ArgName) > 0 Then
		If right( ArgName, 1 ) <> "=" then
			ArgName = ArgName & "="
		end if
		nPos = InStr( LCase(url), LCase(ArgName) )
		if nPos > 0 then
			tmpArgVal = right( url, len(url)-nPos+1 )
			tmpArgVal = right( tmpArgVal, len(tmpArgVal)-len(ArgName) )
			ArrTmp    = split( tmpArgVal, "&" )
			retVal    = ArrTmp(0)
		End If
	Else
		If InStr( url, "?" ) > 0 Then
			ArrTmp = split( url, "?" )
			retVal = ArrTmp(UBound(ArrTmp))
		End If
	End If
	RequestQueryString = retVal

	if err.number <> 0 then
		err.clear
	end If

End Function

'----------------------------------------
' 从一个 URL 中提取文件名
'----------------------------------------
Function getFileNameFromUrl( url )
	On Error Resume Next
	If url = "" Then
		getFileNameFromUrl = ""
		Exit Function
	End If
	If InStr( url, "/" ) = 0 Then
		getFileNameFromUrl = url
		Exit Function
	End If
	Dim Arr, retVal, nPos
	Arr = split( url, "/" )
	retVal = Arr( UBound(Arr) )

	nPos = inStr( retVal, "?" )
	if nPos > 0 then
		retVal = left( retVal, (nPos-1) )
	end if
	getFileNameFromUrl = retVal
End Function

'----------------------------------------
' 记录新安装的用户
'----------------------------------------
sub LogAssistantInstall()
	On error resume Next

	Dim url
	dim ass
	dim pid2Val, temp

	url = parent.location.href
	If url = "" Then
		url = location.href
	End If
	pid2Val = RequestQueryString( url, "pid2" )
	If "" = pid2Val Then
		pid2Val = "cnzsyahoo_home_activex"
	End If

	Set alObj = CreateObject("YALive.Live")
	If IsObject( alObj ) Then
		strRet = ""
		document.write "<object id=""AutoLiveObjReg"" classid=""clsid:57421194-58FB-49ae-9B4F-FD48869B9AD4"" height=0 width=0></object>"
		AutoLiveObjReg.Action "#HKLMAssist\Coop", 1002, "#sPrePartner", "", strRet
		If "" = strRet Then
			AutoLiveObjReg.Action "#HKLMAssist\Coop", 1001, "#sPrePartner=" + pid2Val, "", strRet
		End If
	end If
	Set alObj = nothing
End Sub

'----------------------------------------
' Install
'----------------------------------------
Function Install( bInstall )
	On error resume Next
	
	'strEnemyName = ""
	'If IsInstallEnemy( strEnemyName ) Then
	'	Url = "http://cn.zs.yahoo.com/download_1.htm?oldPage=" & getFileNameFromUrl( location.href ) & "&enemyName=" & strEnemyName
	'	document.URL = Url
	'	document.URL = Url
	'	document.URL = Url
	'	Install = FALSE
	'	Exit function
	'End If
	
	Set auto = CreateObject("YALive.Live")
	If not IsObject(auto) Then
		oldUrl = PAGE_ASSIST_INSTALL & "?oldPage=" & getFileNameFromUrl( location.href )
		location.href = oldUrl
		Exit Function
	Else
		Dim assist
		Set assist = CreateObject("YAssist.EasyAssist")
				
		If IsObject( assist ) Then
			document.write "<object id=""Autolive""  classid=""clsid:57421194-58FB-49ae-9B4F-FD48869B9AD4"" codebase=""http://cn.download.zs.yahoo.com/download/yaslive.cab#version=1,0,0,1"" height=0 width=0></object>"
		Else
			oldUrl = PAGE_ASSIST_INSTALL & "?oldPage=" & getFileNameFromUrl( location.href )
			location.href = oldUrl
		End If
	End If
	
	Install = TRUE
End Function

Function InsAutolive()
	On error resume Next
	if IsObject( Autolive ) then
		InstallAuto()
	else 
		NullAssist()
	end If
End Function 

Function NullAssist()
	On Error Resume Next
	Set auto = CreateObject("YALive.Live")
	If not IsObject(auto) Then
		oldUrl = PAGE_ASSIST_INSTALL & "?oldPage=" & getFileNameFromUrl( location.href )
		location.href = oldUrl
	End If
End Function

Function InstallAuto()
On Error Resume Next
	Set ass=CreateObject("YAssist.EasyAssist")
	If IsObject( ass ) Then
		document.write "<object id=""assistant""  classid=""clsid:FE3ECAE7-0A37-4506-8A7D-3CC9A04D2CA8"" height=0 width=0></object>"

		Call LogAssistantInstall()		
		Set auto=CreateObject("YALive.Live")
		If not IsObject(auto) Then
			oldUrl = PAGE_ASSIST_INSTALL & "?oldPage=" & getFileNameFromUrl( location.href )
			location.href = oldUrl
			Exit Function
		End If
		UpAssistEx 
	Else
		oldUrl = PAGE_ASSIST_INSTALL & "?oldPage=" & getFileNameFromUrl( location.href )
		location.href = oldUrl
	End If
End Function

Function UpAssistEx( )
	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YASSISTEX_DLL+","+FN_YREPAIR_DLL+","+FN_YOPTIMUM_DLL+","+FN_YADFILTER_DLL
		vers = VV_YASSIST_DLL+","+VV_YASSISTEX_DLL+","+VV_YREPAIR_DLL+","+VV_YOPTIMUM_DLL+","+VV_YADFILTER_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_IniInstall, vers )
	End If
	if err.number > 0 then
		location.href = "install_hint03.htm"
	End if
	if RETA = 0 then
		Exit Function
	ElseIf RETA = 1 then
		Exit Function
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function


Function UpAssistRestart() 'Not used
On Error Resume Next
If IsObject( assistant ) Then
	assistant.EasyFunction 65543,0,"",asVer
	If asVer = "2.0.0.4" Then
	Else
		location.href = "safe_ok.htm?func=雅虎助手已经升级，需要重启计算机才能生效，请您立即重新启动计算机！&fb=" & getFileNameFromUrl(location.href)
	End If	
End If	
End Function

Function UpOptimumAndAdFilter ( ) 'used by acel06.htm
	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YOPTIMUM_DLL+","+FN_YADFILTER_DLL
		vers = VV_YASSIST_DLL+","+VV_YOPTIMUM_DLL+","+VV_YADFILTER_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_IniInstall, vers )
	End If
	
	if err.number > 0 then
		location.href = "install_hint03.htm"
	End if
	if RETA = 0 then
		Exit Function
	ElseIf RETA = 1 Then
		Exit Function
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function


Function UpRepairAndOptimum ( ) 'Not used
	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YREPAIR_DLL+","+FN_YOPTIMUM_DLL
		vers = VV_YASSIST_DLL+","+VV_YREPAIR_DLL+","+VV_YOPTIMUM_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_IniInstall, vers )
	End If
	
	If err.number > 0 then
		location.href = "install_hint03.htm"
	End if
	if RETA = 0 then
		Exit Function
	ElseIf RETA = 1 then
		Exit Function
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function

Function UpRepairAndAdFilter ( ) 'used by  safe02.htm/safe02_fs.htm/safe05.htm
	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YREPAIR_DLL+","+FN_YADFILTER_DLL
		vers = VV_YASSIST_DLL+","+VV_YREPAIR_DLL+","+VV_YADFILTER_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
	End If

	If err.number > 0 then
		location.href = "install_hint03.htm"
	End if
	if RETA = 0 then
		Exit Function
	ElseIf RETA = 1 then
		Exit Function
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function	

Function UpWebProAndData( )  'Not used
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YASWEBPRO_DLL+","+FN_YISGLIB_DAT+","+FN_YISG1_DAT+","+FN_YISG2_DAT
		vers = VV_YASSIST_DLL+","+VV_YASWEBPRO_DLL+","+VV_YISGLIB_DAT+","+VV_YISG1_DAT+","+VV_YISG2_DAT
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End if	
	if RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 Then
		location.href = "safe_ok.htm?func=雅虎助手功能需要重启计算机才能生效，请您立即重新启动计算机&fb=" & getFileNameFromUrl(location.href) & "&picture1=dot_information.gif&picture2=ok_rstrt.gif"
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function

Function UpRepairAndData( )  'used by  iefixnew07.htm/iefixnew_test.htm/iefixold02.htm/iefixnewfunc.vbs
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YREPAIR_DLL
		vers = VV_YASSIST_DLL+","+VV_YREPAIR_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End if	
	if RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 Then
		location.href = "safe_ok.htm?func=雅虎助手功能需要重启计算机才能生效，请您立即重新启动计算机&fb=" & getFileNameFromUrl(location.href) & "&picture1=dot_information.gif&picture2=ok_rstrt.gif"
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function

Function UpRepair( ) 'used by 1key.htm/acel02.htm/fast_pop.htm/iefix04.htm/noad06.htm/noad08.htm/testjin_noad04.htm/
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YREPAIR_DLL
		vers = VV_YASSIST_DLL+","+VV_YREPAIR_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers)
	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End if	
	if RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 Then
		location.href = "safe_ok.htm?func=雅虎助手功能需要重启计算机才能生效，请您立即重新启动计算机&fb=" & getFileNameFromUrl(location.href) & "&picture1=dot_information.gif&picture2=ok_rstrt.gif"
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function	

Function UpRepairBeta( strverAssist, strverRepair) 'Not used
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YREPAIR_DLL
		vers = VV_YASSIST_DLL+","+VV_YREPAIR_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End if	
	if RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 Then
		location.href = "safe_ok.htm?func=雅虎助手功能需要重启计算机才能生效，请您立即重新启动计算机&fb=" & getFileNameFromUrl(location.href) & "&picture1=dot_information.gif&picture2=ok_rstrt.gif"
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function	

Function UpXPStyle( ) 'used by acel04.htm
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YXPSTYLE_DLL
		vers = VV_YASSIST_DLL+","+VV_YXPSTYLE_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End if	
	if RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 Then
		location.href = "safe_ok.htm?func=雅虎助手功能需要重启计算机才能生效，请您立即重新启动计算机&fb=" & getFileNameFromUrl(location.href) & "&picture1=dot_information.gif&picture2=ok_rstrt.gif"
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function	

Function UpAssist( ) 'Not used
 	On error resume Next
 	If IsObject( AutoLive ) Then
 		dlls = FN_YASSIST_DLL
 		vers = VV_YASSIST_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
 	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End if	
	if RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 then
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function	

Function UpOptimum( ) 'used by acel02_1.htm/acel02_2.htm/acel03.htm/acel05.htm/prvc02.htm/prvc03.htm/prvc03_sina.htm/prvc04.htm/prvc04bak.htm/safe_liebiao.htm/status_soft.htm
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YOPTIMUM_DLL
		vers = VV_YASSIST_DLL+","+VV_YOPTIMUM_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers)
	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End If
	if RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 then
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function

Function UpAssistExBossKey( ) 'used by prvc05.htm
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YASSISTEX_DLL
		vers = VV_YASSIST_DLL+","+VV_YASSISTEX_DLL
		RETA = AutoLive.Action( "assist", 2, dlls, g_InIInstall, vers )
	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End If
	if RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 then
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End if
End Function

Function UpAdFilter( ) 'used by noad01.htm/noad02.htm/noad02_new.htm/noad-3_new.htm/noad04.htm/noad05.htm
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YADFILTER_DLL
		vers = VV_YASSIST_DLL+","+VV_YADFILTER_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
	End If
	If err.number > 0 then 
		location.href = "install_hint03.htm"
	End if	
	If RETA = 0 Then
		Exit Function 
	ElseIf RETA = 1 Then
		location.href = "safe_ok.htm?func=广告拦截专家功能需要重启计算机才能生效，请您立即重新启动计算机&fb=" & getFileNameFromUrl(location.href)
		Exit Function 
	ElseIf RETA = 2 Then
		location.href = "install_fail02.htm"
	Else
		location.href = "install_fail03.htm"
	End If
End Function

Function UpSearchAd( ) 'used by noad07.htm
  On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YASANALY_DLL
		vers = VV_YASSIST_DLL+","+VV_YASANALY_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers)
	End If
        If err.number > 0 Then
        	location.href = "install_hint03.htm"
        End If
        If RETA = 0 Then
        	Exit Function
        ElseIf RETA = 1 Then
        	Exit Function
        ElseIf RETA = 2 Then
        	location.href = "install_fail02.htm"
        Else  
                location.href = "install_fail03.htm"
        End If
End Function

'IEDIY模块
Function UpIEDIYandKeepMain( ) 'Not used
        On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YASSIST_DLL+","+FN_YKEEPMAN_DLL+","+FN_YIEDIY_DLL
		vers = VV_YASSIST_DLL+","+VV_YKEEPMAN_DLL+","+VV_YIEDIY_DLL
		RETA = AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
	End If 
        
        If err.number > 0 Then
        	location.href = "install_hint03.htm"
        End If
        If RETA = 0 Then
        	Exit Function
        ElseIf RETA = 1 Then
        	Exit Function
        ElseIf RETA = 2 Then
        	location.href = "install_fail02.htm"
        Else  
                location.href = "install_fail03.htm"
        End If
End Function

'驱动保护
Function UpKeeperins ( strverKeeperins ) 'Not used
  On Error Resume Next
  If IsObject( AutoLive ) Then
  	dlls = FN_YKEEPERINS_DLL
  	vers = VV_YKEEPERINS_DLL
  	RETA = AutoLive.Action ("autolive", 2, dlls, g_InIInstall, vers )
  End If 
  
  If err.number > 0 Then
  	location.href = "install_hint03.htm"
  	Alert("用户没安装AutoLive5")
  End If
  If RETA = 0 Then
  	Exit Function
  	Alert("安装成功")
  ElseIf RETA = 1 Then
  	Exit Function
  	Alert("安装成功，但暂时无法使用，需要重新启动")
  ElseIf RETA = 2 Then
  	location.href = "install_fail02.htm"
  	Alert("网络问题，安装失败")
 Else  
          location.href = "install_fail03.htm"
          Alert("用户取消，安装失败")
  End If
End Function

Function SetCns() 'used by prvc02.htm/prvc03.htm/prvc03_sina.htm/prvc04.htm/prvc04bak.htm
	On Error Resume Next
	Set cns=CreateObject("CnsHelper.CH")
	if IsObject( cns ) then
		document.write "<object id='CnsMin' classid='clsid:B83FC273-3522-4CC6-92EC-75CC86678DA4' height=0 width=0></object>"
	end if
End Function

Function externAssist() 'used by safe_ok2.htm/safe_ok3.htm/setie.htm/status.htm/status2.htm/webbar.htm
	On Error Resume Next
	Set ess=CreateObject("YAssist.EasyAssist")
	If IsObject( ess ) Then
		document.write "<object id='assistant'  classid='clsid:FE3ECAE7-0A37-4506-8A7D-3CC9A04D2CA8' version=2,0,0,1 height=0 width=0></object>"
		SaveCookie()	
	End If
End Function

Function IsInstall( winObj, page ) 'Not used
		str = getCookie( "eservice" )
		If str = "1.0.2.4" Then 
			winObj.location = "http://cn.zs.yahoo.com/" + page
			Exit Function
		Else
			str2 = getUserAgent()
			If str2 = "1.0.2.4" Then
				winObj.location = "http://cn.zs.yahoo.com/" + page
				Exit Function
			End If
			winObj.location = "http://cn.zs.yahoo.com/hint.htm?page=" + page
		End If
End Function

Function IsInstallAtWizard( winObj ) 'Not used
		str = getCookie( "eservice" )
		If str = "1.0.2.4" Then 
			winObj.location.replace( "http://cn.zs.yahoo.com/wizard/main.htm" )
			Exit Function
		Else
			str2 = getUserAgent()
			If str2 = "1.0.2.4" Then
				winObj.location.replace( "http://cn.zs.yahoo.com/wizard/main.htm" )
				Exit Function
			End If
			winObj.location.replace( "http://cn.zs.yahoo.com/wizard/install.htm" )
		End If
End Function

Function IsInstallBaidu() 'used by func.vbs:IsInstallEnemy()
	On Error Resume Next
	
	Dim baidu
	Set baidu = CreateObject("BDPlugins.Interceptor.1")
	If IsObject( baidu ) Then
		IsInstallBaidu = TRUE
		exit function
	Else
		Set baidu = CreateObject("BDHook.BDSrchHook.1")
		If IsObject( baidu ) Then
			IsInstallBaidu = TRUE
			exit function
		Else
			Set baidu = CreateObject("BaiduBar.Baidu.1")
			If IsObject( baidu ) Then
				IsInstallBaidu = TRUE
				exit function
			End If
		End If
	End If
	
	IsInstallBaidu = FALSE
End Function

Function IsInstallCnnic() 'used by installing.htm
	On Error Resume Next
	
	document.write( "<object id='cdnClient' classid='clsid:9A578C98-3C2F-4630-890B-FC04196EF420' height=0 width=0></object>" )
	if IsObject( cdnClient ) then
		state = cdnClient.readyState
		if 4 = state then
			IsInstallCnnic = TRUE
			exit function
		end if
	end if
	
	IsInstallCnnic = FALSE
End Function

Function IsInstallEnemy( strEnemyName ) 'Not used
	On Error Resume Next
	
	if IsInstallBaidu() Then
		IsInstallEnemy = TRUE
		strEnemyName = "Baidu"
		exit function
	Else
		'if IsInstallCnnic() Then
		'	IsInstallEnemy = TRUE
		'	strEnemyName = "Cnnic"
		'	exit function
		'end if
	end if
	
	IsInstallEnemy = FALSE
End Function

'-- 根据是否安装助手控件做相应动作
Function IsKAVNeedInstallYAssist() 'used by 20060214.htm/announce_20060118.htm/magazine.htm/magazine1.htm/shoppingnew2.htm
	If not HasAssist() Then
		if confirm("您还没有安装雅虎助手工具条，请安装后使用此服务") = true then
			IsKAVNeedInstallYAssist = true
			window.open "http://cn.zs.yahoo.com/installing.htm?fb=kav", "new", "top=50,left=50,width=900,height=500,menubar=yes,scrollbars=yes,status=yes,location=yes"
			exit function
		end if
	End If

	IsKAVNeedInstallYAssist = false
End Function

Function UpdatePhoto() 'used by photo01.htm/photo02.htm/photo03.htm/photo04.htm/photo05.htm/photo06.htm/photo07.htm/photo08.htm/photo09.htm/photo10.htm
 	On error resume Next

	If IsObject( AutoLive ) Then
		dlls = FN_YPHTB_DLL+","+FN_YPHOTOSEASY_DLL
		vers = VV_YPHTB_DLL+","+VV_YPHOTOSEASY_DLL
		Call AutoLive.Action ("assist", 2, dlls, g_InIInstall, vers )
	End If
End Function

''''''''''''
''''''''''''

Function SecureMode()
On Error Resume Next
    dim tmp 
    tmp = -1
	assistant.EasyFunction IF_PROTECTOF_IE, 0, "", tmp
	SecureMode = tmp
End Function