メモ帳(VBS)だけでチャットを作ろう！

今回も昆布でやっている活動の一環を紹介したいと思います。

今回はメモ帳だけでチャットを作ります。

⇓コード

a = InputBox ("名前を入力してください","チャット(c)attiyproject")
If IsEmpty(a) then
MsgBox "終了します"
WScript.Quit

end if

Dim objFileSys
Dim strScriptPath
Dim strCreateFile

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

On Error Resume Next

strCreateFile = objFileSys.BuildPath(strScriptPath,a+("が入室しました"))

objFileSys.CreateTextFile strCreateFile

Set objFileSys = Nothing

do

x = InputBox ("発言したいことを入力してください","チャット(c)attiyproject")
If IsEmpty(x) then
Set objFileSys = CreateObject("Scripting.FileSystemObject")

strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

On Error Resume Next

strCreateFile = objFileSys.BuildPath(strScriptPath,a+("が退室しました"))

objFileSys.CreateTextFile strCreateFile

Set objFileSys = Nothing
MsgBox "終了します"
WScript.Quit

end if

Set objFileSys = CreateObject("Scripting.FileSystemObject")

strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")

On Error Resume Next

strCreateFile = objFileSys.BuildPath(strScriptPath,x+("　by")+a)

objFileSys.CreateTextFile strCreateFile

Set objFileSys = Nothing

loop

上記のコードをメモ帳に張り付けて拡張子を.vbsにして保存してください。

では、使ってみましょう。

1.適当にフォルダを作る

2.フォルダの並び替えを更新日時順、降順とする。

3.起動

4.ワーイ

使用用途としては、学校などの共有ハードディスクでこのようにすると、みんなでワイワイチャットができます。

（.net frameworkのバージョンによっては発言するたびにimeがアルファベットになってしまうことがあります。IME制御がよくわかんなかったのでそこはスルーです。）

結構頑張ったｗ