Source Disable Task Manager

FreeSource | Source Disable Task Manager

Selamat siang sobat FESO, untuk postingan ke-2 dari website ini, saya admin FESO akan membagikan SourceCode yang unik untuk mengerjai teman, ya walaupun code ini sudah basi tetapi saya akan tetap membagikannya kepada anda yang belum pernah tahu code ini, ya langsung saja kita ke TKP :

Alat-Alat yang dibutuhkan :

• Visual Basic 6 Full Version / Portable (sama saja)
• Komputer
• Mouse
• Keyboard
• Jaringan Internet
• Harddisk Space Yang Cukup
• Teh ataupun coffee

Ikuti dulu langkah di bawah ini ya :

• Buka Visual Basic 6 Full Version / Portable
• Tambahkan sebuah Form
• Tambahkan 1 Buah Command Button beri nama "cmd Disable"
• Lalu Tambahkan sebuah Module dan beri nama "modTask"
• Masukkan Code Dibawah ini di dalam Module "modTask"

Option Explicit 

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean 

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 

Private Type NOTIFYICONDATA 

    cbSize As Long 

    hWnd As Long

    uId As Long

    uFlags As Long

    ucallbackMessage As Long

    hIcon As Long

    szTip As String * 64

End Type 

Private Const NIM_DELETE = &H2 

Public Function DisableTaskManager() 

    Dim tskWin As Long, t As NOTIFYICONDATA 

    Shell "taskmgr.exe", vbHide 

    Do Until tskWin <> 0 

        tskWin = FindWindow("#32770", "Windows Task Manager") 

    Loop 

    t.hWnd = tskWin

    Shell_NotifyIcon NIM_DELETE, t 

End Function 

Setelah itu Masukkan Code Di bawah ini ke dalam Code Form1 :
Option Explicit

Private Sub cmdDisable_Click() 

    DisableTaskManager 

End Sub 

Nah Tinggal di Run kan saja.

Silahkan Download Source Nya Dibawah Ini | RAR Password : www.vb6-freesource.blogspot.com

Baca Lagi

Source Membuat File .TXT Di VB6

FreeSource | Source Membuat File .TXT Di VB6

Selamat sore sobat FESO, hari ini saya akan membuat posting tentang Tutorial serta SourceCode dari cara membuat file .txt ataupun sebuah note, ya dari pada panjang banget basa basi nya lebih baik langsung menuju ke TKP!

Alat-Alat yang dibutuhkan :

• Visual Basic 6 Full Version / Portable (sama saja)
• Komputer
• Mouse
• Keyboard
• Jaringan Internet
• Harddisk Space Yang Cukup
• Teh ataupun coffee

Pertama, Kita akan membuat file .TXT / Note

• Buka Visual Basic 6
• Tambahkan Sebuah Form
• Tambahkan 1 TextBox dan Beri nama "txtTulisan"
• Tambahkan 1 Command Button dan Beri nama "cmdSimpan" ubah Captionnya Menjadi "Simpan!"
• Kemudian Tambahkan Code Dibawah Ini

Private Sub Command1_Click()

On Error Resume Next

Dim i As Integer

Open "c:\test.txt" For Output As #1

Print #1, Text1

Close #i

End Sub

~|===================================================|~
Kedua, Kita akan membuka file .TXT / Note

• Buka Visual Basic 6
• Tambahkan Sebuah Form
• Tambahkan 1 TextBox dan Beri nama "txtTulisan"
• Tambahkan 1 Command Button dan Beri nama "cmdBuka" ubah Captionnya Menjadi "Buka!"
• Pastikan File .txt Telah Diciptakan!
• Kemudian Tambahkan Code Dibawah ini!

Private Sub Command1_Click()

Dim i As Integer

i = FreeFile

Dim s As String, s1 As String

Open "c:\test.txt" For Input As #i

Do Until EOF(i)

Input #i, s

s1 = s1 & s & IIf(EOF(i), "", vbCrLf)

Loop

Close #i

Text1.Text = s1

End Sub

Silahkan Download Source Nya Dibawah Ini | RAR Password : www.vb6-freesource.blogspot.com

Baca Lagi