Cara Membuat Smad Lock Seperti Smadav Dengan VB6
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
Demikian artikel tentang Cara Membuat Smad Lock Seperti Smadav Dengan VB6 ini dapat kami sampaikan, semoga artikel atau info tentang Cara Membuat Smad Lock Seperti Smadav Dengan VB6 ini, dapat bermanfaat. Jangan lupa dibagikan juga ya! Terima kasih banyak atas kunjungan nya.