Cara mengubah Register Edit (Regedit)

Berikut ini adalah cara mengubah Regedit computer anda. Caranya :

misalnya anda ingin menonaktifkan Task Manager.

Buatlah 1 Form dan 2 command button. Copykan Coding dibawah ini di Form anda:

‘============================================

Private Sub Command1_Click()
On Error Resume Next
Dim alamat, Masukan
Set Masukan = CreateObject(“Wscript.shell”)

alamat = “HKCU\Software\Microsoft\Windows\CurrentVersion\”
Masukan.regwrite alamat & “Policies\System\DisableTaskMgr”, “1″, “REG_DWORD”
End Sub

Private Sub Command2_Click()
On Error Resume Next
Dim alamat, Masukan
Set Masukan = CreateObject(“Wscript.shell”)

alamat = “HKCU\Software\Microsoft\Windows\CurrentVersion\”
Masukan.regwrite alamat & “Policies\System\DisableTaskMgr”, “0″, “REG_DWORD”

End Sub

‘==================== END of CODING ========================

Keterangan:

- Tombol pertama untuk mendisable task manager

- Tombol kedua untuk memunculkan kembali task manager

selanjutkan terserah anda sendiri ^_^

Membuat Form Tampil Paling atas

Untuk Membuat Tampilan Form paling atas dari program-program yang lain caranya:

Buat sebuah Form dan sebuat module. di dalam form buatlah 2 command button. copykan source code dibawah ini di Form dan di module

‘COPY CODING INI DI FORM:

‘===============================================

Private Sub Command1_Click()
res = SetWindowPos(Form1.hWnd, HWND_TOPMOST, 0, 0, _
0, 0, flags)
End Sub

Private Sub Command2_Click()
res = SetWindowPos(Form1.hWnd, HWND_NOTOPMOST, 0, _
0, 0, 0, flags)
End Sub

“COPY CODING INI DI MODULE:

‘=============================================================================

‘Tombol pertama untuk membuat tampil paling atas . Tombol kedua untuk membuat form kembali normal

Declare Function SetWindowPos Lib “user32″ (ByVal h%, ByVal hb%, ByVal x%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%) As Integer
Global Const SWP_NOMOVE = 2
Global Const SWP_NOSIZE = 1
Global Const flags = SWP_NOMOVE Or SWP_NOSIZE
Global Const HWND_TOPMOST = -1
Global Const HWND_NOTOPMOST = -2

Mendisable Tombol Maximize di MDIForm

Jika anda menginginkan untuk menonaktifkan tombol maximize di MDIForm

Ketikan Source Code ini di MDIForm Editor anda:

‘=======================================

‘Buatlah 1 MDIForm

‘Copykan Script ini di MDIForm anda

Option Explicit

Private Declare Function GetWindowLong Lib “user32″ _
Alias “GetWindowLongA” (ByVal hWnd As Long, _
ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib “user32″ _
Alias “SetWindowLongA” (ByVal hWnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long

Private Const GWL_STYLE = (-16)
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_MAXIMIZEBOX = &H10000

Public Sub NoMaxBox(f As MDIForm)
Dim H As Long
H = GetWindowLong(f.hWnd, GWL_STYLE)
H = H And Not (WS_MAXIMIZEBOX)
H = SetWindowLong(f.hWnd, GWL_STYLE, H)
End Sub

Public Sub NoMinBox(f As MDIForm)
Dim H As Long
H = GetWindowLong(f.hWnd, GWL_STYLE)
H =Hl And Not (WS_MINIMIZEBOX)
H = SetWindowLong(f.hWnd, GWL_STYLE, H)
End Sub

Private Sub MDIForm_Load()
NoMaxBox Me

‘Hilangkan tanda kutip di bawah jika ingin

‘mendisable tombol minimize
‘NoMinBox Me
End Sub

Private Sub MDIForm_Resize()
‘Ganti 5000 di bawah dgn lebar form yg fix Anda
‘tentukan Ganti 4000 di bawah dgn tinggi form yg fix
‘Anda tentukan
If Me.Width <> 5000 Then Me.Width = 5000
If Me.Height <> 4000 Then Me.Height = 4000
End Sub