Membuat Tool sederhana untuk mereset password winlock pro menggunakan Visual Basic
Langsung saja kita buka aplikasi vb kita
1. Siapkan Form
2. Label1
3. Commondbutton1
4. Timer1




'Timer untuk menampilkan kalau Winlock tidak ada dalam Komputer akan tampil Winlock Not Found !!!
Dim status As Boolean
Private Sub Timer1_Timer()
status = Not (status)
If status Then
Label1.Caption = "WinLock Not Found !!!"
Else
Label1.Caption = ""
End If
End Sub
'Script untuk menghapus registry
Function Regdelete(HiveAndKey As String)
Dim NewBie As Variant
Set NewBie = CreateObject("Wscript.Shell")
NewBie.Regdelete HiveAndKey
End Function
'Apabila Program ini dijalankan akan check keberadaan program Winlock ada atau tidak lantas
'akan kirim informasi ke timer kalau tidak ada winlock label1 menyala kalau ada text akan sembunyi
Private Sub Form_Load()
On Error Resume Next
If Len(Dir$("C:\Program Files\WinLockPro\Winlock.exe")) = 0 Then
Label1.Visible = True
Else
Label1.Visible = False
End If
' untuk memposisikan form tepat ditengah layar monitor
Left = (Screen.Width - Width) \ 2
Top = (Screen.Height - Height) \ 2
End Sub
‘Tombol mematikan winlock.exe yang sedang berjalan di sistem
Private Sub Command1_Click()
Shell ("taskkill /F /IM winlock.exe")
On Error Resume Next
' menghapus tempat penyimpan password yang berada di registry
Regdelete ("HKCR\CLSID\{D1A17367-4546-PRT8-6A19-11OO4FFI823O}\ProgID\ID")
'menginformasikan kalau registry sudah dihapus
MsgBox "Password WinLock Profesional telah di Reset ", vbOKOnly, "Successfully !!!"
On Error Resume Next
'menjalankan kembali winlock
Shell "C:\Program Files\WinLockPro\Winlock.exe"
On Error Resume Next
'membuka paksa winlock agar tampil full
Shell "C:\Program Files\WinLockPro\Winlock.exe", vbNormalFocus
End
'Selesai
End Sub

Jika masih kesulitan ini source code vb silakan di rombak sesukanya
Salam

E.C THANKS to topeng digital