フルスクリーンに入る vbscript のコマンドはありますか?
hta を使用しますか? ここまでのプログラムです。(「imageopener.hta」は気にしないでください)
CreateObject("WScript.Shell").Run "imageopener.hta"
WScript.Sleep 6000
薄暗いフィート
ft=inputbox("こんにちは! 何か入力してプログラムを開始してください!")
strName = InputBox("ユーザー名を入力してください。")
ケース選択 LCase(strName)
ケース「いまさ」
Msgbox「ようこそ今井慎！」
ケース「騎士」
Msgbox "ようこそライリー・ナイト！"
ケース「ワルメラブ」
Msgbox "Andrew Walmer さんへようこそ!"
Msgbox "アンドリューのスペシャルコースです!!! www.pokemon.com"
ケース「管理者」
strName = InputBox("パスワードを入力してください")
ケース選択 LCase(strName)
ケースフィート
Msgbox "ようこそ管理者!"
その他の場合
Msgbox "間違ったパスワードを入力しました。プログラムを終了します。"
WScript.Quit 1
エンドセレクト
その他の場合
Msgbox "無効なユーザー名です!"
WScript.Quit 1
エンドセレクト
Msgbox 「よし、今日は植民地主義について学ぶから聞いてくれ！」
Msgbox "国民国家とは、主に 1 つの国民が居住する領土を持つ州です。国家は政治的実体であり、国家は文化的および/または民族的実体です。"
Msgbox "NATIONSTATES の前に、公国は主に 1 人の王族によって統治されていました。これをノートに書き留めておいてください!"
MsgBox "ウィリアム征服王: ウィリアム 1 世 (ウィリアム征服王) は、イングランドの最初のノーマン王でした。権力を確立するための闘争の後、1066 年に彼はイングランドのノルマン征服を開始しました。成功後、彼の残りの人生は、イングランドと彼の大陸の土地に対する彼の支配を強化するのに苦労し、彼の最も古い太陽との困難.
MsgBox "結婚は安上がりで公国の人々にとって混乱も少ないものでした。しかし結婚の場合でさえ、ヘンリー 3 世とアリゴンのキャサリンの場合のように、誤解が生じました。"
MsgBox "香辛料は重要でした。香辛料貿易は、植民地主義より何千年も前から存在していました。香辛料は、食品、医薬品、および良い香りを保存するために使用されていました。"
MsgBox "植民地主義は多くのヨーロッパの投機家を裕福にしましたが、それは他の人にとっては代償が大きかったことを証明しました。植民地化された土地の原住民にとってはさらに代償が大きかったです。これはアフリカとアメリカ大陸に当てはまりました。アジアではそうではありませんでした。アジアはすでに文明化されており、経済組織を持っていました. 唯一の例外は、まだ農業社会に住んでいたインドでした.
MsgBox "アフリカでは、歴史的な部族の土地が、天然資源の場所に基づいて、先住民族の民族性に関係なく、さまざまなヨーロッパ諸国に分割されていました。この慣習は、20 世紀に石油が発見されたアジアに伝わりました。(イラク、シリアなど）」
MsgBox "地元の人々は、ヨーロッパ人によって運ばれた病気によって壊滅的な打撃を受けました。天然痘と結核はその病気の 1 つです。"
MsgBox "植民地貿易の大きな勝者: ヨーロッパの植民地勢力の王族と、彼らに味方した偉大な商社。"
MsgBox "貿易を促進し、リスクを軽減するために必要な資本とセキュリティを提供するために、大きな銀行と保険会社が必要でした。1688 年、ロイズ オブ ロンドンが設立され、貿易船とその貨物に保険を掛けました。彼らは、奴隷の最大の保険会社の 1 つでした。"
MsgBox "1700 年代後半までに、ロスチャイルド家は西ヨーロッパに銀行を設立し、1800 年代前半には米国に銀行を設立しました"
MsgBox "アメリカの熱帯および亜熱帯地域では、先住民族が土地から追い出され、アフリカの奴隷に取って代わられました。例: ジョージアで起こった出来事により、チェロキー族とクリーク族が排除され、オクラホマに置かれ、アフリカの奴隷に置き換えられました。"
MsgBox "サトウキビ、藍、木綿はどれも労働集約的で、生産と加工には多くの奴隷が必要でした。"
MsgBox "1700 年代半ば、スコットランドの織工は、ジーンズ布と呼ばれる作業服に使用される耐久性のある布を開発しました。布は通常、青く染められていました。これにより、綿繊維とインディゴ染料の大きな需要が生まれました。"
MsgBox "奴隷制度は残忍な制度でしたが、所有者は自分の健康を気にしませんでした。奴隷は通常、疲れ果てるまで働き、失敗すると厳しく懲らしめられました。"
MsgBox "奴隷の女性は、できるだけ多くの子供を産まなければなりませんでした。子供の数は所有者の初期投資の成長を表しているからです。ほとんどの奴隷の女性は、妊娠中に働いていました。"
MsgBox "男も女も家畜のように売られ、二度と家族に会えなくなった。"
MsgBox "植民地主義が助長し、恐ろしい奴隷制度を作り出しました。多くの奴隷所有者は奴隷を抵当に入れて土地を購入しました。どちらの場合も、奴隷は銀行に拘束されていました。"
MsgBox "経済体制の安定は奴隷制度にかかっていた。"
MsgBox "経済にも多くの敗者がいた。ジョン ローのような詐欺師がいた。ジョン ローは、ルイジアナ州からケベック州 (通称ミシシッピ州) に至る北米でフランスが保有する資産の価値を誇張した。株式を売却する会社を設立した。誇張された価値に基づいて裕福なヨーロッパ人にそのお金を使用し、フランスの財政と世界中の植民地取引を獲得しました. 株式の真の価値が発見されたとき、価値は劇的に下落し、最終的に彼の会社を破壊し、経済を犠牲にしました.クラッシュ。"
result=MsgBox("原住民は植民地主義の恩恵を受けましたか?", vbYesNo, "質問 1")
ケース結果を選択
ケース vbはい
result=MsgBox("原住民はオクラホマに移住しましたか?", vbYesNo, "質問 2")
ケース結果を選択
ケース vbはい
result=MsgBox("Langston's of London は保険会社でしたか?", vbYesNo, "質問 3")
ケース結果を選択
ケース vbYes
MsgBox「3問中1問正解！もっと勉強しなきゃ！」
ケース vbNo
MsgBox"3問中2問正解！なんと平均点！"
エンドセレクト
ケース vbNo
result=MsgBox("Langston's of London は保険会社でしたか?", vbYesNo, "質問 3")
ケース結果を選択
ケース vbYes
MsgBox"うわー、正解が 0 だった。もっと勉強しなきゃ!"
ケース vbNo
MsgBox「3問中1問正解！もっと勉強しなきゃ！」
エンドセレクト
エンドセレクト
ケース vbNo
result=MsgBox("原住民はオクラホマに移住しましたか?", vbYesNo, "質問 2")
ケース結果を選択
ケース vbはい
result=MsgBox("Langston's of London は保険会社でしたか?", vbYesNo, "質問 3")
ケース結果を選択
ケース vbYes
MsgBox"3問中2問正解！なんと平均点！"
ケース vbNo
MsgBox「全問正解！お疲れ様！クイズの準備完了！」
エンドセレクト
ケース vbNo
result=MsgBox("Langston's of London は保険会社でしたか?", vbYesNo, "質問 3")
ケース結果を選択
ケース vbYes
MsgBox「3問中1問正解！もっと勉強しなきゃ！」
ケース vbNo
MsgBox"3問中2問正解！なんと平均点！"
エンドセレクト
エンドセレクト
エンドセレクト