生成一段抽卡代码

好的，以下是一个简单的 VBScript 代码，可以用于模拟抽卡：

' 定义卡池，这里以五星卡为例
Dim cardPool
cardPool = Array("五星卡A", "五星卡B", "五星卡C")

' 随机生成一个数，用于在卡池中抽取一张卡牌
Randomize
Dim index
index = Int(Rnd * 3)

' 输出抽到的卡牌
MsgBox "恭喜您抽到了：" & cardPool(index)

当您运行此脚本时，会随机从卡池中抽取一张卡牌，并弹出一个消息框显示抽到的卡牌名称。您可以根据需要修改卡池内容和抽卡方式，以满足您的需求。