home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 November / PCWNOV07.iso / shared / regwiz.cab / RegWizUI.dll / HTML / SUBONCON.VBS < prev    next >
Encoding:
Text File  |  2005-07-13  |  549 b   |  22 lines

  1. Function OnSubOnConClose()
  2. '{
  3.     Call ShowPostWOW()
  4. '}
  5. End Function
  6.  
  7. Function OnSubOnConBodyLoad()
  8. '{
  9.     Dim sRegWizDir
  10.  
  11.     Call SetExternalObject(gobjExternal)
  12.  
  13.     sRegWizDir = GetRegWizDir()
  14.  
  15.     '// Run registration wizard when internet connection is available.
  16.     Call gobjReg.IniWriteValue( CStr(sRegWizDir & MCREGWIZ_INI), SECTION_REGWIZ, KEY_WHENCONNECTED, CStr("1") )
  17.     Call gobjReg.IniWriteValue( CStr(sRegWizDir & MCREGWIZ_INI), SECTION_REGWIZ, KEY_NEXTRUN, CStr("") )
  18.  
  19.     Call SetWizardStatus (REGWIZ_WHEN_CONNECTED)
  20. '}
  21. End Function
  22.