Ngisengin Orang

Kenapa Saya memberi judul pada tulisan kali ini”Ngisengin Orang”? Karena kali pertama saya menggunakan ini hanya untuk iseng pada sebuah room di sebuah warnet.

Kali ini saya ingin menyentuh tentang sebuah bahasa pemrograman yaitu VBS untuk mengirimkan pesan pada komputer lain yang berada dalam satu jaringan. Pada prinsipnya disini menggunakan Net Send, bedanya ada sedikit modifikasi dengan menggunakan VBScript.

Berikut adalah script nya:

Option Explicit

Const MyApp = "Send Network Message, By: BlackSignal"

Const Netsend = "%COMSPEC% /C %SystemRoot%\system32\NET.EXE SEND"

Const WindowStyle = 0

Const WaitOnReturn = False

Dim sCommand, sSendto, sMessage

Dim oSh

On Error Resume Next

If Not IsWinnt() Then

Wscript.Echo "Script ini hanya berlaku untuk windows berbasis NT"

Wscript.Quit(1)

End If

sSendto = InputBox("Masukkan nama komputer target atau IP Address atau gunakan karakter * untuk pengiriman massal", MyApp)

If sSendto = "" Then Wscript.Quit(1)

sCommand = Netsend & " " & sSendto

sMessage = InputBox("Ketikkan pesan Anda:", MyApp)

If sMessage = "" Then Wscript.Quit(1)

sCommand = sCommand & " " & sMessage

Set oSh = CreateObject("Wscript.Shell")

oSh.Run sCommand, WindowStyle, WaitOnReturn

Set oSh = Nothing

Private Function IsWinnt()

Const OSNT = "Windows_NT"

Dim oSh

Dim sOS

IsWinnt = False

Set oSh=CreateObject("Wscript.Shell")

sOS = oSh.ExpandEnvironmentStrings("%OS%")

Set oSh = Nothing

If sOS = OSNT Then IsWinnt = True

End Function

Script tersebut disimpan dalam ekstensi .vbs
Cara kerja dari script ini adalah mengirimkan pesan ke komputer target dengan memasukkan alamat IP Address target atau dengan memasukkan karakter * untuk pengiriman massal.

Tampilannya seperti gambar dibawah ini.

Thanks to:

Okki Navarone

Efvy Zamidra Zam

Lirva32