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
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
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
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.
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
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
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
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
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
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
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
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
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
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)
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
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
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
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)
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
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
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
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
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 :
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)
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:
Novel “Laskar 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
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.
-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
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
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
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.
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.
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.
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
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
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
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
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
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
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
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.
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
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