Link merupakan suatu text yang dapat mengarahkan browser dalam suatu
dokumen dengan dokumen yang lain. Link dapat berupa link yang mengarah pada
alamat situs, email, ataupun file. Akan tetapi bagaimana jika link itu dipergunakan di
Visual Basic.
Ok. Begini, program yang akan kita buat di sini, pada hakikatnya adalah akan
membuka browser default menggunakan perintah open dengan alamat tertentu. Dan
tentu saja mempergunakan shell32.dll yang sudah terdapat pada system.
Lihatlah screenshot dari form
about pada program Virus Simulator
yang juga mengimplementasikan
teknik kita kali ini, yang akan kita
bahas.
Saat kursor mouse berada di
atas link maka text akan berubah
warna yang tadinya biru maka akan
menjadi merah.
Sedangkan kursor mousenya
sendiri akan berubah bentuk menjadi
gambar tangan.
Setidak-tidaknya teknik ini
akan menghasilkan efek yang sama
persis saat kita akan dan sedang
mengarahkan pointer mouse ke suatu
link di web browser.
Hasil akhirnya adalah ketika
kita meng-klik text link tersebut
maka browser akan mengarah pada
alamat yang sudah kita tentukan sebelumnya.
IlmuKomputer.Com
Copyright © 2008 IlmuKomputer.Com
Link Alamat situs, Email dan File Pada VB 6.0
Prasetyo Priadi
2
Sekarang bukalah ruang kerja VB 6.0.
Coba buat form seperti berikut dan ubahlah nilai property sebagaimana yang terdapat
pada table.
Buatlah Label1 menutupi seluruh form dan usahakan Label2 berada di daerah Label1.
Object Properties Value
Form Caption Link Pada VB 6.0
Label1 Caption (Kosongkan)
Label2 Caption Http://www.VirusMaker.Co.Cc
BackStyle 0 - Transparent
ForeColor &H00FF0000& (Biru)
MousePointer 99 – Custom
MouseIcon (Cari icon, misal gambar tangan)
Maka form akan terlihat.
IlmuKomputer.Com
Copyright © 2008 IlmuKomputer.Com
Link Alamat situs, Email dan File Pada VB 6.0
Prasetyo Priadi
3
Buatlah sebuah modul dengan nama mdlShellExecute dengan isi sebagai berikut.
Caranya pilih menu Project Add Module.
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA"
(ByVal hWnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Lalu pada label2 yang caption telah diubah menjadi Http://www.VirusMaker.Co.Cc,
double klik dan ketikan kode berikut.
Private Sub Label2_Click()
Call ShellExecute(Me.hWnd, "Open", "http://www.virusmaker.co.cc", vbNullString, "c:\", 1)
End Sub
‘ Kode untuk membuka browser default dengan alamat http://www.virusmaker.co.cc
‘ ketika Label2 di klik oleh user.
Setelah itu ketikan.
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF&
Label2.ToolTipText = "Virus Open Sources Site."
End Sub
‘ Kode agar ketika pointer mouse berada diatas Label2 yang ber-caption
‘ http://www.virusmaker.co.cc maka akan berubah warna menjadi merah dan
‘ mengeluarkan ToolTip dengan isi ‘Virus Open Sources Site.’.
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = &HFF0000
End Sub
‘ Kode agar ketika mouse pointer berada diatas Label1 atau berarti telah keluar atau
‘ tidak menyorot Label2 lagi maka akan mengubah Label2 menjadi warna biru kembali.
IlmuKomputer.Com
Copyright © 2008 IlmuKomputer.Com
Link Alamat situs, Email dan File Pada VB 6.0
Prasetyo Priadi
4
Sekarang coba jalankan dengan memilih menu Run start atau dengan menekan F5 pada
papan keyboard. Lihatlah hasilnya.
Coba kliklah dan apa yang akan terjadi.
Jreeeng. Browser terbuka dengan alamat alamat http://www.virusmaker.co.cc.
Bagaimana jika untuk link email. Ganti saja ShellExecute dengan sebagai berikut.
Call ShellExecute(Me.hWnd, "Open", "mailto:prasetyopriadi@yahoo.co.id", vbNullString, "c:\", 1)
Coba ganti dengan perintah yang lain.
Misalnya untuk menjalankan aplikasi Task Manager.
Call ShellExecute(Me.hWnd, "Open", "taskmgr", vbNullString, "c:\", 1)
Berikut beberapa dari daftar program yang dapat dijalankan dengan ShellExecute.
Microsoft Word winword
Notepad notepad
Wordpad wordpad
Windows Explorer explorer
MS Paint mspaint
Task Manager taskmgr
Microsoft Excel excel
MS Config msconfig
Registry Editor regedit
Calculator calc
Bahkan perintah-perintah XCopy pun dapat dilakukan dengan ShellExecute
akan tetapi biasanya disalahgunakan untuk mencuri data orang lain jika
diimplementasikan pada virus. Di bahas lebih lanjut di http://www.virusmaker.co.cc.
$elesai.
Salam untuk semua VM Indonesia, teman-teman dan semuanya.
Terimakasih.
IlmuKomputer.Com
Copyright © 2008 IlmuKomputer.Com
Link Alamat situs, Email dan File Pada VB 6.0
Prasetyo Priadi
5
In the Jenanc, Tlacap,
Prasetyo Priadi.
“Sharinglah ilmu walaupun itu hanya seberkas cahaya, untuk menerangi kegelapan.”
Jadi begini mas, mbak, pak, kakek utawa tante. Walaupun kita itu punya ilmu
yang sedikit kalau diajarkan pada orang lain yang belum bisa, maka ya… pastilah
akan bermanfaat. Bukankah hakikat dari kehidupan itu mengabdi pada Sang Hyang
Manunggal (Tuhan YME, Allah) dan memberikan manfaat bagi alam semesta.
Terutama bermanfaat bagi sesama manusia, hewan dan tumbuhan.
Jangan hanya bisa memanfaatkan orang lain. Seimbangkanlah pula dengan
memberi manfaat kepada orang lain. Sebagaimana dalam asas serta landasan ideologi
hukum keseimbangan etika, logika dan estetika.
Sok-sokan baru bisa ngomong udah nasehati orang lain.
________________________ ____________________
Bingkisan Rindu..
13 tahun yang lalu
Tidak ada komentar:
Posting Komentar