home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 November / PCWNOV07.iso / shared / regwiz.cab / RegWizUI.dll / HTML / THANKYOU.VBS < prev    next >
Encoding:
Text File  |  2005-07-13  |  1.4 KB  |  69 lines
  1. Function OnThankYouContinue()
  2. '{
  3.     Call window.location.replace (CStr(UPROSET_HTM))
  4. '}
  5. End Function
  6.  
  7. Function OnThankYouClose()
  8. '{
  9.     Dim nStatus, sRegWizDir
  10.  
  11.     nStatus = FallBackToFactorySettings()
  12.  
  13. '    If REGWIZ_ONREBOOT = nStatus Or REGWIZ_NEXTRUN = nStatus Then
  14.     '{
  15. '        sRegWizDir = gobjOS.GetObjectModuleFile (CLSID_MCREGWIZ_EXE)
  16. '        If "" <> sRegWizDir Then
  17.         '{
  18. '            sRegWizDir = gobjFS.GetShortPathName (sRegWizDir)
  19.             
  20. '            If gobjFS.IsFile (sRegWizDir) Then
  21.             '{
  22. '                Call gobjReg.RegSetValue ( REGKEY_RUN, REGKEY_MCREGWIZ, CStr(sRegWizDir) )
  23.             '}
  24. '            End If
  25.         '}
  26. '        End If
  27.     '}
  28. '    End If
  29.  
  30.     Call SetWizardStatus (nStatus)
  31.  
  32.     Call LogDetails ( "Close window. Status = " & nStatus )
  33.     'Call ShowPostWOW()
  34.     Call CloseWindow()
  35. '}
  36. End Function
  37.  
  38. Function OnThankyouBodyLoad()
  39. '{
  40.     Dim nMultiProductRegister
  41.     Dim objRequest
  42.  
  43.     Call SetExternalObject(gobjExternal)
  44.     Call SetWizardStatus (REGWIZ_ONREBOOT)
  45.  
  46.     idCancelWarnMsg1.innerHTML = STR_CANCELWARN_MSG_1
  47.  
  48.     If "" <> STR_CANCELWARN_MSG_2 Then
  49.         idCancelWarnMsg2.innerHTML = "<br><br>" & STR_CANCELWARN_MSG_2
  50.     End If
  51.  
  52.     Set objRequest = gobjExternal.GetParam ( PROP_REGREQUEST )
  53.  
  54.     sAccountID = ""
  55.     If IsObject (objRequest) Then
  56.     '{
  57.         sAccountID = objRequest.Item ( PROP_ACCOUNTID )
  58.     '}
  59.     End If
  60.  
  61.     If "" = sAccountID Then
  62.     '{
  63.         idCancelWarnMsg3.innerHTML =  "<br><br>" & STR_CANCELWARN_MSG_3
  64.     '}
  65.     End If
  66. '}
  67. End Function
  68.  
  69.