The DoCKtoR
IndoForum Newbie D
- No. Urut
- 138879
- Sejak
- 11 Jun 2011
- Pesan
- 102
- Nilai reaksi
- 0
- Poin
- 16
sebenarnya si aku juga masi blajar menggunakan ini..!! tapi kan tdk ada salahnya aku juga bagi² 
ni aku share dari Anur Yusufa: Mengontrol Komputer Secara Remote Melalui IRC dengan Visual Basic Scripting
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 [email protected] " & _
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
========================================================================================
ukeh aku rasa cuman itu aja yg ada catatan dari aku :
1. sebelum mencoba kita membaca Doa dulu biar di lindungi dari setan...
2. klo masi bingung cara menggunakannya nya jagnan tnya ke saya ya cari saja di Google
oke..!!
Good Luck..!!
ni aku share dari Anur Yusufa: Mengontrol Komputer Secara Remote Melalui IRC dengan Visual Basic Scripting
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 [email protected] " & _
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
========================================================================================
ukeh aku rasa cuman itu aja yg ada catatan dari aku :
1. sebelum mencoba kita membaca Doa dulu biar di lindungi dari setan...
2. klo masi bingung cara menggunakannya nya jagnan tnya ke saya ya cari saja di Google
oke..!!
Good Luck..!!
