Katılımsız Parametresi: /qn /norestart
İndirme Bağlantısı
https://mega.co.nz/#!KA1xEYaS!E1R8Ih8JMRRijUMFC921NhVAhGlhh900lbOcGSAuFEE
;Uninstall Previous Verison firstly
If FileExists(@ProgramFilesDir&"\Skype\Phone\Skype.exe") Then ShellExecuteWait("MsiExec.exe", "/X"&StringSplit(_RegSearch("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $title),"\")[7]&" /qn /norestart")
Func _RegSearch($sStartKey, $sSearchVal, $iType = 0x07, $fArray = False)
Local $v, $sVal, $k, $sKey, $sFound = "", $sFoundSub = "", $avFound[1] = [0]
; Trim trailing backslash, if present
If StringRight($sStartKey, 1) = "\" Then $sStartKey = StringTrimRight($sStartKey, 1)
; Generate type flags
If Not BitAND($iType, 0x07) Then Return SetError(1, 0, 0); No returns selected
Local $fKeys = BitAND($iType, 0x1), $fValue = BitAND($iType, 0x2), $fData = BitAND($iType, 0x4)
; This checks values and data in the current key
If ($fValue Or $fData) Then
$v = 1
While 1
$sVal = RegEnumVal($sStartKey, $v)
If @error = 0 Then
; Valid value - test its name
If $fValue And StringInStr($sVal, $sSearchVal) Then $sFound &= $sStartKey & "\" & $sVal & @LF
; test its data
If $fData Then
$readval = RegRead($sStartKey, $sVal)
If StringInStr($readval, $sSearchVal) Then
$sFound &= $sStartKey & "\" & $sVal & " = " & $readval & @LF
EndIf
EndIf
$v += 1
Else
; No more values here
ExitLoop
EndIf
WEnd
EndIf
; This loop checks subkeys
$k = 1
While 1
$sKey = RegEnumKey($sStartKey, $k)
If @error = 0 Then
; Valid key - test it's name
If $fKeys And StringInStr($sKey, $sSearchVal) Then $sFound &= $sStartKey & "\" & $sKey & "\" & @LF
; Now search it
$sFoundSub = _RegSearch($sStartKey & "\" & $sKey, $sSearchVal, $iType, False) ; use string mode to test sub keys
If $sFoundSub <> "" Then $sFound &= $sFoundSub & @LF
Else
; No more keys here
ExitLoop
EndIf
$k += 1
WEnd
; Return results
If StringRight($sFound, 1) = @LF Then $sFound = StringTrimRight($sFound, 1)
If $fArray Then
If StringStripWS($sFound, 8) <> "" Then $avFound = StringSplit($sFound, @LF)
Return $avFound
Else
Return $sFound
EndIf
EndFunc ;==>_RegSearch

Eline sağlık, Skype içinde bir ipucu vereyim. Eğer Skype kurulu bir sistemde çalıştırırsanız hata verip kurulmayabilir. Katılımsız olunca bir uyarı da vermeyebilir. O yüzden kurulumdan önce eski sürümü kaldırtmak en mantıklısı. Bunun için online installer autoit kodlarına bir fonksiyon eklemiştim. Buna da eklenebilir. Bahsettiğim kodları düzenleyip konuya eklerim.
YanıtlaSilHocam elinize saglık ilk öncelikle.Hocam sizden bir ricam var bu office katılımsız nasıl oluyor vesecmeli nasıl yapılıyor bunu bir videolu olarak anlatıp koyarsanız bu arkadasınıza yarım etmis olursnuz.Resimde bir örnek var asagıdaki yaparsanız sevinrm.
YanıtlaSilhttp://i.hizliresim.com/ZD160k.png