Cara Membuat Smad Lock Seperti Smadav Dengan VB6

Anda pasti tahu Smadav, yaitu sebuah Antivirus yang terbukti ampuh melawan virus-virus lokal di Indonesia.dan anda juga pasti tahu salah satu dari fitur Antivirus ini. Yaitu Smad Lock.

Bagaimana cara membuatnya? Disini saya akan memberi tahu anda bagaimana cara membuatnya .

Pertama, buat sebuah Command Button pada Form anda . Lalu masukkan code berikut kedalam Form anda .

Private Declare Function CreateDirectory Lib "kernel32" Alias "CreateDirectoryW" (ByVal lpPathName As Long, lpSecurityAttributes As Long) As Long
Public Function CreateFolder(sFolder As String)
CreateDirectory StrPtr(sFolder), VarPtr(SECURITY_ATTRIBUTES)
End Function

Private Sub Command1_Click()
CreateFolder "C:\" & ChrW$(816) & "S" & ChrW$(816) & "M" & ChrW$(816) & "AD" & " L" & ChrW$(216) & "CK"
MsgBox "Berhasil", vbInformation, "Tsendav"
End Sub