Chatting with Net Send
Life in many ways this is used to communicate. For example, using the mail, telegraph, and others. In this era of information communication technology can also be done using the computer. One of the ways used to send messages through the computer is using the facilities that are net send in Windows. To send a message is usually the computer users use the command prompt with the way the net send computer name “content”. If using the net send is not efficient because every time we want to send a message, we should always send a net and then followed by typing the name of the computer that you want to contact us. Of course, in this way is making. Therefore, it takes a program that make it easier for us to send messages from one computer to another. In this application, we only need to enter the name of the computer that you want to contact us. After that we only need to type the message you want delivered. Very easy and efficient, is not it? Learn More Try the following script.
Script type under this program using Notepad and save with the name chatting.vbs and do not forget to change the Save as type Text that was from Documents (*. txt) to All Files. Do not forget to turn off Word Wrap in Notepad that at the time of typing program script.
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 program mengetikan script above save the file and then run the file called chatting.vbs. The program has been tested over try in the operating system Windows 2000 Professional and Windows XP Professional Service Pack 2. Congratulations to learn & try.
