Const YAL_CAB = "codebase='http://cn.download.zs.yahoo.com/download/yaslive.cab#version=3,0,0,0'" Dim YAL_INI YAL_INI = "http://cn.download.zs.yahoo.com/download/yalive3.ini" 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 End Function 'this bt's cording because bt's client >:( Function isOldBar() On error resume Next Dim auto, verFile, verReg isOldBar = TRUE set auto = CreateObject("YALive.Live") If IsObject(auto) Then CreateAutoLiveObject(True) version = "" object_autolive.Action "Assist", 1, "yasbar.dll", "", verFile object_autolive.Action "Assist", 1002, "yasbar.dll", "", verReg If "" <> verFile AND "" <> verReg Then If verFile < verReg Then version = verReg Else version = verFile End If Else object_autolive.Action "Assist", 1, "yasbar0.dll", "", verFile object_autolive.Action "Assist", 1002, "yasbar0.dll", "", verReg If "" <> verFile AND "" <> verReg Then If verFile < verReg Then version = verReg Else version = verFile End If Else object_autolive.Action "Assist", 1, "yasbar1.dll", "", verFile object_autolive.Action "Assist", 1002, "yasbar1.dll", "", verReg If "" <> verFile AND "" <> verReg Then If verFile < verReg Then version = verReg Else version = verFile End If Else version = "3" End If End If End If If mid(version,1,1)>="3" Then isOldBar = FALSE End If Else If HasOldAssist() Then ' Else isOldBar = False ' End If End If End Function If isOldBar() Then document.write("<"+"script language='javascript' src='/install_config.js'>") YAL_INI = "http://cn.download.zs.yahoo.com/download/yalive.ini" Else document.write("<"+"script language='javascript' src='/install_config3.js'>") End If