Cara Mematikan Wifi Komputer / Laptop saat berada di jaringan yang sama

kali Ini Brayn akan membagikan tips buat sahabat" yang ingin tau cara mematikan jaringan Wifi yang terkoneksi di Laptop orang lain saat berada di jaringan yang sama,

Sekilas tentang NetCut

1. Netcut menjadikan laptop/komputer sebagai Gateway, jadi dia bisa mengatur siapa yang masuk dan siapa yang ingin ditendang,, hehehehe
2. Bekerja berdasarkan ARp (Address Resolution Protocol) Spoofing. jadi dia mengelabui Mac Adress komputer satu dengan IP adress komputer lain. Misal, komputer A mau komunikasi ke B. Tapi, Tiba tiba si C menggangu komunikasi. kerena sebelumnya si C sudah melakukan penyusupan di bagian ARP. Jadi si C bisa suka aja mau diapain mau diputus atau disambung, terserah padanya. wkwkwkwk.
3. Jaringan Internet Laptop kita semakin bertambah jika semakin banyak yang kita Off kan.

Cara menggunakannya.

• Pertama, Anda harus punya Softtware yang namanya NetCut anda bisa Download disini
• Install Aplikasinya klo ada Antivirus yang menghalangi instalasi DImatikan aja dulu Antivirusnya
• Setelah beres Instalasinya jalankan Aplikasinya pada desktop netcut

• Plih IP yang akan anda jadikan mangsa, senjutnya klik Cut Off. creggg

Disini, saya hanya share aja tentang ilmu yang saya dapat, tidak ada maksud untuk mengajari hal-hal yang buruk. Selebihnya tergantung dari setiap individu masing-masing. Mau digunakan untuk kebaikan apa kejahatan. Saya tidak bertanggung jawab dengan segala hal yang akan terjadi setelah anda mencoba trik Cara Mencuri Bandwidth Wifi/Lan Menggunakan NetCut ini.

Selamat Mencoba

Tips Mengatasi Gangguan koneksi Internet Putus nyambung

Internet putus nyambung siapa yang ga keselll kalau lihat jaringan internet yang suka putus nyambung, apalagi lagi pas Download file yang lumayan besar tiba tiba jadi gagal hanya karena jaringan internet yang ga stabil, wkwkwkww. jadi ingat pengalaman sendiri. hehehehe

Koneksi internet putus sendiri  terjadi disebabkan banyak factor, namun berdasarkan kasus yang saya sering alami penyebab koneksi internet putus sendiri dikarenakan modem yang sudah rusak , gangguan cuaca, sinyal wireless lemah dan tidak ada aktivitas dari user dalam waktu lama pada saat browsing di internet.


Nah untuk itu brayn akan membagikan Tips buat sahabat bagaimana cara mengatasi hal tersebut dan juga meruapakan pengalaman saya.
Cara ini dengan melakukan ping pada web tertentu dengan maksud agar tetap terjadi adanya aktivitas koneksi di internet dan menjaga koneksi internet tetap stabil, berikut langkahnya:

• Klik Star dan pilih Run
• Ketikan Ping www.google.com -t , lihat gambar dibawah.

• Setelah itu di ok dan cek apakah sudah terkoneksi, lihat gambar 

• Bila saat pertama kali di ping muncul pesan “request timeout” artinya port belum stabil terkoneksi ke internet, restart koneksi internet kamu dan ulangi langkah ini sampai koneksi internet yang di dapat stabil
• Jangan di close kecuali anda sudah disconnect dari internet

Okey, Mudah-mudahan Tips ini dapat bermanfaat buat sahabat", Selamat Mencoba

Program Sewa Kamar Dengan Visual Basic

Buatlah satu Form, tujuh textbox dan empat command botton. Seperti Gambar dibawah ini

Program Sewa Kamar

Codingnya Sbb:

Private Sub cmdbersih_Click()

    txtsewa.Text = " "

    txtbiayaa.Text = " "

    txttotall.Text = " "

    txtdiskon.Text = " "

    txtharga.Text = " "

    txtbayar.Text = " "

    txtkembalian.Text = " "

    txtsewa.SetFocus

End Sub

Private Sub cmdhasil_Click()

    txtkembalian.Text = Val(txtbayar.Text) - Val(txtharga.Text)

End Sub

Private Sub cmdHitung_Click()

    txttotall.Text = Val(txtsewa.Text) * Val(txtbiayaa.Text)

    If txtsewa.Text > 4 Then

        txtdiskon.Text = 0.1 * Val(txttotall.Text)

    Else

        txtdiskon.Text = 0.05 * Val(txttotall.Text)

    

    End If

    txtharga.Text = Val(txttotall.Text) - Val(txtdiskon.Text)

End Sub

Private Sub cmdkeluar_Click()

   Y = MsgBox("benar Anda Ingin Keluar ?", vbYesNo + 16, "Perigatan")

If Y = 6 Then

Unload Me

Else

Cancel = 7

End If

End Sub

Private Sub Timer1_Timer()

Label1 = Time

End Sub

Selengkapnya Download disini 

anda bisa mengubahnya sesuai dengan yang anda inginkan,,  Selamat mencoba

Kata -kata Bijak

Setiap saat dalam hidupmu adalah ibarat gambar yang belum pernah terlihat, dan gambar yang tidak akan pernah terlihat lagi. Jadi, nikmati hidupmu dan jadikan setiap momen menjadi indah.


Jika kamu berdoa, jangan meminta kehidupan yang mudah, tetapi mintalah kepada tuhan untuk menjadikanmu pribadi yang kuat.

Hidup itu seperti mengendaradi sepeda. Untuk menjaga keseimbangan, sepeda harus terus berjalan. Demikian pula hidup ini.

Tidak ada hal yang lebih lembut dari kekuatan, dan tidak ada hal yang lebih kuat dari kelembutan.

“Saya memiliki tiga harta. Jaga dan peliharalah: cinta yang dalam, kesederhanaan, ketidakberanian memenangkan dunia. Dengan cinta yang dalam, seseorang akan jadi pemberani. Dengan kesederhanaan, seseorang akan menjadi dermawan. Dengan ketidakberanian memenangkan dunia, seseorang akan menjadi pemimpin dunia” (Lao-tzu, Filsuf China)

“Keyakinan merupakan suatu pengetahuan di dalam hati, jauh tak terjangkau oleh bukti” (Kahlil Gibran, Pujangga)

Banyak kegagalan dalam hidup ini dikarenakan orang-orang tidak menyadari betapa dekatnya mereka dengan keberhasilan saat mereka menyerah. – Thomas Alva Edison
Jadilah diri anda sendiri. Siapa lagi yang bisa melakukannya lebih baik ketimbang diri anda sendiri? – Frank Giblin, Ii

Kesempatan anda untuk sukses di setiap kondisi selalu dapat diukur oleh seberapa besar kepercayaan anda pada diri sendiri. – Robert Collier

Membuat Calculator sederhana di Visual Basic

Siapkan 1 Form, dan 17 command botton

Dim kal, operator As String

Dim tanda As Boolean

Dim bil As Double

Private Sub cmdangka_Click(Index As Integer)

    If txtbil.Text = "0" And Index = 0 Then Exit Sub

    kal = kal + Trim(Str(Index))

    txtbil.Text = kal

End Sub

Private Sub cmdclear_Click()

 tanda = False

    kal = ""

    operator = ""

    txtbil.Text = "0"

End Sub

Private Sub cmdoperator_Click(Index As Integer)

Select Case Index

Case 0

bil2 = Val(kal)

If operator = "+" Then bil = bil + bil2

If operator = "-" Then bil = bil - bil2

If operator = "*" Then bil = bil * bil2

If operator = "/" Then bil = bil / bil2

txtbil.Text = bil

kal = Trim(Str(bil))

titik = False

Case 1

bil = Val(kal)

operator = "+"

kal = ""

titik = False

Case 2

    bil = Val(kal)

    operator = "-"

    kal = ""

    titik = False

Case 3

    bil = Val(kal)

    operator = "*"

    kal = ""

    titik = False

Case 4

    bil = Val(kal)

    operator = "/"

    kal = ""

    titik = False

Case 5

    If tanda = False And txtbil.Text = "0" Then kal = "0."

    If tanda = False And txtbil.Text <> "0" Then kal = kal & "."

    If tanda = True Then Exit Sub

    tanda = True

End Select

End Sub

Private Sub Form_Load()

    tanda = False

    kal = ""

    operator = ""

    txtbil.Text = "0"

    End Sub

Selengkapnya Download disini

Menghitung bulan kabisat di Visual basic

Siapkan satu Form, 1 Textbox, 1 label dan 1 ComamndBotton

Codingnya :


Private Sub Command1_Click()
If Val(Text1.Text) Mod 4 = 0 Then
If Val(Text1.Text) Mod 100 = 0 Then
If Val(Text1.Text) Mod 400 = 0 Then
Label1.Caption = "Kabisat"
Else
Label1.Caption = "Bukan Kabisat"
End If
Else
Label1.Caption = "Kabisat"
End If
Else
Label1.Caption = "BUkan Kabisat"
End If

End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

selengkapnya Download disini

Cara Membuat Zodiak Games di Visual Basic

Berikut cara membuat Games Zodiak dan berserta Codingnya

Gambar Menu Zodiak

Codingnya Sbb:

Private Sub Timer1_Timer()

Label5.Caption = Time

End Sub

Private Sub txtexit_Click()

y = MsgBox("benar Anda Ingin Keluar ?", vbYesNo + 16, "Perigatan")

If y = 6 Then

Unload Me

Else

Cancel = 7

End If

End Sub

Private Sub txtnew_Click()

txtnama.Text = ""

txttgl.Text = ""

txtbln.Text = ""

txttahun.Text = ""

ckelamin.Text = ""

txtumur.Text = ""

Label8 = ""

Label10 = ""

Label6 = ""

txtnama.SetFocus

End Sub

Private Sub txtzodiak_Click()

Day (txttgl.Text)

Month (txtbln.Text)

Year (txttahun.Text)

If (txttgl.Text >= 20 And txtbln.Text = 1) Or (txttgl.Text <= 18 And txtbln.Text = 2) Then

Label8 = "AQUARIUS"

Label10 = "Peluang yang ada masih bisa diraih dengan seoptimal mungkin.Dihari ini banyak yang bisa anda kerjakan, untuk itu tak baik menunda pekerjaan kalau hanya rasa malas yang menjadi alasan. "

Label6 = "Tidak ada masalah yang berhubungan dengan masalah badan anda, semuanya tanpa baik dan terjaga."

Image1.Picture = LoadPicture(App.Path & "/" & "aquarius.jpg")

ElseIf (txttgl.Text >= 19 And txtbln.Text = 2) Or (txttgl.Text <= 20 And txtbln.Text = 3) Then

Label8 = "PISCES"

Label10 = "Jangan membesar-besarkan masalah, apalagi jika sudah hampir beres,Usaha boleh dibilang lancar dan tidak mengalami hambatan yang terlalu signifikan."

Label6 = "Di kala beristirahat sebaiknya Anda lupakan sejenak urusan di kantor walaupun sebenarnya masalah yang Anda tanggung saat ini lumayan berat"

Image1.Picture = LoadPicture(App.Path & "/" & "pisces.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 3) Or (txttgl.Text <= 20 And txtbln.Text = 4) Then

Label8 = "ARIES"

Label10 = "Di kala beristirahat sebaiknya Anda lupakan sejenak urusan di kantor walaupun sebenarnya masalah yang Anda tanggung saat ini lumayan berat."

Label6 = "Kepala terasa pening walau tak terlalu parah akan tetapi cukup mengganggu kinerja Anda."

Image1.Picture = LoadPicture(App.Path & "/" & "aries.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 4) Or (txttgl.Text <= 20 And txtbln.Text = 5) Then

Label8 = "TAURUS"

Label10 = "Jangan cemas karena masih ada yang mau membantu di kala Anda mengalami kesulitan."

Label6 = "Batuk yang Anda derita bukanlah batuk sepele. Segera pergi ke dokter, jangan menundanya jika tak ingin ada masalah di kemudian hari."

Image1.Picture = LoadPicture(App.Path & "/" & "taurus.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 5) Or (txttgl.Text <= 20 And txtbln.Text = 6) Then

Label8 = "GEMINI"

Label10 = "Jangan ambil resiko jika memang saran yang muncul dari rekan-rekan hanya akan mendatangkan masalah saja."

Label6 = "Flu tampak tidak dapat diajak kompromi sehingga cukup mengganggu."

Image1.Picture = LoadPicture(App.Path & "/" & "gemini.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 6) Or (txttgl.Text <= 20 And txtbln.Text = 7) Then

Label8 = "CANCER"

Label10 = "Buat daftar pekerjaan begitu bangun di pagi hari. Dengan begitu, Anda tak lagi menunda pekerjaan dan mengkhawatirkan pekerjaan setelah jam kerja usai."

Image1.Picture = LoadPicture(App.Path & "/" & "cancer.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 7) Or (txttgl.Text <= 21 And txtbln.Text = 8) Then

Label8 = "LEO"

Label10 = "Jika seseorang terlihat sangat luar biasa, cobalah untuk melihat pada kredibilitasnya."

Label6 = "Memang sulit untuk memulai sesuatu yang positif, akan tetapi setelah berjalan maka semua itu akan terasa ringan."

Image1.Picture = LoadPicture(App.Path & "/" & "leo.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 8) Or (txttgl.Text <= 21 And txtbln.Text = 9) Then

Label8 = "VIRGO"

Label10 = "Bersiaplah untuk melakukan aksi dan katakan apa yang ada dalam pikiran Anda."

Label6 = "Kurangi makan terlalu pedas dan terlalu banyak. Makanlah sesuai dengan porsi yang ada. Jangan sampai melebihi batas."

Image1.Picture = LoadPicture(App.Path & "/" & "virgo.jpg")

ElseIf (txttgl.Text >= 22 And txtbln.Text = 9) Or (txttgl.Text <= 22 And txtbln.Text = 10) Then

Label8 = "LIBRA"

Label10 = "Anda membuat pernyataan atau pergerakan besar pada minggu ini. Anda juga membuat sesuatu yang berbeda dan lebih baik."

Label6 = "Udara segar dan lingkungan yang nyaman akan sangat membantu untuk menghilangkan segala kepenatan yang ada dalam pikiran dan badan Anda, untuk itu mulai dipersiapkan rencana jalan-jalan di daerah yang bebas polusi."

Image1.Picture = LoadPicture(App.Path & "/" & "libra.jpg")

ElseIf (txttgl.Text >= 23 And txtbln.Text = 10) Or (txttgl.Text <= 22 And txtbln.Text = 11) Then

Label8 = "SCORPIO"

Label10 = "Profesionalitas dan cinta kadang sulit untuk berjalan bersamaan tanpa ada usaha yang keras dari dalam diri."

Label6 = "Kurangilah begadang di malam hari karena selain menguras stamina juga biaya yang dikeluarkan untuk itu lumayan besar."

Image1.Picture = LoadPicture(App.Path & "/" & "scorpio.jpg")

ElseIf (txttgl.Text >= 23 And txtbln.Text = 11) Or (txttgl.Text <= 20 And txtbln.Text = 12) Then

Label8 = "SAGITARIUS"

Label10 = "Ada peningkatan, hanya saja semua itu masih butuh kreasi dan inovasi baru sehingga tidak terkesan monoton."

Label6 = "Income di hari ini lumayan tinggi karena ada pemasukan yang tidak Anda sangka sebelumnya."

Image1.Picture = LoadPicture(App.Path & "/" & "sagitarius.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 12) Or (txttgl.Text <= 19 And txtbln.Text = 1) Then

Label8 = "CAPRICON"

Label10 = "Jangan lawan perintah atasan karena posisi Anda masih belum begitu kuat."

Label6 = "Kondisi badan perlu dijaga, hindari keluar malam."

Image1.Picture = LoadPicture(App.Path & "/" & "capricon.jpg")

Else

Label8 = "ERROR"

Label10 = "ERROR"

Label6 = "ERROR"

txtumur = "ERROR"

End If

txtumur = Year(Date) - txttahun.Text

End Sub

Okey. Selamat Mencoba

Download disini

Cara mengetahui Keylogger di Komputer / PC

     Keylogger memang sangat berbahaya, terutama apabila sudah menginfeksi komputer yang terkoneksi ke internet dan enggak menyadarinya. Bisa-bisa semua password yang penting seperti password paypal, libertyreserve, klikbca, Facebook dicuri (Kan bisa berabe). Tetapi, sekarang ada kok cara mudah untuk tahu. 

Penasaran? . . .

Oke langsung aja yuk ikuti step by stepnya :

• Buka command prompt. Masuk ke accessories >> command prompt
• Ketikkan dir kemudian tekan enter (Lihat gambar 1)

Gambar 1.

• Jika sudah sekarang, ingat angka yang muncul di command prompt (Bisa tuliskan angkanya di kertas supaya enggak lupa). (Lihat gambar 2)

Gambar 2.

• Kemudian sekarang buka program notepad ketik sembarangan dan usahakan agak banyak, tetapi jangan disave
• Ulangi langkah 1 s/d 3, setelah itu lihat angka yang muncul. Apakah angkanya berubah atau enggak? Bilamana angkanya berubah berarti komputer atau PC terkena serangan keylogger.

Sebenarnya ini adalah cara tersimpel dan termudah untuk mengetahui keylogger di PC atau komputer. Keylogger yang aktif akan memakan memori komputer saat mengetik, walaupun hasil ketikan itu enggak disave, karena programnya tersembunyi dan langsung otomatis eksekusi begitu komputer dinyalakan. Selamat mencoba!