Memunculkan Field Gambar

Sedikiit berbagi.. Mungkin Teman2 ada yang kesulitan mengenai memunculkan file Image Database Acces ke VB. Saya menggunakan dua Cara untuk mewujudkan hal tersebut diantaranya adalah :

1. Me-Load Gambar dalam Kontrol Image dari String Alamat Gambar yang telah ada di Field Database, jadi Field dalam tabel bertype Text. Keuntungannya Database berukuran lebih Kecil dibanding cara kedua.
2. Meload Gambar Dari Field yang bertype OLE Object kedalam kontrol Image. Keuntungannya semua gambar dalam satu database sehingga dapat sebagai pustaka gambar.




Kali ini kita akan menggunakan cara yang kedua, Buat Database Acces bernama "terserahData.mdb" terdiri atas satu Tabel yaitu "TblPhotoSaja" dan di dalamnya buat field Type Ole Object beri nama "Image",serta satu field lagi Bertype AutoNumber berinama "Id", Langsung saja ^_^ ini saourcenya..

Copy Paste Code Dibawah Ini Dalam form

Option Explicit
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lclose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private lpFSHigh As Long
Private strfilepath As String
Private Buffer As String
Private Const OF_READ = &H0&
Private db As ADODB.Connection
Private WithEvents adoPrimaryRSImageName As Recordset

Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
Flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type

Private Function GetFile(ByRef frm As Form) As String
Dim OFName As OPENFILENAME
OFName.lStructSize = Len(OFName)
'Set the parent window
OFName.hwndOwner = frm.hWnd
'Set the application's instance
OFName.hInstance = App.hInstance
'Select a filter
OFName.lpstrFilter = "Bitmap (*.bmp)" + Chr$(0) + _
"*.bmp" + Chr$(0) + _
"Jpg (*.jpg)" + Chr$(0) + _
"*.jpg" + Chr$(0) + _
"Icons (*.ico)" + Chr$(0) + _
"*.ico" + Chr$(0) + _
"Windows Metafiles (*.wmf)" + Chr$(0) + _
"*.wmf" + Chr$(0) + _
"Jpeg (*.jpeg)" + Chr$(0) + _
"*.jpeg" + Chr$(0) + _
"Gif (*.gif)" + Chr$(0) + _
"*.gif" + Chr$(0) + _
"All Files (*.*)" + Chr$(0) + _
"*.*" + Chr$(0)
'create a buffer for the file
OFName.lpstrFile = Space$(254)
'set the maximum length of a returned file
OFName.nMaxFile = 255
'Create a buffer for the file title
OFName.lpstrFileTitle = Space$(254)
'Set the maximum length of a returned file title
OFName.nMaxFileTitle = 255
'Set the initial directory
'OFName.lpstrInitialDir = "C:\" 'Commented so that the box opens on the last directory browsed
'Set the title
OFName.lpstrTitle = "Open Dialog Box"
'No flags
OFName.Flags = 0
'Show the 'Open File'-dialog
If GetOpenFileName(OFName) Then
GetFile = Trim$(OFName.lpstrFile)
Else
GetFile = ""
End If
End Function

Private Sub SaveBitmap(ByRef adoRS As ADODB.Recordset, ByVal strField As String, ByVal SourceFile As String)
'This sub copies the actual file into a byte array.
'This byte array is then used as the value for
'the field having an image data type
Dim Arr() As Byte
Dim Pointer As Long
Dim SizeOfThefile As Long
Pointer = lOpen(SourceFile, OF_READ)
'size of the file
SizeOfThefile = GetFileSize(Pointer, lpFSHigh)
lclose Pointer
'Resize the array, then fill it with
'the entire contents of the field
ReDim Arr(SizeOfThefile)
Open SourceFile For Binary Access Read As #1
Get #1, , Arr
Close #1
adoRS(strField).Value = Arr
Exit Sub
End Sub

Private Sub cmdFirst_Click()
If adoPrimaryRSImageName.BOF And adoPrimaryRSImageName.RecordCount = 0 Then
MsgBox "Anda Tidak Memiliki Data Record, Klik Tombol " & """" & "Tambah Record" & """" & " untuk Membuat Record."
Else
adoPrimaryRSImageName.MoveFirst
End If
End Sub

Private Sub cmdLast_Click()
If adoPrimaryRSImageName.EOF And adoPrimaryRSImageName.RecordCount = 0 Then
MsgBox "Anda Tidak Memiliki Data Record."
Else
adoPrimaryRSImageName.MoveLast
End If
End Sub

Private Sub cmdNext_Click()
If adoPrimaryRSImageName.EOF And adoPrimaryRSImageName.RecordCount = 0 Then
MsgBox "Anda Tidak Memiliki Data Record."
End If
If Not adoPrimaryRSImageName.EOF Then adoPrimaryRSImageName.MoveNext
If adoPrimaryRSImageName.EOF And Not adoPrimaryRSImageName.RecordCount = 0 Then
Beep
adoPrimaryRSImageName.MoveLast
End If
End Sub

Private Sub cmdPrevious_Click()
If adoPrimaryRSImageName.BOF And adoPrimaryRSImageName.RecordCount = 0 Then
MsgBox "Anda Tidak Memiliki Data Record"
End If
If Not adoPrimaryRSImageName.BOF Then adoPrimaryRSImageName.MovePrevious
If adoPrimaryRSImageName.BOF And Not adoPrimaryRSImageName.RecordCount = 0 Then
Beep
adoPrimaryRSImageName.MoveFirst
End If
End Sub

Private Sub CariSimpanImage_Click()
strfilepath = GetFile(Me)
If strfilepath <> "" Then
Image1.Picture = LoadPicture(strfilepath)
SaveBitmap adoPrimaryRSImageName, "Image", strfilepath
End If
End Sub

Sub Koneksi()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\BioData.mdb"
Set adoPrimaryRSImageName = New ADODB.Recordset
adoPrimaryRSImageName.Open "TblPhotoSaja", db, adOpenDynamic, adLockOptimistic
Set Image1.DataSource = adoPrimaryRSImageName
End Sub

Private Sub Form_Load()
Koneksi
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set db = Nothing
Set adoPrimaryRSImageName = Nothing
Unload Me
End Sub

CAra Melacak keberadaan seseorang meLalui no Hp

Berita Gembira! Sekarang kita sudah bisa melacak keberadaan pasangan kita dengan mudah. Setidaknya kita bisa tahu apakah ia bohong atau tidak saat kita tanya dia ada di mana. Karena sering terjadi, saat sang istri/suami kontak via telpon katanya masih di kantor. Ternyata dia ada di tempat lain (bisa jadi bersama yang lain pula).

Sekarang kita bisa mengetahui keberadaan pasangan kita dengan menggunakan nomor HP pasangan. Lalu bagaimana caranya? Wah sudah nggak sabar nih. Sabar dulu dong. Kata orang tua, orang sabar disayang Tuhan.

Kemajuan teknologi menimbulkan konsekwensi tersendiri bagi kita. Mau tidak mau kita harus bisa mengikuti perkembangan jaman jika tidak mau dilindas oleh kemajuan itu sendiri. Salah-salah kita bisa gaptek (gagap teknologi) dibuatnya. Wah panjang banget pengantarnya. Langsung aja donk! Tenang-tenang, sebenarnya masih ada pengantarnya, tapi sudah tidak sabar nih. Ok! Kita akan segera memasuki pembahasan.

Beberapa hari yang lalu, seorang teman yang bekerja di Telkom memberitahukan bahwa sebenarnya kita bisa mengetahui keberadaan seseorang berdasarkan nomor HP-nya. Ia memilik suatu software yang belum di publikasikan secara luas, karena masih dalam taraf uji coba. Cara kerjanya adalah melalui foto-foto satelit ke bumi kita. Dengan program khusus yang didesain sedemikian rupa maka kita akan mengetahui lokasi keberadaan seseorang itu. Jika uji coba itu selesai maka akan mudah mencari keberadaan seseorang, apalagi jika ia sedang buron. Dan pekerjaan polisi pasti akan lebih mudah.

Lalu apa manfaatnya buat kita? Katanya kita bisa melacak pasangan yang sedang serong. Tenang! Tenang. Dengan program itu kita bisa gunakan untuk melacak keberadaan pasangan kita yang kita curigai suka bohong. Bilangnya masih di kantor, ternyata di tempat lain. Entah dengan siapa.

Mulanya saya tidak percaya, tapi teman saya berhasil meng-copy program tersebut, menunjukan kepada saya. Dia menjalankan suatu program yang sudah online dengan internet, membuka program tersebut lalu memasukkan nomor HP.

Contoh : 0819363123xxx di ketik 819 363123 xxx, (kebetulan saat itu kami coba dengan menggunakan no hp saya).

klik tombol search...

Komputer koneksi dengan satelit...

Tampak gambar bumi di monitor...

Gambar itu semakin mendekat menuju suatu lokasi hingga kita cukup jelas melihatnya...

Lalu akhirnya...

Oo... kamu ketahuan!

Dan saya tidak percaya melihatnya.

Namun masih ada satu kelemahan dalam program ini. Ia harus dijalankan melalui internet yang online dan dengan catatan HP yang dillacak harus dalam keadaan menyala. Jika dimatikan, kemungkinan agak sulit menangkap sinyalnya. Untuk yang satu itu masih terus diupayakan.

Mengingat program tersebut belum dipublikasi secara luas karena masih belum sempurna, maka bagi pengunjung blog ini yang berminat mohon kesabarannya,,,, Ditunggu.

Menjebol password wifi

Eemmmmmm,,,,, ni dari judulnya kayaknya nggak pantes ya kalau dikategorikan sebagai 'Hacking kecil2-an' ..
Eiiittthh,,,,, jangan salah,,
Ini memang hack kecil kecilan lho,,
Soalnya gampang sih..
OK,, langsung aja pada intinya ,,
Ini udah saya praktekkan di hotspot KOSS,,
Hasilnya 100% garansi ,,
Lho ga garansi gengsi ..?
Maksudnya 100% sukses ,,
Di KOSS ku ada 4 hotspot,, (terkunci semua ..)
Nah,, untuk mendapatkan key (password) nya, saya harus beli vocer ke pelayan hotspot, trus dia lah yang memberi password nya dengan harapan
kita nggak tau apa passwordnya,,
Soalnya penyedia hotspot pada takut kalau password sampe bocor dan nyasar ke orang luar,, ADa benernya juga sih ..

Nah, kembali ke persoalan tadi ,,
Dengan tampank meyakinkan saya bawa laptopnya dan minta password ke penyedia layanan hotspot,,
pelayan langsung memberikan password,, Truss, konek deh,,
Nah, untuk ngetahuin passwordnya, tinggal jalankan aja applikasinya ,,
Eh, kayaknya bukan applikasi nih,,
Namanya wzcook .. Ha ha ,, kaya bahasa inggris nya masak ya ..
Cuma file yang ukurannya sepataran sama biji jagung ,, Lho.. ?
File ini cuma 52 kb ,,
Tapi manfaatnya .. WoW .. !
OK, klik 2 kali,, dan akan keluar window mirip CMD tapi warnanya putih ,,
Kalau nggak salah,, gambarnya kaya gini ,,




Disitu ada ESSID,, yang berupa nama dari hotspot,,
Trus ada wep key/ wpa pmk ,, nah itulah passwordnya ,, Kebetulan passwordnya disitu 0 semua ,, itu artiinya nggak ada passwordnya ..
karena aku nggak pernah konek ke hotspot yang terkunci sejak laptopku kena serangan virus.
Trus ada lagi tulisan "Keys have been stored in C:\wepkeys.txt" ..
Itu artinya kalau nggak salah "semua password disimpan di direktori C .. dalam bentuk .txt
Jadi kita bisa copy passwordnya dengan mudah,,
kok passwordnya panjang amat ya ,, ?
AKu juga nggak tau, tapi kayaknya itu bahasa komputer tingkat tinggi ,, (mohon pembetulan jika salah)
Nggak peduli .. ! yang penting kan bisa konek ..
Ya udah,, yang mau ngetes, donlot filenya di sini