メモ帳(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制御がよくわかんなかったのでそこはスルーです。)
結構頑張ったw