Home All posts

Monday, May 23, 2011

Source Code untuk Menjalankan Start Menu dengan Memanfaatkan SendKeys

  Author : Wakjoe     No comments
12:01 AM

Berikut ini adalah cara yang teman - teman dapat gunakan untuk menjalankan start menu. Dengan melakukan hal ini, seolah - olah teman - teman melakukan klik pada tombol start windows sehingga menampilkan start menu. Untuk melakukan ini kita menggunakan function sendkeys untuk mengirimkan kombinasi tombol CTRL + ESC sehingga start menu dapat ditampilkan. Berikut ini source codenya :

objShell = CreateObject("WScript.Shell")
objShell.SendKeys("^{esc}")

Function SendKey digunakan untuk mengirimkan perintah yang berupa tombol yang ada di keyboard, sehingga kita bisa menggantikan penekanan tombol di keyboard dengan syntak. Bila teman - teman ingin melakukan percobaan atau mau bereksplorasi dengan fungsi Sendkeys ini silahkan ganti syntak yang berwarna merah dengan daftar parameter penekanan tombol di bawah ini :

  • BACKSPACE = {BACKSPACE}, {BS}, or {BKSP}
  • BREAK = {BREAK}
  • CAPS LOCK = {CAPSLOCK}
  • DEL or DELETE = {DELETE} or {DEL}
  • DOWN ARROW = {DOWN}
  • END = {END}
  • ENTER = {ENTER} or ~
  • ESC = {ESC}
  • HELP = {HELP}
  • HOME = {HOME}
  • INS or INSERT = {INSERT} or {INS}
  • LEFT ARROW = {LEFT}
  • NUM LOCK = {NUMLOCK}
  • PAGE DOWN = {PGDN}
  • PAGE UP = {PGUP}
  • PRINT SCREEN = {PRTSC}
  • RIGHT ARROW = {RIGHT}
  • SCROLL LOCK = {SCROLLLOCK}
  • TAB = {TAB}
  • UP ARROW = {UP}
  • F1 = {F1}
  • CTRL = ^
  • ALT = %
  • SHIFT = +
  • Huruf, angka atau karakter lain bisa langsung ketikkan karakter yg dimaksud, misal ingin mengirim tombol CTRL+A maka tinggal berikan parameter ^A 
Sebenarnya function SendKeys dapat digantikan dengan syntak bawaan Visual Foxpro yaitu KEYBOARD. Dimana format dari function KEYBOARD adalah sebagai berikut :

KEYBOARD cKeyboardValue

Contoh :

KEYBOARD "{CTRL+LEFTARROW}" 
KEYBOARD "{CTRL+A}"

Daftar dari parameter untuk cKeyboardValue adalah sebagai berikut :

  • LEFTARROW = LEFTARROW
  • RIGHTARROW = RIGHTARROW
  • UPARROW = UPARROW
  • DOWNARROW = DNARROW
  • HOME = HOME
  • END = END
  • PAGE UP = PGUP
  • PAGE DOWN = PGDN
  • DEL = DEL
  • BACKSPACE = BACKSPACE
  • SPACEBAR = SPACEBAR
  • INS = INS
  • TAB = TAB
  • SHIFT+TAB = BACKTAB
  • Left Brace = LBRACE
  • Right Brace = RBRACE
  • ENTER = ENTER
  • F1 to F12 = F1, F2, F3 ... 
  • CTRL+F1 to CTRL+F12 = CTRL+F1, CTRL+F2 ... 
  • SHIFT+F1 to SHIFT+F12 = SHIFT+F1, SHIFT+F2 ... 
  • ALT+F1 to ALT+F12 = ALT+F1, ALT+F2, ALT+F3 ... 
  • ALT+0 to ALT+9 = ALT+0, ALT+1, ALT+2 ... 
  • ALT+A to ALT+Z = ALT+A, ALT+B, ALT+C ... 
  • CTRL+LEFT ARROW = CTRL+LEFTARROW
  • CTRL+RIGHT ARROW = CTRL+RIGHTARROW
  • CTRL+HOME = CTRL+HOME
  • CTRL+END = CTRL+END
  • CTRL+PAGE UP = CTRL+PGUP
  • CTRL+PAGE DOWN = CTRL+PGDN
  • CTRL+A TO CTRL+Z = CTRL+A, CTRL+B, CTRL+C ... 
  • CTRL+0 = CTRL+0
  • RIGHT MOUSE BUTTON = RIGHTMOUSE
  • LEFT MOUSE BUTTON = LEFTMOUSE
  • MOUSE BUTTON = MOUSE
  • ESC = ESC
Meskipun sebenarnya function Keyboard bawaan Visual Foxpro telah lengkap dan bisa menggantikan function SendKeys, akan tetapi untuk menjalankan start menu yang memerlukan kombinasi tombol CTRL+ESC hanya bisa dilakukan oleh function SendKeys sedangkan function Keyboard tidak diijinkan untuk melakukan perintah dengan kedua kombinasi tombol tersebut.


SELAMAT MENCOBA...!!

Posted by
Read More

Sunday, May 22, 2011

Source Code untuk Mengubah Password Login Windows

  Author : Wakjoe     No comments
12:01 AM

Berikut ini adalah cara yang teman - teman dapat gunakan untuk mengubah password dari username yang digunakan untuk login ke Windows. Cara ini menggunakan fasilitas net user yang dimiliki oleh command windows yang dapat digunakan untuk mengubah password berdasarkan username yang ada. Bila teman - teman ingin menggunakan dan memasukkan modul ini ke dalam aplikasi yang dibuat dari Visual Foxpro, silahkan coba source code di bawah ini :

cUSR="administrator"
cPSW="foxpromania"
Execscript("! net user "+cUSR+" "+cPSW)

Silahkan atur username yang mau diubah passwordnya melalui variable cUSR, dalam contoh diatas yang mau diubah passwordnya adalah username administrator. Dan silahkan atur password baru bagi username tersebut melalui variable cPSW, dalam contoh diatas password baru yang diberikan ke username administrator adalah foxpromania. Setelah menjalankan syntak diatas, silahkan log off windows dan login dengan password baru. Silahkan coba tetapi hati - hati jangan sampai lupa passwordnya....!!



SELAMAT MENCOBA...!!

Posted by
Read More

Saturday, May 21, 2011

Source Code untuk Mengatur Default Home Page di Internet Explorer

  Author : Wakjoe     No comments
12:01 AM

Berikut ini adalah cara yang dapat teman - teman gunakan untuk mengatur Home Page dari Internet Explorer. Dengan melakukan hal ini maka setiap user yang membuka Internet Explorer akan melihat halaman Website yang telah diatur sebagai Home Page. Salah satu fungsi dari melakukan pengaturan Home Page ini adalah membantu mempromosikan produk atau jasa yang teman - teman punya melalui aplikasi yang telah dibuat.

Jika teman - teman memasukkan modul ini ke dalam aplikasi yang teman - teman buat, dan mengarahkan alamat Home Page ke website atau blog yang teman - teman punyai, maka otomatis setiap user yang pernah menjalankan program atau aplikasi yang teman - teman buat, akan selalu membuka halaman blog atau website teman - teman ketika mereka menjalankan Internet Explorer. Dari situlah teman - teman dapat menjadikan ini sebagai cara untuk membantu mempromosi kan produk atau jasa yang teman - teman miliki. 

Untuk melakukan pengaturan Home Page secara otomatis melalui source code, teman - teman bisa menggunakan syntak di bawah ini :

objWshShell = CreateObject("WScript.Shell")
strHomePage = "http://www.foxpromania.co.cc"
objWshShell.RegWrite("HKCU\Software\Microsoft\"+;
 "Internet Explorer\Main\Start Page", strHomePage)

Silahkan isikan variable strHomePage dengan alamat dari blog atau website yang teman - teman miliki.



SELAMAT MENCOBA...!!

Posted by
Read More

Friday, May 20, 2011

Source Code untuk Mengetahui Persentase CPU yang terpakai

  Author : Wakjoe     No comments
12:01 AM

Berikut ini adalah cara yang teman - teman dapat gunakan untuk mengetahui jumlah persentase dari CPU yang terpakai. Cara manual untuk melihat ini adalah dengan membuka Windows Task Manager dan kemudian pilih tab Performance, di bagian CPU Usage akan terlihat presentase pemakaian CPU. Bila teman - teman ingin mendapatkan data tersebut secara otomatis melalui syntak maka dapat menggunakan syntak di bawah ini :

strLineProcessorTime=""
objWMIService = GetObject("winmgmts:\\.\root\CIMV2") 
colItems = objWMIService.ExecQuery(;
 "SELECT * FROM Win32_PerfFormattedData_PerfOS_Processor"+;
 " WHERE Name = '_Total'") 
For Each objItem In colItems    
 strLineProcessorTime = strLineProcessorTime + " " +;
  objItem.PercentProcessorTime 
endfor
strLineProcessorTime=ROUND(val(strLineProcessorTime),0)
?strLineProcessorTime

Dengan menjalankan syntak diatas, maka teman - teman akan mendapatkan jumlah nilai dari CPU yang terpakai dalam satuan persen yang sudah di tampung dalam variable strLineProcessorTime. Bila teman - teman ingin mengembangkan kreasi lagi, untuk dapat mengetahui jumlah nilai pemakaian CPU secara real time, maka bisa menaruh syntak diatas ke dalam procedure timer di kontrol timer dan kemudian menampilkan nilainya ke dalam grafik atau progress bar.


SELAMAT MENCOBA...!!

Posted by
Read More

Thursday, May 19, 2011

Source Code untuk Mendapatkan Informasi MAC Address

  Author : Wakjoe     No comments
12:01 AM

Berikut ini adalah cara yang dapat teman - teman gunakan bila ingin mendapatkan informasi mengenai MAC Address yang ada di Network Card di suatu PC atau Laptop. Sebelumnya mungkin teman - teman harus tau dulu apa itu MAC Address. MAC Address (Media Access Control Address) adalah sebuah alamat jaringan yang diimplementasikan pada lapisan data-link dalam tujuh lapisan model OSI, yang merepresentasikan sebuah node tertentu dalam jaringan. Dalam sebuah jaringan berbasis Ethernet, MAC address merupakan alamat yang unik yang memiliki panjang 48-bit (6 byte) yang mengidentifikasikan sebuah komputer, interface dalam sebuah router, atau node lainnya dalam jaringan. MAC Address juga sering disebut sebagai Ethernet address, physical address, atau hardware address.

MAC Address ini biasanya digunakan untuk mengidentifikasi sebuah PC atau laptop yang terkonek ke sebuah jaringan. Dalam beberapa jaringan privat biasanya para administrator jaringan akan menggunakan MAC Address ini untuk mengidentifikasi siapa saja yang boleh mengakses ke jaringan tertentu. Bila teman - teman ingin mencoba mendapatkan data MAC Address di dalam PC atau Laptop melalui source code, bisa menggunakan syntak berikut ini :

cMacAddress=""
objWMIService = GetObject("winmgmts:"+;
 "{impersonationLevel=impersonate}!\\.\root\cimv2")
colItems = objWMIService.ExecQuery(;
 "Select * From Win32_NetworkAdapterConfiguration")
For Each objItem in colItems
 IF varTYPE(objItem.MACAddress)="C"
  cMacAddress=cMacAddress+objItem.MACAddress+","
  endif
endfor
?cMacAddress

Setelah menjalankan syntak diatas maka teman - teman telah mendapatkan informasi MAC Address yang sudah ditampung di dalam variable cMacAddress. Perlu diketahui setiap PC atau Laptop mungkin akan memiliki MAC Address lebih dari satu, tergantung dari jumlah Network Card yang terinstal. Bila terdapat lebih dari satu MAC Address maka di variable cMacAddress juga akan berisi lebih dari satu MAC Address yang dipisahkan dengan koma (,).


SELAMAT MENCOBA...!!

Posted by
Read More

Wednesday, May 18, 2011

Alternatif Cara untuk Menjalankan Aplikasi atau File Eksternal dari VFP

  Author : Wakjoe     No comments
12:01 AM

Berikut ini adalah alternatif cara yang teman - teman dapat gunakan untuk menjalankan Aplikasi atau File Eksternal dari Visual Foxpro. Ada beberapa alternatif source code yang dapat digunakan untuk melakukan hal ini, baik dari syntak bawaan Visual Foxpro, melalui Winapi atau melalui script objek bawaan VBScript. Mungkin kita langsung aja mencoba alternatif - alternatif tersebut. Berikut ulasannya :

Cara Pertama (Menggunakan Syntak Bawaan Visual Foxpro)
Source code bawaan Visual Foxpro yang digunakan menjalankan aplikasi dan file eksternal adalah sebagai berikut :

[ RUN / ! ] /N (Nama Aplikasi Eksternal)

Contoh 1

RUN /N Notepad

Contoh 2

! /N "C:\Program Files\Adobe\Reader 9.0\Reader\Acrord32.exe" ;
 "C:\Tutorial.pdf"

Beberapa hal yang harus diperhatikan dalam menggunakan syntak bawaan Visual Foxpro dengan cara pertama diatas adalah sebagai berikut :

  1. Klausa RUN bisa diganti dengan ! 
  2. Klausa /N artinya adalah No Waiting, bila teman - teman menghilangkan klausa tersebut maka aplikasi eksternal yang dijalankan akan diiringi dengan sebuah konsol, dan konsol tidak akan hilang sampai teman - teman menutup aplikasi tersebut.
  3. (Nama Aplikasi Eksternal) adalah sebuah aplikasi atau file dengan ekstensi exe. Bila aplikasi tersebut adalah bawaan windows atau sudah diregistrasikan maka teman - teman bisa langsung mencantumkan nama aplikasi tersebut seperti pada Contoh 1. Akan tetapi secara normal teman - teman harus mencantumkan path lengkap untuk memanggilnya seperti Contoh 2, saat menjalankan aplikasi acrobat reader.
  4. Bila teman - teman ingin menjalankan file eksternal seperti Contoh 2 yaitu ingin menjalankan file dengan format PDF maka teman - teman harus mencantumkan default aplikasi untuk membaca file tersebut dan kemudian baru diikuti nama file eksternal yang ingin dibuka.

Cara Kedua (Menggunakan Function Shellexecute di WinAPI)
Alternatif lain dengan lebih banyak pilihan adalah dengan menggunakan function Shellexecute di WinAPI seperti di bawah ini :

&& Deklarasi ini harus dijalankan dulu sebelum menjalankan contoh - contoh di bawah
DECLARE INTEGER ShellExecute IN shell32;
    INTEGER hwnd,; 
    STRING  lpOperation,; 
    STRING  lpFile,; 
    STRING  lpParameters,;  
    STRING  lpDirectory,; 
    INTEGER nShowCmd

Contoh 1

ShellExecute(0, "Open", "Notepad", "", "", 1)

Contoh 2

ShellExecute(0, "Open", ""C:\Tutorial.pdf"", "", "", 1)

Dengan menggunakan cara kedua ini kita akan lebih banyak mempunyai opsi dalam melakukan pemanggilan aplikasi file eksternal. Berikut kelebihannya :

  1. Tidak harus menyertakan default aplikasi untuk menjalankan sebuah file, contohnya bila ingin membuka file pdf kita tinggal tentukan aja lokasi dan nama filenya tanpa menentukan letak default aplikasi untuk membuka file pdf tersebut seperti cara pertama.
  2. Saat membuka aplikasi ada berbagai pilihan tampilan yang ditunjukkan pada angka 1 yang berwarna merah, pilhan selengkapnya adalah (0) Hide - Menjalankan aplikasi tetapi tidak menampakkan jendela aplikasinya, (1) Normal - Menjalankan aplikasi dengan tampilan default, (2) Minimized - Menjalankan aplikasi dengan jendela di Minimize, (3) Maximized - Menjalankan aplikasi dengan jendela di Maximized
  3. Selain itu teman - teman juga bisa memberikan parameter dan default directory untuk menjalankan aplikasi jika memang diperlukan.

Cara Ketiga (Menggunakan Objek Wscript Shell)
Alternatif terakhir untuk menjalankan aplikasi atau file eksternal ini menggunakan Objek Wscript Shell. Berikut cara penggunaannya :

Contoh 1

cRun=CREATEOBJECT("wscript.shell")
cRun.Run("notepad",1)

Contoh 2

cRun=CREATEOBJECT("wscript.shell")
cRun.Run("c:\tutorial.pdf",1)

Dengan cara yang ketiga ini teman - teman tetap bisa mengatur tampilan jendela aplikasi berdasarkan angka 1 yang berwarna merah dan selain itu cara pemanggilan file eksternal juga tidak harus disertai pemanggilan default aplikasinya. 

Untuk menentukan cara mana yang akan digunakan terserah teman - teman mana yang dianggap lebih sederhana dan mudah cara pakainya. Yang tepenting ada alternatif cara yang dapat dipilih, jadi jika satu cara dirasa tidak sesuai dengan keinginan maka bisa mencoba cara yang lain.



SEMOGA BERMANFAAT...!! 

Posted by
Read More

Tuesday, May 17, 2011

Source Code untuk Mengetahui Nama & Kapasitas Processor yang Dipakai

  Author : Wakjoe     No comments
12:01 AM

Berikut ini adalah cara yang dapat teman - teman gunakan untuk mengetahui Nama dan Kapasitas Processor yang sedang dipakai di dalam PC atau Laptop. Cara manual untuk melakukan ini sebenarnya mudah, hanya dengan melakukan klik kanan di My Computer - Properties. Di sana ada informasi mengenai nama dan kapasitas memory yang dimiliki oleh Processor yang sedang dipakai. Tetapi bila teman - teman ingin mendapatkan informasi mengenai Nama dan Kapasitas Processor yang sedang dipakai tersebut secara otomatis, yang nantinya mungkin dapat teman - teman gunakan sebagai pedoman pada aplikasi yang teman - teman buat maka bisa menggunakan source code di bawah ini :

objWMIService = GetObject("winmgmts:" ;
 + "{impersonationLevel=impersonate}!\\" + "."+ "\root\cimv2")
colItems  =  objWMIService.ExecQuery( ;
 "Select  *  from  Win32_Processor")
For  Each  objItem  in  colItems
  cName = objItem.Name
Endfor

Variable cName telah terisi dengan informasi mengenai Nama dan Kapasitas Processor yang sedang teman - teman pakai. Sebagai tambahan sebenarnya teman - teman bisa mendapatkan informasi lain mengenai Processor yang sedang dipakai dengan menggunakan source code bawaan Visual Foxpro di bawah ini .

GETENV("PROCESSOR_ARCHITECTURE")
GETENV("PROCESSOR_IDENTIFIER")
GETENV("PROCESSOR_LEVEL")
GETENV("NUMBER_OF_PROCESSORS")
GETENV("PROCESSOR_REVISION")



SELAMAT MENCOBA...!!

Posted by
Read More
Subscribe to: Posts ( Atom )