MsgBoxを表示させよう!

スポンサーリンク
Option Explicit

MsgBox "こんにちは!シュタイナです(*- -)(*_ _)ペコリ" _
     , vbOkOnly + vbInformation _
     , "挨拶から始まる新しい縁"

保存する際は拡張子をvbsとして下さい。文字コードUTF-8などで保存するとエラーコード下記が連発する。shift JISで保存してみてください。

メモ帳で保存する際にANSI(shift JIS)を選んでトライしてみて下さい。

UTF8で作成したい場合は下記をお試し下さい。拡張子は.wsfで保存

<?xml version="1.0" encoding="utf-8" ?>
<package>
  <job>
    <runtime></runtime>
    <script language="VBScript">
    <![CDATA[
      Main()
      Sub Main()
        MsgBox "こんにちは,シュタイナです(*- -)(*_ _)ペコリ" _
	, vbOkOnly + vbOKCancel + vbInformation _
	, "挨拶から始まる新しい縁"
      End Sub
    ]]>
    </script>
  </job>
</package>