' Cho Windows khoi dong xong roi moi chay
WScript.Sleep 15000

Dim objShell
Set objShell = CreateObject("WScript.Shell")

' Start flaresolverr
objShell.Run "cmd /c ""C:\Users\Administrator\AppData\Roaming\npm\pm2.ps1"" start ""C:/Program Files/Ampps/www/api-mst.tungblog.io.vn/flaresolverr-start.js"" --name flaresolverr", 0, True

' Start api-mst
objShell.Run "cmd /c ""C:\Users\Administrator\AppData\Roaming\npm\pm2.ps1"" start ""C:/Program Files/Ampps/www/api-mst.tungblog.io.vn/api-mst-server.js"" --name api-mst", 0, True

' Save
objShell.Run "cmd /c ""C:\Users\Administrator\AppData\Roaming\npm\pm2.ps1"" save", 0, True