MENGONTROL KOMPUTER SECARA REMOTE MELALUI IRC DENGAN VB SCRIPT

Selama ini sudah banyak aplikasi yang dibuat untuk melakukan kontrol komputer melalui internet, salah satu contoh program yang terkenal adalah GoToMyPC .Program ini dibuat dengan tujuan agar seseorang dapat melakukan pekerjaan secara remote jarak jauh), tetapi karena server yang digunakan adalah servernya GoToMyPC maka program ini tidaklah gratis, sama halnya dengan aplikasi lainnya.


Bagaimana kalau kita membuat aplikasi sendiri dengan menentukan server secara sendiri?, tentunya kita mempunyai banyak pilihan untuk menentukan server yang gratis.Bagi Anda yang sering melakukan aktifitas chatting, mungkin aplikasi mIRC, XChat, BitchX ,dan beberapa IRC client lainnya sudah sangat familiar dengan anda, baik itu yang berjalan di windows ataupun yang berjalan di UNIX-side, ya… memang aplikasi tersebut merupakan aplikasi yang sering digunakan sebagai IRC Client. IRC atau Internet Relay Chat adalah sebuah aplikasi yang ditulis oleh Jarkko Oikarinen pada tahun 1998 di Finlandia. IRC adalah sebuah
aplikasi “system chat multi-user”, jadi seseorang dapat melakukan komunikasi secara text dengan orang lain dimanapun orang tersebut berada dalam sebuah server yang sama. Ada banyak server yang sering digunakan seperti irc.freenode.net, atau irc.dal.net, dan lain sebagainya. Server-server tersebut dapat Anda gunakan secara gratis, dan sebagai aplikasi clientnya Anda bisa mendownload nya dari banyak website.

Mungkin Anda berpikir apa hubungannya antara IRC dengan mengontrol komputer?Ada hubungannya, seperti yang tersebut di atas, bahwa IRC adalah sarana komunikasi berbasis text.Bagaimana kalau text yang kita terima malah di kerjakan bukan hanya ditampilkan?. Secara mudahnya begini, jadi sebagai contoh saya mengirimkan text “!msg Hello Word” kepada salah satu user IRC dengan nick “DelaVega”, maka akan sampai kepada yang punya nick “DelaVega” tersebut text yang berisikan kalimat “!msg Hello Word”, text yang sampai itu tidak diproses secara lanjut atau hanya ditampilkan ke layar seperti biasanya. Dengan pemrograman kita dapat membuat text “!msg Hello Word” menjadi sebuah perintah agar komputer yang kita kirimkan pesan tersebut menampilkan sebuah kotak pesan yang bertuliskan “Hello Word”, dengan syarat
program kita harus dapat melakukan hubungan ke server sehingga kita dapat mengirimkan pesan kepada komputer tersebut. Disini saya akan memberikan sepenggal kode program menggunakan bahasa pemrograman Visual Basic 6.0.

Untuk melakukan komunikasi data ke server IRC kita membutuhkan salah satu komponen socket pada
Visual Basic, yakni “Microsoft Winsock Control 6 (SP4)”. Tambahkan komponen tersebut ke dalam
project Anda dengan cara klik menu utama Project-Components, akan tampil sebuah jendela yang
berisikan daftar komponen yang tersedia. Kemudian pilih “Microsoft Winsock Control 6 (SP4)”
dan klik tombol OK. Berikut kode pemrograman yang ditambahkan:

Kode di bawah ini digunakan untuk melakukan koneksi ke server IRC matrix.de.eu.dal.net dengan
port 7000

Private Sub cmdConnect_Click()

Winsock1.Connect “matrix.de.eu.dal.net”, 7000

End Sub

Kode di bawah ini digunakan untuk mengirimkan data informasi komputer ke server dan kemudian
join ke channel #channel

========================================================================================

Private Sub Winsock1_Connect()

Winsock1.SendData “USER ZiOn@troya.com ” & _
Winsock1.LocalHostName & ” ” & _
Winsock1.RemoteHost & ” :celly” & vbCrLf
Winsock1.SendData “NICK ” & Winsock1.LocalHostName & IP & vbCrLf
Winsock1.SendData “JOIN #channel” & vbCrLf

End Sub

========================================================================================

Kode di bawah ini digunakan untuk menerima data dari server dan melakukan penyaringan data.
Apabila pada data yang diterima terdapat text perintah maka diproses dan dikerjakan

========================================================================================

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next ‘ Apabila ada error lanjutkan ke baris berikutnya

Dim strData As String ‘ Deklarasi variabel strData bertipe String
Dim Posisi As Integer ‘ Deklarasi variabel Posisi bertipe Integer
Dim Pesan As String
Dim Exec As String
Dim i As String

Winsock1.GetData strData, vbString ‘ Ambil data dan disimpan ke variabel strData

If Mid(strData, 1, 10) = “:necrose” Then ‘ Jika data dikirimkan oleh nick necrose maka

i = Split(strData, “:”)
Pesan = Replace(i(2), vbCrLf, “”)
Posisi = InStr(Pesan, ” “)
Exec = Mid(Pesan, Posisi + 1)
Pesan = UCase(Mid(Pesan, 1, Posisi - 1))

If Pesan = “!MSG” Then ‘ Jika data terdapat kata !MSG maka
MsgBox Exec, vbInformation, “System Administrator” ‘ Tampilkan kotak pesan dengan tulisan variabel Exec
End If
End If

End Sub

========================================================================================

Dengan sedikit kode yang ada di atas dapat Anda kembangkan menjadi sebuah aplikasi yang
benar-benar dapat mengontrol komputer.