ok, sekarang buka MS VB 6.0 kalian..
buatlah satu form dengan satu Command Button
inti nya disini adalah kenapa folder ini tidak tertembus oleh (beberapa) virus kecuali morphiri (morphost) n Mr. J (Mr. J) dan beberapa yang lain virus indonesia adalah karna simbol Δ atau jenis lain yang dibuat melalui program VB dengan materi UNICODE yang membuat folder ini tidak bisa di hidden oleh BuluBebek / Nadia Shapira yang sering menghidden File anda di Flashdisk.
folder ini juga membuat applikasi yang ada di dalamnya tidak bisa di eksekusi.
kemampuan unicode bisa dibuat juga berbeda tiap komputer.tapi kalu lambang Δ dijamin ada.
ketikkan kode ini terlebih dahulu di codearea paling atas :
Private Declare Function BuatUnicode Lib "kernel32" _
Alias "CreateDirectoryW" (ByVal lpPathName As Any, _
lpSecurityAttributes As Long) As Long
'pendeklarasian buatunicode sebagai pembuat folder uniciode..dimana tampak jelas pada perbedaan "CreateDirectoryW" dan "CreateDirectoryA" yang mana huruf W dan A diakhir tersebut pembeda antara ANSI dan WIDECHAR....
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
'pemberian type SECURITY ATTRIBUTES pada directory yang kita buat....
ok sekarang ketikkan code berikut pada command button tsb :
Private Command1_Click( )
on error resume next
BuatUnicode StrPtr("C:\" & ChrW$(&h394) & " Smad-Lock " & chrw$(&h394)), VarPtr(SECURITY_ATTRIBUTES)End Sub
Chrw$(&h394) itu menandakan simbol segitiga (delta) smad-lock...
ok, selesai
0 komentar:
Posting Komentar