Membuat Simple Task manager dengan Visual Basic 6.0

Langsung aja ya..

-          Seperti biasa buka Visual Basic pilih standard.Exe

-           

-          Kemudian tambahkan 2 label, 1 listbox, 3 command Button, 2 Checklist, 1 module dengan nama MODApi

Buat Propertiesnya :

                Form1

                                BorderStyle : None

                Label1 (Cuma buat judul aplikasi)

                                Caption : Task Manager

                Label2

                                Caption : X

                Command1

                                Name : cmdEndTsk

                                Capyion : End Task

                Coomand2

                                Name : cmdRefresh

                                Caption : Refresh

                Command3

                                Name : cmdToogle

                                Caption : Toogle

                CheckList1

                                Name : chk1

                                Caption : Window terlihat

                CheckList2

                                Name : chk2

                                Caption : Window Tersembunyi

Kurang lebih ya seperti ini..

Buat modulnya scriptnya seperti berikut :

Option Explicit

Public Const SW_HIDE = 0

Public Const SW_SHOW = 5

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _

( _

  ByVal hWnd1 As Long, _

  ByVal hWnd2 As Long, _

  ByVal lpsz1 As String, _

  ByVal lpsz2 As String _

) As Long

Public Declare Function GetWindowText Lib "user32" _

Alias "GetWindowTextA" _

( _

  ByVal hwnd As Long, _

  ByVal lpString As String, _

  ByVal cch As Long _

) As Long

Public Declare Function lstrlen Lib "kernel32" _

Alias "lstrlenA" _

( _

  ByVal lpString As String _

) As Long

Public Declare Function GetClassName Lib "user32" _

Alias "GetClassNameA" _

( _

  ByVal hwnd As Long, _

  ByVal lpClassName As String, _

  ByVal nMaxCount As Long) As Long

Public Declare Function SendMessage Lib "user32" _

Alias "SendMessageA" _

( _

  ByVal hwnd As Long, _

  ByVal wMsg As Long, _

  ByVal wParam As Long, _

  lParam As Any _

) As Long

Public Declare Function IsWindowVisible Lib "user32" _

( _

  ByVal hwnd As Long _

) As Long

Public Declare Function ShowWindow Lib "user32" _

( _

  ByVal hwnd As Long, _

  ByVal nCmdShow As Long _

) As Long

------------------------------------------------------------------------------------------------------------------------------------------

Kemudian masukkan script berikut di form1,

------------------------------------------------------------------------------------------------------------------------------------------

Option Explicit

Dim hWndTGT As Long

Private Sub cmdEndTsk_Click()

If hWndTGT = 0 Then Exit Sub

SendMessage hWndTGT, &H112, &HF060, 0

End Sub

Private Sub cmdRefresh_Click()

Dim hWndx As Long

Dim lpStr As String * 255

Dim cnt As Integer

Dim lpClassName As String * 255

List1.Clear

hWndx = FindWindowEx(0, 0, vbNullString, vbNullString)

Do

GetWindowText hWndx&, lpStr, 255

GetClassName hWndx&, lpClassName$, 255

If chk1.Value And chk2.Value Then

GoTo IsiData

ElseIf chk1.Value Then

If IsWindowVisible(hWndx) Then

GoTo IsiData

End If

ElseIf chk2.Value Then

If Not IsWindowVisible(hWndx) Then

GoTo IsiData

End If

End If

Ulangi:

hWndx = FindWindowEx(0, hWndx, vbNullString, vbNullString)

DoEvents

Loop While hWndx > 0

Exit Sub

IsiData:

cnt = List1.ListCount

List1.AddItem Left$(lpStr, lstrlen(lpStr)) + " (" + _

Left$(lpClassName, lstrlen(lpClassName)) + ")"

List1.ItemData(cnt) = hWndx

GoTo Ulangi

End Sub

Private Sub cmdToggle_Click()

If IsWindowVisible(hWndTGT) Then

ShowWindow hWndTGT, SW_HIDE

Else 'bila tersembunyi maka

ShowWindow hWndTGT, SW_SHOW

End If

End Sub

Private Sub Label2_Click()

End

End Sub

Private Sub List1_Click()

hWndTGT = List1.ItemData(List1.ListIndex)

End Sub

Setelah selesai silahkan tekan F5, kalau gak mau ribet silahkan download di sini aj sourcenya..

Selamat Mencoba..

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi, software, dan tutorial

Artikel Membuat Simple Task manager dengan Visual Basic 6.0 ini dipublish oleh Unknown pada hari Minggu, 16 September 2012. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 0 komentar: di postingan Membuat Simple Task manager dengan Visual Basic 6.0