Icatama

In the lives of many ways used to communicate. For example by using letters, telegrams, and others. In this era of information communication technology can also be done using a computer. One method that is used to send messages via computers is to use the facility contained net send in Windows. To send messages computer users typically use the command prompt by typing net send nama_komputer “message”. When using the net send is not efficient because every time we want to send a message, we must always type in net send then followed by typing the computer name you want us to contact. Surely in this way is very troublesome. Therefore, a program that needed it easier for us to send messages from one computer to another. In using this application, we only need one to enter the computer name that we wish to call. After that we only need to type the contents of the message. Very easy and efficient is not it? Curious? Try the following script.

Script type it below the program using Notepad and save with the name chatting.vbs and do not forget to change the Save as type who was from Text Documents (*. txt) to All Files. Do not forget to turn off Word Wrap in Notepad when typing the script program.

dim aksi, perintah, komputer, kompu, pesan, kalimat, hasil

mulai()
sub mulai()
komputer = InputBox(“Masukkan Nama Komputer:”,”PeSink [Pesan Singkat]“)
kompu=ucase(komputer)
kirim_beneran()
End Sub

sub kirim_beneran()
set aksi = WScript.CreateObject(“Wscript.Shell”)
kalimat = “Anda terhubung dengan komputer: [" & kompu & "]” &_
vbcrlf & vbcrlf &_
“Ketik [quit] untuk berhenti.” & vbcrlf &_
“Ketik [ganti] untuk ganti teman.” & vbcrlf & vbcrlf & vbcrlf &_
“Pesan Anda:”
pesan = InputBox(kalimat,”PeSink [Pesan Singkat]“)
hasil=ucase(pesan)
if hasil=”QUIT” then
MsgBox “Anda keluar dari chatting ini!”,vbOkOnly,”PeSink [Pesan Singkat]“
wscript.quit
else
if hasil=”GANTI” then
MsgBox “Anda Ganti Teman Chatting!”,vbOkOnly,”PeSink [Pesan Singkat]“
mulai()
else
perintah = “cmd /c net.exe send /domain:” & kompu & ” ” & pesan
aksi.run perintah, 0, true
MsgBox “Pesan telah dikirim ke komputer: ” &_
kompu,vbOkOnly,”PeSink [Pesan Singkat]“
kirim_beneran()
end if
end if
End Sub

After the script type the above program save the file and run the file called chatting.vbs. Above program has been tested on Windows 2000 Professional and Windows XP Professional Service Pack 2. Congratulations to learn & try.