Function MyVbsMsgBox( strTitle, strPrompt, nButton ) Dim bRet If 1 = nButton Then nButton = vbYesNo OR vbQuestion OR vbDefaultButton1 ElseIf 2 = nButton Then nButton = vbYesNo OR vbQuestion OR vbDefaultButton2 End If bRet = false If vbYes = MsgBox( strPrompt, nButton, strTitle ) Then bRet = true End If MyVbsMsgBox = bRet End Function Function GetSystemVer() dim tmp assistant.EasyFunction ID_REPAIR_GETSYSTEMINFO, 0, "", tmp GetSystemVer = tmp End Function Sub SetListCheck( nIndex, strCheck ) dim tmp assistant.EasyFunction ID_REPAIR_SETCHECK, nIndex, CStr(strCheck), tmp End Sub Function GetSpecValue( strString, strItemName ) On Error Resume Next Dim strSchName dim ArrTemp dim i dim strRetVal strSchName = strItemName & "=" strRetVal = "" ArrTemp = split( strString, "->|||<-" ) for i = 0 to UBound(ArrTemp) nPos = InStr( ArrTemp(i), strSchName ) if nPos > 0 then strRetVal = mid( ArrTemp(i), nPos + Len(strSchName) ) exit for end if Next GetSpecValue = strRetVal If err Then err.clear End If End Function Function EacapeStr( str ) dim retVal retVal = str if len(retVal) > 0 then 'retVal = replace( retVal, """", "\""" ) retVal = replace( retVal, "\", "\\" ) retVal = replace( retVal, "'", "\'" ) retVal = replace( retVal, "&", "&" ) End if EacapeStr = retVal End Function Function GetFileVersion( strFile ) On Error Resume Next Dim tmp AutoLive.Action "Assist", 1, strFile, "", tmp GetFileVersion = tmp If err Then err.clear End Function Function CheckIsUpdate( strDll, strVer ) On Error Resume Next Dim bRet, tmp bRet = false AutoLive.Action "#HKLMAssist", 1002, "#s" & strDll, "", tmp If tmp < strVer Then bRet = true End If CheckIsUpdate = bRet If err Then err.clear End Function '//////////////////////////////////////////////////////////// ' 更新历史 ' 2005-5-11 17:11 1.0.2.4 -> 1.0.3.1127 [刘其星] ' 2005-5-31 10:54 ierepairn.dat 1.0.2.0 -> 1.0.2.1 [CZW] ' 2005-5-31 10:54 iebwlist.dat 1.0.1.0 -> 1.0.1.1 [CZW] ' 2005-6-9 11:18 ierepairn.dat 1.0.2.1->1.0.2.2 [LQX] ' 2005-6-9 11:18 iebwlist.dat 1.0.1.1->1.0.1.2 [LQX] ' 2005-6-9 12:12 repair.dll 1.0.3.1127->1.0.4.1000 [LQX] ' 2005-6-9 11:18 ierepairn.dat 1.0.2.1->1.0.2.3 [LQX] ' 2005-6-9 11:18 iebwlist.dat 1.0.1.2->1.0.1.3 [LQX] ' 2005-6-9 11:18 ierepairn.dat 1.0.2.3->1.0.2.4 [CZW] ' 2005-6-29 14:19 ierepairn.dat 1.0.2.4->1.0.2.5 [CZW] ' 2005-7-1 09:05 ierepairn.dat 1.0.2.5->1.0.2.6 [CZW] ' 2005-7-1 09:05 iebwlist.dat 1.0.1.3->1.0.1.4 [CZW] ' 2005-7-21 10:13 ierepairn.dat 1.0.2.6->1.0.2.7 [CZW] ' 2005-7-21 10:13 iebwlist.dat 1.0.1.4->1.0.1.5 [CZW] ' 2005-7-21 10:13 iebwlist.dat 1.0.1.5->1.0.1.6 [CZW] ' 2005-8-04 14:13 ierepairn.dat 1.0.2.7->1.0.2.8 [CZW] ' 2005-8-04 14:13 iebwlist.dat 1.0.1.6->1.0.1.7 [CZW] ' 2005-8-22 14:13 iebwlist.dat 1.0.1.7->1.0.1.6 [CZW] ' 2005-9-20 13:50 ierepairn.dat 1.0.2.8->1.0.2.9 [DXH] ' 2005-9-30 18:50 ierepairn.dat 1.0.2.9->1.0.3.0 [DXH] ' 2005-10-14 18:50 ierepairn.dat 1.0.3.0->1.0.3.1 [DXH] ' 2005-10-20 13:50 ierepairn.dat 1.0.3.1->1.0.3.2 [DXH] ' 2005-10-27 11:20 ierepairn.dat 1.0.3.2->1.0.3.3 [DXH] ' 2005-11-2 16:10 ierepairn.dat 1.0.3.3->1.0.3.4 [DXH] ' 2005-11-9 23:10 ierepairn.dat 1.0.3.4->1.0.3.5 [DXH] ' 2005-11-16 23:10 ierepairn.dat 1.0.3.5->1.0.3.6 [DXH] ' 2005-11-16 14:13 iebwlist.dat 1.0.1.6->1.0.1.7 [CZW] ' 2005-11-24 10:10 ierepairn.dat 1.0.3.6->1.0.3.7 [DXH] ' 2005-11-30 15:43 ierepairn.dat 1.0.3.7->1.0.3.8[DXH] ' 2005-12-07 15:43 ierepairn.dat 1.0.3.8->1.0.3.9[DXH] ' 2005-12-15 10:43 ierepairn.dat 1.0.3.9->1.0.4.0[DXH] ' 2005-12-15 10:13 iebwlist.dat 1.0.1.7->1.0.1.8 [CZW] ' 2005-12-21 10:13 iebwlist.dat 1.0.1.8->1.0.1.9 [CZW] ' 2005-12-21 10:43 ierepairn.dat 1.0.4.0->1.0.4.1[DXH] ' 2005-12-28 10:43 ierepairn.dat 1.0.4.1->1.0.4.2[DXH] ' 2006-01-10 10:43 ierepairn.dat 1.0.4.2->1.0.4.3[DXH] ' 2006-01-10 10:13 iebwlist.dat 1.0.1.9->1.0.2.0 [CZW] ' 2006-01-17 10:43 ierepairn.dat 1.0.4.3->1.0.4.4[DXH] ' 2006-01-17 10:13 iebwlist.dat 1.0.2.0->1.0.2.1 [CZW] ' 2006-01-25 10:43 ierepairn.dat 1.0.4.4->1.0.4.5[DXH] ' 2006-03-29 16:00 ierepairn.dat 1.0.4.5->1.0.4.6[SHL] ' 2006-04-05 18:00 ierepairn.dat 1.0.4.6->1.0.4.7[SHL] ' 2006-04-12 17:00 ierepairn.dat 1.0.4.7->1.0.4.8[ZHJ] ' 2006-04-18 17:00 ierepairn.dat 1.0.4.8->1.0.4.9[ZHJ] ' 2006-04-25 11:00 ierepairn.dat 1.0.4.9->1.0.5.0[ZHJ] ' 2006-05-09 11:00 ierepairn.dat 1.0.5.0->1.0.5.1[ZHJ] ' 2006-05-16 12:00 ierepairn.dat 1.0.5.1->1.0.5.2[ZHJ] ' 2006-05-23 12:00 ierepairn.dat 1.0.5.2->1.0.5.3[ZHJ] ' 2006-05-30 12:00 ierepairn.dat 1.0.5.3->1.0.5.4[ZHJ] ' 2006-06-13 12:00 ierepairn.dat 1.0.5.4->1.0.5.5[ZHJ] ' 2006-06-20 12:00 ierepairn.dat 1.0.5.5->1.0.5.6[ZHJ] ' 2006-06-27 12:00 ierepairn.dat 1.0.5.6->1.0.5.7[ZHJ] ' 2006-07-04 12:00 ierepairn.dat 1.0.5.7->1.0.5.8[ZHJ] ' 2006-07-11 12:00 ierepairn.dat 1.0.5.8->1.0.5.9[ZHJ] ' 2006-07-18 12:00 ierepairn.dat 1.0.6.0->1.0.6.1[ZHJ] ' 2006-07-25 12:00 ierepairn.dat 1.0.6.1->1.0.6.2[ZHJ] ' 2006-08-01 12:00 ierepairn.dat 1.0.6.2->1.0.6.3[ZHJ] ' 2006-08-08 12:00 ierepairn.dat 1.0.6.4->1.0.6.5[ZHJ] ' 2006-08-15 12:00 ierepairn.dat 1.0.6.5->1.0.6.6[ZHJ] ' 2006-08-22 12:00 ierepairn.dat 1.0.6.6->1.0.6.7[ZHJ] ' 2006-08-29 12:00 ierepairn.dat 1.0.6.7->1.0.6.8[LZJ] ' 2006-09-05 12:00 ierepairn.dat 1.0.6.8->1.0.6.9[LZJ] ' 2006-09-12 12:00 ierepairn.dat 1.0.6.9->1.0.7.0[LZJ] ' 2006-09-19 12:00 ierepairn.dat 1.0.7.0->1.0.7.1[LZJ] ' 2006-09-26 12:00 ierepairn.dat 1.0.7.1->1.0.7.2[LZJ] ' 2006-10-10 12:00 ierepairn.dat 1.0.7.2->1.0.7.3[LZJ] ' 2006-10-17 12:00 ierepairn.dat 1.0.7.3->1.0.7.4[LZJ] ' 2006-10-24 12:00 ierepairn.dat 1.0.7.4->1.0.7.5[LZJ] ' 2006-10-31 12:00 ierepairn.dat 1.0.7.5->1.0.7.6[LZJ] ' 2006-11-07 12:00 ierepairn.dat 1.0.7.6->1.0.7.7[LZJ] ' 2006-11-07 10:54 iebwlist.dat 1.0.2.9->1.0.3.0[LZJ] ' 2006-11-14 12:00 ierepairn.dat 1.0.7.7->1.0.7.8[LZJ] ' 2006-11-21 12:00 ierepairn.dat 1.0.7.8->1.0.7.9[LZJ] ' 2006-11-28 12:00 ierepairn.dat 1.0.7.9->1.0.8.0[LZJ] ' 2006-12-02 10:54 iebwlist.dat 1.0.3.0->1.0.3.1[LZJ] ' 2006-12-03 10:54 iebwlist.dat 1.0.3.1->1.0.3.2[LZJ] ' 2006-12-05 12:00 ierepairn.dat 1.0.8.0->1.0.8.1[LZJ] ' 2006-12-06 10:54 iebwlist.dat 1.0.3.2->1.0.3.3[LY] ' 2006-12-07 10:54 iebwlist.dat 1.0.3.3->1.0.3.4[LZJ] ' 2006-12-12 12:00 ierepairn.dat 1.0.8.1->1.0.8.2[LZJ] ' 2006-12-19 12:00 ierepairn.dat 1.0.8.2->1.0.8.3[LZJ] ' 2006-12-26 12:00 ierepairn.dat 1.0.8.3->1.0.8.4[LZJ] ' 2007-01-04 12:00 ierepairn.dat 1.0.8.4->1.0.8.5[LZJ] ' 2007-01-08 12:00 ierepairn.dat 1.0.8.5->1.0.8.6[LZJ] ' 2007-01-15 12:00 ierepairn.dat 1.0.8.6->1.0.8.7[LZJ] ' 2007-01-23 12:00 ierepairn.dat 1.0.8.7->1.0.8.8[LZJ] ' 2007-01-29 12:00 ierepairn.dat 1.0.8.8->1.0.8.9[LZJ] ' 2007-02-02 12:00 ierepairn.dat 1.0.8.9->1.0.9.0[LZJ] ' 2007-02-12 12:00 ierepairn.dat 1.0.9.0->1.0.9.1[LZJ] ' 2007-02-27 12:00 ierepairn.dat 1.0.9.1->1.0.9.2[LZJ] ' 2007-03-06 12:00 ierepairn.dat 1.0.9.2->1.0.9.3[LZJ] ' 2007-03-13 12:00 ierepairn.dat 1.0.9.3->1.0.9.4[LZJ] ' 2007-03-20 12:00 ierepairn.dat 1.0.9.4->1.0.9.5[LZJ] ' 2007-03-26 12:00 ierepairn.dat 1.0.9.5->1.0.9.6[LZJ] ' 2007-04-03 12:00 ierepairn.dat 1.0.9.6->1.0.9.7[LZJ] ' 2007-04-10 12:00 ierepairn.dat 1.0.9.7->1.0.9.8[LZJ] ' 2007-04-17 12:00 ierepairn.dat 1.0.9.8->1.0.9.9[LZJ] ' 2007-04-19 10:54 iebwlist.dat 1.0.3.8->1.0.3.9[LZJ] ' 2007-04-24 12:00 ierepairn.dat 1.0.9.9->1.1.0.0[LZJ] ' 2007-04-26 10:54 iebwlist.dat 1.0.3.9->1.0.4.0[LZJ] ' 2007-05-08 12:00 ierepairn.dat 1.1.0.0->1.1.0.1[LZJ] ' 2007-05-15 12:00 ierepairn.dat 1.1.0.1->1.1.0.2[LZJ] ' 2007-05-22 12:00 ierepairn.dat 1.1.0.2->1.1.0.3[LZJ] ' 2007-05-29 12:00 ierepairn.dat 1.1.0.3->1.1.0.4[LZJ] ' 2007-06-05 12:00 ierepairn.dat 1.1.0.4->1.1.0.5[LZJ] ' 2007-06-12 12:00 ierepairn.dat 1.1.0.5->1.1.0.6[LZJ] ' 2007-06-20 12:00 ierepairn.dat 1.1.0.6->1.1.0.7[LZJ] ' 2007-06-26 12:00 ierepairn.dat 1.1.0.7->1.1.0.8[LZJ] ' 2007-07-03 12:00 ierepairn.dat 1.1.0.8->1.1.0.9[LZJ] ' 2007-07-10 12:00 ierepairn.dat 1.1.0.9->1.1.1.0[LZJ] ' 2007-07-17 12:00 ierepairn.dat 1.1.1.0->1.1.1.1[LZJ] ' 2007-07-24 12:00 ierepairn.dat 1.1.1.1->1.1.1.2[LZJ] ' 2007-07-31 12:00 ierepairn.dat 1.1.1.2->1.1.1.3[LZJ] ' 2007-08-07 12:00 ierepairn.dat 1.1.1.3->1.1.1.4[LZJ] ' 2007-08-14 12:00 ierepairn.dat 1.1.1.4->1.1.1.5[LZJ] ' 2007-08-21 12:00 ierepairn.dat 1.1.1.5->1.1.1.6[LZJ] ' 2007-08-28 12:00 ierepairn.dat 1.1.1.6->1.1.1.7[LZJ] ' 2007-09-03 12:00 ierepairn.dat 1.1.1.7->1.1.1.8[LZJ] Function GetInsModulesList( vvdllRet, vvverRet ) On Error Resume Next Dim bRet Dim tidll, tiver bRet = false Dim i Dim ArrDll(7), ArrVer(7) ArrDll(0) = "assist.dll" : ArrVer(0) = "2.0.0.1" ArrDll(1) = "repair.dll" : ArrVer(1) = "1.0.4.1000" ArrDll(2) = "ierepair.dat" : ArrVer(2) = "1.0.0.1" ArrDll(3) = "asfsks.dll" : ArrVer(3) = "2.1.1.87" ArrDll(4) = "ierepairn.dat" : ArrVer(4) = "1.1.1.8" ArrDll(5) = "iebwlist.dat" : ArrVer(5) = "1.0.4.0" ArrDll(6) = "asiesec.dll" : ArrVer(6) = "1.0.0.9" ArrDll(7) = "asierres.dll" : ArrVer(7) = "1.0.2.1000" For i = 0 to UBound(ArrDll) tidll = ArrDll(i) :: tiver = ArrVer(i) If Len(tidll) > 0 And Len(tiver) > 0 Then If CheckIsUpdate( tidll, tiver ) Then vvdllRet = vvdllRet & "," & tidll :: vvverRet = vvverRet & "," & tiver End If End If Next vvdllRet = Trim( vvdllRet ) vvverRet = Trim( vvverRet ) If Len(vvdllRet) > 0 and Len(vvverRet) > 0 Then If "," = Left( vvdllRet, 1 ) Then vvdllRet = Right( vvdllRet, Len(vvdllRet)-1 ) End If If "," = Left( vvverRet, 1 ) Then vvverRet = Right( vvverRet, Len(vvverRet)-1 ) End If End If bRet = true GetInsModules = bRet End Function '---------------------------------------- ' 安装新IE修复专家 '---------------------------------------- Function InstallIefixNew() On Error Resume Next Dim RETA, bRet Dim strFile, vvdll, vvver, tidll, tiver, strUrl Dim tmp bRet = false RETA = 1000 If NOT Install( 1 ) Then Exit Function End If Call InsAutolive() If IsObject( AutoLive ) Then vvdll = "" :: vvver = "" Call GetInsModulesList( vvdll, vvver ) ' update now ... If Len(vvdll) > 0 and Len(vvver) > 0 and _ ( UBound(split(vvdll,",")) = UBound(split(vvver,",")) ) Then RETA = AutoLive.Action( "assist", 2, vvdll, "http://download.3721.com/download/iefixnew.ini", vvver ) Else RETA = 0 if GetFileVersion("repair.dll") <= "1.0.1.3" then RETA = 1 end if End If If 0 = RETA Then bRet = true ' 成功 ElseIf 1 = RETA Then if GetFileVersion( "repair.dll" ) < "1.0.2.0" then strFile = getFileNameFromUrl( location.href ) If "iefix02.htm" = strFile Then location.href = "iefixold02.htm" Else location.href = "safe_ok.htm?title=请重新启动您的电脑&func=您的IE修复专家已被更新到最新版本，但您需要重新启动您的电脑才能使新功能生效。&fb=" & strFile & "&picture1=dot_information.gif&picture2=ok_rstrt.gif" End If end if ElseIf 2 = RETA Then location.href = "install_fail02.htm?fb=" & getFileNameFromUrl(location.href) Else location.href = "install_fail03.htm?fb=" & getFileNameFromUrl(location.href) End If dim temp assistant.EasyFunction &H10000, 0, "", temp Else strUrl = PAGE_ASSIST_INSTALL & "?oldPage=" & getFileNameFromUrl( location.href ) location.href = strUrl End If ' 返回 InstallIefixNew = bRet If err Then err.clear End If End Function Function GetFileInfo( nIndex ) On Error Resume Next assistant.EasyFunction ID_REPAIR_GETFILEINFO, nIndex, "", tmp If err Then err.clear End Function Function FixSpecOne( nIndex ) On Error Resume Next If 0 = assistant.EasyFunction( ID_REPAIR_FIX, nIndex, "", tmp ) Then FixSpecOne = true Else FixSpecOne = false End If If err Then err.clear End Function