VBScript'Alert'而不是彈出式

Question

我是新來的VBScript世界，我製作了一個程序，這是一個關於新遊戲Watch Dogs的短片。 我目前已經得到了這個，因爲我希望它是計時的，但我更喜歡它，如果它沒有按鈕，並且它發出一個像警告的聲音（左邊是紅色的x） 這裏是我的當前代碼：

Option Explicit 
Dim Wshell, BtnCode 

Set Wshell = CreateObject("wscript.shell") 

BtnCode= Wshell.Popup ("Tracking IP", 1, "CitiOS Firewall") 

BtnCode= Wshell.Popup ("IP Rooted", 2, "CitiOS Firewall") 

BtnCode= Wshell.Popup ("Device Identified as: Smartphone", 2, "CitiOS Firewall") 

BtnCode= Wshell.Popup ("Hacker Identified as: Aide...", 1, "CitiOS Firewall") 

BtnCode= Wshell.Popup ("The Mainframe is under an attack", 2, "CitiOS Firewall") 

BtnCode= Wshell.Popup ("Blackout Activated by remote host", 2, "CitiOS Firewall") 

BtnCode= Wshell.popup ("Emergency Lockdown In Place", 2, "CitiOS Remote Firewall") 

請我能有答案，請一個例子：d

Answer 1

intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType]) 

您可以自定義圖標和按鈕，但沒有辦法隱藏所有按鈕。 檢查docs中最後一個參數的值。