home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2007 November / PCWNOV07.iso / shared / regwiz.cab / RegWizUI.dll / HTML / INETCONRM.VBS < prev    next >
Encoding:
Text File  |  2005-07-13  |  1.4 KB  |  63 lines
  1. Option Explicit
  2.  
  3. Function OnInetConRMNo()
  4. '{
  5.     Dim sRegWizDir
  6.  
  7.     Call LogDetails ( "Remind Me resubmit NO button click." )
  8.     Call SetWizardStatus (REGWIZ_ONREBOOT_CONNECTED)
  9.  
  10.     sRegWizDir = GetRegWizDir()
  11.  
  12.     '// Run registration wizard when internet connection is available.
  13.     Call gobjReg.IniWriteValue( CStr(sRegWizDir & MCREGWIZ_INI), SECTION_REGWIZ, KEY_WHENCONNECTED, CStr("1") )
  14.     Call gobjReg.IniWriteValue( CStr(sRegWizDir & MCREGWIZ_INI), SECTION_REGWIZ, KEY_NEXTRUN, CStr("") )
  15.  
  16.     Call CloseWindow()
  17. '}
  18. End Function
  19.  
  20. Function OnInetConRMYes()
  21. '{
  22.     Dim nSubmitResult, sMode
  23.     Dim strAccountID, objRequest
  24.  
  25.     Set objRequest = gobjExternal.GetParam ( PROP_REGREQUEST )
  26.  
  27.     If IsObject (objRequest) Then
  28.     '{
  29.         strAccountID = objRequest.Item ( PROP_ACCOUNTID )
  30.         Set objRequest = Nothing
  31.     '}
  32.     End If
  33.  
  34.     If "" = strAccountID Then
  35.         sMode = MODE_REG
  36.     Else
  37.         sMode = MODE_AUTH
  38.     End If
  39.  
  40.     Call LogDetails ( "Remind Me Register: Submit data to backend" )
  41.     nSubmitResult = SubmitDataForRegistration ( sMode )
  42.  
  43.     If REGWIZ_STATUS_NOINTERNET = nSubmitResult Then
  44.     '{
  45.         MsgBox STR_CONNECT_TO_INTERNET, VBSystemModal Or VBInformation Or VBOKOnly, STR_APP_ERROR_TITLE
  46.     '}
  47.     End If
  48. '}
  49. End Function
  50.  
  51. Function OnInetConRMDont()
  52. '{
  53.     Call window.location.replace (CStr(THANKYOU_HTM))
  54. '}
  55. End Function
  56.  
  57. Function OnInetConRMBodyLoad()
  58. '{
  59.     Call SetExternalObject(gobjExternal)
  60.     Call SetWizardStatus (REGWIZ_WHEN_CONNECTED)
  61. '}
  62. End Function
  63.