Jumat, 11 September 2009


ya allah bener kah dia menyayangi rheny setuluh hatinya
klo mang dya bener" syank ga cmm dimulutdya aj..tolong lancarkanlah perjalanan cinta ini .......
dan ap segala cobaan bisa qt lalui berdua ya allah.swt

tp klo dya bukan jodoh rheny
tlong hentikan hub nie sampe disini
rheny ga mw cm disakitin n menyakitin ht orang...

tlong jwb pertanyaan hATI RHENY ya ALLAH.SWT




KURNIAWAN CYANK RHENY

AYA LOPH NDA

MIZZ N LOPH U

Kamis, 06 Agustus 2009

boneka aq


nie boneka kesayang rhe
lucu bgt yach nie boeka naaaaaaaa

andai punya boneka y plin9 gede seperti nie...
hufh pasti seneng bgt "

loph_micky

Minggu, 26 Juli 2009

SMS BUAT PACAR

met malem yaa,,,, met bobo,,, jangan lupa berdoaa,,,
mimpi indahhhh,,, mimpiin akuu yaaa,,,, aku sayang kamuuu,,, jangan pernah tinggalin akuu yaaa,,,,,

===================================== Grin

Nih dah kusiapin makan siang yg istimewa buatmu: segelas cinta, sepiring rindu, semangkok sayang, sepotong kasih, secuil cemburu, dan sebuah doa.. Met maem yah..
=================================== Cool

1 pohöN bs jd HuTAN.

1 seNyumaN bs jd /HATiAN.

1 seNtuhAN bs jd Hal yg TAk TrlupAkAN

1 orANg sprTimu
bs jd rebutAN

======================================== Tongue

Hari hujan,, lihatlahh ke luar jendela. coba hitung titik air yang jatuh dari langit ! Sebanyak itulahh aku merindukanmu

============================================ Undecided

sms … sms … ada siapa disitu ? disini ada seseorang yang sayang denganmu. jika sayang denganku … sms balik donk …

=========================================== Angry

segitiga pny 3 titik ujung…segiempat pny 4 titik ujung…aku harap rasa syg qta sprti lingkaran yg tidak mempunyai titik akhir&tak berujung!!

========================================== Cheesy

burung butuh sayap agar dia bs terbang dgn sempurna!!
aku bth kamu tuk ngejalanin hidup ni&buat semuanya jd sempurna…
setiap hari ku peluk kamu dihati aku…
============================================== Wink

1x aku dilahirkan
1x aku hidup
1x aku akan mati
1 ayahku & 1 ibuku
1 cintaku…itu kmu…

====================================== Shocked

Aku mungkin bukan teman yang “sempurna” yg kamu cari, bukan juga yg “terbaik” diantara semuanya, tapi yang pasti aku adalah teman yang selalu ingat sama kamu

===================================== Kiss

ktika kmu tidur,kmu blh tu2p matamu..ktika kmu sedih,kmu blh tu2p matamu..ktika kmu mkn,kmu blh tu2p mulutmu..
tp jgn prnah kmu tu2p hatimu…krna didalamnya psti ada aku..
========================================== Shocked

“….Jikä
käü kecewä
dän b’sedih
krnä d’lükäi ücäpän Q,
….izinkän
kü hädir
meräwät
lükämü…
Krnä äkü…
JUAL PLESTER
Rp 500 @Biji
MAU BELI???

hehe bcanda, karna aku sayang kamu!!!!!
==================================================== Huh
aku ga brharap utk mnjadi orang yg trpntg dlm hidupmu..
itu permintaan yg trlalu bsr bagiku..
ak hanya brharap suatu saat nanti jk kau mlihatku..
kau akn trsenyum & brkata..
“dia slalu menyayangiku…
=========================================== Grin
Ga semua bunga bisa jd lambang cinta,tapi mawar bisa..ga semua pohon bisa berdiri kalau kehabisan air,tapi kaktus bisa..dan ga semua org bisa jd pacar yg baik,tapi kamu bisa….

=========================================== Smiley
“Akan kurangkai semua kata cinta yang ada di bumi ini, Jadikan seikat kembang agar kau tau semua isi hatiku..”

=======================================
“Seandainya bisa aku pengin menulis nama kamu di bintang, agar semua orang tau bahwa aku sangat mencintaimu”

===================================== Angry

Dalam Sayur Ada Kaldu…
Relung Hatiku Tersirat Rindu
Bukan Maksudku Tuk Bilang I Miss You…
Ataupun Bilang I Love You…
Aa cuman mau bilang
Sebelum Tidur Pipis Dulu…
===================================== Tongue
Kasih… Aku rindu padamu saat aku sedih. Aku rindu padamu saat aku sendiri. Tetapi aku paling merindukanmu saat aku bahagia
================================

xxx, xxx, xxx, xxx, xxx, xxx, aku ingin menulis sejuta kali namamu dihatiku. agar saat satu namamu terhapus, aku masih punya 999 ribu lagi. sehingga sampai matipun ga akan hilang namamu dihatiku…..

==================================== Cry

Setiap mlm
setiap detik….
ku slalu terbayang senyummu….
rambutmu yg sgt indah….
ingin rasanya selalu disampingmu slamanya.
trus…………..

Isiin Pulsa gw Yah say..kalo mw lanjutannya

========================================== Roll Eyes
percintaan kita dik!
seperti denting gitar akustik
lembut dan manis didengar
meski kadang kita bertengkar

========================================= Angry
Disaat hari panas maupun hujan , kamu selalu bawa mobilmu
Disaat aku lapar, kamu selalu ngirimin aku makanan delivery
Disaat aku pengen ganti handphone baru, kamu yang gesek kartu kreditmu
Disaat aku hamil, kamu dimana ?
======================================== Grin
aku berusaha memberikan cinta terbaik yang aku punya buat kamu . aku pastikan klo hatiku cuma buat kamu…. jadi jgn marah lagi ya sayang…..

======================================= Cheesy

Pagi ini gw bangun diantara orang2 yang gw sayangi. tp gw ngerasa kok masih ada yg kurang ya. setelah gw cari kemana2 akhirnya gw tau itu siapa. orang itu adalah kamu

==================================== Smiley

seuntai kata terungkap dari jiwa
seulas senyum memberi pesona
ku alun nada tapi tak bersuara
hanya lewat sms ini ku tuliskan sebuah kata
“aku mencintaimu”

=================================== Cry

Pokoknya apapun yg km lakukan, ak akan selalu ngedukung kamu…

karena didalam hati ak, km adalah no. 1…

dan kita harus saling mendukung

supaya apa yg kita cita2kan be2, bisa terjadi

Amin..

====================================== Kiss

jka aku dapat menarik pelangi d langit

maka akan ku bentuk namamu

dan kan ku kembalikan lagi ke langit

agar semua tau

betapa beruntungnya aku memilikimu

====================================== Cool

” di sudut hatimu mungkin pernah terbesit pertyan konyol… apa tangan ini akan menggenggam tgnmu selamanya? apa bibir ini akan selalu tersenyum utkmu selamanya? aoa pelukan ini akan selalu kuberikan pdmu selamanya? apa hati ini akan selalu mencintaimu? jika kau sudah mengetahui jawabannya… utk apa kau tanyakan? dan utk apa ku jwb? “
=============================== Sad

Tuhan tlg bantu dia Memejamkan matanya, temani dalam mimpi Indahnya agar besok pagi dia terbangun dengan senyum Maniznya, sampaikan padanya bahwa ku ingin jadi kekasih yg terbaik untuknya”

======================================= Grin

Jika waktu dapat berenti mengalir…
Aku berharap itu waktu kita sedang bahagia.
Jika waktu harus mengalir pergi…
Aku berharap kamu ga kan ngelupain aku.

=================================== Cheesy
satu tambah satu sama dengan dua..
mau gak mau lo jadian sama gua……..

===================================== Wink

oh betapa indahnya kamu membuat aq terasa terhanyut ketika melihat km kasihku

=================================== Shocked

Lupa agama?
===> ooops…
Neraka!
Lupa orang tua?
===> ich…
Durhaka!
Lupa sesama?
===> ach…
Byasa!
Tapi lupa ama kamu?
===> Ehm…
mana bisa! : )

=============================== Wink

kamu pernah bilang perasaan aku ke kamu pasti berubah tar, ga kaya pas pedekate lagi. dan aku bilang ga akan

ternyata iya, perasaan aku ke kamu dah berubah

semakin hari, semakin aku tambah cinta dan sayang ama kamu

maafin aku ya..

=================================== Roll Eyes

Mlm ini bulan bgt indah menyinari bumi seperti hatiku yg sdang bhagia krn dsinari oleh cintamu yg begitu hangat bagai nyala api yang takkan padam walau diterpa badai

==================================== Shocked

Cintamu adalah anugrah untukku sbb krn cintamu hatiku bhgia, ku ingin slalu bersandar di pelukmu krn hanya km yg pantas menjagaku dan jagalah pula hati dan cintaku spt bulan yg slalu menjaga malam di waktu gelap, yakinkan hatimu aku milikmu dan hanya untukmu

=================================== Angry

…Smga Allah sgra meridhoi hub.Kta dlm suciny ikatan pernkahan..

====================================== Cheesy

sayang kamu tuh kaya kipas angin…. menyejukan hatiku… hehehehe
========================================== Smiley

Belajar Menjadi Hacker

Hacker dengan keahliannya dapat melihat & memperbaiki kelemahan perangkat lunak di komputer; biasanya kemudian di publikasikan secara terbuka di Internet agar sistem menjadi lebih baik. Sialnya, segelintir manusia berhati jahat menggunakan informasi tersebut untuk kejahatan - mereka biasanya disebut cracker. Pada dasarnya dunia hacker & cracker tidak berbeda dengan dunia seni, disini kita berbicara seni keamanan jaringan Internet.

Saya berharap ilmu keamanan jaringan di tulisan ini digunakan untuk hal-hal yang baik - jadilah Hacker bukan Cracker. Jangan sampai anda terkena karma karena menggunakan ilmu untuk merusak milik orang lain. Apalagi, pada saat ini kebutuhan akan hacker semakin bertambah di Indonesia dengan semakin banyak dotcommers yang ingin IPO di berbagai bursa saham. Nama baik & nilai sebuah dotcom bisa jatuh bahkan menjadi tidak berharga jika dotcom di bobol. Dalam kondisi ini, para hacker di harapkan bisa menjadi konsultan keamanan bagi para dotcommers tersebut - karena SDM pihak kepolisian & aparat keamanan Indonesia amat sangat lemah & menyedihkan di bidang Teknologi Informasi & Internet. Apa boleh buat cybersquad, cyberpatrol swasta barangkali perlu di budayakan untuk survival dotcommers Indonesia di Internet.

Berbagai teknik keamanan jaringan Internet dapat di peroleh secara mudah di Internet antara lain di http://www.sans.org,

  • http://www.rootshell.com,
  • http://www.linuxfirewall.org/,
  • http://www.linuxdoc.org,
  • http://www.cerias.purdue.edu/coast/firewalls/,
  • http://www.redhat.com/mirrors/LDP/HOWTO/.
  • Sebagian dari teknik ini berupa buku-buku yang jumlah-nya beberapa ratus halaman yang dapat di ambil secara cuma-cuma (gratis). Beberapa Frequently Asked Questions (FAQ) tentang keamanan jaringan bisa diperoleh di http://www.iss.net/vd/mail.html,
  • http://www.v-one.com/documents/fw-faq.htm.

Dan bagi para experimenter beberapa script / program yang sudah jadi dapat diperoleh antara lain di http://bastille-linux.sourceforge.net/,

http://www.redhat.com/support/docs/tips/firewall/firewallservice.html.

Bagi pembaca yang ingin memperoleh ilmu tentang jaringan dapat di download secara cuma-cuma dari http://pandu.dhs.org, http://www.bogor.net/idkf/, http://louis.idaman.com/idkf. Beberapa buku berbentuk softcopy yang dapat di ambil gratis dapat di ambil dari http://pandu.dhs.org/Buku-Online/. Kita harus berterima kasih terutama kepada team Pandu yang dimotori oleh I Made Wiryana untuk ini. Pada saat ini, saya tidak terlalu tahu adanya tempat diskusi Indonesia yang aktif membahas teknik-teknik hacking ini - tetapi mungkin bisa sebagian di diskusikan di mailing list lanjut seperti kursus-linux@yahoogroups.com & linux-admin@linux.or.id yang di operasikan oleh Kelompok Pengguna Linux Indonesia (KPLI) http://www.kpli.or.id.

Cara paling sederhana untuk melihat kelemahan sistem adalah dengan cara mencari informasi dari berbagai vendor misalnya di http://www.sans.org/newlook/publications/roadmap.htm#3b tentang kelemahan dari sistem yang mereka buat sendiri. Di samping, memonitoring berbagai mailing list di Internet yang berkaitan dengan keamanan jaringan seperti dalam daftar http://www.sans.org/newlook/publications/roadmap.htm#3e.

Minggu, 19 Juli 2009

LISTING vb

http://dickynd.files.wordpress.com/2008/12/list31.jpg

MENU UTAMA VB 6.0



Penghitungan VB ala Excel

Persiapan yang dilakukan:

  • Buat Project Baru Standart exe
  • Tambahkan 1 buah TextBox (Text1)
  • Tambahkan 1 buah Label (Label1)
  • Tambahkan 1 Buah CommandButton (Command1) caption : =
'Ketik Coding dibawah ini pada Form Project

Private Const WS_EX_LAYERED = &H80000
Private Const GWL_EXSTYLE = (-20)
Private Const LWA_COLORKEY = &H1
Private Const LWA_ALPHA = &H2

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crColor As Long, ByVal nAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Command1_Click()
Dim excel_app As Object
Dim excel_sheet As Object

Set excel_app = CreateObject("Excel.Application")

excel_app.Workbooks.Add
If Val(excel_app.Application.Version) >= 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

excel_sheet.Cells(1, 1) = "=" & Text1.Text

Label1.Caption = excel_sheet.Cells(1, 1)
Label1.Caption = Format$(Label1.Caption, "#,##0")

excel_app.ActiveWorkbook.Close False

excel_app.Quit
Set excel_sheet = Nothing
Set excel_app = Nothing
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then Command1_Click
End Sub

Setelah semua selesai coba sobat ketik 20*10+(30-19) atau perkalian yang lain pada Text1 .. kemudian tekan enter atau click CommandButton .. pada Label1 akan didapat hasil perkalian tersebut.

Mudah-mudah ada mamfaatnya bagi kita semua khusus nya bagi rekan-rekan VB Developper yang masih junior seperti saya semoga Artikel ini bisa menambah perbendaharaan ilmu nya dan terima kasih sebelum bagi sobat-sobat yang sudah berkenan memberikan Argumen nya ... salam.