home *** CD-ROM | disk | FTP | other *** search
- Function OnSubOnConClose()
- '{
- Call ShowPostWOW()
- '}
- End Function
-
- Function OnSubOnConBodyLoad()
- '{
- Dim sRegWizDir
-
- Call SetExternalObject(gobjExternal)
-
- sRegWizDir = GetRegWizDir()
-
- '// Run registration wizard when internet connection is available.
- Call gobjReg.IniWriteValue( CStr(sRegWizDir & MCREGWIZ_INI), SECTION_REGWIZ, KEY_WHENCONNECTED, CStr("1") )
- Call gobjReg.IniWriteValue( CStr(sRegWizDir & MCREGWIZ_INI), SECTION_REGWIZ, KEY_NEXTRUN, CStr("") )
-
- Call SetWizardStatus (REGWIZ_WHEN_CONNECTED)
- '}
- End Function
-