SMK Negeri 2 DUMAIScript Klik kanan + CTRL U + CTRL C : CTRL + F lalu search <body> Masukin script itu seperti ini <body oncontextmenu='return false;' onkeydown='return false;' onmousedown='return false;'>
Rabu, 26 Agustus 2015
anti
Rabu, 18 Februari 2015
install cpanle di centos
Sebelum melakukan cara install cPanel di VPS Linux, pastikan anda memiliki spesifikasi RAM VPS minimal 256Mb.
Berikut ini adalah langkah-langkah untuk install cPanel di vps server:
1. Login SSH ke server menggunakan akses root
2. mkdir /home/cpins
3. cd /home/cpins
4. wget http://layer1.cpanel.net/latest
5. sh latest
6. Ikuti configurasi yang dibutuhkan cPanel
Proses install melalui console normalnya membutuhkan waktu 1-2 jam jika server USA dan 3-5 jam untuk server Indonesia.
7. Setelah installasi melalui console selesai, login ke cpanel menggunakan IP dengan alamat https://IP_address:2087, kemudian lanjutkan proses installasi melalui website (WHM).
Demikian tutorial cara install cPanel di VPS Linux, semoga bermanfaat.
1cd /home — Opens the directory /home.
wget -N http://layer1.cpanel.net/latest — Fetches the latest installation file from the cPanel servers.
sh latest — Opens and runs the installation files.
/usr/local/cpanel/cpkeyclt — Activates your license after installation.
1. Akses VPS menggunakan SSH dengan menjalankan PUTTy
2. Non Aktifkan iptables VPS Anda, agar semua port terbuka, dengan perintah berikut :
chkconfig iptables off
service iptables stop
3. Untuk menginstal cPanel, Anda diharus me-nonaktifkan SELINUX. SELinux atau Security Enhanced Linux.
Caranya : ketik nano /etc/selinux/config
# This file controls the state of SELinux on the system.
# SELINUX= can take one of these three values:
# enforcing – SELinux security policy is enforced.
# permissive – SELinux prints warnings instead of enforcing.
# disabled – No SELinux policy is loaded.
SELINUX=disabled
# SELINUXTYPE= can take one of these two values:
# targeted – Only targeted network daemons are protected.
# strict – Full SELinux protection.
SELINUXTYPE=targeted
Edit sesuai dengan yang di atas. Lalu tekan tombol CTRL+X, pilih “y”. Maka sudah tersimpan dan keluar.
Jika perintah nano tidak bisa, maka Anda harus instal dulu nano dengan mengetikkan : yum install nano
Jika sudah, kembali ke root dengan mengetikkan : cd /home
4. Sekarang saatnya untuk install cPanel. Ketikkan perintah berikut :
wget -N http://www.drupadi.com/cpanel.sh
sh cpanel.sh
Installasi cpanel akan berjalan, pastikan shell anda sudah dalam prompt # sehingga walaupun koneksi anda terputus, cpanel masih tetap terinstall di background.
Untuk melihat log installasi bisa dengan perintah :
tail -f /var/log/cpanel-install.log
Akhiri dengan tombol CTRL + C jika ingin keluar dari log.
Proses instalasi cPanel sudah berlangsung. Installasi kurang lebih 2 jam untuk VPS USA dan 4-6 jam untuk VPS IIX.
5. Jika instalasi sudah selesai, silahkan buka : http://ipaddress:2086 lalu masukkan username (root) dan password vps Anda. Setelah itu ikuti step-step yang ada.
Informasi lebih lanjut silahkan menghubungi Drupadi Hosting Support Team.
Berikut ini adalah langkah-langkah untuk install cPanel di vps server:
1. Login SSH ke server menggunakan akses root
2. mkdir /home/cpins
3. cd /home/cpins
4. wget http://layer1.cpanel.net/latest
5. sh latest
6. Ikuti configurasi yang dibutuhkan cPanel
Proses install melalui console normalnya membutuhkan waktu 1-2 jam jika server USA dan 3-5 jam untuk server Indonesia.
7. Setelah installasi melalui console selesai, login ke cpanel menggunakan IP dengan alamat https://IP_address:2087, kemudian lanjutkan proses installasi melalui website (WHM).
Demikian tutorial cara install cPanel di VPS Linux, semoga bermanfaat.
1cd /home — Opens the directory /home.
wget -N http://layer1.cpanel.net/latest — Fetches the latest installation file from the cPanel servers.
sh latest — Opens and runs the installation files.
/usr/local/cpanel/cpkeyclt — Activates your license after installation.
1. Akses VPS menggunakan SSH dengan menjalankan PUTTy
2. Non Aktifkan iptables VPS Anda, agar semua port terbuka, dengan perintah berikut :
chkconfig iptables off
service iptables stop
3. Untuk menginstal cPanel, Anda diharus me-nonaktifkan SELINUX. SELinux atau Security Enhanced Linux.
Caranya : ketik nano /etc/selinux/config
# This file controls the state of SELinux on the system.
# SELINUX= can take one of these three values:
# enforcing – SELinux security policy is enforced.
# permissive – SELinux prints warnings instead of enforcing.
# disabled – No SELinux policy is loaded.
SELINUX=disabled
# SELINUXTYPE= can take one of these two values:
# targeted – Only targeted network daemons are protected.
# strict – Full SELinux protection.
SELINUXTYPE=targeted
Edit sesuai dengan yang di atas. Lalu tekan tombol CTRL+X, pilih “y”. Maka sudah tersimpan dan keluar.
Jika perintah nano tidak bisa, maka Anda harus instal dulu nano dengan mengetikkan : yum install nano
Jika sudah, kembali ke root dengan mengetikkan : cd /home
4. Sekarang saatnya untuk install cPanel. Ketikkan perintah berikut :
wget -N http://www.drupadi.com/cpanel.sh
sh cpanel.sh
Installasi cpanel akan berjalan, pastikan shell anda sudah dalam prompt # sehingga walaupun koneksi anda terputus, cpanel masih tetap terinstall di background.
Untuk melihat log installasi bisa dengan perintah :
tail -f /var/log/cpanel-install.log
Akhiri dengan tombol CTRL + C jika ingin keluar dari log.
Proses instalasi cPanel sudah berlangsung. Installasi kurang lebih 2 jam untuk VPS USA dan 4-6 jam untuk VPS IIX.
5. Jika instalasi sudah selesai, silahkan buka : http://ipaddress:2086 lalu masukkan username (root) dan password vps Anda. Setelah itu ikuti step-step yang ada.
Informasi lebih lanjut silahkan menghubungi Drupadi Hosting Support Team.
Kamis, 12 Februari 2015
import dabase error file besar
Mengatasi import file *.sql yang ukuranya terlalu besar di dalam phpMyAdmin XAMPP
Pernahkah Saudara menemukan masalah yang sama dengan ini??? You probably tried to upload too large file. Please refer to documentation for ways to workaround this limit. Apa ini bisa diatasi??? jawabnya mudah saja. Setelah cari referensi sana sini. Anda tinggal jalankan langkah-langkah di bawah ini:
1. Edit file config.inc.php yang terletak di dalam folder xampp/phpMyAdmin/ dengan Notepad ++
2. Tambahkan skrip berikut ini:
Pada waktu itu, saya menemui kesulitan ketika akan mengimport database di webserver lokal seperti di xampp dikarenakan ukuran file yang sangat besar. File tersebut kira-kira kapasitasnya 2 MB dan 750 MB, sehingga ketika akan diimport xampp mengeluarkan pesan error. Setelah saya cari-cari di mbah Google akhirnya ketemu yang pas disini. Berikut ini sedikit saya bahas mengenai solusinya.
Pada awalnya saya mencoba untuk mengimport file yang berkapasitas besar itu ternyata xampp tidak bisa memprosesnya, sehingga muncul notifikasi "No data was received to import. Either no file name was submitted, or the file size exceeded the maximum size permitted by your PHP configuration" seperti dibawah ini.
Akhirnya saya mengikuti saran disini dengan mengganti nilai-nilai dari beberapa variable yang ada di php/php.ini di bawah ini :
sebelum di ubah :
post_max_size = 8M
upload_max_filesize = 2M
max_execution_time = 30
max_input_time = 60
memory_limit = 8M
setelah diubah :
post_max_size = 750M
upload_max_filesize = 750M
max_execution_time = 5000
max_input_time = 5000
memory_limit = 1000M
setelah saya coba men-setting seperti diatas, ukuran file 2 MB bisa sukses di import,
Sedangkan pada file kedua yang berkapasitas 750 MB tidak berhasil, karena sangat besar sekali melebihi file pertama tadi. Sehingga muncul pesan error seperti gambar di bawah ini.
Setelah itu saya coba ganti variable 'max_input_time=5000', menjadi 'max_input_time=-1' untuk menjadikan default value yaitu unlimited dan ternyata tidak berhasil juga.
Akhirnya saya memecah file sql yang kapasitasnya sangat besar tersebut menjadi beberapa bagian dengan menggunakan SQL SPLITTER. Bisa di download secara gratis di Internet.
Caranya mudah, kita tinggal Open File sql yang mau di pecah. Sebelumnya tentukan dulu ukuran kapasitas file dengan mengisi di field New File Size, kemudian klik Generate.
Semoga sharing ini bermanfaat.
1. Edit file config.inc.php yang terletak di dalam folder xampp/phpMyAdmin/ dengan Notepad ++
2. Tambahkan skrip berikut ini:
$cfg['UploadDir'] = 'upload';
$cfg['ExecTimeLimit'] = 0;
3.Buat folder upload di dalam folder xampp/phpMyAdmin/
4. Refresh xampp Anda
5. Kemudian masuk localhost/phpmyadmin
6. Pilih menu import
7. Pilih Select from the web server upload directory upload/:
8. Tekan Go, Silakan tunggu sampe selesai.
Sekian
Cara Memperbesar kapasitas import file pada mysql di phpmyadmin
Pada waktu itu, saya menemui kesulitan ketika akan mengimport database di webserver lokal seperti di xampp dikarenakan ukuran file yang sangat besar. File tersebut kira-kira kapasitasnya 2 MB dan 750 MB, sehingga ketika akan diimport xampp mengeluarkan pesan error. Setelah saya cari-cari di mbah Google akhirnya ketemu yang pas disini. Berikut ini sedikit saya bahas mengenai solusinya.
Pada awalnya saya mencoba untuk mengimport file yang berkapasitas besar itu ternyata xampp tidak bisa memprosesnya, sehingga muncul notifikasi "No data was received to import. Either no file name was submitted, or the file size exceeded the maximum size permitted by your PHP configuration" seperti dibawah ini.
sebelum di ubah :
post_max_size = 8M
upload_max_filesize = 2M
max_execution_time = 30
max_input_time = 60
memory_limit = 8M
setelah diubah :
post_max_size = 750M
upload_max_filesize = 750M
max_execution_time = 5000
max_input_time = 5000
memory_limit = 1000M
setelah saya coba men-setting seperti diatas, ukuran file 2 MB bisa sukses di import,
Sedangkan pada file kedua yang berkapasitas 750 MB tidak berhasil, karena sangat besar sekali melebihi file pertama tadi. Sehingga muncul pesan error seperti gambar di bawah ini.
Setelah itu saya coba ganti variable 'max_input_time=5000', menjadi 'max_input_time=-1' untuk menjadikan default value yaitu unlimited dan ternyata tidak berhasil juga.
Akhirnya saya memecah file sql yang kapasitasnya sangat besar tersebut menjadi beberapa bagian dengan menggunakan SQL SPLITTER. Bisa di download secara gratis di Internet.
Semoga sharing ini bermanfaat.
Senin, 02 Februari 2015
Cara mengetahui spesifikasi VPS Lewat Puty
1.Mengetahui Memori RAM
Ketikkan perintah : cat /proc/meminfo
2.Mengetahui CPU Core
Ketikkan perintah : cat /proc/cpuinfo
3.Mengetahui kapasitas harddisk
Ketikkan perintah : df -H
4.Mengetahui stabilitas
Ketikkan perintah : w
5.Mengetahui versi linux (dalam hal ini adalah centos)
Ketikkan perintah : cat /proc/version
6.Mengetahui release Centos
Ketikkan perintah : cat /etc/*release*
7.Mengetahui 32 bit atau 64 bit
Ketikkan perintah : uname -a
Ketikkan perintah : cat /proc/meminfo
2.Mengetahui CPU Core
Ketikkan perintah : cat /proc/cpuinfo
3.Mengetahui kapasitas harddisk
Ketikkan perintah : df -H
4.Mengetahui stabilitas
Ketikkan perintah : w
5.Mengetahui versi linux (dalam hal ini adalah centos)
Ketikkan perintah : cat /proc/version
6.Mengetahui release Centos
Ketikkan perintah : cat /etc/*release*
7.Mengetahui 32 bit atau 64 bit
Ketikkan perintah : uname -a
Sabtu, 31 Januari 2015
Hello i take te time for share this 3 sites i found and tell how you cant use to!
I bout i spend more than $1,800 usd in about 4 days!
RECOMEND; In this sites you nithg to registrer! I give you a site for do a fake user!
http://es.fakenamegenerator.com/gen-male-gr-gr.php
#1:
https://www.virwox.com
You can *deposit founds* for your count! from Visa, Mastercard, American Exprees, Paypal etc!
Recomend you registrer whit any username or information!
http://es.fakenamegenerator.com/gen-male-gr-gr.php
#2:
http://tebannova.wix.com/jeunesse
Its easy site for shoping a good products!
Step 1: SHOPING
2: REGISTRER ( USE THE FAKE USER )
http://es.fakenamegenerator.com/gen-male-gr-gr.php
3: PAY: Note: You have to be more careful in this step because you only have 3 times for introduce a good CC, the confirmation securyti its very simple you can pay whit a lot of cc no mather te country, but remember be carfeul, i recomend: when you FIND a Good ONE CC, tha is the moment for use that!
Good Luck!
#3:
www.wakeupslp.wakeupnow.com
Site whit a lot of stores!!!
This site it for member Only, for that you have to registrer and pay for only one time the membership! in USA is for $124 usd, and that give you OFFER PRICES, CASH BACK, FREE SAMPLES, etc..
Do this:
First step: REGISTRER ( YOU CAN USE THE LINK FOR DO FAKE USERS)
http://es.fakenamegenerator.com/gen-male-gr-gr.php
STEP 2: PAY THE MEMBERSHIP FOR $124 USD!
In this step you have a lot of chance for intro the CC information you nedd only number card, expires and cvv, is good and easy!
STEP 3: SEARCH IN THE MARKETPLACE WHEREVER YOU WANT!
I pay for a lacoste whatch and i dont have problems whit that!
NOTE; If´u use a IP HACKER its posible tha conexion down!
!
Well!
That´s it! Good luck, if you nitgh help, this is mi mail:
cuenta2btc@hotmail.com
CIAO!
I bout i spend more than $1,800 usd in about 4 days!
RECOMEND; In this sites you nithg to registrer! I give you a site for do a fake user!
http://es.fakenamegenerator.com/gen-male-gr-gr.php
#1:
https://www.virwox.com
You can *deposit founds* for your count! from Visa, Mastercard, American Exprees, Paypal etc!
Recomend you registrer whit any username or information!
http://es.fakenamegenerator.com/gen-male-gr-gr.php
#2:
http://tebannova.wix.com/jeunesse
Its easy site for shoping a good products!
Step 1: SHOPING
2: REGISTRER ( USE THE FAKE USER )
http://es.fakenamegenerator.com/gen-male-gr-gr.php
3: PAY: Note: You have to be more careful in this step because you only have 3 times for introduce a good CC, the confirmation securyti its very simple you can pay whit a lot of cc no mather te country, but remember be carfeul, i recomend: when you FIND a Good ONE CC, tha is the moment for use that!
Good Luck!
#3:
www.wakeupslp.wakeupnow.com
Site whit a lot of stores!!!
This site it for member Only, for that you have to registrer and pay for only one time the membership! in USA is for $124 usd, and that give you OFFER PRICES, CASH BACK, FREE SAMPLES, etc..
Do this:
First step: REGISTRER ( YOU CAN USE THE LINK FOR DO FAKE USERS)
http://es.fakenamegenerator.com/gen-male-gr-gr.php
STEP 2: PAY THE MEMBERSHIP FOR $124 USD!
In this step you have a lot of chance for intro the CC information you nedd only number card, expires and cvv, is good and easy!
STEP 3: SEARCH IN THE MARKETPLACE WHEREVER YOU WANT!
I pay for a lacoste whatch and i dont have problems whit that!
NOTE; If´u use a IP HACKER its posible tha conexion down!
!
Well!
That´s it! Good luck, if you nitgh help, this is mi mail:
cuenta2btc@hotmail.com
CIAO!
Jumat, 23 Januari 2015
Cek Valid / Invalid CC (Credit Card)
Selasa, 15 November 2011
oke deh lsg aja cekidot
__________________________________________________________________
Pada bagian ini anda akan mengetahui rahasia tersembunyi tentang Kartu Kredit,meliputi :
Kode Rahasia CVV (Cardholder Verification Value)
Kode Rahasia CVV (Cardholder Verivication Value)
Setiap Kartu Kredit dilengkapi dengan 3 atau 4 KODE ANGKA RAHASIA, yang sering dikenal sebagai CVV (Cardholder Verification Value). CVV memiliki banyak sebutan lainnya, misalnya :
CSC (Card Security Code) atau CVN (Card Verification Number).
• Perusahaan Visa menyebutnya sebagai CVV2,
• Mastercard menyebutnya sebagai CVC2,
• Diners Club menyebutnya sebagai CVV2,
• Perusahaan American Express menyebutnya CIN (Card Identification
Number).
Visa dan Mastercard Memiliki 3 digit CVV/CVC, sedangkan American Express Memiliki 4 digit CIN. Biasanya CVV ini terletak di bagian belakang kartu kredit, yang merupakan nomor otorisasi manual untuk kartu kredit supaya bisa melakukan transaksi. Jika anda biasa belanja di Hypermarket / Supermarket dengan menggunakan Kartu Kredit, coba perhatikan, biasanya seorang Kasir yang teliti, setelah menggesek Kartu Kredit Anda, dia akan membalik Kartu Kredit Anda untuk mengecek 3 DIGIT CVV Anda yang muncul di layar komputernya. Tapi biasanya jika Kartu Kredit Anda memiliki foto, seorang kasir tidak perlu melihatCVV Anda, tapi dia hanya perlu mencocokkan foto anda di kartu dengan diri anda, jadi jangan heran apalagi Ge-Er apabila seorang kasir yang cantik melirik anda ..... hehehe .... CVV jauh lebih sering digunakan untuk TRANSAKSI yang tidak menggunakan Kartu Kredit secara fisik, tapi Lebih Sering digunakan untuk mengecek pembelanjaan secara Online / Via Internet. Jadi Dengan Adanya CVV ini , maka sang pemilik Kartu Kredit akan merasa amandalam mencegah orang yang tidak diinginkan melakukan transaksi denganmenggunakan Nomor Kartu Kredit miliknya. BENARKAH ? 00 % SALAH !!!!
Anda akan mengetahui bagaimana cara mengetahui Nomer Kode Rahasia CVV dari kartu kredit manapun juga ... !!! Syaratnya hanya 1, anda harus mengetahui NOMER KARTU KREDITnya , Tidak Bisa Ditawar- Tawar ... !!! Silahkan dibaca terus...
Mengetahui apakah suatu Kartu Kredit Valid atau Tidak
. Cara Rahasia Mengetahui apakah suatu Kartu Kredit Valid atau Tidak. Setiap anda berbelanja menggunakan Kartu Kredit, maka ada suatu proses keabsahan suatu Kartu Kredit yang dikenal dengan nama Authentifikasi, yaitu suatu proses pengecekan apakah kartu kredit yang anda gunakan masih Valid Atau Tidak. Biasanya pengecekan akan lebih mudah dengan menggunakan mesin atau sistem, tapi tahukah anda bahwa anda bisa juga melakukan pengecekan apakah Kartu Kredit yang anda miliki Valid atau tidak ? Lalu bagaimanakah cara pengecekannya ? Mari kita simak bersama :
Contoh :
Misalnya No. Kartu Kreditnya adalah 5378-5432-1011-8224 Saya Ingin mengetahui apakah nomor Kartu Kredit itu Valid atau Tidak ? Begini caranya :
Terdapat 16 DIGIT pada Nomer Kartu Kredit Tersebut.
- Langkah I,
Kalikan SEMUA ANGKA pada DIGIT GANJIL dengan “2”, lalu :
- Jika hasilnya Lebih dari 9 maka KURANGI HASILNYA dengan “9”,
- Jika hasilnya Kurang dari 9, biarkan saja.
Setelah itu JUMLAHKAN SEMUANYA.
Digit 1 : 5 ; 5x2 = 10 {Lebih dari 9}, jadi 10 – 9 = 1
Digit 3 : 7 ; 7x2 = 14 {Lebih dari 9}, jadi 14 – 9 = 5
Digit 5 : 5 ; 5x2 = 10 {Lebih dari 9}, jadi 10 – 9 = 1
Digit 7 : 3 ; 3x2 = 6 {Biarkan saja, karena KURANG DARI 9}
Digit 9 : 1 ; 1x2 = 2 {Biarkan saja, karena KURANG DARI 9}
Digit 11 : 1 ; 1x2 = 2 {Biarkan saja, karena KURANG DARI 9}
Digit 13 : 8 ; 8x2 = 16 {Lebih dari 9}, jadi 16 – 9 = 7
Digit 15 : 2 ; 2x2 = 4 {Biarkan saja, karena KURANG DARI 9}
Lalu jumlahkan :
1 + 5 + 1 + 6 + 2 + 2 + 7 + 4 = 28
- Langkah II,
Jumlahkan Digit yang ada di posisi Genap pada data No. Kartu Kredit 5378-5432-1011-8224
Digit 2 : 3
Digit 4 : 8
Digit 6 : 4
Digit 8 : 2
Digit 10 : 0
Digit 12 : 1
Digit 14 : 2
Digit 16 : 4
--------------- +
Jumlah : 24
- Langkah III,
Jumlahkan hasil Langkah I dengan Langkah II
28 + 24 = 52
Karena 52 TIDAK HABIS DIBAGI dengan “10” (Masih menyisakan bilangan
desimal yaitu 5,2) , maka KARTU KREDIT ITU TIDAK VALID / TIDAK SAH / TIDAK DAPAT DIGUNAKAN.
Mudah, bukan ?
Cara Mengetahui Nomer Kode Rahasia CVV / CVN / CIN dari Kartu Kredit apapun
Nah ini dia yang ditunggu – tunggu, saya akan memberitahu anda cara mengetahui
Nomer Kode Rahasia CVV / CVN /CIN dari Nomer Kartu Kredit jenis Apapun. Mengetahui Nomer Kode Rahasia CVV / CVN / CIN dari KartuKredit apapun Misal saya ambil contoh no. Kartu Kredit :
5378-5432-1011-8224
- KETERANGAN :
Perlu Anda ketahui bahwa saya hanya mengetikkan 16 digit angka yang asal-asalan saja. Saya tidak mengetahui nama pemilik Kartu Kredit Ini, Tinggalnya dimana, berasal dari Indonesia / Luar Negeri, dan sebagainya. Sekali Lagi, saya hanya asala-salan saja memberi contoh No. Kartu Kredit, karena ini hanyalah sebuah contoh saja.
Kembali ke CONTOH No. Kartu Kredit tersebut :
5378-5432-1011-8224
Cara mengetahui No. CVVnya adalah sebagai berikut :
- “RUMUS 1”
Cari Digit ke 8 : yaitu 2
Cari Digit ke 12 : yaitu
Cari Digit ke 3 : yaitu 7 (TAMBAHKAN DENGAN “1”) , berarti 7 + 1 = 8
Maka ketahuan CVV nya adalah 208 , hehehe ... mudah, bukan ?
Atau bisa juga dengan rumus yang kedua :
- “RUMUS 2”
Cari Digit ke 7 : yaitu 3
Cari Digit ke 13 : yaitu 8
Cari Digit ke 3 : yaitu 7 (TAMBAHKAN DENGAN “1”) , berarti 7 + 1 = 8
Maka ketahuan CVV nya adalah 388 , hehehe ... mudah, bukan ?
Atau bisa juga dengan rumus yang ketiga :
- “RUMUS 3”
Cari Digit ke 9 : yaitu 1
Cari Digit ke 3 : yaitu 7
Cari Digit ke 6 : yaitu 4 (TAMBAHKAN DENGAN “1”) , berarti 4 + 1 = 5
Maka ketahuan CVV nya adalah 175 , hehehe ... mudah, bukan ?
Silahkan anda coba sendiri menggunakan KARTU KREDIT ANDA, kebetulan setelah saya iseng-iseng mencoba RUMUS 1, 2 dan 3 dengan menggunakan NOMER KARTU KREDIT yang saya miliki, ternyata CVV Kartu Kredit yang saya miliki
cocok tuh perhitungannya menggunakan Rumus yang ke 3 !!!
Tapi anda jangan kuatir, konon rumus ini ketepatannya hanya 95 % saja, jadi masih
ada kemungkinan 5 % yang meleset.
Jadi apabila anda mencobanya dengan Kartu Kredit Anda, dan setelah anda
menghitung dan HASILNYA SALAH, maka Beruntunglah Anda !!!
Saya malah jadi was-was dan deg-degan , karena CVV KARTU KREDIT saya
TERNYATA DAPAT DITEBAK dengan menggunakan Rumus No. 3 !!!
Wah, saya jadi harus lebih berhati-hati nich apabila ingin Berbelanja Online, bisa-bisa
Kartu Kredit Saya nanti dijebol maling.... Wah, mudah-mudahan hal itu jangan
sampai terjadi deh ... Amin.
Cara Rahasia Mengetahui apakah suatu Kartu Kredit diterbitkan oleh Visa/ Mastercard/ Amex/ Discover
Untuk Tambahan Pengetahuan Anda, maka berikut saya jelaskan mengenai nomer sandi dari masing-masing perusahaan Kartu Kredit.
UNTUK MASTERCARD :
Angka Awal pada Kartu Kredit adalah 51, 52, 53, 54, 55, 56, dll dengan panjang Nomer Kartu Kredit Antara 14 hingga 16 Digit.
UNTUK VISA :
Angka Awal pada Kartu Kredit adalah “4” dengan panjang Nomer Kartu Kredit adalah 13 hingga 16 Digit.
UNTUK AMERICAN EXPRESS :
Angka Awal pada Kartu Kredit adalah “34” dengan panjang Nomer Kartu Kredit adalah 15 Digit.
UNTUK DINERS CLUB :
Angka Awal pada Kartu Kredit adalah 300,301,302,303,304,305, dan 38 dengan panjang Nomer Kartu Kredit adalah 14 Digit
UNTUK JCB :
Angka Awal pada Kartu Kredit adalah “3” dengan panjang Nomer Kartu Kredit adalah 16 Digit
UNTUK BANKCARD :
Angka Awal pada Kartu Kredit adalah “56” dengan panjang Nomer Kartu Kredit adalah 14 Atau 16 Digit
UNTUK DISCOVER CARD :
Angka Awal pada Kartu Kredit adalah 6011, 6500 – 6509, 6013 dengan panjang Nomer Kartu Kredit adalah 16 Digit.
____________________________________________________________________
sekian dlu ya.. hehehe..Buat Para Master Silahkan Lewat Saja, saya hanya mengajarkan pada kakak2 yg mungkin belum mengerti ..
Tidak ada salahnya kan saling berbagi ilmu, Ilmu Itu Tidaklah Dibawa MATI..
smoga bermanfaat...
______________
gak paham yaa?? sama gan!! :)
ini cuma saya ambil dari arsip di grup..
kalau yang mau lebih mudah lagi tinggal cek saja disini >> http://www.validcreditcardnumber.com/
gak paham yaa?? sama gan!! :)
ini cuma saya ambil dari arsip di grup..
kalau yang mau lebih mudah lagi tinggal cek saja disini >> http://www.validcreditcardnumber.com/
Senin, 12 Januari 2015
buat webbrowser
Membuat Web Browser Proxy Dengan VB6
Terkadang kita ingin browsing ke internet dengan aman. Tanpa meninggalkan jejak ataupun berselancar dengan anonim. Kita membutuhkan sebuah web browser yang mampu berpindah - pindah IP adrress dengan cepat. Memang sih...saat ini sudah banyak browser yang menyediakan fasilitas ini. Akan tetapi sangat ribet dan butuh pengaturan yang lumayan menjengkelkan. Pada tutorial kali ini akan kita buat web browser sendiri yang mampu memilih IP Address dengan cepat.
Jika anda tertarik silakan buka program visual basic anda dan ikuti langkah - langkah berikut
1. Buat sebuah project baru. Masukkan sebuah textbox,windows common dialog dan kontrol WebBrowser. Dan masukkan pula sebuah tombol Command Button untuk proses koneksi.
2. Buat sebuah modul dan masukkan coding berikut
Option Explicit
Private Type INTERNET_PER_CONN_OPTION
dwOption As Long
dwValue1 As Long
dwValue2 As Long
End Type
Private Type INTERNET_PER_CONN_OPTION_LIST
dwSize As Long
pszConnection As Long
dwOptionCount As Long
dwOptionError As Long
pOptions As Long
End Type
Private Const INTERNET_PER_CONN_FLAGS As Long = 1
Private Const INTERNET_PER_CONN_PROXY_SERVER As Long = 2
Private Const INTERNET_PER_CONN_PROXY_BYPASS As Long = 3
Private Const PROXY_TYPE_DIRECT As Long = &H1
Private Const PROXY_TYPE_PROXY As Long = &H2
Private Const INTERNET_OPTION_REFRESH As Long = 37
Private Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39
Private Const INTERNET_OPTION_PER_CONNECTION_OPTION As Long = 75
Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" ( _
ByVal hInternet As Long, ByVal dwOption As Long, _
lpBuffer As Any, ByVal dwBufferLength As Long) As Long
'Untuk mengatur Proxy
Public Function SetConnectionOptions(ByVal conn_name As String, ByVal proxy_full_addr As String) As Boolean
Dim list As INTERNET_PER_CONN_OPTION_LIST
Dim bReturn As Boolean
Dim dwBufSize As Long
Dim options(0 To 2) As INTERNET_PER_CONN_OPTION
Dim abConnName() As Byte
Dim abProxyServer() As Byte
Dim abProxyBypass() As Byte
dwBufSize = Len(list)
list.dwSize = Len(list)
abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
list.pszConnection = VarPtr(abConnName(0))
list.dwOptionCount = 3
options(0).dwOption = INTERNET_PER_CONN_FLAGS
options(0).dwValue1 = PROXY_TYPE_DIRECT Or PROXY_TYPE_PROXY
options(1).dwOption = INTERNET_PER_CONN_PROXY_SERVER
abProxyServer() = StrConv(proxy_full_addr & vbNullChar, vbFromUnicode)
options(1).dwValue1 = VarPtr(abProxyServer(0)) '//"http://proxy:80"
options(2).dwOption = INTERNET_PER_CONN_PROXY_BYPASS
abProxyBypass() = StrConv("local" & vbNullChar, vbFromUnicode)
options(2).dwValue1 = VarPtr(abProxyBypass(0))
list.pOptions = VarPtr(options(0))
If (0& = list.pOptions) Then
Debug.Print "Failed to allocate memory in SetConnectionOptions()"
SetConnectionOptions = 0
End If
bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)
Erase options
Erase abConnName
Erase abProxyServer
Erase abProxyBypass
dwBufSize = 0
list.dwOptionCount = 0
list.dwSize = 0
list.pOptions = 0
list.pszConnection = 0
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
SetConnectionOptions = bReturn
End Function
'Matikan Proxy
Public Function DisableConnectionProxy(ByVal conn_name As String) As Boolean
Dim list As INTERNET_PER_CONN_OPTION_LIST
Dim bReturn As Boolean
Dim dwBufSize As Long
Dim options(0) As INTERNET_PER_CONN_OPTION
Dim abConnName() As Byte
dwBufSize = Len(list)
list.dwSize = Len(list)
abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
list.pszConnection = VarPtr(abConnName(0))
list.dwOptionCount = 1
options(0).dwOption = INTERNET_PER_CONN_FLAGS
options(0).dwValue1 = PROXY_TYPE_DIRECT
list.pOptions = VarPtr(options(0))
If (0 = list.pOptions) Then
Debug.Print "Failed to allocate memory in DisableConnectionProxy()"
DisableConnectionProxy = 0
End If
bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)
Erase options
Erase abConnName
dwBufSize = 0
list.dwOptionCount = 0
list.dwSize = 0
list.pOptions = 0
list.pszConnection = 0
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
DisableConnectionProxy = bReturn
End Function
3. Pada form silakan masukkan coding berikut
Dim URL As String
Dim conn_name As String, proxy_full_addr As String
Private Sub CMDPROXY_Click()
C.Filter = "File format TXT (*.txt) | *.txt"
C.DialogTitle = "Pilih file TXT"
C.ShowOpen
fileName = C.fileName
List1.Clear
On Error Resume Next
Open fileName For Input As #1
Do While Not EOF(1)
Line Input #1, listItem
If Not (listItem = "") Then
List1.AddItem listItem
End If
Loop
Close #1
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeySpace
StylerButton3_Click
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn_name = TXTKONEKSI.Text
Call DisableConnectionProxy(conn_name)
Unload Me
End Sub
Private Sub WriteToRegistry(strFolder As String, strString, Optional strRegType As String = "REG_SZ")
On Error Resume Next
Dim b As Object
Set b = CreateObject("wscript.shell")
b.RegWrite strFolder, strString, strRegType
End Sub
Private Sub StylerButton1_Click()
SAMBUNG
End Sub
Private Sub StylerButton4_Click()
Timer3.Enabled = False
WebBrowser1.Stop
LBLCOUNT.Caption = "0"
conn_name = TXTKONEKSI.Text
Call DisableConnectionProxy(conn_name)
End Sub
Sub SAMBUNG()
WebBrowser1.Stop
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD" 'aktifkan proxies
Dim itemnumber As Integer
itemnumber = 0
URL = TXTALAMAT.Text
conn_name = TXTKONEKSI.Text
proxy_full_addr = (List1.list(itemnumber))
Call SetConnectionOptions(conn_name, proxy_full_addr)
List1.RemoveItem (0)
Label7.Caption = List1.ListCount
LBLPERKIRAAN.Caption = List1.ListCount * TXTDETIK / 60 & " Menit"
LBLPROXY.Caption = (List1.list(itemnumber))
WebBrowser1.Navigate (URL)
Timer2.Enabled = True
End Sub
Untuk selanjutnya silakan anda coba dan kembangkan sendiri. Masih banyak kemampuan yang bisa digali dalam pembuatan Web Browser.
Project yang sedang saya kembangkan adalah Web Browser Proxy yang memakai timer. Sehingga bisa mengakali account di Linkbucks.com dan adf.ly. Lumayanlah...dapat dollar tanpa perlu kerja keras. Serta dipersenjatai pula dengan fitur Checking Proxy. Sehingga kita bisa memilih IP Proxy yang masih aktif.
Terkadang kita ingin browsing ke internet dengan aman. Tanpa meninggalkan jejak ataupun berselancar dengan anonim. Kita membutuhkan sebuah web browser yang mampu berpindah - pindah IP adrress dengan cepat. Memang sih...saat ini sudah banyak browser yang menyediakan fasilitas ini. Akan tetapi sangat ribet dan butuh pengaturan yang lumayan menjengkelkan. Pada tutorial kali ini akan kita buat web browser sendiri yang mampu memilih IP Address dengan cepat.
Jika anda tertarik silakan buka program visual basic anda dan ikuti langkah - langkah berikut
1. Buat sebuah project baru. Masukkan sebuah textbox,windows common dialog dan kontrol WebBrowser. Dan masukkan pula sebuah tombol Command Button untuk proses koneksi.
2. Buat sebuah modul dan masukkan coding berikut
Option Explicit
Jika anda tertarik silakan buka program visual basic anda dan ikuti langkah - langkah berikut
1. Buat sebuah project baru. Masukkan sebuah textbox,windows common dialog dan kontrol WebBrowser. Dan masukkan pula sebuah tombol Command Button untuk proses koneksi.
2. Buat sebuah modul dan masukkan coding berikut
Option Explicit
Private Type INTERNET_PER_CONN_OPTION
dwOption As Long
dwValue1 As Long
dwValue2 As Long
End Type
Private Type INTERNET_PER_CONN_OPTION_LIST
dwSize As Long
pszConnection As Long
dwOptionCount As Long
dwOptionError As Long
pOptions As Long
End Type
Private Const INTERNET_PER_CONN_FLAGS As Long = 1
Private Const INTERNET_PER_CONN_PROXY_SERVER As Long = 2
Private Const INTERNET_PER_CONN_PROXY_BYPASS As Long = 3
Private Const PROXY_TYPE_DIRECT As Long = &H1
Private Const PROXY_TYPE_PROXY As Long = &H2
Private Const INTERNET_OPTION_REFRESH As Long = 37
Private Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39
Private Const INTERNET_OPTION_PER_CONNECTION_OPTION As Long = 75
Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" ( _
ByVal hInternet As Long, ByVal dwOption As Long, _
lpBuffer As Any, ByVal dwBufferLength As Long) As Long
'Untuk mengatur Proxy
Public Function SetConnectionOptions(ByVal conn_name As String, ByVal proxy_full_addr As String) As Boolean
Dim list As INTERNET_PER_CONN_OPTION_LIST
Dim bReturn As Boolean
Dim dwBufSize As Long
Dim options(0 To 2) As INTERNET_PER_CONN_OPTION
Dim abConnName() As Byte
Dim abProxyServer() As Byte
Dim abProxyBypass() As Byte
dwBufSize = Len(list)
list.dwSize = Len(list)
abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
list.pszConnection = VarPtr(abConnName(0))
list.dwOptionCount = 3
options(0).dwOption = INTERNET_PER_CONN_FLAGS
options(0).dwValue1 = PROXY_TYPE_DIRECT Or PROXY_TYPE_PROXY
options(1).dwOption = INTERNET_PER_CONN_PROXY_SERVER
abProxyServer() = StrConv(proxy_full_addr & vbNullChar, vbFromUnicode)
options(1).dwValue1 = VarPtr(abProxyServer(0)) '//"http://proxy:80"
options(2).dwOption = INTERNET_PER_CONN_PROXY_BYPASS
abProxyBypass() = StrConv("local" & vbNullChar, vbFromUnicode)
options(2).dwValue1 = VarPtr(abProxyBypass(0))
list.pOptions = VarPtr(options(0))
If (0& = list.pOptions) Then
Debug.Print "Failed to allocate memory in SetConnectionOptions()"
SetConnectionOptions = 0
End If
bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)
Erase options
Erase abConnName
Erase abProxyServer
Erase abProxyBypass
dwBufSize = 0
list.dwOptionCount = 0
list.dwSize = 0
list.pOptions = 0
list.pszConnection = 0
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
SetConnectionOptions = bReturn
End Function
'Matikan Proxy
Public Function DisableConnectionProxy(ByVal conn_name As String) As Boolean
Dim list As INTERNET_PER_CONN_OPTION_LIST
Dim bReturn As Boolean
Dim dwBufSize As Long
Dim options(0) As INTERNET_PER_CONN_OPTION
Dim abConnName() As Byte
dwBufSize = Len(list)
list.dwSize = Len(list)
abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
list.pszConnection = VarPtr(abConnName(0))
list.dwOptionCount = 1
options(0).dwOption = INTERNET_PER_CONN_FLAGS
options(0).dwValue1 = PROXY_TYPE_DIRECT
list.pOptions = VarPtr(options(0))
If (0 = list.pOptions) Then
Debug.Print "Failed to allocate memory in DisableConnectionProxy()"
DisableConnectionProxy = 0
End If
bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)
Erase options
Erase abConnName
dwBufSize = 0
list.dwOptionCount = 0
list.dwSize = 0
list.pOptions = 0
list.pszConnection = 0
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
DisableConnectionProxy = bReturn
End Function
3. Pada form silakan masukkan coding berikut
Dim URL As String
Dim conn_name As String, proxy_full_addr As String
Private Sub CMDPROXY_Click()
C.Filter = "File format TXT (*.txt) | *.txt"
C.DialogTitle = "Pilih file TXT"
C.ShowOpen
fileName = C.fileName
List1.Clear
On Error Resume Next
Open fileName For Input As #1
Do While Not EOF(1)
Line Input #1, listItem
If Not (listItem = "") Then
List1.AddItem listItem
End If
Loop
Close #1
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeySpace
StylerButton3_Click
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn_name = TXTKONEKSI.Text
Call DisableConnectionProxy(conn_name)
Unload Me
End Sub
Private Sub WriteToRegistry(strFolder As String, strString, Optional strRegType As String = "REG_SZ")
On Error Resume Next
Dim b As Object
Set b = CreateObject("wscript.shell")
b.RegWrite strFolder, strString, strRegType
End Sub
Private Sub StylerButton1_Click()
SAMBUNG
End Sub
Private Sub StylerButton4_Click()
Timer3.Enabled = False
WebBrowser1.Stop
LBLCOUNT.Caption = "0"
conn_name = TXTKONEKSI.Text
Call DisableConnectionProxy(conn_name)
End Sub
Sub SAMBUNG()
WebBrowser1.Stop
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD" 'aktifkan proxies
Dim itemnumber As Integer
itemnumber = 0
URL = TXTALAMAT.Text
conn_name = TXTKONEKSI.Text
proxy_full_addr = (List1.list(itemnumber))
Call SetConnectionOptions(conn_name, proxy_full_addr)
List1.RemoveItem (0)
Label7.Caption = List1.ListCount
LBLPERKIRAAN.Caption = List1.ListCount * TXTDETIK / 60 & " Menit"
LBLPROXY.Caption = (List1.list(itemnumber))
WebBrowser1.Navigate (URL)
Timer2.Enabled = True
End Sub
Untuk selanjutnya silakan anda coba dan kembangkan sendiri. Masih banyak kemampuan yang bisa digali dalam pembuatan Web Browser.
dwOption As Long
dwValue1 As Long
dwValue2 As Long
End Type
Private Type INTERNET_PER_CONN_OPTION_LIST
dwSize As Long
pszConnection As Long
dwOptionCount As Long
dwOptionError As Long
pOptions As Long
End Type
Private Const INTERNET_PER_CONN_FLAGS As Long = 1
Private Const INTERNET_PER_CONN_PROXY_SERVER As Long = 2
Private Const INTERNET_PER_CONN_PROXY_BYPASS As Long = 3
Private Const PROXY_TYPE_DIRECT As Long = &H1
Private Const PROXY_TYPE_PROXY As Long = &H2
Private Const INTERNET_OPTION_REFRESH As Long = 37
Private Const INTERNET_OPTION_SETTINGS_CHANGED As Long = 39
Private Const INTERNET_OPTION_PER_CONNECTION_OPTION As Long = 75
Private Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" ( _
ByVal hInternet As Long, ByVal dwOption As Long, _
lpBuffer As Any, ByVal dwBufferLength As Long) As Long
'Untuk mengatur Proxy
Public Function SetConnectionOptions(ByVal conn_name As String, ByVal proxy_full_addr As String) As Boolean
Dim list As INTERNET_PER_CONN_OPTION_LIST
Dim bReturn As Boolean
Dim dwBufSize As Long
Dim options(0 To 2) As INTERNET_PER_CONN_OPTION
Dim abConnName() As Byte
Dim abProxyServer() As Byte
Dim abProxyBypass() As Byte
dwBufSize = Len(list)
list.dwSize = Len(list)
abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
list.pszConnection = VarPtr(abConnName(0))
list.dwOptionCount = 3
options(0).dwOption = INTERNET_PER_CONN_FLAGS
options(0).dwValue1 = PROXY_TYPE_DIRECT Or PROXY_TYPE_PROXY
options(1).dwOption = INTERNET_PER_CONN_PROXY_SERVER
abProxyServer() = StrConv(proxy_full_addr & vbNullChar, vbFromUnicode)
options(1).dwValue1 = VarPtr(abProxyServer(0)) '//"http://proxy:80"
options(2).dwOption = INTERNET_PER_CONN_PROXY_BYPASS
abProxyBypass() = StrConv("local" & vbNullChar, vbFromUnicode)
options(2).dwValue1 = VarPtr(abProxyBypass(0))
list.pOptions = VarPtr(options(0))
If (0& = list.pOptions) Then
Debug.Print "Failed to allocate memory in SetConnectionOptions()"
SetConnectionOptions = 0
End If
bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)
Erase options
Erase abConnName
Erase abProxyServer
Erase abProxyBypass
dwBufSize = 0
list.dwOptionCount = 0
list.dwSize = 0
list.pOptions = 0
list.pszConnection = 0
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
SetConnectionOptions = bReturn
End Function
'Matikan Proxy
Public Function DisableConnectionProxy(ByVal conn_name As String) As Boolean
Dim list As INTERNET_PER_CONN_OPTION_LIST
Dim bReturn As Boolean
Dim dwBufSize As Long
Dim options(0) As INTERNET_PER_CONN_OPTION
Dim abConnName() As Byte
dwBufSize = Len(list)
list.dwSize = Len(list)
abConnName() = StrConv(conn_name & vbNullChar, vbFromUnicode)
list.pszConnection = VarPtr(abConnName(0))
list.dwOptionCount = 1
options(0).dwOption = INTERNET_PER_CONN_FLAGS
options(0).dwValue1 = PROXY_TYPE_DIRECT
list.pOptions = VarPtr(options(0))
If (0 = list.pOptions) Then
Debug.Print "Failed to allocate memory in DisableConnectionProxy()"
DisableConnectionProxy = 0
End If
bReturn = InternetSetOption(0, INTERNET_OPTION_PER_CONNECTION_OPTION, list, dwBufSize)
Erase options
Erase abConnName
dwBufSize = 0
list.dwOptionCount = 0
list.dwSize = 0
list.pOptions = 0
list.pszConnection = 0
Call InternetSetOption(0, INTERNET_OPTION_SETTINGS_CHANGED, ByVal 0&, 0)
Call InternetSetOption(0, INTERNET_OPTION_REFRESH, ByVal 0&, 0)
DisableConnectionProxy = bReturn
End Function
3. Pada form silakan masukkan coding berikut
Dim URL As String
Dim conn_name As String, proxy_full_addr As String
Private Sub CMDPROXY_Click()
C.Filter = "File format TXT (*.txt) | *.txt"
C.DialogTitle = "Pilih file TXT"
C.ShowOpen
fileName = C.fileName
List1.Clear
On Error Resume Next
Open fileName For Input As #1
Do While Not EOF(1)
Line Input #1, listItem
If Not (listItem = "") Then
List1.AddItem listItem
End If
Loop
Close #1
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeySpace
StylerButton3_Click
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
conn_name = TXTKONEKSI.Text
Call DisableConnectionProxy(conn_name)
Unload Me
End Sub
Private Sub WriteToRegistry(strFolder As String, strString, Optional strRegType As String = "REG_SZ")
On Error Resume Next
Dim b As Object
Set b = CreateObject("wscript.shell")
b.RegWrite strFolder, strString, strRegType
End Sub
Private Sub StylerButton1_Click()
SAMBUNG
End Sub
Private Sub StylerButton4_Click()
Timer3.Enabled = False
WebBrowser1.Stop
LBLCOUNT.Caption = "0"
conn_name = TXTKONEKSI.Text
Call DisableConnectionProxy(conn_name)
End Sub
Sub SAMBUNG()
WebBrowser1.Stop
WriteToRegistry "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable", 1, "REG_DWORD" 'aktifkan proxies
Dim itemnumber As Integer
itemnumber = 0
URL = TXTALAMAT.Text
conn_name = TXTKONEKSI.Text
proxy_full_addr = (List1.list(itemnumber))
Call SetConnectionOptions(conn_name, proxy_full_addr)
List1.RemoveItem (0)
Label7.Caption = List1.ListCount
LBLPERKIRAAN.Caption = List1.ListCount * TXTDETIK / 60 & " Menit"
LBLPROXY.Caption = (List1.list(itemnumber))
WebBrowser1.Navigate (URL)
Timer2.Enabled = True
End Sub
Untuk selanjutnya silakan anda coba dan kembangkan sendiri. Masih banyak kemampuan yang bisa digali dalam pembuatan Web Browser.
Project yang sedang saya kembangkan adalah Web Browser Proxy yang memakai timer. Sehingga bisa mengakali account di Linkbucks.com dan adf.ly. Lumayanlah...dapat dollar tanpa perlu kerja keras. Serta dipersenjatai pula dengan fitur Checking Proxy. Sehingga kita bisa memilih IP Proxy yang masih aktif.
========
Membuat Simple Web Browser menggunakan Microsoft Visual Basic 6
Mungkin sudah banyak yang mempunyai Web Browser seperti Mozila Firefox, Chrome, Opera. Tapi, kali ini saya akan menyediakan tutorial Cara Membuat Web Browser menggunakan Visual Basic 6. Langsung saja silakan ikuti tata cara berikut:
Hal yang Diperlukan:
Microsoft Visual Basic 6.0 [ download di SINI ]
Lanhkah - Langkah:
Akhir kata, sekian da terimakasih.
Hal yang Diperlukan:
Microsoft Visual Basic 6.0 [ download di SINI ]
Lanhkah - Langkah:
- Buka Visual Basic 6, buat project baru.
- Tambahkan Kontrol web browser(ketik ctrl+t, centang Microsoft Internet Controls, OK)
- Dobel klik Web Browser di Toolbox, beri nama WebBrowser1
- Tambahkan beberapa kontrol command button dan textbox. Properties nya sebagai berikut:
Kontrol: Nama: Caption: Text Box txtUrl (kosongkan) Command Button cmdGo GO! Command Button cmdBack Back Command Button cmdFoward Foward Command Button cmdRefresh Refresh Command Button cmdStop Stop - Masukkan coding berikut(klik kanan pada form, view code):
Private Sub cmdBack_Click()
'Untuk Kembali
WebBrowser1.GoBack
End Sub
Private Sub cmdFoward_Click()
'Untuk maju ke halaman yg telah di klik kembali
WebBrowser1.GoForward
End Sub
Private Sub cmdGo_Click()
'Untuk pergi ke sebuah situs web yang telah diketik di txtUrl tadi
WebBrowser1.Navigate (txtUrl.Text)
End Sub
Private Sub cmdRefresh_Click()
'Untuk merefres halaman
WebBrowser1.Refresh
End Sub
Private Sub cmdStop_Click()
'Untuk menyetop loading halaman
WebBrowser1.Stop
End Sub
Private Sub Form_Load()
'Untuk menetapkan sebuah situs web sebagai homepage
WebBrowser1.Navigate ("http://www.google.co.id/")
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
'Untuk merubah Caption Form1
Form1.Caption = WebBrowser1.LocationName + " - NAMA WEB BROWSERMU"
'Untuk merubah Text txtUrl menjadi url yg sedang kita tuju
txtUrl.Text = (WebBrowser1.LocationURL)
End Sub - Klik File > Make Project1.exe
Akhir kata, sekian da terimakasih.
=========
