Free source code VB - Cara Set Printer

Berikut adalah skrip vb / source code vb untuk menampilkan printer pada windows.

Sebelumnya buat modul pada visual basic kemudian masukan skrip dibawah ini :
Public Const MAX_COMPUTERNAME_LENGTH As Long = 31
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal HKEY As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal HKEY As Long) As Long
Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal HKEY As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal HKEY As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal HKEY As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long

Const REG_SZ = 1&
Const KEY_QUERY_VALUE = &H1&
Const KEY_SET_VALUE = &H2&
Const KEY_CREATE_SUB_KEY = &H4&
Const KEY_ENUMERATE_SUB_KEYS = &H8&
Const KEY_NOTIFY = &H10&
Const READ_CONTROL = &H20000
Const STANDARD_RIGHTS_READ = READ_CONTROL
Const STANDARD_RIGHTS_WRITE = READ_CONTROL
Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
Dim HKEY As Long, MainKeyHandle As Long
Dim rtn As Long, lBuffer As Long, sBuffer As String
Dim lBufferSize As Long

Function GetStringValue(SubKey As String, Entry As String)
Call ParseKey(SubKey, MainKeyHandle)
If MainKeyHandle Then
rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, HKEY)
If rtn = ERROR_SUCCESS Then
sBuffer = Space(255)
lBufferSize = Len(sBuffer)
rtn = RegQueryValueEx(HKEY, Entry, 0, REG_SZ, sBuffer, lBufferSize)
If rtn = ERROR_SUCCESS Then
rtn = RegCloseKey(HKEY)
sBuffer = Trim(sBuffer)
GetStringValue = Left(sBuffer, Len(sBuffer) - 1)
End If
End If
End If
End Function

Private Sub ParseKey(Keyname As String, Keyhandle As Long)
rtn = InStr(Keyname, "\")
If rtn = 0 Then
Keyhandle = &H80000001
Keyname = ""
Else
Keyhandle = &H80000001
Keyname = Right(Keyname, Len(Keyname) - rtn)
End If
End Sub
Function CreateKey(SubKey As String)
Call ParseKey(SubKey, MainKeyHandle)
If MainKeyHandle Then
rtn = RegCreateKey(MainKeyHandle, SubKey, HKEY)
If rtn = ERROR_SUCCESS Then
rtn = RegCloseKey(HKEY)
End If
End If
End Function
Function SetStringValue(SubKey As String, Entry As String, Value As String)
Call ParseKey(SubKey, MainKeyHandle)
If MainKeyHandle Then
rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_WRITE, HKEY)
rtn = RegSetValueEx(HKEY, Entry, 0, REG_SZ, ByVal Value, Len(Value))
rtn = RegCloseKey(HKEY)
End If
End Function

Kemudian buat sebuah form baru dan 1 buah command kemudian masukan skrip viasl basic dibawah ini :

Private Declare Function OpenPrinter Lib "winspool.drv" Alias "OpenPrinterA" (ByVal pPrinterName As String, phPrinter As Long, pDefault As Any) As Long
Private Declare Function ClosePrinter Lib "winspool.drv" (ByVal hPrinter As Long) As Long
Private Declare Function PrinterProperties Lib "winspool.drv" (ByVal hwnd As Long, ByVal hPrinter As Long) As Long

Private Sub Command1_Click()
SetStringValue "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device", "Lord,winspool,Ne00:"
End Sub


Semoga Bermanfaat.

Script VB Membatasi Input Data

Ada saatnya seorang programmer membutuhkan suatu pembatasan input data untuk menghasilkan suatu aplikasi yang powerfull, disamping itu memberikan kenyamanan bagi pengguna aplikasi dalam mengoperasikan aplikasinya.
Salah satu contoh : misalkan ada data jumlah barang, tentunya aplikasi hanya menerima input data berupa angka. Tanpa pembatasan tersebut memungkinkan aplikasi tersebut akan mengalami crash, ketika data jumlah barang tersebut diproses.

Berikut adalah contoh script Visual Basic untuk membatasi input data.

Masukan script dibawah ini kedalam sebuah module :

Public Enum DataFormats
df_Huruf = 0
df_Angka = 1
df_HurufDanAngka = 2
End Enum

Public Function CekInput(df As DataFormats, idfText As Integer) As Integer
If idfText = 8 Then
CekInput = idfText
Exit Function
End If

Select Case df
Case 0 'huruf saja
Select Case Chr(idfText)
Case "A" To "Z", "a" To "z", Chr(8)
CekInput = idfText
Exit Function
End Select
Case 1 'angka saja
Select Case Chr(idfText)
Case "0" To "9", Chr(8)
CekInput = idfText
Exit Function
End Select
Case 2 'huruf dan angka
Select Case Chr(idfText)
Case "A" To "Z", "a" To "z", "0" To "9", Chr(8)
CekInput = idfText
Exit Function
End Select
End Select
End Function


Berikut salah satu contoh penggunaan untuk membatasi Text5 dari karakter selain angka :

Private Sub Text5_KeyPress(KeyAscii As Integer)
KeyAscii = CekInput(df_Angka, KeyAscii)

End Sub

PTC valuebux.com bangkrut?

Kemarin aku iseng browsing, kemudin melihat alamat website ini :
http://flippa.com/auctions/71437/Huge-PTC-Site-for-Sale---Valuebux-com---30KMonth
apakah ini pertanda pihak valuebux.com sudah bangkrut sehingga mau menjual websitenya??
Sebelum pihak valuebux.com tidak bisa membayar membernya dan masuk daftar PTC scam yang mengakibatkan harga websitenya turun drastis??
Padahal website ini PTC terpercaya saat ini,banyak member yang telah membeli refferal dan mengupgrade dengan biaya yang tidak sedikit.


Semoga info ini membantu rekan2 untuk lebih berhati-hati dan sebagai pertimbangan buat yang mau menginvestasikan uangnya lewat website ini.

Aplikasi counter HP

Aplikasi gratis ini dinamakan Aplikasi Counter HP, aplikasi ini sangat cocok untuk anda yang mempunyai conter HP maupun toko penjualan lainnya yang kami diberikan secara gratis.
Beberapa fitur yang ada dalam aplikasi ini antara lain:

1. Data transaksi penjualan dan pembelian.
2. Data Karyawan.
3. Data stok barang.
4. Form cetak laporan Transaksi.
5. Form laporan data karyawan.
6. Form laporan data barang.
7. Pembatasan akses aplikasi.
8. Database menggunakan MS. Access.

Dan masih banyak lagi fitur yang ada dalam aplikasi gratis ini.
Untuk mendapatkan source code aplikasi ini silahkan download disini

Aplikasi Pencari SMSC Gratis

Aplikasi ini berfungsi untuk mencari Nomor SMSC yang sedang trouble sehingga memungkinkan kita untuk mendapatkan SMS gratis.

Type HP yang Suport Dengan aplikasi ini :

Nokia :

1100, 2100, 3100, 3105, 3108, 3200, 3210, 3300, 3310, 3330, 3350, 3390, 3410,

3510, 3510i, 3560, 3570, 3585, 3585i, 3586, 3590, 3595, 3610, 5100, 5110, 5130,

5190, 5210, 5510, 6100, 6108, 6110, 6150, 6190, 6200, 6210, 6220, 6250, 6310,

6310i, 6340, 6340i, 6510, 6560, 6590, 6610, 6650, 6800, 7110, 7190, 7210, 7250,

7250i, 8210, 8250, 8290, 8310, 8390, 8810, 8850, 8855, 8890, 8910, 8910i

Penggunaan

Masukan No Port yang akan digunakan dan pilih salah satu mode koneksinya

• Infrared

• Bluetooth

• DLR-3 cable

• DAU-9P

Jika Connect asynchronously aktif maka koneksi akan mencari pada port serial

yang terkoneksi dengan HP.

Pilih tombol Connect untuk memulai mengkoneksi HP. Tunggu keterangan kurang

lebih 10 detik.

Coba ulangi jika koneksi gagal.

Koneksi Berhasil. Info HP akan ditampilkan, atau untuk menampilkan info HP tekan

tombol info. Untuk Memulai Men-scan tekan Scan SMSC.

Download aplikasi disini