Trik Menuliskan Teks pada Form

Postingan saya yang berjudul Mengunci Desktop dengan Printscreen belumlah lengkap kalau belum ada kata kunci atau password untuk membukanya. Keaneka ragaman penulisan kata kunci merupakan daya tarik bagi para pembuat program, ada yang standar2 saja yaitu dengan menggunakan kotak TextBox, ada yang dengan input Bok dls. Dan penulisan kata kunci dalam project Mengunci Desktop ini, saya akan menggunakan trik bagaimana menuliskan kata kunci langsung pada Form, yang tentunya sesuai dengan judulnya yaitu Menuliskan Password pada Form. Ok kita langsung saja melihat code dibawah ini.

'letakan kode form General

Dim teki As Variant
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

'Letakan kode2 ini pada form event
Private Sub Form_KeyPress(KeyAscii As Integer)
'Jika ingin teks langsung nampak di form
'me.currentx=me.width /2 'titik awal penampakan teks
'me.currenty=me.height /2
'Me.Print Chr$(KeyAscii);
'jika mau diwaklikan ke Label, agar font mudah diset.
Label1.Caption = Label1.Caption + Chr$(KeyAscii)
If KeyAscii = 13 Then ' jika tombol keyboard = enter
If Label1.Caption = "tekateki" & Chr(13) Then '"tekateki"= pasword yg tersembunyi
MsgBox "Blaaaa..."
Unload Me
Else
MsgBox "paswd salah"
teki = ""
Label1.Caption = ""
'mengembalikan titik awal penulisan pd form. Jika tidak diwaklikan pd Label1.
'me.currentx=me.width /2
'me.currenty=me.height /2
End If
End If
End Sub

Private Sub Form_Paint()
Me.Cls
keybd_event VK_H, 0, 0, 0 ' press H
keybd_event VK_H, 0, KEYEVENTF_KEYUP, 0 ' release H
keybd_event VK_E, 0, 0, 0 ' press E
keybd_event VK_E, 0, KEYEVENTF_KEYUP, 0 ' release E
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_L, 0, 0, 0 ' press L
keybd_event VK_L, 0, KEYEVENTF_KEYUP, 0 ' release L
keybd_event VK_O, 0, 0, 0 ' press O
keybd_event VK_O, 0, KEYEVENTF_KEYUP, 0 ' release O
End Sub

Private Sub Form_Resize()
Label1.Left = Me.ScaleWidth / 2
Label1.Top = Me.ScaleHeight / 2
End Sub

Untuk trik pergantian isi pasword, anda dapat mengembangkan sendiri dengan cara2 seperti menyimpan dan meload teks dari system.

Jika semua berjalan lancar maka sekarang anda sudah dapat menutup screen Desktop komputer, agar komputer tidak dapat dipake oleh orang lain, selain orang yang tahu paswordnya. dengan catatan komputer nampak tidak seperti terkunci, namun tidak merespon Mouse.

Sebetelunya masih ada syntax2 yang harus mendukung terhadap kinerja program ini, sebab sekalipun mouse tidak direspon oleh program ini, akan tetapi keyboard masih tetap bisa aktif. Jadi program ini masih tetap bisa di shut down dengan cara menekan tombol Alt , Ctrl + Del. (EndTask). Dan berhubung Postingan yang terlalu panjang bikin cepet bosen, maka sabar saja, pasti akan saya hadirkan pada tulisan berikutnya. Sampai jumpa..!