Kamis, 06 November 2008

Remote Control Computer Through IRC with VB Script

Selama ini sudah banyak aplikasi yang dibuat untuk melakukan kontrol komputer melalui nternet, salah satu contoh program yang terkenal adalah GoToMyPC (http://www.gotomypc.com).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.comAlamat e-mail ini dilindungi dari spambot, anda harus memampukan JavaScript untuk melihatnya " & _
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.

1 komentar:

nyuwun komentar... . .

za.IPAN's Blog © 2008. Design by :Yanku Templates Sponsored by: Tutorial87 Commentcute