====== AirParrot 1.3.0 ======


MSI on melko hyvä, mistä saa muokkaamalla toimivan. Luo .mst ja korjaa MSI-pakettia seuraavasti.

**Property**
^ Property  ^ Value  ^
| ALLUSERS  | 1  |
| KEY  | (lisenssiavain)  |

**Shortcut**

Poista rivi (Delete row): 
| DesktopShortcut  | ... |

AutoUpdaten poistaminen käytöstä. Lisätään uusi rekisteriasetus.
**Component**
^ Component  ^ ComponentID  ^ Directory_  ^ Attributes  ^ Condition  ^ KeyPath  ^
| UTUCustomizations  | {generate-guid-here}  | APPLICATIONROOTDIRECTORY  | 0x0104  | <null>  | regUTUDisableAutoUpdates  |

**FeatureComponents**
^ Feature_  ^ Components_  ^
| Complete  | UTUCustomizations  |

**Registry**
^ Registry  ^ Root  ^ Key  ^ Name  ^ Value  ^ Component _ ^
| regUTUDisableAutoUpdates  | 2  | SOFTWARE\Squirrels\AirParrot\WinSparkle  | CheckForUpdates  | 0  | UTUCustomizations | 

Windowsin palomuurin avaaminen AirParrotille. Tehdään paketin ulkopuolisena toimenpiteenä AirParrotin asennuksen yhteydessä.

<code vb SetFirewall.vbs>
Option Explicit

' Adds airparrot.exe to Windows Firewall
' Deletes first old entries
' mikko@utu.fi 2014-10-28

Dim objShell
Dim strCmdLineDeleteRule
Dim strCmdLineAddTCPRule
Dim strCmdLineAddUDPRule
Dim intReturnCode
Dim objProcEnv
Dim strProgramFilesPath

Set objShell = CreateObject("Wscript.Shell")
Set objProcEnv = objShell.Environment("PROCESS")

strProgramFilesPath = objProcEnv("SystemDrive")+"\Program Files"
intReturnCode = 0

' Prepare netsh command lines (show, delete, add TCP, add UDP) 
strCmdLineDeleteRule = "netsh AdvFirewall Firewall delete rule name=""AirPlay Mirroring Client"""
strCmdLineAddTCPRule = "netsh AdvFirewall Firewall add rule name=""AirPlay Mirroring Client"" dir=in action=allow program=""" & strProgramFilesPath & "\airparrot\airparrot.exe"" profile=any protocol=TCP edge=deferuser"
strCmdLineAddUDPRule = "netsh AdvFirewall Firewall add rule name=""AirPlay Mirroring Client"" dir=in action=allow program=""" & strProgramFilesPath & "\airparrot\airparrot.exe"" profile=any protocol=UDP edge=deferuser"

' Delete existing AirParrot firewall rules
Do 
  intReturnCode = objShell.Run(strCmdLineDeleteRule, 0, True) ' returns: 0 if deleted successfully, 1 if nothing to delete
Loop Until intReturnCode = 1 ' Repeat until all old rules are deleted

' Add new firewall rules for airparrot.exe
'   TCP rule
intReturnCode = objShell.Run(strCmdLineAddTCPRule, 0, True)
If Not intReturnCode = 0 Then
  wScript.Quit(intReturnCode)
End If
'   UDP rule
intReturnCode = objShell.Run(strCmdLineAddUDPRule, 0, True)

WScript.Quit(intReturnCode)
</code>