SOURCE CODE VISUAL BASIC

KUMPULAN SOURCE CODE PROGRAM DARI VISUAL BASIC 6.0 Semua program yang diposting disini sudah teruji baik program untuk TA maupun untuk perusahaan

 
PROGRAMMER
Team VB-Edan :
  • Eko Cahyono
  • Zudi Saputro
  • A Haris ST .
  • A Nur Cholis
GRATIS KONSULTASI
MENERIMA PESANAN
Ingin dibuatkan program sesuai dengan keinginan anda , anda bisa kirim alurnya atau proses ke mail eko_matrix@yahoo.com
GABUNG DI FORUM
Klik Sini VB-Edan
REKENING PEMBAYARAN
BANK BCA NO REK. 7900326003 A/N EKO CAHYONO
IKLAN
IKLAN
IKLAN

Masukkan Code ini K1-66CA9D-7
untuk berbelanja di KutuKutuBuku.com
STATISTIK

PROGRAM SISTEM INFORMASI PANTI ASUHAN
Minggu, 20 September 2009

BY : Eko cahyono

-KAS MASUK DAN KELUAR
-BANK MASUK DAN KELUAR
-GIRO CAIR MASUK DAN KELUAR
-DATA TRANSAKSI SUMBANGAN
-LAPORAN BUKU BANK DAN BUKU KAS
-LAPORAN GIRO
-LAPORAN PENYUMBANG
-DLL

HARGA Rp. 1.500.000

GRATIS KONSULTASI

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 20:24   0 comments
Refrence teknik dasar winsock H2H server pulsa

by zudi saputro

H2H server pulsa ini prinsip kerjanya adalah dimana client(customer pulsa ) mengirin perintan ke server pulsa berupa pola xml dan server pulsa menerima perintah dalam format xml yang akan diproses di server dan menjalan perintah yang ada di xml tersebut , jalur client dan server pulsa adalah internet



HARGA APLIKASI + SOURCE CODE Rp. 75.000

GRATIS KONSULTASI



HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 18:01   0 comments
PROGRAM AUTOCLICKER DONKEYMAILS

Copyright Zudi Saputro Tim Vb-edan



Dijual Hanya Aplikasinya

Program klik otomatis iklan-iklan yang ada di web Donkeymails Automatic No Minimum Payouts

Dengan program ini anda tidak perlu mengklik iklan secara manual lagi melalui web DonkeyMails,
cukup dengan menggunakn program ini dengan menjalankannya, secara otomatis program akan mengklik iklan satu persatu secara otomatis.


penting:
kami tidak bertanggung jawab atas penggunaan program ini apabila suatu saat account Donkeymails anda tersuspend

HARGA APLIKASI Rp. 50.000

GRATIS KONSULTASI



HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 15:49   0 comments
DIJUAL PROGRAM PENJUALAN LENGKAP HUTANG PIUTANG DAN STOCK





by : eko cahyono

DIJUAL APLIKASI PROGRAM PENJUALAN LENGKAP HUTANG PIUTANG DAN STOCK GUDANG

HARGA 1.500.000

GRATIS KONSULTASI


HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 10:10   0 comments
Script prosedur untuk mengecilkan database sql server yang membengkak bisa menurunkan sampai 40%
Rabu, 09 September 2009
script ini adalah script yang digunakan untuk mendefrag database sql server dengan memperbaruhi index index yang sudah tidak berurutan dalam memory database. karena dengan tidak berurutannya index dalam database yang mengakibatkan database membengkak ukurannya dan sering time out hal ini disebabkan karena seringnya server mati mendadak dan seringnya client koneksi tidak terputus ke database yg masih mensisakan user log

dengan menjalankan script ini di sql query analayzer , ukuran database akan berkurang skitar 40%
dari ukuran semula , bisa mengurangi time out koneksi dan database menjadi ringan jika digunakan koneksi.

download script prosedur Defrag Index Database
posted by Blog Wong Deso @ 16:35   0 comments
DIJUAL APLIKASI STOCK GUDANG
Jumat, 04 September 2009







by : eko cahyono


HARGA APLIKASI HANYA Rp. 1.500.000
Fitur :

-Stok masuk
-Penyesuaian Stock
-Barang Rusak
-Stock Keluar
-laporan stock Masuk dan keluar
-laporan Mutasi
-fasilitas laporan pergudang
-dll





==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 12:33   0 comments
DIJUAL APLIKASI PENJUALAN
Rabu, 26 Agustus 2009








by : eko cahyono

HARGA HANYA Rp. 1.500.000
Fitur :
-Stok masuk
-Penyesuaian Stock
-Barang Rusak
-Penjualan
-Setting Group user masing-masing
-laporan stock
-laporan Mutasi
-laporan Penjualan
-dll
Aplikasi dapat disesuaikan dengan permintaan atau kondisi penguna




==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 15:25   1 comments
DI JUAL PROGRAM BILLING WARNET
Senin, 17 Agustus 2009





DI JUAL PROGRAM BILLING WARNET
FITUR
-SETTING HARGA PERMENIT
-PINDAH PEMAKAIAN KOMPUTER
-HAPUS BATAL PEMAKAIAN
-VISUALISASI KONDISI KOMPUTER TERPAKAI DAN TIDAK TERPAKAI
-DAPAT MENAMPILKAN PENDAPATAN PERBULAN DAN HARIAN
-LAPORAN PER PERIODE

CATATAN:
PROGRAM INI HANYA UNTUK PERHITUNGAN BIAYA PEMAKAIN INTERNET YANG DILAKUKAN DI SERVER
START DAN SELESAI PEMAKAIAN DI PICU DISERVER


HARGA APLIKASI Rp. 75.000

HARGA SOURCE CODE Rp. 200.000


==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 09:28   0 comments
SOURCE CODE PROGRAM AKUTANSI GL SEDERHANA
Sabtu, 15 Agustus 2009







DIJUAL APLIKASI PROGRAM AKUTANSI GL
HARGA APLIKASI Rp. 500.000

HARGA SOURCE CODE HUBUNGI eko_matrix@yahoo.com


==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 22:52   0 comments
Dijual program Mapping sistem informasi geografis rumah sakit
Kamis, 30 Juli 2009




di jual sourcode program mapping peta pakai visual basic 6.0
-->sistem geografis rumah sakit di bandung
di sertakan laporan TAnya lengkap bab 1 sampai bab 5

harga hanya 250.000

catatan untuk menjalankan sourcode program ini dibutuhkan komponen MapObject bisa download di internet sendiri


HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
posted by Blog Wong Deso @ 14:58   0 comments
DI JUAL TUTORIAL UNTUK ANDA YANG INGIN CEPAT MAHIR DALAM CODING VISUAL BASIC + E-BOOK PHP
Senin, 20 Juli 2009


TUTORIAL YANG ADA DISINI SUDAH DIUJI COBA DAN SETIAP PENJELASAN TUTORIALNYA SUDAH ADA CONTOH PROGRAMNYA, SEHINGGA MEMUDAH ANDA UNTUK MEMPELAJARINNYA DAN TRIK TUTORIAL CODING INI AKAN MENJADIKAN ANDA CEPAT MAHIR DALAM CODING VISUAL BASIC DENGAN MAHAMI SATU PERSATU TUTORIAL INI. DISERTAKAN JUGA EBOOK VB.NET .
KAMI TIEM VB-EDAN JUGA MENGGUNAKAN TUTORIAL INI SEBAGAI DASAR PENGODINGAN SELAMA INI
DAN TUTORIAL INI SANGAT MEMBANTU DALAM PERJALAN KAMI SEBAGAI SEORANG PROGRAMMER


==================
E-BOOK PHP LENGKAP
SEMUA FUNCTION YANG ADA DALAM PHP ADA SEMUA
COCOK BAGI ANDA YANG MENGUNAKAN PHP SEBAGAI PEMEROGRAMAN WEB

DENGAN E-BOOK INI ANDA AKAN MUDAH MENEMUKAN SCRIPT, TUTORIAL, CONTOH CODING YANG ANDA PERMASALAHKAN DALAM MEMBUAT WEB BASIS PHP


TUTORIAL INI KAMI JUAL KEPADA YANG INGIN BELAJAR DAN MENGEMBANGAN VISUAL BASIC 6.0 DAN PEMEROGRAMMAN PHP

DENGAN HARGA Rp. 50.000



==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
YM : eko_matrix
HP : 085 646 471 914
posted by Blog Wong Deso @ 23:40   4 comments
source code sistem informasi pembayaran spp di sekolah
Minggu, 19 Juli 2009








fitur :
-master: tahun ajaran,siswa,jabatan, pegawai,kelas, perincian biaya spp, backup database,dll
-input : keringanan, pembayaran spp, dll
-dan laoprannya

harga source codenya Rp. 300.000


==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 14:35   0 comments
SOURCE CODE PROGRAM NOTEPAD DARI VISUAL BASIC
Sabtu, 18 Juli 2009
E


APLIKASI INI SAMA DENGAN NOTEPAD DENGAN BEBERAPA FITUR TAMBAHAN


Fitur Fitur Software :
1. SAMA YANG ADA DI NOTEPAD
2.LAIN: CETAK (VIEW), GANTI WARNA BACKGROUND DAN TEXT
BAHASA BUGIS MAKASAR (BAHASA BISA DISESUAIKAN)


harga untuk pembelian source code
Sekarang Rp. 200.000


==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 19:20   0 comments
SOURCE CODE PROGRAM KIRIM IKLAN MASSAL
Senin, 13 Juli 2009



BEBAS DIGUNAKAN TIDAK PAKAI LANGANAN


Dengan aplikasi kecil ini,
anda tidak perlu repot harus mengunjungi website iklan baris satu persatu
untuk memasang iklan.
Anda hanya perlu mengisi data-data iklan anda pada software,
kemudian klik, dan program ini akan memasang iklan anda ke ratusan website
iklan baris.

Fitur Fitur Software :
1. Bisa pilih-pilih kategori iklan.
2. Bisa pilih-pilih kapan iklan anda kadaluarsa (expire).
3. Bisa multiple account (ada fasilitas save & open data).
4. Ada reports status pengiriman.
5. Tampilan dalam bahasa Indonesia.
6. Ada log hasil pemasangan.
7. Ukuran file relatif kecil.
8. Bisa di install ke disket / flashdisk

Dan masih banyak lagi...

harga untuk pembelian Aplikasi
Sekarang Rp. 150.000

harga untuk pembelian source code
hub:
eko_matrix@yahoo.com



==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914

posted by Blog Wong Deso @ 14:28   1 comments
DIJUAL SOURCE CODE PROGRAM ABSENSI DOSEN SEDERHANA DARI VISUAL BASIC
Jumat, 03 Juli 2009




DIJUAL SOURCE CODE PROGRAM ABSENSI DOSEN SEDERHANA DARI VISUAL BASIC
FITUR:MASTER RUANG,JURUSAN,MATAKULIAH,DOSEN ,JAM,DLL
-TRANSAKSI JADWAL DAN CHECK LOCK
-DAN LAPORANNYA
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE ACCESS

HARGA APLIKASI + SOURCE CODE = Rp. 200.000


==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
YM : eko_matrix
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 21:32   3 comments
DIJUAL SOURCE CODE GAME TEBAK ANGKA YANG SAMA DENGAN VISUAL BASIC
Rabu, 01 Juli 2009

GAME INI DISERTAI PERINGKAT WAKTU PENYELESAIKAN PERMAINAN
Tambah Gambar

HARGA HANYA Rp 50.000


==>PESAN PROGRAM LAIN <==

JIKA BERMINAT BISA MENGHUBUNGI DI MAIL : eko_matrix@yahoo.com YM : eko_matrix
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 16:45   0 comments
DIJUAL SOURCE CODE GAME TEKA TEKI KATA DENGAN VISUAL BASIC


HARGA HANYA Rp 50.000


==>PESAN PROGRAM LAIN <==

JIKA BERMINAT BISA MENGHUBUNGI DI MAIL : eko_matrix@yahoo.com YM : eko_matrix
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 16:35   0 comments
DIJUAL SOURCE CODE VIRUS DARI VISUAL BASIC
DIJUAL SOURCE CODE VIRUS DARI VISUAL BASIC
DI SOURCE CODE INI
ADA TRIK CODE UNTUK MENGADAKAN DIRI
MEMBUAT AGAR BISA JALAN SAAT KOMPUTER NYALA ATAU BOOTING
ADA TRIK CODE MELAKUKAN EVEN TERTENTU DI WAKTU TERTENTU.
MEMBUAT PROGRAM BISA MEMBUKA NOTEPAD DAN BISA MENULIS SECARA OTOMATIS DI NOTEPAD ITU
TRIK CODE MEMATIKAN ANTIVIRUS
TRIK CODE MENYEMBUNYIKAN DIRI AGAR TIDAK BISA DI MATIKAN
TRIK CODE UNTUK COPY KE FLASH DISK
BISA DI MOTIFIKASI DENGAN MUDA SESUAI KEINGINAN
DLL

HARGA SOURCE CODE HANYA Rp 50.000


==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 14:51   3 comments
MENERIMA JASA PEMBUATAN DESAIN ALUR TABLE SEGALA JENIS SISTEM INFORMASI UNTUK TUGAS AKHIR
Kamis, 18 Juni 2009
MENERIMA JASA PEMBUATAN DESAIN ALUR TABLE SEGALA JENIS SISTEM INFORMASI UNTUK TUGAS AKHIR
menerima jasa pembuatan desain alur table berdasarkan sistem informasi yang diminta
-dibuatkan tablenya, view/query dan relasinya
-di jelaskan masing2 fungsi table berupa uraian
-di buatkan query/view untuk menampilkan laporan. yang memudah dalam pengambilan data untuk menampilkan report.
-di buatkan daftar menu- menu(master,transaksi,fasilitas,laporanya,dll) yang ada di program berdasarkan sistem informasi yang diminta

dengan Desain alur table yang kita buatkan berdasarkan sistem informasi yang diminta. akan memudahkan membuat aplikasi /program sistem informasi tersebut. anda tidak perlu mikir lagi memikirkan alur programnya sehingga tinggal membuat programnya dengan desain yang telah kita buat berdasarkan sistem informasi yang diberikan dan berdasarkan urutan menu master, transaksi laporan ,masing2 yg kita buatkan.
DATABASE BISA SQL SERVER,ACCESS,MYSQL

HARGA TERJANGAKAU MINIMAL Rp 100.000
(BERDASARKAN KESULITAN SISTEM YANG DIMINTA )



HUBUNGI
MAIL : eko_matrix@yahoo.com
YM : eko_matrix
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 16:37   0 comments
PROGRAM SISTEM INFORMASI KOPERASI SIMPAN PINJAM UNTUK REFERENSI TUGAS AKHIR
Rabu, 10 Juni 2009




PROGRAM
SISTEM INFORMASI KOPERASI SIMPAN PINJAM + SOURCE CODE UNTUK TUGAS AKHIR
FITUR:
-DATA ANGGOTA,OPERATOR,JENIS SIMPANAN,BUNGAH,DENDA , DLL
-TRANSAKSI PENYIMPANAN,PENGAMBILAN,PEMINJAMAN ,ANGSURAN, DLL
-DAN LAPORAN2 YANG LAIN
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE ACCESS

HARGA SEBELUMNYA APLIKASI + SOURCE CODE = Rp. 600.000

DISC 50% = Rp 300.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 09:32   0 comments
DIJUAL PROGRAM PENGOLAHAN DATA NILAI + SOURCE CODE UNTUK REFERENSI TUGAS AKHIR
Senin, 08 Juni 2009


DIJUAL PROGRAM
PENGOLAHAN NILAI UNTUK SMP + SOURCE CODE UNTUK TUGAS AKHIR
FITUR:
-DATA SISWA,PELANGGARAN,KELAS, DLL
-TRANSAKSI ABSEN SISWA, PELANGGARAN SISWA,NILAI SISWA, DLL
-DAN LAPORAN2 YANG LAIN
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE ACCESS



HARGA SOURCE CODE Rp 300.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 21:09   1 comments
DIJUAL PROGRAM SISTEM INFORMASI AKADEMIK SMA + SOURCE CODE UNTUK REFERENSI TUGAS AKHIR


DIJUAL PROGRAM
SISTEM INFORMASI AKADEMIK SMA + SOURCE CODE UNTUK TUGAS AKHIR
FITUR:
-DATA SISWA , MATAPELAJARAN, DLL
-TRANSAKSI PENDAFTARAN,PENILAIAN, PEMBAYARAN SPP
-DAN LAPORAN2 NYA
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE ACCESS

HARGA SEBELUMNYA APLIKASI + SOURCE CODE = Rp. 800.000

DISC 50% = Rp 400.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==


HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 20:56   1 comments


DIJUAL PROGRAM
SISTEM INFORMASI BANQUET DI HOTEL + SOURCE CODE UNTUK REFERENSI TUGAS AKHIR
FITUR:
-DATA CLIENT, FASILIRAS, TYPE RUANG, MENU MAKANAN ,KOTA DLL
-TRANSAKSI RESERVASI (RUANG DAN MAKANAN ), CHEK IN CHECK OUT
-SETTING RUANGAN DAN MENU MAKANAN
-DAN LAPORAN2 NYA
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE SQL SERVER / ACCESS

HARGA SEBELUMNYA APLIKASI + SOURCE CODE = Rp. 800.000

DISC 50% = Rp 200.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 13:40   2 comments
DIJUAL PROGRAM ADMINISTRASI GUDANG PENJUALAN + SOURCE CODE UNTUK TUGAS AKHIR
Minggu, 07 Juni 2009





DIJUAL PROGRAM
ADMINISTRASI GUDANG PENJUALAN + SOURCE CODE UNTUK TUGAS AKHIR
FITUR:
-DATA BARANG,SUPPLIER,CUSTOMER, HARGA JUAL DAN BELI
-TRANSAKSI PEMBELIAN ,PENJUALAN,RETUR BELI DAN RETUR JUAL
-STOCK BARANG (HABIS, DAN SELURUHNYA)
-DAN LAPORAN2 YANG LAIN
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE SQL SERVER / ACCESS

HARGA SEBELUMNYA APLIKASI + SOURCE CODE = Rp. 600.000

DISC 50% = Rp 300.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 12:33   0 comments
DIJUAL SOURCE CODE PROGRAM RUMAH SAKIT SEDERHANA UNTUK TUGAS AKHIR
Jumat, 29 Mei 2009







DIJUAL SOURCE CODE PROGRAM RUMAH SAKIT SEDERHANA UNTUK TUGAS AKHIR








FITUR:
-DATA DOKTER,DATA OBAT,DLL
-TRANSAKSI LABORATORIUM,POLIKLINIK DAN APOTIK

-LAPORANNYA MASING2
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE ACCESS


HARGA SOURCE CODE Rp 350.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 12:59   0 comments
DIJUAL SOURCE CODE PROGRAM PERPUSTAKAAN UNTUK TUGAS AKHIR




DIJUAL SOURCE CODE PROGRAM PERPUSTAKAAN UNTUK TUGAS AKHIR
FITUR:
-DATA BUKU
-STOCK BUKU
-KARTU STOCK BUKU
-DATA MEMBER
-PEMINJAMAN BUKU
-PENGEMBALIAN BUKU
-SISTEM DENDA
-LAPORANNYA MASING2
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE SQL SERVER / ACCESS



HARGA SOURCODE = Rp 400.000 ( APLIKASI + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 08:46   0 comments
DIJUAL SOURCE CODE PROGRAM HOTEL UNTUK TUGAS AKHIR
Kamis, 28 Mei 2009
DIJUAL SOURCE CODE PROGRAM HOTEL UNTUK TA
FITUR:
-CHECK IN
-CHECK OUT
-INPUT BIAYA OPERASIONAL
-VISUALISASI KONDISI KAMAR
-LABA RUGI HOTEL
-LAPORANNYA MASING2
-DAN FASILITAS LAINNYA

SOURCE CODE INI DIBUAT PAKAI VISUAL BASIC 6.0
DATABSE SQL SERVER / ACCESS






HARGA SEBELUMNYA SOFT + SOURCE CODE = Rp. 600.000

DISC 50% = Rp 300.000 ( SOFTWARE + SOURCE CODE)

==>PESAN PROGRAM LAIN <==

HUBUNGI
MAIL : eko_matrix@yahoo.com
HP : 085 646 471 914

posted by Blog Wong Deso @ 10:52   1 comments
DIJUAL PROGRAM SISTEM INFORMASI AKUTANSI KEUANGAN
Rabu, 27 Mei 2009























DIJUAL APLIKASI SISTEM INFORMASI AKUTANSI KEUANGAN . PROGRAM INI SUDAH TERUJI DIPAKAI DI BEBERAPA PERUSAHAAN KECIL MENENGAH. PROGRAM INI DIBUAT DARI VISUAL BASIC 6.0, KONEKSI DATABSE (ACCESS,SQLSERVER 2000), PAKAI REPORT CRYSTAL REPORT 8.5
dan dirancang multi user

UNTUK PEMBELIAN SEKARANG
HANYA Rp. 1.500.000


==>PESAN PROGRAM LAIN <==

JIKA BERMINAT BISA MENGHUBUNGI DI MAIL : eko_matrix@yahoo.com YM : eko_matrix
HP : 085 646 471 914
HP : 081 334 406 283
posted by Blog Wong Deso @ 12:04   0 comments
di jual plugin program order pulsa lewat yahoo massenger





























Di jual plugin program order pulsa lewat yahoo massenger
pligin ini hanya bisa dipakai yang telah menggunakan program milik
system royalti dengan royalti system pulsamatic engine ( http://www.pulsamatic.com/ ).
plugin ini sudah teruji dengan baik denga mengatasi kekurangan program aslinya
dan lebih akurat . pemakaiannya gampang tidak pakai instal hanya jalankan program ini
transaksi pulsa anda bisa langsung bisa di order lewat yahoo massanger.

harga sourcode untuk 2 aplikasi di atas hanya Rp 300.000



==>PESAN PROGRAM LAIN <==

jika berminat hubungi : mail : eko_matrix@yahoo.com
Ym : eko_matrix
HP : 085 646 471 914
HP : 081 334 406 283
http://modalmandiri.com/?ref=8
posted by Blog Wong Deso @ 10:58   2 comments
forum Gresik
Jumat, 22 Mei 2009
http://forum.nggersik.com
posted by Blog Wong Deso @ 20:56   0 comments
Terobosan baru dalam memasang iklan
Terobosan baru dalam memasang iklan
Anda tidak perlu mengisi iklan anda berkali kali.
Tidak perlu install software atau script
Tidak perlu mengunjungi satu persatu situs iklan baris
Cukup melalui http://modalmandiri.com/?ref=8
iklan anda akan tersebar ke puluhan iklan baris
posted by Blog Wong Deso @ 20:54   0 comments
Virus FreE_MiNe.exe
Minggu, 18 Januari 2009


FreE_MiNe.exe


Virus ini menginfeksi MS-WORD dengan ekstensi .exe dan jika di scan dengan antivirus (NOD 32, McAfee VirusScan Enterprise 8.5i Plus Patch 6, Norton,KAV) tidak terdeteksi sebagai virus. Jika virus ini berhasil menginfeksi system anda, dia akan memblok ansav.exe ( Menggunakan pengenalan signature file untuk memblok Ansav), blok cmd.exe. Melakukan modifikasi terhadap registry windows diantaranya :

*
Hide Ekstensi file
*
Hide protected operating system
*
Shell : explorer.exe C:\WINDOWS\system32\LoLOxz\smss.exe
*
Userinit : userinit; C:\WINDOWS\system32\LoLOxz\smss.exe
*
system : C:\WINDOWS\system32\LoLOxz\smss.exe.

Virus ini juga mengcopy dirinya kesetiap drive lengkap dengan autorun.inf dan file free mine.exe, dan celakanya jika virus ini aktif dia akan menutup semua komunikasi jaringan pada komputer korban. Alias tidak ada koneksi sama sekali. Sy sdh coba scan dengan menggunakan PCMAV 1.7 build 1, hanya di katakan virus suspected, tapi tidak dapat di clean, juga tidak dapat di cure. Memformat ulang drive/flasdisk tidak menyelesaikan masalah, karena virus masih ada di system.

Setelah selama 4 hari sy googling, googling dan googling, akhirnya sy menemukan cara untuk menghapus virus ini, anti virusnya belum ada, karena ini tergolong virus baru, jadi harus mengerjakannya secara manual

1. System restore off
2. Booting safe mode
3. Start menu >> Run >> ketik “C:\Windows\system32\LoLOxz\”
4. Klik Tools >> Folder option >> Show hidden files and folders, uncheck di Hide extensions for known files types dan uncheck jg di Hide protected operating system files
5. Klik OK.
6. Nampak 2 file, smss.exe (icon word) dan file dengan ext dll. Hapus dua-duanya, baru bersihkan yang lainnya : Free_Mine.exe, autorun.inf
7. Kalo perlu registry cleaner

Jangan lupa untuk membersihkan flash disk yg terinfeksi dengan cara yang sama.

untuk mematikan system restore :

Start=>Klik kanan My Computer=>Properties=>System Restore=> turn off System restore.

untuk safe mode : setelah restrart : F8

untuk meng-recovery ms-word yg sdh terinfeksi bisa memakai software : GAV , pake program ini untuk scan flash disk aja, karena scanningnya lama banget, sy scan complete komputer butuh waktu 24 jam
kalo file-nya tidak bisa kehapus bisa pake unlocker

Setelah semua step tersebut, sy lakukan dan terakhir sy scan pake PCMAV, FreE_MiNe।exe ini sudah tidak terdeteksi lagi.
Setelah itu baru ketikkan perintah berikut : attrib -s -h *।* /s /d (untuk menampilkan file yang hilang akibat dihiden virus)



  1. Fix registry yang sudah diubah atau dibuat oleh virus. Untuk mempercepat proses perbaikan registry ini salin script dibawah ini pada program notepad kemudian simpan dengan nama repair.inf, jalankan file tersebut dengan cara:

    1. Klik kanan repair.inf
    2. Klik install

[Version]

Signature="$Chicago$"

Provider=Vaksincom Oyee

[DefaultInstall]

AddReg=UnhookRegKey

DelReg=del

[UnhookRegKey]

HKLM, Software\CLASSES\batfile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\comfile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\exefile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\piffile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\scrfile\shell\open\command,,,"""%1"" %*"

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, Shell,0, "Explorer.exe"

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, userinit,0, "userinit.exe,"

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, system,0, ""

HKLM, SYSTEM\ControlSet001\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKLM, SYSTEM\ControlSet002\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKLM, SYSTEM\CurrentControlSet\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDriveTypeAutoRun,0x00010001,255

HKLM, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDriveTypeAutoRun,0x00010001,255

HKLM, SOFTWARE\Classes\exefile,,,"Application"

HKLM, SOFTWARE\Classes\exefile,InfoTip,0,"prop:FileDescription;Company;FileVersion;Create;Size"

HKLM, SOFTWARE\Classes\exefile,TileInfo,0,"prop:FileDescription;Company;FileVersion;Create;Size"

[del]

HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoFind

HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System, DisableCMD


posted by Blog Wong Deso @ 20:23   0 comments
KISAH LASKAR PELANGI
Selasa, 23 Desember 2008

Laskar Pelangi

NovelLaskar pelangi” ,Ini kisah nyata tentang sepuluh anak kampung di Pulau Belitong,
Sumatera. Mereka bersekolah di sebuah SD yang bangunannya nyaris
rubuh dan kalau malam jadi kandang ternak. Sekolah itu nyaris ditutup
karena muridnya tidak sampai sepuluh sebagai persyaratan minimal.

“Laskar Pelangi” Pada hari pendaftaran murid baru, kepala sekolah dan ibu guru satu-
satunya yang mengajar di SD itu tegang. Sebab sampai siang jumlah
murid baru sembilan. Kepala sekolah bahkan sudah menyiapkan naskah
pidato penutupan SD tersebut. Namun pada saat kritis, seorang ibu
mendaftarkan anaknya yang mengalami keterbelakangan mental. ”Mohon
agar anak saya bisa diterima. Sebab Sekolah Luar Biasa hanya ada di
Bangka,” mohon sang ibu. Semua gembira. Harun, nama anak itu,
menyelamatkan SD tersebut. Sekolah pun tak jadi ditutup walau
sepanjang beroperasi muridnya cuma sebelas.

“Laskar Pelangi” Kisah luar biasa tentang anak-anak Pulau Belitong itu diangkat dalam
novel dengan judul ‘Laskar Pelangi’ oleh Andrea Hirata, salah satu
dari sepuluh anak itu. Di buku tersebut Andrea mengangkat cerita
bagaimana semangat anak-anak kampung miskin itu belajar dalam segala
keterbatasan. Mereka bersekolah tanpa alas kaki, baju tanpa kancing,
atap sekolah yang bocor jika hujan, dan papan tulis yang berlubang
hingga terpaksa ditambal dengan poster Rhoma Irama.

Laskar Pelangi

Kisah yang tadinya bukan untuk diterbitkan itu ternyata mampu
menginspirasi banyak orang. Seorang ibu di Bandung, misalnya,
mengirim surat ke Kick Andy. Isinya minta agar kisah tersebut
diangkat di Kick Andy karena anaknya yang membaca buku “Laskar Pelangi”
kini bertobat dan keluar dari jerat narkoba. ”Setiap malam saya
mendengar suara tangis dari kamar Niko anak saya. Setelah saya intip,
dia sedang membaca sebuah novel. Setelah itu, Niko berubah. Dia jadi
semangat untuk ikut rehabilitasi. Kini Niko berhasil berhenti sebagai
pecandu narkoba setelah membaca buku “Laskar Pelangi” ungkap
Windarti Kosasih, sang ibu.

Sementara Sisca yang hadir di Kick Andy mengaku setelah membaca novel
itu, terdorong untuk memperbaiki hubungannya dengan sang ayah yang
selama ini rusak. Begitu juga Febi, salah satu pembaca, langsung
terinspirasi untuk membantu menyumbangkan buku untuk sekolah-sekolah
miskin di beberapa tempat. ”Saya kagum karena anak-anak yang
diceritakan di buku itu penuh semangat walau fasilitas di sekolah itu
jauh dari memadai,” ujar Febi yang juga datang ke Kick Andy untuk
bersaksi.

Andrea Hirata sendiri mengaku novel “Laskar Pelangi” awalnya hanya merupakan catatan
kenangannya terhadap masa kecilnya di Belitong. Dia selalu teringat
sahabat-sahabatnya di masa kecil, terutama Lintang. Sebab tokoh
Lintang merupakan murid yang cerdas dan penuh semangat walau hidup
dalam kemiskinan. Setiap hari Lintang harus mengayuh sepeda tua yang
saering putus rantainya ke sekolah. Pulang pergi sejauh 80 km. Bahkan
harus melewati sungai yang banyak buayanya.

Silahkan DI Download Novel “Lasker Pelangi” Lengkap

http://www.4shared.com/file/66336562/ae85ed2b/agills_dot_com_Laskar_Pelangi.html

posted by Blog Wong Deso @ 16:58   0 comments
KONDISI YANG MENGANGU PROGRAMMER
Senin, 01 Desember 2008
Berikut ini hanya catatan kecil, yang mungkin lebih bisa dirasakan oleh mereka sesama programmer, terutama programmer yang menjadi amunisi sebuah perusahaan. Bukan yang freelancer atau yang berdiri sendiri.


1. Kebanyakan Interupsi

Saat sedang coding, penggunaan kedua otak kanan dan otak kiri benar-benar dioptimalkan. Berimajinasi dan berlogika.
Sejak awal coding banyak hal yang diingat, disimpan, direncanakan, dikira-kira, disiasati, menyusun secara dinamis flowchart program di otak (selain yang di kertas, kalau ada).
Seandainya di tengah proses coding ada interupsi dari menejer, bos, pacar, teman sebelah meja, bakso lewat, whatever, yang membutuhkan menghandle hal lain, maka nanti saat memulai coding programmer harus mulai menyusun lagi dan mengingat-ingat apa yang tadi telah tersusun. Repot.

Hal ini yang jarang diketahui oleh pihak lain. Kebanyakan menganggap coding itu seperti tukang bangunan yang menyusun batu bata (meskipun aku belum pernah jadi tukang batu), yang bisa dilanjutkan kapan saja dengan mudah. Mereka dengan mudah mengatakan 'pak, bisa kesini sebentar?', menyuruh melakukan hal yang lain, dan berharap saat kembali ke meja kita dapat kembali ke state yang tadi. Angel bos.


2. Rencana tidak Terencana

Develop program memang harus dinamis, mampu mengakomodasi perubahan kebutuhan. Namun jika perubahan sangat mendasar dilakukan saat finishing, bisa-bisa merombak banyak hal, bahkan membuat apa yang telah dikerjakan sebelumnya menjadi sia-sia.
Ya, itu adalah masalah bagaimana menyusun struktur program yang baik sehingga mudah untuk diubah-ubah.
Namun yang dibahas adalah betapa jika si menejer tidak merancang kebutuhannya dengan baik, dan menganggap bahwa perubahan itu mudah dilakukan, serta merasa tidak apa-apa kalau pekerjaan sebelumnya menjadi terbuang sia-sia.


3. Menejer tidak memahami dunia coding

Ya ya, menejer tugasnya adalah memenej proses, tidak harus berhadapan atau memahami hal teknis.
Namun jika menejer blank tentang dunia programming, ada kalanya mengeluarkan perintah untuk mengerjakan sesuatu yang mendekati mustahil। Bisa sih bisa, tapi kadang gak worth dengan hasil yang didapat. Saat mengerjakan hal yang kita tau aneh kayak gitu, perasaan biasanya tertekan. Huh.

di ambil dari http://www.mahesajenar.com/
posted by Blog Wong Deso @ 10:16   2 comments
MENGETAHUI CAPTION CONTROL DI WINDOWS ATAU FORM
-buat project baru
-tambah kan form dengan nama form1
-tambahkan label dengan nama lblState
-tambahkan timer dengan nama timer1 ,intervalnya=1
-copykan script ini ke form



Private Type POINTAPI
x As Long
y As Long
End Type
'Copy right vb-bego.com

Const HWND_TOP As Integer = 0
Const HWND_BOTTOM As Integer = 1
Const HWND_TOPMOST As Integer = -1
Const HWND_NOTOPMOST As Integer = -2
Const SWP_NOSIZE As Integer = 1
Const SWP_NOMOVE As Integer = 2

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal xy As Long, ByVal uflags As Long) As Integer
Private Declare Function AccessibleObjectFromPoint Lib "oleacc" (ByVal x As Long, ByVal y As Long, ppoleAcc As Object, pvarElement As Variant) As Long

Dim objAccessible As Object

Private Sub Form_Load()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, (SWP_NOSIZE Or SWP_NOMOVE)
End Sub

Private Sub lblState_Change()
If Trim(lblState) = "" Then
Me.Visible = False
Else
Me.Visible = True
End If
End Sub

Private Sub Timer1_Timer()
Dim p As POINTAPI
Dim v As Variant
Dim sName As String

GetCursorPos p

AccessibleObjectFromPoint p.x, p.y, objAccessible, v

sName = ""
On Error Resume Next
sName = objAccessible.accName(v)
If Trim(sName) = "" Then
sName = objAccessible.accvalue(v)
End If
On Error GoTo 0
Me.ZOrder
Me.Left = (p.x * Screen.TwipsPerPixelX) + 250
Me.Top = (p.y * Screen.TwipsPerPixelY) + 100

Me.lblState.Caption = sName
Me.Width = Me.lblState.Width + 200
Me.Height = Me.lblState.Height + 70

End Sub
posted by Blog Wong Deso @ 09:05   0 comments
JASA PEMBUATAN PROGRAM DAN SERVIS KOMPUTER LOKASI MALANG
Kamis, 27 November 2008
-MENERIMA PEMBUATAN PROGRAM SEGALA JENIS SISTEM INFORMASI BAIK
UNTUK PERKANTORAN, AKUNTANSI, KOPERASI, SEKOLAH, UNTUK TUGAS TA, DLL
DENGAN MENGGUNAKAN VB, REPORT CRYSTAL REPORT 8.5 , DB MYSQL, ACCESS
dan SQL SERVER
-MENERIMA SEGALA JENIS DESAIN DAN CETAK FOTO KALENDER,BROSUR,KARTU
NAMA, KARTU UNDANGAN , DLL
-MENERIMA SERVIS KOMPUTER (INSTALL WINDOWS, PEMBERSIHAN DARI VIRUS,
PENYELAMATAN DATA) DAN INSTALASI JARINGAN KOMPUTER
-MENERIMA KONSULTASI PEMEROGRAMAN UNTUK TUGAS AKHIR
-MULAI TGL 25-06-2009 , KITA MENERIMA PEMBUATAN WEB DENGAN PHP DAN MYSQL


HARGA TERJANGKAU

HUB. HP : 085 646 471 914
HP : 081 334 406 283
MAIL : eko_matrix@yahoo.com
YM : eko_matrix



ANDA HUBUNGI KAMI DATANG
posted by Blog Wong Deso @ 09:52   9 comments
CREATE DSN LEWAT SCRIPT VB
Minggu, 23 November 2008
Sub MakeDSN(ByVal sDSN As String, ByVal sDriver As String, _
ByVal sDBFile As String, ByVal lAction As Long)

Dim sAttributes As String
Dim sDBQ As String
Dim lngRet As Long

Dim hKey As Long
Dim regValue As String
Dim valueType As Long

' query the Registry to check whether the DSN is already installed
' open the key
If RegOpenKeyEx(HKEY_CURRENT_USER, "Software\ODBC\ODBC.INI\" & sDSN, 0, _
KEY_ALL_ACCESS, hKey) = 0 Then
' zero means no error => Retrieve value of "DBQ" key
regValue = String$(1024, 0)
' Allocate Variable Space
If RegQueryValueEx(hKey, "DBQ", 0, valueType, regValue, _
Len(regValue)) = 0 Then
' zero means OK, so we can retrieve the value
If valueType = REG_SZ Then
sDBQ = Left$(regValue, InStr(regValue, vbNullChar) - 1)
End If
End If
' close the key
RegCloseKey hKey
End If

' Perform the action only if we're adding a DSN that doesn't exist
' or removing and existing DSN
'If (sDBQ = "" And lAction = ODBC_ADD_DSN) Or (sDBQ <> "" And lAction = _
ODBC_REMOVE_DSN) Then

' check that the file actually exists
' If Len(Dir$(sDBFile)) = 0 Then
' MsgBox "Database file doesn't exist!", vbOKOnly + vbCritical
' 'Exit Sub
' End If
sAttributes = "DSN=" & sDSN & vbNullChar & "DBQ=" & sDBFile & vbNullChar & "PWD=" & "" & vbNullChar
lngRet = SQLConfigDataSource(0&, lAction, sDriver, sAttributes)
MDIMenu.Show
' End If
End Sub


'#########

' cara memanggilnya
'MakeDSN "Sekolah", "Microsoft Access Driver (*.mdb)", App.Path & "\database\" & "sekolah.mdb", 3 ' untuk menghapus
'MakeDSN "Sekolah", "Microsoft Access Driver (*.mdb)", App.Path & "\database\" & "sekolah.mdb", 1 ' untuk create dsn baru
posted by Blog Wong Deso @ 11:04   1 comments
Andai Masih ada Hari Esok
Jumat, 21 November 2008
Pada suatu tempat, hiduplah seorang anak. Dia hidup dalam keluarga yang bahagia, dengan orang tua dan sanak keluarganya. Tetapi, dia selalu mengangap itu sesuatu yang wajar saja. Dia terus bermain, mengganggu adik dan kakaknya, membuat masalah bagi orang lain adalah kesukaannya. Ketika ia menyadari kesalahannya dan mau minta maaf,dia selalu berkata, "Tidak apa-apa, besok kan bisa". Ketika agak besar, sekolah sangat menyenangkan baginya. Dia belajar, mendapat teman, dan sangat bahagia.

Tetapi, dia anggap itu wajar-wajar aja.
Semua begitu saja dijalaninya sehingga dia anggap semua sudah sewajarnya. Suatu hari, dia berkelahi dengan teman baiknya. Walaupun dia tahu itu salah, tapi tidak pernah mengambil inisiatif untuk minta maaf dan berbaikan dengan teman baiknya. Alasannya, "Tidak apa-apa, besok kan bisa".

Ketika dia agak besar, teman baiknya tadi bukanlah temannya lagi.
Walaupun dia masih sering melihat temannya itu, tapi mereka tidak pernah saling tegur. Tapi itu bukanlah masalah, karena dia masih punya banyak teman baik yang lain. Dia dan teman-temannya melakukan segala sesuatu bersama-sama, main, kerjakan PR, dan jalan-jalan. Ya, mereka semua teman-temannya yang paling baik.

Setelah lulus, kerja membuatnya sibuk. Dia ketemu seorang cewek yang sangat cantik dan baik. Cewek ini kemudian menjadi pacarnya. Dia begitu sibuk dengan kerjanya, karena dia ingin dipromosikan ke posisi paling tinggi dalam waktu yang sesingkat mungkin.
Tentu, dia rindu untuk bertemu teman-temannya
Tapi dia tidak pernah lagi menghubungi mereka, bahkan lewat telepon. Dia selalu berkata, "Ah, aku capek, besok saja aku hubungin mereka". Ini tidak terlalu mengganggu dia karena dia punya teman-teman sekerja yang selalu mau diajak keluar. Jadi, waktu pun berlalu, dia lupa sama sekali untuk menelepon teman-temannya.

Setelah dia menikah dan punya anak, dia bekerja lebih keras dalam membahagiakan keluarganya. Dia tidak pernah lagi membeli bunga untuk istrinya, atau pun mengingat hari ulang tahun istrinya dan juga hari pernikahan mereka. Itu tidak masalah baginya, karena istrinya selalu mengerti dia, dan tidak pernah menyalahkannya.

Tentu, kadang-kadang dia merasa bersalah dan sangat ingin punya kesempatan untuk mengatakan pada istrinya "Aku cinta kamu", tapi dia tidak pernah melakukannya. Alasannya, "Tidak apa-apa, saya pasti besok akan mengatakannya". Dia tidak pernah sempat datang ke pesta ulang tahun anak-anaknya, tapi dia tidak tahu ini akan berpengaruh pada anak-anaknya.
Anak-anak mulai menjauhinya, dan tidak pernah benar-benar menghabiskan waktu mereka dengan ayahnya.

Suatu hari, kemalangan datang ketika istrinya tewas dalam kecelakaan, istrinya ditabrak lari. Ketika kejadian itu terjadi, dia sedang ada rapat.

Dia tidak sadar bahwa itu kecelakaan yang fatal, dia baru datang saat istrinya akan dijemput maut. Sebelum sempat berkata "Aku cintakamu..", istrinya telah meninggal dunia.

Laki-laki itu remuk hatinya dan mencoba menghibur diri melalui anak-anaknya setelah kematian istrinya. Tapi, dia baru sadar bahwa anak anaknya tidak pernah mau berkomunikasi dengannya.
Segera, anak-anaknya dewasa dan membangun keluarganya masing-masing.
Tidak ada yang peduli dengan orang tua ini, yang di masa lalunya tidak pernah meluangkan waktunya untuk mereka.

Saat mulai renta, dia pindah ke rumah jompo yang terbaik, yang menyediakan pelayanan sangat baik. Dia menggunakan uang yang semula disimpannya untuk perayaan ulang tahun pernikahan ke 50, 60, dan 70.
Semula uang itu akan dipakainya untuk pergi ke Hawaii , New Zealand ,dan negara-negara lain bersama istrinya, tapi kini dipakainya untuk membayar biaya tinggal di rumah Jompo tersebut.
Sejak itu sampai dia meninggal, hanya ada orang-orang tua dan suster yang merawatnya.Dia kini merasa sangat kesepian, perasaan yang tidak pernah dia rasakan sebelumnya.

Saat dia mau meninggal, dia memanggil seorang suster dan berkata kepadanya, "Ah, andai saja aku menyadari ini dari dulu...." Kemudian perlahan ia menghembuskan napas terakhir, dia meninggal dunia dengan airmata dipipinya.

--------------------- ^_^ ---------------------

Waktu itu nggak pernah berhenti. Kita terus maju dan maju, sebelum benar-benar menyadari, kita ternyata telah maju terlalu jauh.
Jika kita pernah bertengkar, segera berbaikanlah... !
Jika kita merasa ingin mendengar suara teman kita, jangan ragu-ragu untuk meneleponnya segera.

Terakhir, tapi ini yang paling penting, jika kita merasa kita ingin bilang sama seseorang bahwa kita sayang dan cinta dia, jangan tunggu sampai terlambat. Jika kita terus pikir bahwa kita lain hari, baru akan memberitahu dia, hari itu tidak pernah akan datang.

Jika kita selalu pikir bahwa besok akan datang, maka "besok" akan pergi begitu cepatnya hingga kita baru sadar bahwa waktu telah meninggalkan kita.
posted by Blog Wong Deso @ 09:23   0 comments
DUNIA PROGRAMMER FREELANCE
Kamis, 20 November 2008

Tidak mudah untuk jadi programmer freelance.Lha iya tidak mudah, bagaimana mungkin suatu proyek bisa selesai on time, kalau hari-hari pengerjaan diisi dengan pergi mengantar istri ke sana, kesini, membeli ini, itu, dll. Kalau seorang istri melihat suami yang mengerjakan pekerjaan di rumahnya dan kelihatan seperti orang yang diam, tidak melakukan apa apa, hanya duduk memandangi layar komputer, dianggap sebagai objek yang bisa diminta tolong,ya dijamin deh pekerjaan tidak akan selesai selesai. Kepala sang programmer bakalan penuh dengan baris-baris program yang ditinggal sebelum berangkat mengantarkan istri. Isi kepala penuh dengan semua kondisi if-then-else yang belum ditutup, catch-exception yang masih berantakan,dll..Jangan sampai meleng di jalan, kalau melihat lampu merah seharusnya yang diinjak pedal rem tapi malah narik gas, bagaimana, bisa bikin repot kan, malah berbahaya euy..

Ada seorang teman yang menjalani hari-harinya sebagai programmer freelance. Hampir setiap hari ada di rumah, tentunya mengerjakan proyek – proyek yang harus diselesaikan sebelum batas deadline. Sepanjang hari ada di depan monitor, kecuali ya itu, kalau tidak makan, ya tidur atau sholat, atau mengantar istri/keluarga. Kemarin dia memberi tahu saya, ternyata dia dapat proyek yang harus dikerjakan on site, artinya dikerjakan di lokasi proyek. Bisa di perusahaan pemberi proyek, bisa di rumah bos proyek tsb, atau lokasi lain yang sudah disetujui antara mereka, yang jelas bukan di rumah. Teman saya itu bilang, ternyata bekerja di luar rumah bisa lebih fokus ke pekerjaan, full time mengerjakan proyek dari pagi sampai sore. Tidak ada yang ‘mengganggu’. Dan yang lebih enak lagi, komunikasi antara programmer dan user, bisa lebih cepat. Bisa lebih menghasilkan solusi yang lebih jitu untuk digunakan pada saat pembuatan program.

Selama ini saya merasa, kalau bekerja di rumah akan lebih enak daripada kerja di luar rumah. Salah satu alasan yang sering saya pakai, bisa lebih menyediakan waktu untuk keluarga. Keluarga adalah nomor satu dalam hidup saya, baru setelahnya adalah pekerjaan. Tapi, kalau kejadiannya seperti yang dialami teman saya itu, wah repot juga ya, bisa hilang deh kepercayaan antara programmer yang mengimplementasikan dan user yang berharap selesai sesuai waktunya. Jangankan teman saya, wong istri telepon mengabarkan kondisi badannya tidak enak badan saja, atmosfir di kantor jadi berubah seperti badai calamity yang memporak-porandakan seisi kota. Apalagi kalau saya ada di rumah dan langsung melihat raut muka istri/keluarga yang sakit, tidak perlu ada kata-kata, yang ada saya mungkin bisa langsung pergi ke rumah sakit mengantarkan berobat. Benar-benar bayangan yang ekstrim yang pernah saya bayangkan tentang bekerja secara freelance.

Kalau membayangkan yang buruk-buruk dahulu sebelum kita menjalaninya, biasanya hasilnya seperti yang dibayangkan itu, buruk hasil akhirnya. Tapi kalau penuh rasa optimis, tanpa kehilangan kaki yang berpijak pada realita, berani ambil resiko setelah ditimbang dengan matang untuk resiko paling kecil yang akan diambil, saya yakin apapun cita-cita kita/saya/anda semua, pasti bisa kita raih. Raih kemenangan atau kekalahan adalah sama saja. Karena orang bilang, kekalahan adalah kemenangan yang tertunda. Tapi koq rasa-rasanya saya belum siap menerima kekalahan. Masih belum bisa 100% ikhlas menerima keputusanNya.

posted by Blog Wong Deso @ 10:38   0 comments
PROGRAMMER FREELANCE

Dunia programmer lepas (freelance)? Ini serius! Saat ini banyak perusahaan yang membutuhkan programmer tetapi tidak ingin merekrutnya sebagai pegawai tetap. Sebenarnya fenomena ini bukan berkembang belakangan ini, tetapi sudah bertahun-tahun yang lalu. Tetapi memang kejadiannya banyak di negara maju. Dan fenomena ini kini sudah merasuk ke Indonesia.

Di negara maju tenaga ahli memang sangat mahal. Hitungannya per jam, bukan per bulan layaknya di Indonesia. Tahun kemarin rata-rata harga per jam programmer senior freelance kurang-lebih US$ 10 per jam. Sedangkan programmer junior antara US$ 5-8 per jam. Coba saja kalikan dengan 40 jam, maka Anda akan mendapatkan angka US$ 400. Ini kurang lebih Rp 3,6 juta jika kursnya Rp 9.000 per dolar. Mengapa saya kalikan dengan 40 jam? Anda yang berprofesi sebagai karyawan pasti tahu maksudnya angka 40 jam ini. Yap betul, ini adalah jam kerja karyawan Indonesia selama 1 minggu.

Artinya adalah bahwa Anda cukup bekerja full-day seminggu untuk mendapatkan honor Rp 3,6 juta. Angka yang besar? Tidak! Ini belum besar. Anda masih bisa memanfaatkan 3-4 minggu sisanya selama sebulan untuk meraup angka yang lebih banyak. Dan angka ini bisa menjadi berlipat kalau Anda dapat bekerja dengan efektif dan efisien. Misalnya jika Anda mendapatkan sebuah proyek membuat program yang jatahnya adalah 100 jam tetapi Anda dapat menyelesaikannya hanya dalam kurun waktu 50 jam, maka Anda tetap akan mendapatkan honor 100 jam. Dan Anda telah menghemat 50 jam dari jam kerja Anda.

Tertarik?

posted by Blog Wong Deso @ 10:30   2 comments
konversi angka biasa ke romawi (vb)
Senin, 17 November 2008
Function Romawi(roma As Integer) As String

Dim keluar As String

keluar = String(Int(roma / 1000), "M")
roma = roma - (Int(roma / 1000) * 1000)

If roma >= 900 Then
keluar = keluar & "CM"
ElseIf roma >= 500 And roma < 900 Then
keluar = keluar & "D" & String(Int((roma - 500) / 100), "C")
ElseIf roma >= 400 And roma < 500 Then
keluar = keluar & "CD"
Else
keluar = keluar & String(Int(roma / 100), "C")
End If
roma = roma - (Int(roma / 100) * 100)


If roma >= 90 Then
keluar = keluar & "XC"
ElseIf roma >= 50 And roma < 90 Then
keluar = keluar & "L" & String(Int((roma - 50) / 10), "X")
ElseIf roma >= 40 And roma < 50 Then
keluar = keluar & "XL"
Else
keluar = keluar & String(Int(roma / 10), "X")
End If
roma = roma - (Int(roma / 10) * 10)


If roma >= 9 Then
keluar = keluar & "IX"
ElseIf roma >= 5 And roma < 9 Then
keluar = keluar & "V" & String(Int((roma - 5) / 1), "I")
ElseIf roma >= 4 And roma < 5 Then
keluar = keluar & "IV"
Else
keluar = keluar & String(Int(roma / 1), "I")
End If
Romawi = keluar
End Function
posted by Blog Wong Deso @ 07:42   1 comments
Mendapatkan tanggal dan jam server
Jumat, 14 November 2008

'***************************************************************************

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Const NERR_SUCCESS = 0&
Private Const TIME_ZONE_ID_DAYLIGHT As Long = 2

Private Type TIME_OF_DAY_INFO
tod_elapsedt As Long
tod_msecs As Long
tod_hours As Long
tod_mins As Long
tod_secs As Long
tod_hunds As Long
tod_timezone As Long
tod_tinterval As Long
tod_day As Long
tod_month As Long
tod_year As Long
tod_weekday As Long
End Type

Private Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type

Private Type TIME_ZONE_INFORMATION
bias As Long
StandardName(0 To 63) As Byte 'unicode (0-based)
StandardDate As SYSTEMTIME
StandardBias As Long
DaylightName(0 To 63) As Byte 'unicode (0-based)
DaylightDate As SYSTEMTIME
DaylightBias As Long
End Type

Private Declare Function NetRemoteTOD Lib "Netapi32" _
(UncServerName As Byte, _
BufferPtr As Long) As Long

Private Declare Function NetApiBufferFree Lib "Netapi32" _
(ByVal lpBuffer As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(pTo As Any, uFrom As Any, _
ByVal lSize As Long)

Private Declare Function GetTimeZoneInformation Lib "kernel32" _
(lpTimeZoneInformation As TIME_ZONE_INFORMATION) As Long

Private Declare Function SystemTimeToTzSpecificLocalTime Lib "kernel32" _
(lpTimeZoneInformation As TIME_ZONE_INFORMATION, _
lpUniversalTime As SYSTEMTIME, _
lpLocalTime As SYSTEMTIME) As Long
Function GetDateTimeServer(Server As String) As String
Dim server_date As TIME_OF_DAY_INFO
Dim sServer As String, NewTime As String
server_date = GetRemoteTOD("\\" & Server)
NewTime = DateAdd("s", server_date.tod_elapsedt, #1/1/1970#)
NewTime = DateAdd("n", -server_date.tod_timezone, NewTime)
GetDateTimeServer = NewTime

'DisplayData server_date
End Function
Private Function GetRemoteTOD(ByVal sServer As String) As TIME_OF_DAY_INFO

Dim success As Long
Dim bServer() As Byte
Dim tod As TIME_OF_DAY_INFO
Dim systime_utc As SYSTEMTIME
Dim systime_local As SYSTEMTIME
Dim tzi As TIME_ZONE_INFORMATION
Dim bufptr As Long

If sServer <> vbNullChar Then
If Left$(sServer, 2) <> "\\" Then
bServer = "\\" & sServer & vbNullChar
Else: bServer = sServer & vbNullChar
End If

Else

bServer = sServer & vbNullChar

End If

If NetRemoteTOD(bServer(0), bufptr) = NERR_SUCCESS Then

CopyMemory tod, ByVal bufptr, LenB(tod)
Call GetTimeZoneInformation(tzi)

With systime_utc
.wDay = tod.tod_day
.wDayOfWeek = tod.tod_weekday
.wMonth = tod.tod_month
.wYear = tod.tod_year
.wHour = tod.tod_hours
.wMinute = tod.tod_mins
.wSecond = tod.tod_secs
End With

Call SystemTimeToTzSpecificLocalTime(tzi, systime_utc, systime_local)

With tod
.tod_mins = systime_local.wMinute
.tod_hours = systime_local.wHour
.tod_secs = systime_local.wSecond
.tod_day = systime_local.wDay
.tod_month = systime_local.wMonth
.tod_year = systime_local.wYear
.tod_weekday = systime_local.wDayOfWeek
End With

End If

Call NetApiBufferFree(bufptr)
GetRemoteTOD = tod

End Function

Function GetCom() As String ' untuk mendaptakan nama komputer lokal
Dim dwLen As Long
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
GetCom = strString
End Function


Private Sub Form_Load()
MsgBox GetDateTimeServer("ekoaja") ' bisa diganti sesuai dengan nama/ip komputer server
End Sub
posted by Blog Wong Deso @ 17:41   0 comments
Mengurangi Kelemahan SQL (Sql Injection)
Kali ini kami akan memberitahukan rekan-rekan, khusunya yang baru belajar pemograman yang ada sangkut-
pautnya dengan penggunaan database dan Query.

Penggunaan query sangatlah memudahkan para programmer untuk menampilkan informasi apapun, disertai
dengan berbagai macam kriteria didalamnya guna menunjang kebutuhan. Tapi hal ini tidak dapat berlangsung
lama, dikarenakan beberapa waktu lalu penggunaan query sempat digunakan para hacker maupun cracker
untuk masuk ke dalam sebuah system. Kenapa bisa demikian?

Pasti anda ingat! setiap kali kita menuliskan sebuah kriteria pada baris perintah SQL selalu ditambahkan
tanda kutip ('), sebagai contoh:

SELECT Users.Login, Users.Password From Users Where (Users.Login='eko') And (Users.Password='123')

Kalo anda perhatikan perintah diatas, biasanya script tsb digunakan untuk memeriksa nama login dan
password pada tabel. jika tersedia maka kita dapat masuk ke sebuah aplikasi ataupun situs.
Bagaimana kalo kita bukan member dan ingin masuk ke sebuah system?

Sebelum masalah ini ditemukan dan dibahas oleh para pakar, Untuk masuk kesebuah system walupun
bukan user ataupun member, kita dapat memanfaatkan kelemahan system dengan cara memasukan beberapa
perintah SQL kedalam aplikasi tsb atau istilah kerennya sering disebut SQL Injection.
SQL Injection ini sering digunakan pada salah satu system yang menggunakan database, seperti
Ms.SQL, Oracle, Ms.Access dlll.

sebagai contoh biasanya untuk masuk ke sebuah situs tertentu, kita sering diminta memasukan nama user
dan password.

varlogin = "eko"
varPwd = "123"

sql= "SELECT Users.Login, Users.Password From Users Where (Users.Login='" & varlogin & "') And " & _
(Users.Password='" & varPwd & "')"

Kalo baris perintah diatas dieksekusi maka akan berjalan normal dan apabila user dan passwordnya
tersedia maka dapat masuk ke sistem. Dan akan ditolak apabila salah.
Beda halnya dengan script berikut:

varlogin = "eko' OR 'A'='A"
varPwd = "123' OR 'B'='B"

sql= "SELECT Users.Login, Users.Password From Users Where (Users.Login='" & varlogin & "') And " & _
(Users.Password='" & varPwd & "')"

Jika di eksekusi script tersebut maka kita dapat masuk ke sebuah system, walaupun user dan password
yang kita masukan salah. Kenapa bisa demikian? coba lihat nama login dan password yang dimasukan:
==> eko' OR 'A'='A
==> 123' OR 'B'='B

kalo kita gabungkan dengan script yang dibuat maka akan menjadi:
SELECT Users.Login, Users.Password From Users Where (Users.Login='eko' OR 'A'='A') And
(Users.Password='123' OR 'B'='B')

Karena telah ditambahkan script SQL melalui inputan maka kita dapat masuk kapanpun pada system
tersebut. Masih banyak script yang dapat dikombinasikan seperti UNION, HAVING dll...

Untuk menghindari kejadian diatas kita harus membuat fungsi untuk mengindari SQL Injection tersebut
salah satu contoh fungsi tersebut ialah:

Function AllowChar(SQLStr As String) As String
Dim I As Integer, splitStr,NotAllowCharSet as string
NotAllowCharSet= " ' UNION SELECT ; -- | OR AND "
splitStr = Split(NotAllowCharSet, " ")
For I = 0 To UBound(splitStr)
If splitStr(I) = "'" Then
SQLStr = Replace(SQLStr, splitStr(I), "`")
Else
SQLStr = Replace(SQLStr, splitStr(I), "")
End If
Next I
AllowChar = SQLStr
End Function

Anda bisa mengembangkan fungsi diatas sesuai kebutuhan.
Semoga dapat menambah pengetahuan rekan-rekan, khususnya bagi yang baru belajar visual basic

Salam,....
posted by Blog Wong Deso @ 16:39   0 comments
MENYEMBUNYIKAN APLIKASI ANDA DARI JENDELA TASK MANAGER, (cocok bgi yng mo bikin virus, hueheheheh..)


DECLARATIONS :

Option Explicit
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

KODE


Private Sub HideApp(lbValue As Boolean)
Dim lngProcessID As Long
Dim lngReturn As Long
lngProcessID = GetCurrentProcessId()
If lbValue Then
lngReturn = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
Else
lngReturn = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End If
End Sub
posted by Blog Wong Deso @ 11:30   0 comments
Pencarian data dalam combo secara cepat (Script Vb)
'// membutuhkan 1 Combobox
'By: eko cahyono Ym:eko_matrix
Private cekKey As Boolean

Private Sub Combo1_Change()
Static ChangeFlag As Boolean
Dim cboText As String
Dim lencboText As Integer
Dim tmpLen As Integer
Dim tmp As Integer

If Not ChangeFlag Then
cboText = Combo1.Text
lencboText = Len(Combo1.Text)
If Not cekKey Then
For tmp = 0 To Combo1.ListCount - 1
If UCase(Left(Combo1.Text, Combo1.SelStart)) = UCase _
(Combo1.List(tmp)) Then
ChangeFlag = True
Combo1.Text = Combo1.List(tmp)
Combo1.SelStart = Len(Combo1.Text)
ChangeFlag = False
cekKey = False
Exit Sub
End If
Next tmp

If lencboText > 0 Then
For tmp = 0 To Combo1.ListCount - 1
If UCase(Left(Combo1.List(tmp), _
lencboText)) = UCase(cboText) Then
tmpLen = lencboText
ChangeFlag = True
Combo1.Text = Combo1.List(tmp)
Combo1.SelStart = tmpLen
Combo1.SelLength = Len(Combo1.List( _
tmp)) - tmpLen
ChangeFlag = False
Exit For
End If
Next tmp
End If
End If
cekKey = False
End If
End Sub

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyDelete) Or (KeyCode = vbKeyBack) Then
cekKey = True
End If
End Sub
posted by Blog Wong Deso @ 09:39   0 comments
Membuat semua control di form menjadi flat (Scrip VB)
Option Explicit
'By : Eko cahyono Ym: eko_matrix
Const GWL_EXSTYLE = (-20)
Const WS_EX_CLIENTEDGE = &H200
Const WS_EX_STATICEDGE = &H20000
Const SWP_FRAMECHANGED = &H20
Const SWP_NOZORDER = &H4

Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

Private Declare Sub SetWindowPos Lib "user32" (ByVal HWND As Long, _
ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As _
Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
(ByVal HWND As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal HWND As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


Public Sub FlatStyle(ByVal HWND As Long)
Dim oStyle As Long
oStyle = GetWindowLong(HWND, GWL_EXSTYLE)
oStyle = oStyle And Not WS_EX_CLIENTEDGE Or WS_EX_STATICEDGE
SetWindowLong HWND, GWL_EXSTYLE, oStyle
SetWindowPos HWND, 0, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOZORDER Or _
SWP_FRAMECHANGED Or SWP_NOSIZE Or SWP_NOMOVE
End Sub

Private Sub Form_Load()
'Sediakan beberapa objek spt (Picture1,List1,Text1,Command1, dll...)
'Panggil fungsi seperti ini dengan parameter HWND setiap objek
'########################
'FlatStyle Form1.HWND
'FlatStyle Command1.HWND
'FlatStyle List1.HWND
'FlatStyle Picture1.HWND
'FlatStyle Text1.HWND





'apabila ingin otomatis untuk semua objek di form
'bisa pake fungsi berikut:
'#####################
On Error Resume Next
Dim cc As Control
For Each cc In Me.Controls
FlatStyle cc.HWND
Next

End Sub
posted by Blog Wong Deso @ 09:28   2 comments
Update antivirus Symantec Terbaru
Kamis, 13 November 2008
Download di link ini:
http://securityresponse.symantec.com/avcenter/download/pages/US-N95.html

MENERIMA JASA PEMBUATAN PROGRAM SISTEM INFORMASI DENGAN VISUAL BASIC





posted by Blog Wong Deso @ 10:15   0 comments
Peryataan yang membunuh (killer statement)
Suatu ketika saya kursus menyetir mobil agar mampu berkendara. saya mengambil waktu hanya untuk 6 jam , melihat lambatnya saya belajar, sang instruktur berucap "walaupun sampai 20 jam , anda nggak akan terampil menyetir ". andai saya terpengaruh oleh Killer statment(peryataan yang membunuh) seperti itu . saya yakin sampai sekarang saya tidak akan duduk di kursi pengemudi mobil.untung saja ketajaman peryataan itu tidak terlalu menggangu pikiran saya.
Apa itu killer sttement? gampangnya, killer statment itu adalah segala bentuk peryataan yang diucap,yang sadar or tidak , akan melukai dan merusak mental maupun semangat orang lain.
posted by Blog Wong Deso @ 07:39   0 comments
Mematikan Monitor Dengan Fungsi SendMessage
Rabu, 12 November 2008
'siapkan form dengan nama form1
' Command dengan nama Command1
' timer dengan nama timer1

Option Explicit

Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" _
(ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
lParam As Any) As Long


Private Sub Form_Load()
Command1.Caption = "Turn off monitors"
End Sub


Private Sub Command1_Click()
Call SendMessage(Me.hWnd, WM_SYSCOMMAND, _
SC_MONITORPOWER, ByVal MONITOR_OFF)
With Timer1
.Interval = 8000
.Enabled = True
End With
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False
Call SendMessage(Me.hWnd, WM_SYSCOMMAND, _
SC_MONITORPOWER, ByVal MONITOR_ON)
End Sub
posted by Blog Wong Deso @ 16:08   3 comments
mendapatkan nama komputer(Script VB)
Option Explicit
'BY Eko cahyono (YM: eko_matrix)
Private Const MAX_PREFERRED_LENGTH As Long = -1
Private Const NERR_SUCCESS As Long = 0&
Private Const ERROR_MORE_DATA As Long = 234&

Private Const SV_TYPE_WORKSTATION As Long = &H1
Private Const SV_TYPE_SERVER As Long = &H2
Private Const SV_TYPE_SQLSERVER As Long = &H4
Private Const SV_TYPE_DOMAIN_CTRL As Long = &H8
Private Const SV_TYPE_DOMAIN_BAKCTRL As Long = &H10
Private Const SV_TYPE_TIME_SOURCE As Long = &H20
Private Const SV_TYPE_AFP As Long = &H40
Private Const SV_TYPE_NOVELL As Long = &H80
Private Const SV_TYPE_DOMAIN_MEMBER As Long = &H100
Private Const SV_TYPE_PRINTQ_SERVER As Long = &H200
Private Const SV_TYPE_DIALIN_SERVER As Long = &H400
Private Const SV_TYPE_XENIX_SERVER As Long = &H800
Private Const SV_TYPE_SERVER_UNIX As Long = SV_TYPE_XENIX_SERVER
Private Const SV_TYPE_NT As Long = &H1000
Private Const SV_TYPE_WFW As Long = &H2000
Private Const SV_TYPE_SERVER_MFPN As Long = &H4000
Private Const SV_TYPE_SERVER_NT As Long = &H8000
Private Const SV_TYPE_POTENTIAL_BROWSER As Long = &H10000
Private Const SV_TYPE_BACKUP_BROWSER As Long = &H20000
Private Const SV_TYPE_MASTER_BROWSER As Long = &H40000
Private Const SV_TYPE_DOMAIN_MASTER As Long = &H80000
Private Const SV_TYPE_SERVER_OSF As Long = &H100000
Private Const SV_TYPE_SERVER_VMS As Long = &H200000
Private Const SV_TYPE_WINDOWS As Long = &H400000 'Windows95 and above
Private Const SV_TYPE_DFS As Long = &H800000 'Root of a DFS tree
Private Const SV_TYPE_CLUSTER_NT As Long = &H1000000 'NT Cluster
Private Const SV_TYPE_TERMINALSERVER As Long = &H2000000 'Terminal Server
Private Const SV_TYPE_DCE As Long = &H10000000 'IBM DSS
Private Const SV_TYPE_ALTERNATE_XPORT As Long = &H20000000 'rtn alternate transport
Private Const SV_TYPE_LOCAL_LIST_ONLY As Long = &H40000000 'rtn local only
Private Const SV_TYPE_DOMAIN_ENUM As Long = &H80000000
Private Const SV_TYPE_ALL As Long = &HFFFFFFFF

Private Const SV_PLATFORM_ID_OS2 As Long = 400
Private Const SV_PLATFORM_ID_NT As Long = 500

'Mask applied to svX_version_major in
'order to obtain the major version number.
Private Const MAJOR_VERSION_MASK As Long = &HF

Private Type SERVER_INFO_100
sv100_platform_id As Long
sv100_name As Long
End Type

Private Declare Function NetServerEnum Lib "netapi32" _
(ByVal servername As Long, _
ByVal level As Long, _
buf As Any, _
ByVal prefmaxlen As Long, _
entriesread As Long, _
totalentries As Long, _
ByVal servertype As Long, _
ByVal domain As Long, _
resume_handle As Long) As Long

Private Declare Function NetApiBufferFree Lib "netapi32" _
(ByVal Buffer As Long) As Long

Private Declare Sub CopyMemory Lib "kernel32" _
Alias "RtlMoveMemory" _
(pTo As Any, uFrom As Any, _
ByVal lSize As Long)

Private Declare Function lstrlenW Lib "kernel32" _
(ByVal lpString As Long) As Long


Private Function GetServers() As Long
Dim bufptr As Long
Dim dwEntriesread As Long
Dim dwTotalentries As Long
Dim dwResumehandle As Long
Dim se100 As SERVER_INFO_100
Dim success As Long
Dim nStructSize As Long
Dim cnt As Long
Dim hslNm As String
nStructSize = LenB(se100)
success = NetServerEnum(0&, _
100, _
bufptr, _
MAX_PREFERRED_LENGTH, _
dwEntriesread, _
dwTotalentries, _
SV_TYPE_ALL, _
0&, _
dwResumehandle)

If success = NERR_SUCCESS And _
success <> ERROR_MORE_DATA Then
For cnt = 0 To dwEntriesread - 1
CopyMemory se100, ByVal bufptr + (nStructSize * cnt), nStructSize
hslNm = hslNm & GetPointerToByteStringW(se100.sv100_name) & vbNewLine
Next
End If
Call NetApiBufferFree(bufptr)

GetServers = dwEntriesread
MsgBox hslNm

End Function

Public Function GetPointerToByteStringW(ByVal dwData As Long) As String

Dim tmp() As Byte
Dim tmplen As Long

If dwData <> 0 Then

tmplen = lstrlenW(dwData) * 2

If tmplen <> 0 Then

ReDim tmp(0 To (tmplen - 1)) As Byte
CopyMemory tmp(0), ByVal dwData, tmplen
GetPointerToByteStringW = tmp

End If

End If

End Function

Private Sub Form_Load()
Call GetServers
End Sub
posted by Blog Wong Deso @ 14:12   0 comments
About Me

Name: Blog Wong Deso
Home:
About Me:

See my complete profile
Previous Post
Archives
Links
BackLink
ShoutMix

ShoutMix chat widget
Powered by

BLOGGER

© SOURCE CODE VISUAL BASIC .Blogger Templates by Wong Deso Com and Car Pictures