home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 November / PCWNOV07.iso / shared / regwiz.cab / RegWizUI.dll / HTML / REMIND.VBS < prev    next >
Encoding:
Text File  |  2005-07-13  |  1.3 KB  |  60 lines
  1. Function OnTryAgain()
  2. '{
  3.     Dim bInternetConnection, strRegUrl
  4.  
  5.     bInternetConnection = False
  6.     bInternetConnection = gobjOS.InternetGetConnectedState()
  7.  
  8.     If False = bInternetConnection Then
  9.     '{
  10.         Exit Function
  11.     '}
  12.     End If
  13.     
  14.     strRegUrl = gobjExternal.GetParam ( PROP_REGURL )
  15.     strRegUrl = strRegUrl & MODE_REG
  16.     Call window.location.replace (CStr(strRegUrl))
  17. '}
  18. End Function
  19.  
  20. Function OnRemindConfirm()
  21. '{
  22.     'divRemind_1.style.display = "none"
  23.     'divRemind_2.style.display = ""
  24.  
  25.     'divRemindFooter_1.style.display = "none"
  26.     'divRemindFooter_2.style.display = ""
  27.  
  28.     Call OnRemindMe()
  29.  
  30.     Call window.location.replace (CStr(REMCONFM_HTM))
  31. '}
  32. End Function
  33.  
  34. Function OnRemindMe()
  35. '{
  36.     Dim sRegWizDir
  37.  
  38.     sRegWizDir = GetAgentDataDir() & "\Regwiz"
  39.  
  40.     '// Run registration wizard when internet connection is available.
  41.     Call gobjReg.IniWriteValue( CStr(sRegWizDir & MCREGWIZ_INI), SECTION_REGWIZ, KEY_WHENCONNECTED, CStr("1") )
  42.     Call gobjReg.IniWriteValue( CStr(sRegWizDir & MCREGWIZ_INI), SECTION_REGWIZ, KEY_NEXTRUN, CStr("") )
  43.  
  44.     Call SetWizardStatus (REGWIZ_WHEN_CONNECTED)
  45. '}
  46. End Function
  47.  
  48. Function OnRemindCancel()
  49. '{
  50.     Call window.location.replace (CStr(THANKYOU_HTM))
  51. '}
  52. End Function
  53.  
  54. Function OnRemindBodyLoad()
  55. '{
  56.     Call SetExternalObject(gobjExternal)
  57.     Call SetWizardStatus (REGWIZ_ONREBOOT)
  58. '}
  59. End Function
  60.