home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 July / CMCD0704.ISO / Software / Freeware / Utilitare / tweakfx / tweakfx_setup.exe / plugins / onload.txt < prev    next >
Encoding:
Text File  |  2003-09-19  |  3.5 KB  |  103 lines
  1. Sub OnLoad()
  2.  
  3. set chkDisableMessenger = sh.ActiveForm.Controls.Add("VB.checkbox", "chkDisableMessenger")
  4. set chkBlockEXE = sh.ActiveForm.Controls.Add("VB.checkbox", "chkBlockEXE")
  5. set chkNoModifyAccts = sh.ActiveForm.Controls.Add("VB.checkbox", "chkNoModifyAccts")
  6. set chkSplashScreen = sh.ActiveForm.Controls.Add("VB.checkbox", "chkSplashScreen")
  7. set fraPlugin = sh.ActiveForm.Controls.Item("fraPlugin")
  8.  
  9. chkDisableMessenger.move fraPlugin.Left + 100, fraPlugin.Top + 200, fraPlugin.Width -200, 350
  10. chkDisableMessenger.Visible = True
  11. chkDisableMessenger.zorder 0
  12. chkDisableMessenger.caption="Disable MS Messenger when Outlook Express is being started"
  13.  
  14. chkBlockEXE.move fraPlugin.Left + 100, fraPlugin.Top + 600, fraPlugin.Width - 200, 100
  15. chkBlockEXE.Visible = True
  16. chkBlockEXE.zorder 0
  17. chkBlockEXE.caption="Block EXE files"
  18.  
  19. chkNoModifyAccts.move fraPlugin.Left + 100, fraPlugin.Top + 900, fraPlugin.Width - 200, 100
  20. chkNoModifyAccts.Visible = True
  21. chkNoModifyAccts.zorder 0
  22. chkNoModifyAccts.caption="Disable accounts modifying"
  23.  
  24. chkSplashScreen.move fraPlugin.Left + 100, fraPlugin.Top + 1200, fraPlugin.Width - 200, 100
  25. chkSplashScreen.Visible = True
  26. chkSplashScreen.zorder 0
  27. chkSplashScreen.caption="Show splash screen"
  28.  
  29.  
  30. sh.reg_read "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\Hide Messenger", DisableMessenger
  31. sh.reg_read "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\BlockExeAttachments", BlockExeAttachments
  32. sh.reg_read "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Outlook Express\No Modify Accts", NoModifyAccts
  33.  
  34. sh.reg_read "HKEY_CURRENT_USER\Identities\Last User ID", lastid
  35.  
  36. sh.reg_read "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\NoSplash", nosplash
  37.  
  38. if DisableMessenger="2" then
  39. chkDisableMessenger.value=1
  40. else
  41. chkDisableMessenger.value=0
  42. end if
  43.  
  44. if BlockExeAttachments="1" then
  45. chkBlockEXE.value=1
  46. else
  47. chkBlockEXE.value=0
  48. end if
  49.  
  50. if NoModifyAccts="1" then
  51. chkNoModifyAccts.value=1
  52. else
  53. chkNoModifyAccts.value=0
  54. end if
  55.  
  56. if nosplash="1" then
  57. chkSplashScreen.value=0
  58. else
  59. chkSplashScreen.value=1
  60. end if
  61.  
  62.  
  63.  
  64.  
  65.  
  66. set txtStartPage = sh.ActiveForm.Controls.Add("VB.textbox", "txtStartPage")
  67. set txtStartPageV = sh.ActiveForm.Controls.Add("VB.textbox", "txtStartPageV")
  68. set txtWindowTitle = sh.ActiveForm.Controls.Add("VB.textbox", "txtWindowTitle")
  69. set txtWindowTitleV = sh.ActiveForm.Controls.Add("VB.textbox", "txtWindowTitleV")
  70.  
  71. txtStartPage.move fraPlugin.Left + 100, fraPlugin.Top + 1500, 2000, 100
  72. txtStartPage.Visible = True
  73. txtStartPage.zorder 0
  74. txtStartPage.backcolor=&H8000000F&
  75. txtStartPage.locked=true
  76. txtStartPage.text="Start page (html):"
  77.  
  78. txtStartPageV.move fraPlugin.Left + 2400, fraPlugin.Top + 1500, fraPlugin.width-2500, 100
  79. txtStartPageV.Visible = True
  80. txtStartPageV.zorder 0
  81.  
  82. txtWindowTitle.move fraPlugin.Left + 100, fraPlugin.Top + 1800, 2000, 100
  83. txtWindowTitle.Visible = True
  84. txtWindowTitle.zorder 0
  85. txtWindowTitle.backcolor=&H8000000F&
  86. txtWindowTitle.locked=true
  87. txtWindowTitle.text="Window title:"
  88.  
  89. txtWindowTitleV.move fraPlugin.Left + 2400, fraPlugin.Top + 1800, fraPlugin.width-2500, 100
  90. txtWindowTitleV.Visible = True
  91. txtWindowTitleV.zorder 0
  92.  
  93.  
  94. sh.reg_read "HKEY_CURRENT_USER\Identities\Last User ID", lastid
  95.  
  96. sh.reg_read "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\FrontPagePath", FrontPagePath
  97. sh.reg_read "HKEY_CURRENT_USER\Identities\" & lastid & "\Software\Microsoft\Outlook Express\5.0\WindowTitle", WindowTitle
  98.  
  99. txtStartPageV.text=FrontPagePath
  100. txtWindowTitleV.text=WindowTitle
  101.  
  102.  
  103. End Sub