fresh-IT.info

########################################################################
# Title:         Session Scaling RDS Server 2016 and 2019
# Description:   Set session size and font smoothing
# Filename:      SessionScaling.ps1
# Date Created:  20.02.2021
# Date Modified: 24.02.2021
# Version:       1.2/roe
# Developer:     Beat Röthlisberger
########################################################################
#----------------------------------------------
# Collect and define data for form
#----------------------------------------------
function OnApplicationLoad {
return $true
}
function OnApplicationExit {
$script:ExitCode = 0
}
#----------------------------------------------
# Start function Generat form
#----------------------------------------------
function GenerateForm {
#Import form assemblies
[reflection.assembly]::loadwithpartialname("System.Windows.Forms") | Out-Null
[reflection.assembly]::loadwithpartialname("System.Drawing") | Out-Null

#Define variables
$UserName = $env:USERNAME

#Define form images from Base64
$base64ImageString = "iVBORw0KGgoAAAANSUhEUgAAADkAAABgCAYAAACnmdq6AAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOdAAADnQBaySz1gAAABZ0RVh0Q3JlYXRpb24gVGltZQAwOS8yNS8xONGbuJIAAAAcdEVYdFNvZnR3YXJlAEFkb2JlIEZpcmV3b3JrcyBDUzQGstOgAAAflElEQVR4nMWceZBdV53fP+eee+97/XqTWnu3WrIsWfKGt4cl27EHs5oxTM1kkqpQFSAVB4owpohrij9MQgihMmBmqApQxT8JMDWQUEmFCgECBBhDbCfIWp4tW7LkRba21t57v+3ee5b8cc69773u1mbM5FCm9e67y/me3+/8lu/vd5/Yv3//RuBctVpVAGma2jRNieOYt25YQPh/WhCi91trEYuO5dcZY3uvL+7XO7JMUS73EUVhcWKtVguB9SHwQ+DDwCsACwsLzM3Ns2bNCAKz3P0w1mDtMl8Axh+3xiKw7n/WYq2/1aLrrDFYLFhbPMqd768x2sNynwMZAUHP87M0ZaFeZ+vWbUTRQPfttwL/KQSOAmM5yEp/P5VKH/sOvMHxiRmiUC5FYk33BzdvQRcQ99cag7UGIXqxGdO53lqLsRSTtrYLsAUwWAvGAgjqU6+RtmYQgZtXmiS8/e67ueuuOymVSotnOgYcDYEJYHPXU5EBHD/TYu+RhEpfuAxIp3LW2J7J6S4kVjsp4sEWEragvXRywFr1SlcbXWiQ8ddaAzKKOfjU/+TCxHOEUR8A8/PzfPKT/5y33/325bRrMzARAq8CNxST83/jSNLfH9NfDtFGoJTuudpaixF+4n7vBF0Tt8IiAGMsGpDC3dwYgxBOCkIEaG0IpbuflIIAgzaBv48tVBcEIgjpH6gwODhYgASI48g9cynIG4BXQ+AUcN/ibwGEtShlGYxnWb++jO7SUtulYsbfW+D2ZD4p953x5+LVUGAMIATTk1PF3otjyUxdspCUkIHwk+6otrUG7HLGSTjJGLPMd2wAng6Bk8D65c4AUCpl3fqQ9/zBLbTTjjQF4pI2b7mpdM8JCyIIOHfmNFiLsYLBgRI/efIIUxOKUhxijAeGk6gxFin9Trn8E7rHeuBkLskNtVotzN1I94QRAVmWIbGU47Bze+FWW2UZYSiJohBrIU1TlNaU4thL1pCkGXEYIoTAWkuSZQghGN84ChiUMmidMr/QwNpBL91ugMZf25l9s9ksFs1Yg13kBrz72ACcCqvV6kKtVpsD1gGngR7dttYSRSFDQwOcPHWGTGUIHMD+gX7Wrl3LyVPnmDh9HoDRDasZWTnE4ZePYYylUilzw9ZxXj16ikajSSAE27dtYna+zulXTmCxbFg3wqaxNcgg8Gqa70nj/aQDS2DAWoSAnTt3IqVk9+7dxd5dJOB1wFy1Wl3ITedx4MYc5NJh0cZQr9dJkgQhBFprhIBQSk5NnOP/7n4BgHt33UZfOWbPvpfIlGLt2hG2bB7l8JE3OHd+Eiklo6OrOXv2Anv3H0EIuOuO7WzeuKZY1I4EO5bbGAgEKK2QMuS73/0bSqUyO3bswGjT5b+KcaPHRQ7yLLCxW3r5cKuUQ7WLpExh1VzEYgkCgZQhYSgRQhBKiQwkYRgShiEyDJFSIkPpzwEpA7dwxqKNIFO5BEXxfCFcaCG86/r+979PFMUopRCBWC5o2ehxFSDPAKPgJK79xJ1D71wtEASBcIC8pUuzjA3rV7Pz7lsQQrBiuJ+z586zckU/xhj6yhGnz56jXJasHhlABILp6RnSNGXVqgEEoJTi9Jnz6KxFYAxCB0i6IiRrQURYWyEIJNpovvCFf1vMKwgClrGtGxaDPAW8i+4beynm0Yq1lrhUKmJMYwxhFKKUZmTlMJVKH1EoOfzyUbZct4kPvP8d/jqDyhQP3n+3W3EgTTPGN45x1x23AKC1wWjFpx552IVugeDM2QtMTs0QhyF9lZgXXz7H3+5r5atd+M8gCJxrsktgjgG/7gZ5GHik55RCLTuRi1baBQWiYxRKpZja80fYs+8l4jiknabs2L6VMAy8ykmkDHpuHceRm6vwwYIxBDIiEJ0njqxayeDQAJGUlEoRBw6fxhqN1oYgCPjsZx8nDCOeeOIJ50uXqut1HlcB8jSwtlarRTfdfLPH6NREW1vsu5FVIz6gdvsvlBKttdMmKRwYC8Zojp+ZJFPah3HGGxKNsRajDdq7n4FKme2b13N64ngRRGitWbduLVEcc/L8DFtGR1DaOJ9vLUEg+fjHP04YRnz1q19FG91jK2q1WgSs9bgcyGq1Wq/VavPA6o46gLadFbLW0tfXV6irzSebacrliJEVQ5TiyPtBzclzMyRZhjUGbTRGGZQxaKXR2v3XbiesGRli2/halHILgI9tjdY025qJ87OsXdGPQKC1M2xaaz72sY8TBAFpmjqVpceDrAbmq9VqvVuSABeBTYW2+v/rdj1SSucjPXghBGmWsX3bJrZdP04chzy79yBZppBSILXAIMAGEFikFRAIl8QIkDI3YraYpBWdZ+bxLD6IKKyrNTz55JPFnlwmF93k8bAY5Flg82J/k29oaw0nT06QpZkPFS0D/RXWr1/Piy8d5eVXjxOXIiYnZ7l+62aXXWiN0cb/231WSmG8JF2ko0EIwjD0zxKYQCBEgNLKpW2213UBrF7tlG56erqYX9cZmz2eJSDfwCWZuBzRuxFj0dpitKXdbJNmiZ+AcaEcllarzfT0PKVSRKOZurTLA9TGuL/dAI0h04YsU+48a5Fh6PwtoLWLi/Pv8mDdWtBKEYYh3/vedymVyjz88MOoTC3Oxa8HjuUfus3eGdxm7cnMQfiIwyW/ggCL8AxG7sOcpcxjU2vcflW6C6B2+0xpTaY0WmkvUQPWJdfdeaejPgytdptMqcJguRm5Z/WqaQ/KIkRdLMlTOcgiFszpFf9gGYVIf9wEIANJmim2bx1n0+ha4lLEvudfoZ2kBUBjnGoapVBao7Tzm8436gJY0m77tMrFxYODAy6UnG+QpRngFiMIJJlSfOQjHwVcQhDIJezFWo9nCciTFFFPV8xoOxyLEIIgD6+8hRDA3Fyd8xdnKJUi5uYaCIG3oMpn/g6U0sZZUWMwRhUSFggGB4eLfWWNIYoisqxJvdkm826qe1y8eLETDMDiPTvq8fSCrFarF2q1ms4BYZ2TFgK0l+yaNWs7yuHV0lrLmXNTHHjxVUqlmNn5JvdK2WV4NNpoMu3BKoM1br8qY9FKI6Vk5aqRDhNgNKEMUEqTpIoss4V1zePkd73rXUgp+c1vflNQJAC1Wm0E0NVq9cJykgQ4U2TyXkzWip4EtgCoLZ0sztMTfoGM1qhMoZTCGkvmJaiVU1/j1VZ7I6SNwXornD9H+vBHACKXsDdooZR861v/kSiK2bHjRozpoWa24+xLMRaDvNDjGQtORrjMIcipDgvSIv3Krlszwq23bKMch7zyxilc5mMLcstog1G9quusrsZaQ5YmTE5OFnvSGsOqVSNgQSntFwu0tggRYKzlW9/6VicLET1h40aH49Igz+EtKdatOtaSZikL8/MkqS7CKutpCywMDla4ecUApVLE1Nw8SdImTROSNHNqqbTbg8rtS206ltboTqoWBLIIGa01xHHIyHCFOA6dtHF70GjNl7/8hLsuCIp96ccG4NzlQJ7C0wz5Pqz0xRw9Oc2/+9qPQISk7XlOH32GRn2Bvko/Qgjq9bpTWCFIkpRyHNFKMwRQKpVYObKWP3j/n2ICR44FnhwOggC8ZHKDlAftSabZsGaIDz54O5W+Ek9lR3ommrsPgTNUOWOAyz6evxzI150ydvOphqC8hjBYQSBjWuokpycm+PM/f4xvf/vbpGnGF77wb4iiGGtchmCsC97nF+b57Gc/y0ClzJ+8717nNvy+M967S+kBy4hAGgTWGxHhU72gYAHxwb6Uks9//l8SRRFf/OIXfQJgcgu8FfjB5UC+segzSrlViuKQUIaUShFxHHPo0CE/CcHevfv8ZLtWGmgnCUJISqWYlUP9Lq3Sim7HrX3Qvn79mlwu/rwO+55n/rnlFUHAhz/8jymVynzpS19a7D76F+PoAVmtVqfrjUbxOVOaUHYKNdpov9EFu3bt4sCBF0jTlHe+80FKcdxD/wdSMjc7x49//GO0NrRarUUpkedwcgJK++TcdHi33AS6FM2lazIISLTmox/9J0gpSdMU2bsnw2q1On1JkPmwnkTqXqDcLwosSWuB//Hf/ysz0+cx2vC9v/k2UsqeFQ2EIElTrGpw7vxFPv9XP/D3ywN+OmlcweDmyYFnJDzMQFjmG5a+yih1Hzru3bu3mNeiLKQH4CVAdlPzfl96nReBJSoPsvWOP2Gy0WBsx1awljcuNH0A0Yk8XNjbx8ab/ggZVWiZdUWwnYM02nSu88/V3oi4IfwxSxSGxEEHTKVSAaDRpXl+nFt8YBmQOcUNQoRA4HI86TjRMB7kuls/4MF3JmWhCKABdB7k+72lsia6ixQzxjqrWKytu1dudPIFN0XhSBDI6BJ1zJ5xcvGBpSCtBQxWRKh4GBXLAnr+tyv26UljusPk0LKkZHd1o5fyLIYQhGGZmeODzF/QBMtUFP04u/jAUpB+Yu0kYWa2SVoOe75b5vSlX1xiscWVTrqMkFzU5QjuRrNOmLkVqNfrpGnaLeGrUFcLxghu2zZMJFLiqGNQ8vTLdhmI/Hivb+2ShumwfT2GZplzu7TZKWh3tm8tiAU2PXQPSfMG8OW/LE3ZsWMHSZrmwcASN7gEZJIkTM/Msv26ley4bqiHejDewnZm4oxTQef7KZlF5xh/XgdPx0iZbr500SJ0pbLkBlGG1xX1TQCE6xeo15skSQZwfjEmsZg7yRsjwjDHf6VNJbrOWapvOTmVe4meXN4u6ZFYdOXVjyzLKJXKPY0R+VgiyTiOxcGDB78O/KJarf7smp70/3EcOnToYeCharW65LtlgwFcqjLaarVsmqbOJ9nFFcB8XFqKvbRf959uN7HovC7N6LS3LH9riyVJ0txnfowuGrJ7XArkFLC52WzSarcwOlucmLrndO3XfAkEFKxmzsJTGKbcXnUHGouMlv8+J88oPkMQxsVz833dbLfZNL4JXFlg2dLjpUC+Atw1MDBAuVziv/30Bc5PtQnD3ppGwRL3WNaOsbBQ5KadyXX3FeTZ/mKABmudR7bWWV2jMiZe+TkqrSOEpN1qccedd/Kxj3+McrkMjqH79bWAPAqsc80Iluk6TDUi706CHmVzK26LCequKCYvxFg6bSuOHvHnCF/RMg6iwPoQ0n2tjatFIgQq1ezf/zzt5hRBEFKv14niqGAXPMij1wLyAlB0/oRSEIUBoVDEsuXphs6+sV2xZ+4+O26lU6gtzpcubGy3EwKPSAiBpg8rJUjhqle+wgACG0Cl0kdAhSBwRHQpLmGMzndtiUW0x2VBVqvVpFar9US+lgBh5nnf/WMMDg/3xKlLTMMytqJjnhylKWXA2TNnSdMEQUAYBfzoyVO0zSACU+x3pym6s8cvPRrVajW5apB+nMVPyE3OcalxLFkxNOAzCF9j9LxNKY4JAuGpxJRSHPn+AoNSiigKyckpbQzbb7jOBwWGCxenaLbbiGigB6DWBiGCIqXKsox2u7P+eTrKMjHr1YA80wnfOmNocACjUqanZxzVYTQrVq5kxfAQzx04wkK9yfDgADu2b+LFQ6/RaqesWzPC2Ohann/hVZRSjG9cz+BghRdqr2GNZdv1Ywz0l110lDceeoDQibSyLGN8fJxdu+7lqaeeIk3Tbume4RLjciCnljtojaXZajE/P4+UEqUV5b4K/f2Gl468wfkL02wcXceW6zZw8PDrzM3VuWnHFlauHOKFl46SthNkKBkTq3nx0FGstawYrrBxdLW3zM49FAC7QsZGs8HDD72DJ554gkcffZQTJ47TJYVl53slkMfyfh3IrahxWUp3A5FxJl9rTblcolIp099fwhjjSuFxiPCF0yiUWN/wpI1xn7302mnKQqONlW2wjlXPS/ZxFGEt9Ff6+e1vf8snPvEJ9u/fz7ZtW7sleezNgJywuAA6J3YDD1bgyOYgEFjrsneE4L3v3IkQMDM7z5mzF3n7XTdjrSEMQ9I05YF7b8daSxyHyCDgwQfuAqBcitGZ5u+/dwcEJVSWcXFyhkAIwjDg9MWUV04o4jjmzJnTvHT4ZcrlMjfddCOd6hsTbwZkV4bdoSzylROORkMIRxtiLc/uPUi90WJqZpZ3/cFOtm0dd+7DuExEBoEzVD70kdI1TyRphgxDtm7dAkCaJpw7f9F1fvRF/OiXB3jxlYQkTdm8eTN/+g928swzz5CmabfNWMIIXBFktVqtt9otDy6PVBzXMzgw6C2rwFhLX18ZrTSTU7PMztVZaDRoJ21OnZuk3mi5qCWveXi1d1UuTX85ZmzNMBcnJ92zjKVcLrFiZBUTF2bZEEe02hlCBDQbTe5+6B385V99lUcffZTjx48VqVreH3CtkiyGtY5RD3CTrVQqxGUfK9i89UWxft0qhocHmJycBRFw8twM0/N11xyhtW+KcO5EKUW7nbB21TDja1eQpglYZwPCMEApxYmz01TKEYEI0MZQ6a/w7LPP8uijj7Jnzx62bLkup6MuOy4Psise7R5aazLf2ZETzAjB7W/bTiAFr78x4VjxQOADFufMhcD3RiCFq1y5djI8d+oqY0EQYI3x33dKFnEcMzExwcFDhymXy+zYsf1qZHR1ksyRGu0KLBcuXmDy4iQiCNDasmb1KoaGh/n10/tYWGgyO1fnve++p6hRFpL0UtS+6px6DQAIAlmU5IUQKJ1zv50VTtOU8fFxPvhHd7F7927SNMV0FRAvNYLLfkvHdeTGQyvtgubivr62YTRpktFupyRpRl5LzMEtBpgp7cvqupNSeY0AfPOE8oUgB7jZaLBr1y6+8Y1vsHPnTse5msW56dJxRUkuaemyrjYhpAAEgQgKI3TLTVtQ2jBx+rwH5Rsgij3ZDdCV27Uv3SmV4chkgw4lobHUFxok7YS8aaJSqbBn714ee+wx9u7dy+bNm5af9LWC9PlFUYUqMg3XtuQbl1zYNTjYD8Ds3IKTpHI1SOuLr4sBGt8BEgSCvr6+wkVFUYwxmoV6kyTLCmYwjmNOnTzJiy8eolwuc8O2bVcK2q8CpKfLcvo+sKC0ZtWKEUqlMvnKByIgU4o9+w+zUG8yPbPAQ++5x0lFKawxZNo1H6pMeekqlDZkWUYUxaxdP+qyDQNCWKZnF2gnijTrpGlpmjI2NsYfPvxB9uzZ6/bkVYC87J401tC9/Yxx6iuDgCiKkDJABtL1o9tOjw24JDnL3B7MtJNe0ZxkXDeWyhuXlKJRX6BRr9NsLpAk7Q7FYbTTJGNpNJrce9+9fPOb32TXrp3Um5d0jT3jCuqa8/wuvBPG0leOqfSVSNIMIWSR51lruP++OwE4+sZpyuUKUTMjCF1x1maub0B3N0VoV8pL2i0mJyfJCzx95RIiqpBlijRTGOMMUaVSYd/efXzmM59h//79bNw49ruDtPl+zOuICJ7e/SL9lT60UrSb07SaTUp9FbIsI8sy4jjk7NkphBDM1F0fTimO6RsYZnB4tX/bwIFMkpR221H8rrfOqT9CUIpD7r51C2PrVvD8QReWxqUSJ06c4MALBymXy1y/ZcvvDlLQqT4JDEE0wNMHLqCyBmmywMH/8x+44203snfffsbGxrj99tvRWhdNvDIIkEmTH//wp7zv4T/mA+9/L/Pzcz67cOo61F9BKUOaadwLcJZMBAyGAbfesJE4DlCZYwqzNGV0dJR3v+d91J57jiRLeytjbwZkB62r3ytrWblqHTKIaDVmGB4a5I477uClw0cYHx/nvvvu67F2Qgimp6f5X7/4JaPrVnH/229iZmam2G8CUNrQaiesX7+OvJSQ+8XMKKKoQ0M2GnU++Icf5Ct/+VUe/dSneP3oa2+BdfXD+TFDHAnXIo178wcEUeRaraUM6K9UXGbgh5SSOIqKvti5+XkW6nVyCi9vjMpLBa6a3U1Ag9EBxmr/jkmFffv28/jjj/NcrcaGDZd8MelaQOYdkjkZnHdBOhVJkjq7dz+DylqcPPEGP/vpj1z/an51ENBqtShFhr3Pvcbjf/EDsqxV0JTdXG1nRbvVTyCEZaEl6OsbIIpiTp06xauvOeZx86a3JBiwHVDWFIwACGQYc+PdH6HZrPO2++8nTVJOzCU9Oaf1LNONu25CxsPMJ0NoVSnYdNPVGJj7YmtN1yI4lxVFEcKmPlCIiEtlms3mVanqVYAEMCBjiGKsLPhyAgNrttzj27U7Jb2CLvETt/hGQ6O9indAFWVAX1vQJmfk/ZO9BgkhMarF+aDD917LuIILAWsMzQzms9CzzaKYmFD5WV3Hg7D7kxsSVw6n/7Kh9KX6AYSU6KRNkma0mk0CGdFqtXr2/+XGFSUZBCHjqwQmnSeOexuSetTFx5edOohd/rziWKeO0jnWc0bxWSAwMuPWm7eTJRtASJIkYdPmTT29Q5caS4qw3WNyctJOT09RiiVaZT17rbuanNdMrLeYQE9FuruibPM6Qs6O967a8gbJq70MS+BLFLkPz5Ti5ptuYXjF8CWV5LKS7O/vd/0z/nX8KyWnlxp5aeDK53WGXXIkdzW9x5IkodxXvvx9r8ZC1Wo1CewFHqxWqwtXvOD3PGq12iDwv4Gd1Wp1aeF00bgiMwDgb3QcuOl3mdxbOG4Cjl8NQLgWjsf1rG3HSdQdmJ625VJEpb+Ct8WXuNQWhsl9vJRRsp5m8S3aUaXo9JienkYIwcqVK4Wfx5IeukuNawF5DNcwW4xSKebM+RmOTRwjzF9bKKrInRaVwlfmvzTRZaA6L7bklSxT1Dwbs6dQWQOtDbfddhs333xL/uhR/FuubzXI00BPa0V/fz/np87z46fOE0chWaaKVrO88Ko9bZIH3cVx416VyEvpcSx9q7ZxPXhC8vyT32Tu4lFa7Yyvfe3fs2vXPfmjNwK13wfIk8Af9x4ySCmIo5Cto7Bl44grgecuxvftaM/N5hSj8G8pzM3OkaYJmbIcPp5ho9CHehZrA/r7K6hmP2GkCXoDhY243yx5y0G+BOzoPeRUMlOatSN93H/3FhrNzL+nLLu6j315PPALoA2BDEjTdUSh4MTEBWpHXiEuDxSVrJyRVqrD6HWNHX4+bznISUDUarWharU634XT3UiGLMwvMHH6PFIGbLl+C795+gAXLk7zjr93J08+tY+bd1yPkIIXD77Ggw/cxb7njrBqZJBN46MobQm0ca2fxoIwNJoNvv61r/HLv/01CwsLgKVWe27IrQCTVzvxq3IhANVq1QALQBfn0OnBcW8EKLIsJUsz0lQxNNTP6lUraLXbWGNoJ23SxDX6NZstsAaVaZrNJmGgEDYBk4BNAdf48J2//mv27N1HqVzOrfIWYMHP56rGtUgSnEXbBLxQgPTsuttrAVKGrpZhLatWDtNqtVHa8KF/+BBKud8muPO2HWhj2Hr9OEo5LvZzn9rgXlGcmiEMBf/l58dQRjA3N0+73S5qJv75x69l0tcK8hBwG/AT91H0SHFgcIANo+73BeIo4tDhoxx++Rjvffc9TEzO0Wi2HQ3pX/ltJylbxtYgdEKSJAwM9LNy7SpUmmC0ptVs8fiX/jU/+/mvaNTruXt9G9ewH98MyJPAvd0HLJ0OqyiKqFRciV0pzZ2338jY6BpkKDl+dopGo+lUOlVkaUq90WRksMJgydJutymXYqbbGcaXDPoH+nnkkUfQRvDlL/1F/shNwO5rmfRV78kukF2cg3PszlAEXLxwkVdfeYWjr79OmiW89PIb/HbPQdpJSuA6mFxPutGFPzS+3B7HMYGURXeXNg74pz/9aR544AEazWZOjWziMlXl5ca1SvIEMN6NMXfunRdCDYGvaK1fs5IkScC6H1DIMuX52ZQkcdLUSqGU61fVWtNuJRiTFoUml0j3NLOP+3n83kAe7wFZlO2M52JiBgb6fU4kCENJuVTCWkuaKUcsK+UBZmS+D2d4eAVRnFAuxyycnMaaDIGlXC7z9a9/HW0EDz30nm6Qx69l0tekrt5sn6zVancAhVU11vXdDA0PMTo2xvr1G4jjmOMnz3HoyDHSrPOWXZJkpGnqpJk6Rx/HJeJSTByFpKkiTd07zPV6ne985zt86EMfYn5+IQ8ITl6L+4BrlyS4l9auAw74sBRr3dsH01NTtBJX2AmkZOPoCJVKyML8LOem5tAG0lSTZilZpmg0WiRJm4sXz1NvtBga7KdSjshS90NE5XKZr3zlK0xOzfJnf/bJ7udf03gzII97kIDbk+VYcvBogxdeqXHm9d8SJCeZma1z1113+tK4K8ju2fMs/+jD/4xNO7bTajVJ0oyVw4Mo7V48SzPNrTeM0W63+cmTp7wqD1FvtLv53ON/FyBPUPwEnIt4tFaE8QClygBJ9izjq1Zw7vxFdu682//KhFuMZ57+DXfevJl7763SbLomwCRJyXzfgPsdrICAyP3sVNLmkX/6GL/41a9ptVq5ul6T0XmzIA/gsxHrJ+b64DRWu5Dt9OmzKKXZvfvZztvjvk3tP//wWX717AVUlhY/r5EDdByr8FVm9xr+v3jsMdLM8LnP/avu5//eQR4nV9c8QQ5CLJIsSxi74UHqC7ezcnvEsfkF7/fceTfccwtzpo+pkwJLCaN9N7O1qLyz2YK1AX19ZQIBYRj2/JgffxfqWq1Wj9dqtevA/2aVgdk0Js1J5bCPeNVqsLBiBXkJpRh2mYb9pcO9fHbsOUujXqedujAwCAKq1erxa53zVbF1lxqzM1P2+KnzvHZiBulzxW5utvgvj4y6/93Fvbrzc77Hk8pCUJ86hkobaGO56cYb2XXPPYyMrLq2t2J+V5DT0zM2EIbB/s5bsD3vaXXY4Z7CTmd0v9pEQS7n34XxACIIEQLmZucIpGRkZOSaQf4/m01ovHcJVYkAAAAASUVORK5CYII="
$imageBytes = [Convert]::FromBase64String($base64ImageString)
$SessionSizeIMG = New-Object IO.MemoryStream($imageBytes, 0, $imageBytes.Length)
$SessionSizeIMG.Write($imageBytes, 0, $imageBytes.Length);

$base64ImageString = "iVBORw0KGgoAAAANSUhEUgAAAB8AAAA5CAYAAADOW/ASAAAABHNCSVQICAgIfAhkiAAAAAlwSFlzAAAOdAAADnQBaySz1gAAABZ0RVh0Q3JlYXRpb24gVGltZQAwOS8yNS8xONGbuJIAAAAcdEVYdFNvZnR3YXJlAEFkb2JlIEZpcmV3b3JrcyBDUzQGstOgAAAByElEQVRYhe2W23GDMBBFD578xx1EJdBBKIESXEJKoIO0QAlJB6QD3AHuwB04HxaTRZaQVgM4H9wZTfTae7MvmYL1cQsdFFqDCFy+WZ7DgsJqnpeFhGDqtU/4Icop4qHUaODl8IV9MywZdgjn2d0v4Mmeu+JLVXoSVH2ZyREs2H8V9k0Rq/YlejwI6fkSxabimAv7ai9bivjq2MWfKr55pUtxF6tX+pz4Jniq+I4dO3bsWAWrfp0CR6AGKsDYvQHogNb36dxkiHR2SNRAC7w6++/2b+sjumWMD4ejUt5PMgqNyuEZxFnLX8iPwGlcu2EvxfxCIDQe9GJeA292/mPFRlwlpytuxLwnL/+VmLeBO15x6XmPDpUdtbNnxHqY+4euhPMYwxfx2mikgfyGM0zbYlCKl/ErU04ZduNcPEWIeu7eyvsl8GnXZx5bKpjKBl17NREO3/kEbtg18HlhIucTyLDLnH0nGPvOJccQE5eYe7FyOJJROobHDGHJkfRGjDk3Yu/Cvd+1kBwq8excCag5RvFK7HWZ4moOX9iHTPFsDllsKc/kHIeqXioyWyTA0aUaHZh6es4Uz/opLrjnytj1VWMsIDkGEnP+C+cbmFyg8s/zAAAAAElFTkSuQmCC"
$imageBytes = [Convert]::FromBase64String($base64ImageString)
$FontSmoothingIMG = New-Object IO.MemoryStream($imageBytes, 0, $imageBytes.Length)
$FontSmoothingIMG.Write($imageBytes, 0, $imageBytes.Length);

#Define form icon from Base64
$base64IconString = "AAABAAEAEBAAAAEAIABoBAAAFgAAACgAAAAQAAAAIAAAAAEAIAAAAAAAQAQAAAAAAAAAAAAAAAAAAAAAAABHz6uMTdKt35Liyt9T07DfSNGr31rVst+a483fq+jU33vcwd9a1bPfatm534Pew9963MDfft3C33LavN9i17XDSNGqxVrVs/+N4cj/StGs/0nRrP9g17X/ft7C/4rgx/+P4sn/kOLJ/2nZuf9s2rr/nuXP/5rkzv993cH/adm530jRqtpn2Lj/pObS/1rVsv9a1bP/cdu8/3ncwP933L//d9y//4Dew/+j5tH/renW/83w4//K7+L/jOHI/3ncwN9I0avfbtq7/8rv4v+j5tH/lePL/5zlzv+h5tH/luPM/4LfxP90277/fd3C/8Tu3//W8uf/0vHl/5bjzP9h1rXfR9Cq3WrZuf+67Nv/XNa0/0zSrP9b1bP/a9m6/2rZuf9f1rX/cNq8/5Tjy/+m59P/pObS/6/p1/993cH/lePL30fRqs5f1rT/surY/1fUsf9I0av/SNGr/0/Trv9u2rv/kuLL/4/iyf9j17b/jeHI/13WtP+V48z/X9a1/2zZut9I0KuqUdOv/6fn0/9e1rX/SNGr/0rSrP9w2rz/nuXP/3Tbvf9X1bH/adm5/4TfxP9Q06//iODG/3HbvP9V1LHfR9Gra0jRq/yJ4Mb/bNm6/0/Trv993cL/i+HH/17WtP9J0az/bNm6/4PfxP923L7/VdSw/3vdwf+Q4sn/SdGr30bSrChI0arfYNe1/5jkzf+c5c//gN7D/1fVsf9e1rT/T9Ku/3fcv/+X48z/W9az/1fUsf923L7/qOfT/1HTrt8/v78ESNCriUnQq/2M4cj/u+zc/1bUsf9N0q3/TNKt/03Srf9z273/i+HH/1vVs/9U1LD/a9m6/7Dp1/9k2LbfAAAAAEvSrCJI0KvNUtOv/5Liyv9c1rT/TdKt/2HXtf9T1LD/h+DG/2vZuv9p2bn/TNKt/1bUsf+q6NX/gd7D3wAAAAAA//8BSM6oSkjRq+VW1LH/dty//1fUsf9N0q3/YNe1/33dwv9V1LD/WNWy/0jRq/9J0av/lOPL/6Xm0t8AAAAAAAAAAD+/fwRG0axaSNGr5VHTr/9r2br/ddu+/6Xn0v923L//S9Ks/0rRrP9L0qz/XNaz/4zhyP/J7uHfAAAAAAAAAAAAAAAAP79/BEnRq0lI0KrNSdGs/F/Wtf+M4cj/nuXQ/5Tjy/+V48z/neXP/7Xq2f+16tn/oeXR3wAAAAAAAAAAAAAAAAAAAAAA//8BRdCpIUjRq4ZH0KrdSdGr+0/Trv9b1rP/Zdi3/2fYuP9g1rX/VNSw/0rRrN8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA/v78ES86sJUnRq2VH0ayjR9Cqx0fRq9VI0avWR9GqzkjQqbRH0al1AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAAAAAwAAAAOAAAADwAAAA/AAAAA=="
$iconimageBytes = [Convert]::FromBase64String($base64IconString)
$FormIcon = New-Object IO.MemoryStream($iconimageBytes, 0, $iconimageBytes.Length)
$FormIcon.Write($iconimageBytes, 0, $iconimageBytes.Length);

#Define Citrix session ID
$keySessionnr = "HKCU:\SOFTWARE\Citrix\SessionSfr"
$CitrixSessionID = (Get-ChildItem -Path $keySessionnr -Name -ErrorAction SilentlyContinue)

#Define Citrix session display resolution
$keyResolution = "HKLM:\SOFTWARE\Citrix\Ica\Session\$CitrixSessionID\Connection"
$CitrixDispHRes = (Get-ItemProperty -Path $keyResolution -Name "HRes" -ErrorAction SilentlyContinue | Select -exp HRes)
$CitrixDispVRes = (Get-ItemProperty -Path $keyResolution -Name "VRes" -ErrorAction SilentlyContinue | Select -exp VRes)

#Read Font Scaling Size from registry
$keyHKCUDesktop = "HKCU:\Control Panel\Desktop"
$LogPixels = (Get-ItemProperty -Path $keyHKCUDesktop -Name "LogPixels" -ErrorAction SilentlyContinue | Select -exp LogPixels)
$LogPixels = $LogPixels * 1.041666666666667
$LogPixels = [int]::Parse("0" + $LogPixels)

#Read DPI Scaling from registry
$keyHKCUDesktop = "HKCU:\Control Panel\Desktop"
$DPIScaling = (Get-ItemProperty -Path $keyHKCUDesktop -Name "AppliedDPI" -ErrorAction SilentlyContinue | Select -exp AppliedDPI)
$DPIScaling = $DPIScaling * 1.041666666666667
$DPIScaling = [int]::Parse("0" + $DPIScaling)

#Read Font Smoothing configuration from registry
$keyHKCUDesktop = "HKCU:\Control Panel\Desktop"
$FontSmoothing = (Get-ItemProperty -Path $keyHKCUDesktop -Name "FontSmoothing" -ErrorAction SilentlyContinue | Select -exp FontSmoothing)
IF ($FontSmoothing -eq "2") {
$FontSmoothing = "ON"}
Else {
$FontSmoothing = "OFF"
}

#Read Session ID from system
$SessionId = ((quser | Where-Object { $_ -match $UserName }) -split ' +')[2]

#Generated form objects
$form1 = New-Object System.Windows.Forms.Form
$icon = [System.Drawing.Image]::FromStream($FormIcon, $true)
$font = New-Object System.Drawing.Font("Microsoft Sans Serif",10,[System.Drawing.FontStyle]::Regular)
$fonthead = New-Object System.Drawing.Font("Microsoft Sans Serif",10,[System.Drawing.FontStyle]::Bold)
$fontvalue = New-Object System.Drawing.Font("Microsoft Sans Serif",10,[System.Drawing.FontStyle]::Bold)
$labelhead1 = New-Object System.Windows.Forms.Label
$labelhead2 = New-Object System.Windows.Forms.Label
$labelctxres = New-Object System.Windows.Forms.Label
#$labeldpiscaling = New-Object System.Windows.Forms.Label
$labelfonsize = New-Object System.Windows.Forms.Label
$labelfonsmooth = New-Object System.Windows.Forms.Label
#$valuedpiscaling = New-Object System.Windows.Forms.Label
$valuefonsize = New-Object System.Windows.Forms.Label
$valuefonsmooth = New-Object System.Windows.Forms.Label
#$imgdpiscaling = [System.Drawing.Image]::FromStream($DPIScalingIMG, $true)
$imgfontsize = [System.Drawing.Image]::FromStream($SessionSizeIMG, $true)
$imgfontsmoothing = [System.Drawing.Image]::FromStream($FontSmoothingIMG, $true)
#$radiogroupboxdpi = New-Object System.Windows.Forms.GroupBox
$radiogroupboxfont = New-Object System.Windows.Forms.GroupBox
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts = New-Object System.Windows.Forms.GroupBox
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$buttonApply = New-Object System.Windows.Forms.Button
$buttonLogOff = New-Object System.Windows.Forms.Button
$InitialFormWindowState = New-Object System.Windows.Forms.FormWindowState
$FontFoot = New-Object System.Drawing.Font("Microsoft Sans Serif",7,[System.Drawing.FontStyle]::Regular)
$labelFoot = New-Object System.Windows.Forms.Label

#----------------------------------------------
# Call functions from apply button
#----------------------------------------------
$ScriptApplySessionScale = {
Add-Type @"
using System;
using System.Runtime.InteropServices;
using Microsoft.Win32;
public class Setter {
[System.Runtime.InteropServices.DllImport("SHCore.dll")]
internal static extern bool SetProcessDPIAware();
}
"@
}

#----------------------------------------------
# Call functions from radio buttons
#----------------------------------------------
function font150 {
Set-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name LogPixels -Value 144
#$form1.Dispose()
#GenerateForm
}

function font125 {
Set-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name LogPixels -Value 120
#$form1.Dispose()
#GenerateForm
}

function font100 {
Set-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name LogPixels -Value 96
#$form1.Dispose()
#GenerateForm
}

function fontsOFF {
Set-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name FontSmoothing -Value 0
#$form1.Dispose()
#GenerateForm
}

function fontsON {
Set-ItemProperty -Path "HKCU:\Control Panel\Desktop" -Name FontSmoothing -Value 2
#$form1.Dispose()
#GenerateForm
}

function buttonApply {
Add-Type -AssemblyName PresentationCore,PresentationFramework
$oReturn=[System.Windows.Forms.MessageBox]::Show("You must sign out of your Citrix session to apply these changes. `nSave any open files and close all programs before you sign out. `n`nTo sign out click on OK","Sign out to apply settings",[System.Windows.Forms.MessageBoxButtons]::OKCancel)
switch ($oReturn){
"OK" {
#write-host "You pressed OK"
logoff $SessionId
}
"Cancel" {
#write-host "You pressed Cancel"
$form1.Dispose()
GenerateForm
}
}
}

function buttonCancel {
$form1.Close()
}

#----------------------------------------------
# Call form functions from button handler
#----------------------------------------------
#Call funtion font150
$handler_radiobuttonfont150_click= ${function:font150}

#Call funtion font125
$handler_radiobuttonfont125_click= ${function:font125}

#Call funtion font100
$handler_radiobuttonfont100_click= ${function:font100}

#Call funtion fontsOFF
$handler_radiobuttonfontsOFF_click= ${function:fontsOFF}

#Call funtion fontsON
$handler_radiobuttonfontsON_click= ${function:fontsON}

#Call funtion button Apply
$handler_buttonApply_Click= ${function:buttonApply}

#Call funtion button Cancel
$handler_buttonCancel_Click= ${function:buttonCancel}

#----------------------------------------------
# Form code to ganerate gui
#----------------------------------------------
$System_Drawing_Size = New-Object System.Drawing.Size
$System_Drawing_Size.Height = 373
$System_Drawing_Size.Width = 540
$form1.Icon = [System.Drawing.Icon]::FromHandle((new-object System.Drawing.Bitmap -argument $FormIcon).GetHIcon())
$form1.Font = $font
$form1.ClientSize = $System_Drawing_Size
$form1.DataBindings.DefaultDataSourceUpdateMode = 0
$form1.Name = "form1"
$form1.Text = "Session Scaling"
$form1.FormBorderStyle = "Fixed3D"

#Form lable
$labelHead1.Text = "Session scale and layout"
$labelHead1.Font = $fonthead
$labelHead1.Location = "15,15"
$labelHead1.Height = 20
$labelHead1.Width = 250

#Form lable
$labelfonsize.Text = "Change the size of text and apps:"
$labelfonsize.Location = "15,55"
$labelfonsize.Height = 40
$labelfonsize.Width = 180
$valuefonsize.Text = " $LogPixels%"
$valuefonsize.Font = $fontvalue
$valuefonsize.ForeColor = 'Green'
$valuefonsize.Location = "208,75"
$valuefonsize.Height = 20
$valuefonsize.Width = 60

#Radio button box font size
$radiogroupboxfont.Location = '15,95'
$radiogroupboxfont.size = '250,120'
$radiogroupboxfont.text = "Choose size:"
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = '55,20'
$radiobuttonfont.size = '80,20'
IF ($LogPixels -eq "150") {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = "150%"
$radiobuttonfont.add_Click($handler_radiobuttonfont150_click)
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = '55,55'
$radiobuttonfont.size = '80,20'
IF ($LogPixels -eq "125") {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = "125%"
$radiobuttonfont.add_Click($handler_radiobuttonfont125_click)
$radiobuttonfont = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfont.Controls.Add($radiobuttonfont)
$radiobuttonfont.Location = '55,90'
$radiobuttonfont.size = '80,20'
IF ($LogPixels -eq "100") {
$radiobuttonfont.Checked = $true}
Else {
$radiobuttonfont.Checked = $false
}
$radiobuttonfont.Text = "100%"
$radiobuttonfont.add_Click($handler_radiobuttonfont100_click)
#Image font size
$imgfontsizebox = new-object Windows.Forms.PictureBox
$radiogroupboxfont.Controls.Add($imgfontsizebox)
$imgfontsizebox.Location = "140,18"
$imgfontsizebox.Height = $imgfontsize.Size.Height
$imgfontsizebox.Width = $imgfontsize.Size.Width
$imgfontsizebox.Image = $imgfontsize

#Form lable
$labelHead2.Text = "Font smoothing"
$labelHead2.Font = $FontHead
$labelHead2.Location = "275,15"
$labelHead2.Height = 20
$labelHead2.Width = 486
$labelfonsmooth.Text = "Font smoothing is turned:"
$labelfonsmooth.Location = "275,75"
$labelfonsmooth.Height = 20
$labelfonsmooth.Width = 180
$valuefonsmooth.Text = "$FontSmoothing"
$valuefonsmooth.Font = $fontvalue
$valuefonsmooth.ForeColor = 'Green'
$valuefonsmooth.Location = "433,75"
$valuefonsmooth.Height = 20
$valuefonsmooth.Width = 60

#Radio button font smoothing
$radiogroupboxfonts.Location = '275,95'
$radiogroupboxfonts.size = '250,120'
$radiogroupboxfonts.text = "Turn font smoothing ON or OFF:"
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts.Controls.Add($radiobuttonfonts)
$radiobuttonfonts.Location = '25,50'
$radiobuttonfonts.size = '80,20'
IF ($FontSmoothing -eq "OFF") {
$radiobuttonfonts.Checked = $true}
Else {
$radiobuttonfonts.Checked = $false
}
$radiobuttonfonts.Text = "OFF"
$radiobuttonfonts.add_Click($handler_radiobuttonfontsOFF_click)
$radiobuttonfonts = New-Object System.Windows.Forms.RadioButton
$radiogroupboxfonts.Controls.Add($radiobuttonfonts)
$radiobuttonfonts.Location = '25,75'
$radiobuttonfonts.size = '80,20'
IF ($FontSmoothing -eq "ON") {
$radiobuttonfonts.Checked = $true}
Else {
$radiobuttonfonts.Checked = $false
}
$radiobuttonfonts.Text = "ON"
$radiobuttonfonts.add_Click($handler_radiobuttonfontsON_click)
#Image font smoothing
$imgfontsmoothingbox = new-object Windows.Forms.PictureBox
$radiogroupboxfonts.Controls.Add($imgfontsmoothingbox)
$imgfontsmoothingbox.Location = "120,45"
$imgfontsmoothingbox.Height = $imgfontsmoothing.Size.Height
$imgfontsmoothingbox.Width = $imgfontsmoothing.Size.Width
$imgfontsmoothingbox.Image = $imgfontsmoothing

#Session display resolution
$labelctxres.Text = "Citrix Session Resolution: $CitrixDispHRes/$CitrixDispVRes"
$labelctxres.Font = $FontFoot
$labelctxres.Location = "15,335"
$labelctxres.Height = 20
$labelctxres.Width = 250

#Apply button
$System_Drawing_Point1 = New-Object System.Drawing.Point
$System_Drawing_Point1.X = 15
$System_Drawing_Point1.Y = 285
$buttonApply.Location = $System_Drawing_Point1
$buttonApply.Name = "Apply"
$System_Drawing_Size1 = New-Object System.Drawing.Size
$System_Drawing_Size1.Height = 35
$System_Drawing_Size1.Width = 110
$buttonApply.Size = $System_Drawing_Size1
$buttonApply.TabIndex = 0
$buttonApply.Text = "Apply"
$buttonApply.UseVisualStyleBackColor = $True
$buttonApply.add_Click($handler_buttonApply_Click)

#Cancel button
$System_Drawing_Point1 = New-Object System.Drawing.Point
$System_Drawing_Point1.X = 130
$System_Drawing_Point1.Y = 285
$buttonLogOff.Location = $System_Drawing_Point1
$buttonLogOff.Name = "Cancel"
$System_Drawing_Size1 = New-Object System.Drawing.Size
$System_Drawing_Size1.Height = 35
$System_Drawing_Size1.Width = 110
$buttonLogOff.Size = $System_Drawing_Size1
$buttonLogOff.TabIndex = 0
$buttonLogOff.Text = "Cancel"
$buttonLogOff.UseVisualStyleBackColor = $True
$buttonLogOff.add_Click($handler_buttonCancel_Click)

#Form footer
$labelFoot.Font = $FontFoot
$labelFoot.Text = "fresh-it.info (c) | support@fresh-it.info | Ver. 1.2/roe"
$labelFoot.Location = "15, 355"
$labelFoot.Height = 40
$labelFoot.Width = 300

$form1.Controls.Add($labelHead1)
$form1.Controls.Add($labelHead2)
$form1.Controls.Add($labelctxres)
#$form1.Controls.Add($labeldpiscaling)
#$form1.Controls.Add($valuedpiscaling)
$form1.Controls.Add($labelfonsize)
$form1.Controls.Add($valuefonsize)
$form1.Controls.Add($valuefonsmooth)
$form1.Controls.Add($labelfonsmooth)
#$form1.Controls.Add($radiogroupboxdpi)
$form1.Controls.Add($radiogroupboxfont)
$form1.Controls.Add($radiogroupboxfonts)
$form1.Controls.Add($buttonLogOff)
$form1.Controls.Add($buttonApply)
$form1.Controls.Add($labelFoot)

#Save state of the form
$InitialFormWindowState = $form1.WindowState

#Correct OnLoad event to correct form state
$form1.add_Load($form1_StateCorrection_Load)

#Display defined form
return $form1.ShowDialog()
}

#Call function GenerateForm
if(OnApplicationLoad -eq $true)
{
GenerateForm | Out-Null
OnApplicationExit
}
########################################################################