home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / CMCD0704.ISO / Software / Freeware / Utilitare / tweakfx / tweakfx_setup.exe / plugins / onapply.txt next >
Text File  |  2003-09-19  |  2KB  |  43 lines
  1. Sub OnApply()
  2. set chkDisableMessenger=sh.ActiveForm.Controls.Item( "chkDisableMessenger")
  3. set chkBlockEXE=sh.ActiveForm.Controls.Item( "chkBlockEXE")
  4. set chkNoModifyAccts=sh.ActiveForm.Controls.Item( "chkNoModifyAccts")
  5. set chkSplashScreen=sh.ActiveForm.Controls.Item( "chkSplashScreen")
  6.  
  7. if chkDisableMessenger.value=1 then
  8. sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\Hide Messenger","2","REG_DWORD"
  9. else
  10. sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\Hide Messenger","0","REG_DWORD"
  11. end if
  12.  
  13. if chkBlockEXE.value=1 then
  14. sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\BlockExeAttachments","1","REG_DWORD"
  15. else
  16. sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\BlockExeAttachments","0","REG_DWORD"
  17. end if
  18.  
  19. if chkNoModifyAccts.value=1 then
  20. sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\No Modify Accts","1","REG_DWORD"
  21. else
  22. sh.reg_write "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\No Modify Accts","0","REG_DWORD"
  23. end if
  24.  
  25. if chkSplashScreen.value=1 then
  26. sh.reg_read "HKEY_CURRENT_USER\Identities\Last User ID", lastid
  27. sh.reg_delete "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\NoSplash"
  28. else
  29. sh.reg_read "HKEY_CURRENT_USER\Identities\Last User ID", lastid
  30. sh.reg_write "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\NoSplash", "1", "REG_DWORD"
  31. end if
  32.  
  33.  
  34. set txtStartPageV = sh.ActiveForm.Controls.Item("txtStartPageV")
  35. set txtWindowTitleV = sh.ActiveForm.Controls.Item("txtWindowTitleV")
  36.  
  37. sh.reg_read "HKEY_CURRENT_USER\Identities\Last User ID", lastid
  38.  
  39. sh.reg_write "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\FrontPagePath", txtStartPageV.text, "REG_SZ"
  40. sh.reg_write "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\WindowTitle", txtWindowTitleV.text, "REG_SZ"
  41.  
  42.  
  43. End Sub