//TreoSMSchg.mscr by tkhs 20070823 3rd
//You need to install MortScript after v4.0.
//Do at your own risk!!

//Delete Registry
RegDeleteKey( "HKCU", "ControlPanel\Notifications\{283E0018-E5C9-44e4-9864-4C4A3DED3BC3}", 1, 1 )
RegDeleteKey( "HKLM", "Security\PushRouter\Registrations\ByCTAndAppId\application/vnd.wap.mms-message;", 1, 1 )

RegDeleteKey( "HKLM", "SOFTWARE\Microsoft\Shell\Rai\:MESSAGING", 1, 1 )
RegDeleteKey( "HKLM", "SOFTWARE\Microsoft\Today\Items\""Messaging""", 1, 1 )

RegDeleteKey( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC10",  1, 1 )

RegDelete( "HKLM", "SOFTWARE\Microsoft\Inbox\Svc\SMS", "CommandLineHook" )
RegDeleteKey( "HKLM", "SOFTWARE\Microsoft\Inbox\Svc\SMS\Rules", 1, 1 )

RegDeleteKey( "HKLM", "System\Inbox\ExternalAccounts", 1, 1 )
RegDeleteKey( "HKLM", "System\Inbox\ExternalAccounts\SMS", 1, 1 )
RegDeleteKey( "HKLM", "System\Inbox\ExternalAccounts\MMS", 1, 1 )

RegDeleteKey( "HKLM", "SOFTWARE\Palm\Varnish\Messaging", 1, 1 )
RegDeleteKey( "HKLM", "SOFTWARE\Palm\Varnish\Messaging\MMS", 1, 1 )
RegDeleteKey( "HKLM", "SOFTWARE\Palm\Varnish\Messaging\SMS", 1, 1 )
RegDeleteKey( "HKLM", "SOFTWARE\Palm\Varnish\Messaging\General", 1, 1 )

RegDeleteKey( "HKCR", "CLSID\{325087C5-9BBE-4f07-8F5B-2ACEFD1C4B68}", 1, 1 )
RegDeleteKey( "HKCR", "CLSID\{325087C5-9BBE-4f07-8F5B-2ACEFD1C4B68}\InprocServer32", 1, 1 )

//Add Registry
RegWriteDWord( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC1",  "Trust", 2 )
RegWriteDWord( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC1",  "RefCount", 5 )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC1",  "ContentTypes", "text/vnd.wap.connectivity-xml;application/vnd.wap.connectivity-wbxml" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC1",  "Path", "cfghost.exe" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC1",  "Params", "/si" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC1",  "AppId", "x-wap-microsoft:cfgmgr.ua" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC1",  "GenId", "PC1" )

RegWriteDWord( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC2",  "Trust", 2 )
RegWriteDWord( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC2",  "RefCount", 2 )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC2",  "ContentTypes", "text/vnd.wap.si;application/vnd.wap.sic" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC2",  "Path", "siclnt.exe" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC2",  "Params", "/si" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC2",  "AppId", "" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC2",  "GenId", "PC2" )

RegWriteDWord( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC3",  "Trust", 2 )
RegWriteDWord( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC3",  "RefCount", 2 )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC3",  "ContentTypes", "text/vnd.wap.sl;application/vnd.wap.slc" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC3",  "Path", "siclnt.exe" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC3",  "Params", "/sl" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC3",  "AppId", "" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC3",  "GenId", "PC3" )

RegWriteDWord( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC5",  "Trust", 2 )
RegWriteDWord( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC5",  "RefCount", 3 )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC5",  "ContentTypes", "application/vnd.syncml.notification" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC5",  "Params", "" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC5",  "Path", "omadmclient.exe" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC5",  "AppId", "x-wap-application:syncml.dm" )
RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByGenericId\PC5",  "GenId", "PC5" )

RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Broadcast",  "Params", "-Text" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Broadcast",  "AppName", "\Windows\tmail.exe" )
RegWriteDWord( "HKLM", "Comm\Cellular\SMS\Protocols\Broadcast",  "Priority", 48  )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Broadcast",  "ExportPrefix", "Broadcast" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Broadcast",  "DLL", "SMS_Providers.dll" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Broadcast",  "Name", "Microsoft Broadcast Message SMS Protocol (Receive Only)" )

RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Notification",  "Params", "-Notification" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Notification",  "AppName", "tmail.exe" )
RegWriteDWord( "HKLM", "Comm\Cellular\SMS\Protocols\Notification",  "Priority", 21 )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Notification",  "ExportPrefix", "Notify" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Notification",  "DLL", "SMS_Providers.dll" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Notification",  "Name", "Microsoft Notification SMS Protocol (Receive Only)" )

RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Raw",  "Params", "-Text" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Raw",  "AppName", "tmail.exe" )
RegWriteDWord( "HKLM", "Comm\Cellular\SMS\Protocols\Raw",  "Priority", 0 )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Raw",  "ExportPrefix", "Raw" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Raw",  "DLL", "SMS_Providers.dll" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Raw",  "Name", "Microsoft Raw SMS Protocol (Receive Only)" )

RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Status",  "AppName", "tmail.exe" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Status",  "Params", "-Status" )
RegWriteDWord( "HKLM", "Comm\Cellular\SMS\Protocols\Status",  "Priority", 5 )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Status",  "ExportPrefix", "Status" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Status",  "DLL", "SMS_Providers.dll" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Status",  "Name", "Microsoft Status Message SMS Protocol (Receive Only)" )

RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Text",  "Params", "-Text" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Text",  "AppName", "\Windows\tmail.exe" )
RegWriteDWord( "HKLM", "Comm\Cellular\SMS\Protocols\Text",  "Priority", 16 )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Text",  "ExportPrefix", "Text" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Text",  "DLL", "SMS_Providers.dll" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\Text",  "Name", "Microsoft Text SMS Protocol" )

RegWriteDWord( "HKLM", "Comm\Cellular\SMS\Protocols\WCMP",  "Priority", 37 )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\WCMP",  "ExportPrefix", "WCMP" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\WCMP",  "DLL", "SMS_Providers.dll" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\WCMP",  "Name", "Microsoft WCMP SMS Protocol" )

RegWriteDWord( "HKLM", "Comm\Cellular\SMS\Protocols\WDP",  "Priority", 32 )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\WDP",  "ExportPrefix", "WDP" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\WDP",  "DLL", "SMS_Providers.dll" )
RegWriteString( "HKLM", "Comm\Cellular\SMS\Protocols\WDP",  "Name", "Microsoft WDP SMS Protocol" )

RegWriteString( "HKLM", "Security\PushRouter\Registrations\ByCTAndAppId\application/vnd.wap.mms-message;x-wap-application:mms.ua",  "", "{292BACF8-AAF4-4201-B1CB-4F3036EF120D}" )

RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "ReceivedMessages", "SMS" )
RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "DeleteMessages", "C&lear SMS" )
RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "SendMessage", "Send SMS" )
RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "MessageSent", "SMS Sent" )
RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "ReceivedMessages", "SMS" )
RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "NewMessage", "New SMS" )
RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "Abbreviation", "SMS" )
RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "FriendlyName", "SMS" )
RegWriteDWord( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "TreatImmediateModeCBAsClass0SMS", 1 )
RegWriteDWord( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "UserCannotCreate", 1 )
RegWriteString( "HKLM", "Software\Microsoft\Inbox\Svc\SMS",  "DLL", "tpcutil.dll" )

RegWriteDWord( "HKLM", "Software\Microsoft\Inbox\Svc\SMS\MsgClasses",  "IPM.SMStext", 1 )
RegWriteDWord( "HKLM", "Software\Microsoft\Inbox\Svc\SMS\MsgClasses",  "IPM.SMStext.MDSRequest", 1 )

RegWriteDWord( "HKLM", "Software\Microsoft\Inbox\Svc\SMS\Rules",  "{E82EAA06-E78E-4804-AFF3-7CD84D2E00D1}", 1 )
RegWriteDWord( "HKLM", "Software\Microsoft\Inbox\Svc\SMS\Rules",  "{77990A0E-60B8-4103-B9AF-17157E4274FD}", 1 )
RegWriteDWord( "HKLM", "Software\Microsoft\Inbox\Svc\SMS\Rules",  "{1000BC1C-F4A3-4210-B197-4AEBF2CEE6F5}", 1 )

RegWriteString( "HKCU", "ControlPanel\Notifications\{A877D65B-239C-47a7-9304-0D347F580408}",  "", "Messaging: New text message" )
RegWriteDWord( "HKCU", "ControlPanel\Notifications\{A877D65B-239C-47a7-9304-0D347F580408}",  "EventType", 2 )
RegWriteDWord( "HKCU", "ControlPanel\Notifications\{A877D65B-239C-47a7-9304-0D347F580408}",  "VibrateWithRingerOff", 1 )
RegWriteDWord( "HKCU", "ControlPanel\Notifications\{A877D65B-239C-47a7-9304-0D347F580408}",  "VibrateWithRingerOn", 0 )
RegWriteString( "HKCU", "ControlPanel\Notifications\{A877D65B-239C-47a7-9304-0D347F580408}",  "Wave", "\\Windows\\Alarm Triangle.mid" )
RegWriteDWord( "HKCU", "ControlPanel\Notifications\{A877D65B-239C-47a7-9304-0D347F580408}",  "Duration", 0 )
RegWriteDWord( "HKCU", "ControlPanel\Notifications\{A877D65B-239C-47a7-9304-0D347F580408}",  "Options", 9 )

//Select Reset
Reset = Question( "Delete and Import Registries Successfully. You'll need to do Softreset. Now?", OKCancel )
If(Reset = 1)
	Reset
Else
	Exit
EndIf