home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 November / PCWNOV07.iso / shared / regwiz.cab / RegWizUI.dll / HTML / UPROSET.VBS < prev    next >
Encoding:
Text File  |  2005-07-13  |  2.9 KB  |  131 lines
  1. Option Explicit
  2.  
  3. Dim strNextBtnPage
  4.  
  5. Function OnUProSetNext()
  6. '{
  7.     Call window.location.replace (CStr(strNextBtnPage))
  8. '}
  9. End Function
  10.  
  11. Function OnUProSetCancel()
  12. '{
  13.     Call window.location.replace (CStr(THANKYOU_HTM))
  14. '}
  15. End Function
  16.  
  17. Function OnUProSetSubmit()
  18. '{
  19.     Dim nSubmitResult, sMode, nRegForce
  20.     Dim strAccountID, objRequest
  21.  
  22.     Set objRequest = gobjExternal.GetParam ( PROP_REGREQUEST )
  23.  
  24.     If IsObject (objRequest) Then
  25.     '{
  26.         strAccountID = objRequest.Item ( PROP_ACCOUNTID )
  27.         Set objRequest = Nothing
  28.     '}
  29.     End If
  30.  
  31.     If "" = strAccountID Then
  32.         sMode = MODE_REG
  33.     Else
  34.         sMode = MODE_AUTH
  35.     End If
  36.  
  37.     Call LogDetails ( "Product Registration - Existing User - Account ID found - Submit data to backend" )
  38.     nSubmitResult = SubmitDataForRegistration ( sMode )
  39.  
  40.     If REGWIZ_STATUS_NOINTERNET = nSubmitResult Then
  41.     '{
  42.         ' Hide Cancel button for force registration
  43.         nRegForce = gobjExternal.GetParam ( PROP_FORCE_REG )
  44.  
  45.         If nRegForce = 1 Then
  46.             Call window.location.replace (CStr(SUBMITONCONNECT_HTM))
  47.         Else
  48.             Call window.location.replace (CStr(REMINDME_HTM))
  49.         End If
  50.  
  51.         Set objRequest = Nothing
  52.     '}
  53.     End If
  54. '}
  55. End Function
  56.  
  57. Function OnUProSetBodyLoad()
  58. '{
  59.     Dim sMsg, sAccountID, sProdDesc, sOemIni
  60.     Dim nRegForce, nTrial, nOverWriteForceFlag
  61.     Dim objRequest
  62.  
  63.     Call SetExternalObject(gobjExternal)
  64.     Call SetWizardStatus (REGWIZ_ONREBOOT)
  65.  
  66.     ' gsEulaLang = REGWIZ_LANG_ID
  67.     gsEulaLang = EULA_LANG_ID
  68.  
  69.     ' Check for account id
  70.     Set objRequest = gobjExternal.GetParam ( PROP_REGREQUEST )
  71.     sAccountID = objRequest.Item ( PROP_ACCOUNTID )
  72.  
  73.     strNextBtnPage = PROFILE_HTM
  74.     If True = CanShowPage ( KEY_SHOW_EULA ) Then
  75.     '{
  76.         strNextBtnPage = EULA_HTM
  77.     '}
  78.     End If
  79.  
  80.  
  81.     If "" <> sAccountID Then
  82.     '{
  83.         If True = CanShowPage ( KEY_SHOW_EULA ) Then
  84.         '{
  85.             idNewUser.style.display = ""
  86.             STR_UPROSET_NEW_REG_MSG = Replace (STR_UPROSET_NEW_REG_MSG, "{productname}", CStr(gobjExternal.GetParam (PROP_PRODDESC_HOLDER)) )
  87.             idUProSetMsg.innerHTML = STR_UPROSET_NEW_REG_MSG
  88.         '}
  89.         Else
  90.         '{
  91.             idOldUser.style.display = ""
  92.             idUProSetMsg.innerHTML = STR_UPROSET_ALREADY_REG_MSG
  93.         '}
  94.         End If
  95.     '}
  96.     Else
  97.     '{
  98.         idNewUser.style.display = ""
  99.  
  100.         STR_UPROSET_NEW_REG_MSG = Replace (STR_UPROSET_NEW_REG_MSG, "{productname}", CStr(gobjExternal.GetParam (PROP_PRODDESC_HOLDER)) )
  101.         idUProSetMsg.innerHTML = STR_UPROSET_NEW_REG_MSG
  102.     '}
  103.     End If
  104.  
  105.     ' Hide Cancel button for force registration
  106.     nRegForce = gobjExternal.GetParam ( PROP_FORCE_REG )
  107.  
  108.     sOemIni = GetAgentDir()
  109.     sOemIni = sOemIni & OEM_INI_WSLASH
  110.  
  111.     nOverWriteForceFlag = Trim (gobjReg.IniGetValue (sOemIni, SECTION_CUSTOM, KEY_IGNORE_FORCE_PROFILE_SETUP))
  112.  
  113.     If "" = nOverWriteForceFlag Then
  114.     '{
  115.         nOverWriteForceFlag = 0
  116.     '}
  117.     Else
  118.     '{
  119.         nOverWriteForceFlag = CLng(nOverWriteForceFlag)
  120.     '}
  121.     End If
  122.  
  123.     If nRegForce = 1 And 0 = nOverWriteForceFlag Then
  124.         idUProSetCancel.style.display = "none"
  125.     End If
  126.  
  127.     Set objRequest = Nothing
  128. '}
  129. End Function
  130.  
  131.