Deteksi Lokasi Windows Di VB 6.0
Bagi temen-temen programer VB nih da srcipt buat deteksi lokasi windows. Copy aja sript ini di form vb anda dan sediakan satu commandbutton dan beri nama "Command1" yaaa...
Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Sub Command1_Click()
Dim lokasi As String
Dim panjang As Integer
lokasi = Space(255)
panjang = GetSystemDirectory(lokasi, 255)
lokasi = Left(lokasi, panjang)
MsgBox "Lokasi Windows Ada Di " & Left(lokasi, 11), vbInformation
End Sub
Semoga bisa berguna buat program anda , tapi jangan buat bikin Virus yaa......... gak baik tuu......
contac use : WWW.waahyu_ku@yahoo.co.id