Academy 48

CARA MEMBUAT NOTEPAD MENJADI TRANSPARENT

Hey guys!

kali ini saya mau ajarkan kamu cara membuat Notepad menjadi Transparent..

Langsung aja ya!

Membuat Notepad Menjadi transparent ialah Hal yang cukup mudah!

hanya menggunakan software yang saya dapatkan dari DevianArt Notepad anda bisa berubah menjadi Transparent..

so bagi yang tertarik dapat download di sini :

Download ZIP download, 3.5 MB

Tips & Trick Cara Mengatasi Idm Has Been Registered With A Fake Serial Number

Akhir-akhir ini idm ane sering eror dengan notice idm has been registeredd..... , tapi saat itu juga ane search di google dan work , jadi saya mau share caranya skrng

SS NYA

1.Buka folder IDM biasanya ada di local disk C->Program Files->Internet download manager
2.Cari file IDMGrHlp.exe
3.Lalu hapus/rename

Semoga berhasil !!

Skenario dengan mengkambing hitamkan CYBER AU & INDONESIA

Oke gan... Sekarang ane mau bahas tentang masalah yang membakar lidah.
Tadi pas buka pesbuk mucul nih berita dan ane mau share buat yang belom tau (:
Sebetulnya pesan ini di buat oleh Indonesia Security Down
Mau tau apa pesannya??

Info Lebih Lengkap Sini

TEMPLE RUN 2 V1.4.1 MOD U NLIMITED COIN+GEMS

Langsung Saja Sudah Saya Coba Di Vandroid

Download Links: (Armv7 Only)
Tusfiles:
Download Disini

DataFileHost:
Disini

Install APK and Play.

CHEAT CROSSFIRE INDONESIA 2 NOVEMBER 2013 TERBARU ! NEW FEATURE!

Langsung aja :)

Walhack = Auto on

Seeghost = Auto on

fastknife = Auto on

KnockBack = Auto on

FastPlant = Auto on

FastDefuse= Auto on

MaxCanDefuseDistance = Auto on

FlashDamage = Auto on

SmokeDamage = Auto on

GrenadeDamage = Auto on

BugDMG = Auto on

Wirframe = F2 On/off

WorldDebug = F3 On/off

Chams Gray = F4 On/off

NoScope = F5

WallkThourgWall= SHIFT-KANAN SAMBIL MAJU

FLYHACK SPASI

SpeedHack = SHIFT-KIRI Sambil maju pake hanya zombie resort.

CrouchSpeed = CTRL KIRI sambil maju dan hanya di map GALAXI.

Undermap = DEL sambil SPACE

Always Headshot : Auto On

Menghilang : F6 on/off (Agar Bisa Membunuh musuh Feature Megnhilang harus off New

NB : *Wallhack WORK untuk windows XP

Please don't Reshack

Untuk WIn 7 & 8 Injector dimohon run as administrator

---------------------------------------------------------------------LINK CHEAT-----------------------------------------------------------------

----------------------------------Link Injector VERSI CA-------------------------------------------

Keep Visit In Here!! ^^

Thx to : Yuzra45 Catatan Arief

Membuat chatting dengan visual basic 6

Membuat chating sederhana pada vb 6 ya mungkin sudah banyak sobat programmer lihat mungkin untuk yang tutorial ini sedikit berbeda dari penyajian nya. Saya menambahkan kelengkapan dalam membuat nya. Ya sekarang kita mulai saja
membuatnya :

sekarang untuk server-nya dulu kita buat desain form yang terdiri dari tiga textbox dan 1 winsock kenapa winsock karena winsock adalah sebuah komponen yang di buat untuk jaringan..

untuk desain nya untuk Server dan Client bisa ber-ekpresi sendiri atau bagi pemula bisa memakai referensi yang saya buat ini dulu.untuk kedepanya bisa di kembangkan.

Penulisan source code (Form Server)

Private Sub Form_Activate()
'untuk menampilkan ip sendiri
Me.TXTlocal.Text = Winsock1.LocalIP
End Sub

Private Sub Form_Load()
'Port bebas tetapi harus sama dg port client
Winsock1.LocalPort = 5050

' untuk menunggu koneksi dari client
Winsock1.Listen
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
'berfungsi untuk mengirim pesan yang ada di text3
Winsock1.SendData TXTkeluar
End If
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'jika winsock masih dalam keadaan terkoneksi maka akan di putus untuk merefresh koneksi
If Winsock1.State <> sckClosed Then Winsock1.Close

'untuk menerima permintaan koneksi
Winsock1.Accept requestID
MsgBox "Client Terkoneksi", vbInformation
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String

'untuk menerima data yang dikirim oleh Client
Winsock1.GetData data
Me.TXTmasuk.Text = data
End Sub

Penulisan source code (Form Client)

Private Sub Form_Load()
Dim ip As String
ip = InputBox("Masukkan IP Server")
Winsock1.Connect ip, 5050
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Winsock1.SendData TXTkeluar
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
Me.TXTmasuk.Text = data
End Sub

Task Manager JKT48 Cyber Team

Sekarang ane mau share Task Manager JKT48 Cyber Team asli 100% buatan anak JCT :)
Langsung aja deh bro..

Nama: TM JCT

Size: 32kb
Download: Link 1 / Mirror (MF)
Thx to JKT48 CyberTeam

Semoga Bermanfaat ^^

Ada Link yang rusak?
Hubungi kami melalui Grup Facebook, Fans Page Facebook, Twitter Kami. Terima Kasih.