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

01. Backlink Indonesia	26. Iklan Maluku Utara
02. Backlink Termurah	27. Iklan Nusa Tenggara Barat
03. Cara Membeli Backlink	28. Iklan Nusa Tenggara Timur
04. Iklan Aceh	29. Iklan Online Indonesia
05. Iklan Bali	30. Iklan Papua
06. Iklan Bangka Belitung	31. Iklan Papua Barat
07. Iklan Banten	32. Iklan Riau
08. Iklan Bengkulu	33. Iklan Semesta
09. Iklan Dunia	34. Iklan Sulawesi Barat
10. Iklan Gorontalo	35. Iklan Sulawesi Selatan
11. Iklan Internet	36. Iklan Sulawesi Tengah
12. Iklan Jakarta	37. Iklan Sulawesi Tenggara
13. Iklan Jambi	38. Iklan Sulawesi Utara
14. Iklan Jawa Barat	39. Iklan Sumatra Barat
15. Iklan Jawa Tengah	40. Iklan Sumatra Selatan
16. Iklan Jawa Timur	41. Iklan Sumatra Utara
17. Iklan Kalimantan Barat	42. Iklan Terbaru
18. Iklan Kalimantan Selatan	43. Iklan Yogyakarta
19. Iklan Kalimantan Tengah	44. Jaringan Backlink
20. Iklan Kalimantan Timur	45. Jasa Backlink
21. Iklan Kalimantan Utara	46. Jasa Backlink Murah
22. Iklan Kepulauan Riau	47. Jasa Backlink Terbaik
23. Iklan Lampung	48. Jasa Backlink Termurah
24. Iklan Link	49. Media Backlink
25. Iklan Maluku	50. Raja Backlink