Jump to content

[Tweaked] Skype 7.18.32.111 (Multilanguage)


ricktendo

Recommended Posts

2nt8xup.png

 

About: This is the business version of Skype MSI so by default it has no junk!

Tweaked: Shortcut moved out of sub folder into All Programs, Run on Windows startup removed, Run after standard GUI install removed

Differences between Skype installers:

Quote

x.xx.0.xxx - normal installer

x.xx.1.xxx - affiliate installer provides services [Taiwan's PChome]

x.xx.10.xxx - affiliate installer [Hong Kong company HGC]

x.xx.11.xxx - affiliate installer [Polish company Onet]

x.xx.24.xxx - affiliate installer [a UK social networking site Bebo]

x.xx.32.xxx - Business installer more convenient for centralized deployment in networks

x.xx.56.xxx - affiliate installer [Taiwan's PChome]

x.xx.59.xxx - online installer, or as a program, updated through

x.xx.63.xxx - affiliate installer [ukrainian Privatbank]

x.xx.64.xxx - UI version - version with a new user interface

x.xx.65.xxx - affiliate installer [Korean company Daesung]

x.xx.66.xxx - affiliate installer [Yandex]

x.xx.67.xxx - affiliate installer offers to install the homepage Yandex search and services;

x.xx.73.xxx - version with support for Windows Live Messenger

x.xx.74.xxx - version with support for Windows Live Messenger

x.xx.80.xxx - affiliate installer [the Japanese company Excite]

x.xx.81.xxx - UI version - version with a new user interface

x.xx.85.xxx - UI version - version with a new user interface, officially announced Microsoft;

x.xx.99.xxx - installer strategic partner of Skype in China, the company GMF

VBS Editor Script

Option Explicit
Dim ws, installer, fs, db, view, record, x
Set ws = WScript.CreateObject("WScript.Shell")
Set fs = CreateObject("Scripting.FileSystemObject")
Set installer = WScript.CreateObject("WindowsInstaller.Installer")
If WScript.Arguments.Count <> 0 Then
	For each x in WScript.Arguments
		ProcessMSI x
	Next
Else
	If fs.FileExists("SkypeSetup.msi") Then ProcessMSI "SkypeSetup.msi"
End If
'**********************************************************************
'** Function; Query MSI database                                     **
'**********************************************************************
Function 	QueryDatabase(arrOpts)
	On Error Resume Next
	Dim query, file, binary : binary = false
	If LCase(TypeName(arrOpts)) = "string" Then
		query = arrOpts
	Else
		If fs.FileExists(arrOpts(0)) Then
			file = arrOpts(0)
			query = arrOpts(1)
		Else
			query = arrOpts(0)
			file = arrOpts(1)
		End If
		binary = true
	End If
	WScript.Echo query
	If binary Then
		Set record = installer.CreateRecord(1)
		record.SetStream 1, file
	End If
	Set view = db.OpenView (query) : CheckError
	If binary Then
		view.Execute record : CheckError
	Else
		view.Execute : CheckError
	End If
	view.close
	Set view = nothing
	If binary Then Set record = nothing
	binary = false
	db.commit : CheckError
End Function
'**********************************************************************
'** Subroutine; Check errors in most recently executed MSI command   **
'**********************************************************************
Sub CheckError
	Dim message, errRec
	If Err = 0 Then Exit Sub
	message = Err.Source & " " & Hex(Err) & ": " & Err.Description
	If Not installer Is Nothing Then
		Set errRec = installer.LastErrorRecord
		If Not errRec Is Nothing Then message = message & vbNewLine & errRec.FormatText
	End If
	Wscript.Echo "" : Wscript.Echo message : Wscript.Echo ""
	Wscript.Quit 2
End Sub
'**********************************************************************
'** Function; Push changes to MSI                                    **
'**********************************************************************
Function ProcessMSI(file)
	Set db = installer.OpenDatabase(file, 1)
	On Error Resume Next
	QueryDatabase("DELETE FROM `AdminExecuteSequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `AdminUISequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `AdvtExecuteSequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `Component` WHERE `Directory_` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `Component` WHERE `Directory_` = 'UpdaterFolder'") 
	QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SkypeStart1'") 
	QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SkypeStart2'") 
	QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SkypeUpdaterCleanup'") 
	QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SkypeUpdaterConfig'") 
	QueryDatabase("DELETE FROM `CustomAction` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'SystemFolder'") 
	QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `Directory` WHERE `Directory` = 'UpdaterFolder'") 
	QueryDatabase("DELETE FROM `Feature` WHERE `Feature` = 'Updater'") 
	QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Component_` = 'C_CENTRAL_msvcp120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Component_` = 'C_CENTRAL_msvcr120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Component_` = 'C_CENTRAL_vccorlib120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `FeatureComponents` WHERE `Feature_` = 'Updater'") 
	QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_CENTRAL_msvcp120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_CENTRAL_msvcr120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'C_CENTRAL_vccorlib120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `File` WHERE `Component_` = 'SkypeUpdater'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'DeleteServices'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'InstallServices'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SkypeUpdaterCleanup'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SkypeUpdaterConfig'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'StartServices'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'StopServices'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `InstallUISequence` WHERE `Action` = 'SystemFolder_x86_VC.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SkypeStart1'") 
	QueryDatabase("DELETE FROM `InstallExecuteSequence` WHERE `Action` = 'SkypeStart2'") 
	QueryDatabase("DELETE FROM `ModuleComponents` WHERE `Component` = 'C_CENTRAL_msvcp120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `ModuleComponents` WHERE `Component` = 'C_CENTRAL_msvcr120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `ModuleComponents` WHERE `Component` = 'C_CENTRAL_vccorlib120_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `ModuleSignature` WHERE `ModuleID` = 'Microsoft_VC120_CRT_x86.194841A2_D0F2_3B96_9F71_05BA91BEA0FA'") 
	QueryDatabase("DELETE FROM `MsiShortcutProperty` WHERE `Shortcut_` = 'SkypeDesktopShortcut'") 
	QueryDatabase("DELETE FROM `Property` WHERE `Value` = 'DirectoryTable'") 
	QueryDatabase("DELETE FROM `Registry` WHERE `Component_` = 'SkypeUpdater'") 
'	QueryDatabase("DELETE FROM `Registry` WHERE `Key` = 'Software\Microsoft\Windows\CurrentVersion\Run'") 
'	QueryDatabase("DELETE FROM `ServiceControl`") 
'	QueryDatabase("DELETE FROM `ServiceInstall`") 
	QueryDatabase("DELETE FROM `Shortcut` WHERE `Shortcut` = 'SkypeDesktopShortcut'") 
	QueryDatabase("INSERT INTO `Component` (`Component`,`ComponentId`,`Directory_`,`Attributes`,`Condition`,`KeyPath`) VALUES ('SkypeRegistryRun','{7D53301D-E4F0-403A-9A1C-876F1544939E}','PhoneFolder','4','RUN = 1','reg08D3E7E5CD85CB55680CCDE42A2E2625')") 
	QueryDatabase("INSERT INTO `Control` (`Dialog_`,`Control`,`Type`,`X`,`Y`,`Width`,`Height`,`Attributes`,`Property`,`Text`,`Control_Next`) VALUES ('InstallDirDlg','Run','CheckBox','20','140','370','18','19','RUN','&Start Skype when I start Windows','Next')") 
	QueryDatabase("INSERT INTO `FeatureComponents` (`Feature_`,`Component_`) VALUES ('Phone','SkypeRegistryRun')") 
	QueryDatabase("INSERT INTO `Property` (`Property`,`Value`) VALUES ('LicenseAccepted','1')") 
	QueryDatabase("UPDATE `Shortcut` SET Directory_ = 'ProgramMenuFolder' WHERE `Directory_` = 'ProgramMenuDir'") 
	QueryDatabase("UPDATE `Registry` SET Component_ = 'SkypeRegistryRun' WHERE `Registry` = 'reg08D3E7E5CD85CB55680CCDE42A2E2625'") 
	QueryDatabase("UPDATE `Control` SET Control_Next = 'Run' WHERE `Control` = 'ChangeFolder'") 
	Set db = nothing
End Function

 

Link to comment
Share on other sites

  • 3 weeks later...
  • 3 weeks later...
  • 2 weeks later...
  • 2 months later...
  • 2 weeks later...
  • 3 weeks later...
  • 1 month later...

Guys - English thread?

 

Balbis - Release version 6.0.60.126

ricktendo64 - I think you're wrong

Balbis - Was looking for a program and I found it by chance http://skype.softonic.com/ (do not know if it's true or not)

ricktendo64 - No, the number 32 never changes (indicates the x86)

 

Cheers and Regards

Edited by bphlpt
Link to comment
Share on other sites

  • 2 weeks later...
  • 4 weeks later...
  • 3 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...