Tuesday, July 24, 2012
Perintah Shell di VB 6
Memanggil / menjalankan aplikasi
lain dalam visual basic 6.0 dapat dilakukan dengan sebuah perintah sederhana
yaitu perintah shell. bentuk dari perintah ini adalah :
Shell(pathname[,windowstyle])
pathname = path dari aplikasi yang
ingin dijalankan
windowstyle = bersifat opsional, merupakan pengaturan bagaimana jendela aplikasi yang sudah dijalankan akan muncul di desktop
jenis-jenis nilai untuk parameter windowstyle :
vbHide = jendela aplikasi tidak tampak di desktop & taskbar, benar-benar tersembunyi
vbNormalFocus = jendela aplikasi muncul normal dengan fokus
vbMinimizedFocus = jendela aplikasi minimized dan mendapat fokus
vbMaximizedFocus = jendela aplikasi maximized dan mendapat fokus
vbNormalNoFocus = jendela aplikasi muncul normal tanpa fokus
vbMinimizedNoFocus = jendela aplikasi minimized dan tanpa fokus
windowstyle = bersifat opsional, merupakan pengaturan bagaimana jendela aplikasi yang sudah dijalankan akan muncul di desktop
jenis-jenis nilai untuk parameter windowstyle :
vbHide = jendela aplikasi tidak tampak di desktop & taskbar, benar-benar tersembunyi
vbNormalFocus = jendela aplikasi muncul normal dengan fokus
vbMinimizedFocus = jendela aplikasi minimized dan mendapat fokus
vbMaximizedFocus = jendela aplikasi maximized dan mendapat fokus
vbNormalNoFocus = jendela aplikasi muncul normal tanpa fokus
vbMinimizedNoFocus = jendela aplikasi minimized dan tanpa fokus
contoh penggunaan 1 :
a = Shell(“c:\windows\notepad.exe”, vbNormalFocus)
penggunaan perintah shell akan mengembalikan suatu nilai, dan harus diberikan kepada suatu variabel (dalam contoh variabel a) jika aplikasi yang ditulis dalam argumen pathname sukses dijalankan, maka perintah shell akan mengembalikan sebuah nilai ID dari aplikasi yang dijalankan dan mengembalikan nilai 0 jika gagal.
a = Shell(“c:\windows\notepad.exe”, vbNormalFocus)
penggunaan perintah shell akan mengembalikan suatu nilai, dan harus diberikan kepada suatu variabel (dalam contoh variabel a) jika aplikasi yang ditulis dalam argumen pathname sukses dijalankan, maka perintah shell akan mengembalikan sebuah nilai ID dari aplikasi yang dijalankan dan mengembalikan nilai 0 jika gagal.
contoh penggunaan 2 :
1
|
For hitung
= 1 To 5000
|
|
2
|
a =
Shell("c:\windows\notepad.exe", vbMinimizedFocus)
|
3
|
Next hitung
|
menjalankan notepad sebanyak 5000
kali, akibatnya? coba saja.
Contoh Penggunaan 3 :
01
|
If Check1.Value
= 1 Then
|
|
02
|
a1 =
Shell("C:\Program Files\Grisoft\AVG7\avgcc.exe /STARTUP")
|
03
|
End If
|
|
04
|
If Check2.Value
= 1 Then
|
05
|
a2 =
Shell("C:\Program Files\Symantec\Norton Ghost
2003\GhostStartTrayApp.exe")
|
|
06
|
End If
|
07
|
If Check3.Value
= 1 Then
|
|
08
|
a3 =
Shell("C:\Program Files\Spyware
Terminator\SpywareTerminatorShield.exe")
|
09
|
End If
|
|
10
|
If Check4.Value
= 1 Then
|
11
|
a4 =
Shell("C:\Program Files\Bluetooth Remote
Control\BluetoothRemoteControl.exe")
|
|
12
|
End If
|
…. dst
Pada contoh 3 saya membuat sebuah program kecil yang saya
gunakan untuk mengatur aplikasi-aplikasi apa saja di daftar startup
applications (msconfig->startup) yang ingin dijalankan setiap kali komputer
dinyalakan. Misalnya jika saya hanya akan menggunakan komputer untuk
mengetak-mengetik / mengedit gambar di rumah, maka saya rasa tidak perlu
menjalankan semua aplikasi di daftar startup kan?, (maklum jumlah RAM
pas-pasan).
misalnya jika saya akan terhubung ke internet
baru menjalankan anti-virus dan anti-spyware.
Subscribe to:
Post Comments (Atom)
Thank's All
Blog Archive
- 2013 (1)
-
2012
(28)
- November(1)
- October(2)
- September(9)
- August(4)
-
July(12)
- Tutorial Membuat Email Lengkap, Mengirim Email, Me...
- Dasar dasar Macromedia Flash
- Tutorial Membuat Website HTML
- Tutorial Membuat Server Local pada Laptop atau PC
- Tutorial Membuat Animasi Burung Terbang (Flash)
- Edit Foto Effect Blur Di Adobe Photoshop CS3
- Tutorial Membuat Teks Berjalan pada VB 6.0
- Tutorial Membuat Animasi pada VB 6.0
- Perintah Shell di VB 6
- Coding Startup (VB 6.0)
- Membuat Undangan Pernikahan Sederhana (CorelDraw)
- Sistem Pembelian Pulsa Melalui Internet
- 2011 (25)
- 2010 (6)
0 komentar:
Post a Comment