0

是否有用于进入全屏的 vbscript 命令？

我使用 hta 吗？这是到目前为止的程序。（请不要介意“imageopener.hta”）

CreateObject("WScript.Shell").Run "imageopener.hta"
WScript.Sleep 6000
昏暗英尺
ft=inputbox("你好！输入任何内容来启动程序！")

strName = InputBox("请输入您的用户名。")
选择案例 LCase(strName)
    案例“imaisa”
        Msgbox "欢迎新今井！"
    案例“骑士”
        Msgbox "欢迎莱利骑士！"
    案例“walmerab”
        Msgbox "欢迎 Andrew Walmer！"
        Msgbox "这是你的特别课程 ANDREW!!! www.pokemon.com"
    案例“管理员”        
        strName = InputBox("请输入密码")
        选择案例 LCase(strName)
            案例英尺
                Msgbox "欢迎管理员！"
            其他情况
                Msgbox "您输入了错误的密码。程序现在将退出。"
                WScript.退出 1
        结束选择
    其他情况
        Msgbox "用户名无效！"
        WScript.退出 1
结束选择
Msgbox "好吧，伙计们！今天我们要学习殖民主义，听好了！"
Msgbox "民族国家是一个拥有一个主要由 1 个民族居住的领土的州。国家是一个政治实体；国家是一个文化和/或种族实体。"
Msgbox "在 NATIONSTATES 之前，公国主要由一个皇室统治。把这个记在你的笔记本上！"
MsgBox "WILLIAM THE CONQUEROR: 威廉一世（William the Conqueror）是英格兰第一位诺曼国王。经过争权夺利，1066 年，他发起了对英格兰的诺曼征服。成功后，他的余生以努力巩固他对英格兰和他的大陆土地的控制，以及他最年长的太阳的困难。”
MsgBox "婚姻更便宜，对公国人民的干扰也少得多。然而，即使在婚姻的情况下，也会产生误解，就像亨利三世和阿里冈的凯瑟琳一样。"
MsgBox "香料很重要。香料贸易比殖民主义早了几千年。香料被用于保存食物、药物和良好的气味。"
MsgBox “殖民主义使许多欧洲投机者变得富有，事实证明，这对其他人来说是昂贵的。对于被殖民土地的当地人来说，代价更高。在非洲和美洲都是如此。在亚洲却不是这样，因为亚洲已经文明了，而且有一个经济组织。唯一的例外是印度，它仍然生活在一个农业社会中。
MsgBox "在非洲，历史悠久的部落土地根据自然资源的位置在欧洲各个国家之间划分，不考虑土著人民的种族。随着石油的发现，这种做法在 20 世纪传到了亚洲。（伊拉克，叙利亚等）”
MsgBox "当地居民被欧洲人携带的疾病所摧毁。天花和肺结核是其中的疾病。"
MsgBox "殖民贸易的大赢家：欧洲殖民大国的王室和对他们有利的大贸易公司。"

MsgBox “需要大型银行和保险公司来提供促进贸易和降低风险所需的资本和安全保障。1688 年，伦敦劳埃德保险公司成立，为商船及其货物提供保险。他们是最大的奴隶保险公司之一。”
MsgBox "到 1700 年代后期，罗斯柴尔德家族在西欧建立了银行，到 1800 年代初期在美国建立了银行业务"
MsgBox "在美洲的热带和亚热带地区，原住民被从土地上移走，取而代之的是非洲奴隶。例如：格鲁吉亚发生的事情将切罗基人和克里克人移到俄克拉荷马州，取而代之的是非洲奴隶。"
MsgBox "甘蔗、靛蓝、棉花都是劳动密集型的，生产加工需要大量奴隶。"
MsgBox “在 1700 年代中期，苏格兰织布工开发了一种用于工作服的耐用面料，称为牛仔布。这种布料通常染成蓝色。这对棉纤维和靛蓝染料产生了巨大的需求。”
"
MsgBox "女奴要生尽可能多的孩子，因为每个孩子都代表着主人初始投资的成长。大多数女奴在怀孕期间都在工作。"
MsgBox "男人和女人像牲畜一样被卖了，再也见不到家人了。"
MsgBox “殖民主义鼓励并创造了可怕的奴隶制度。许多奴隶主抵押他们的奴隶来购买更多的土地。无论哪种情况，奴隶都被绑定到银行。”
MsgBox "经济体系的稳定取决于奴隶制。"
MsgBox “经济中也有很多输家。有像约翰·劳这样的骗子。约翰·劳夸大了法国在北美从路易斯安那州到魁北克的持股价值。（被称为密西西比州）。他成立了一家出售股票的公司以夸大的价值向富有的欧洲人，并用这笔钱获得法国财政和世界各地的殖民贸易。碰撞。”
result=MsgBox("土著人是否从殖民主义中受益？", vbYesNo, "问题 1")
选择案例结果
案例 vb是
    result=MsgBox("当地人搬到俄克拉荷马了吗？", vbYesNo, "问题 2")
    选择案例结果
    案例 vb是
        result=MsgBox("Langston's of London 是一家保险公司吗？", vbYesNo, "问题 3")
        选择案例结果
        案例 vb是
            MsgBox"你答对了 3 题中的 1 题！你应该多学习！"
        案例vbNo
            MsgBox"你答对了 3 道题中的 2 道题！多么平均的分数啊！"
        结束选择
    案例vbNo
        result=MsgBox("Langston's of London 是一家保险公司吗？", vbYesNo, "问题 3")
        选择案例结果
        案例 vb是
            MsgBox"哇，你答对了 0。你必须多学习！"
        案例vbNo
            MsgBox"你答对了 3 题中的 1 题！你应该多学习！"
        结束选择
    结束选择

案例vbNo
    result=MsgBox("当地人搬到俄克拉荷马了吗？", vbYesNo, "问题 2")
    选择案例结果
    案例 vb是
        result=MsgBox("Langston's of London 是一家保险公司吗？", vbYesNo, "问题 3")
        选择案例结果
        案例 vb是
            MsgBox"你答对了 3 道题中的 2 道题！多么平均的分数啊！"
        案例vbNo
            MsgBox"你所有的问题都答对了！干得好！你已经为你的测验做好了准备！"
        结束选择
    案例vbNo
        result=MsgBox("Langston's of London 是一家保险公司吗？", vbYesNo, "问题 3")
        选择案例结果
        案例 vb是
            MsgBox"你答对了 3 题中的 1 题！你应该多学习！"
        案例vbNo
            MsgBox"你答对了 3 道题中的 2 道题！多么平均的分数啊！"
        结束选择
    结束选择
结束选择
4

1 回答 1

0

是否有用于进入全屏的 vbscript 命令？

呃呃呃……不。（无论你对 msgboxes 的全屏是什么意思，恐怕答案永远是否定的）。为了更好地控制您的视觉输出，您可以开始学习使用Visual Studio for Desktop进行编程 http://www.microsoft.com/visualstudio/eng/downloads#d-2012-express

于 2013-02-08T11:21:19.343 回答