Cara Membuat Teks Berjalan di Tab dan Navbar Atas

Cara Membuat Teks Berjalan di Tab dan Navbar Atas - Pada kali ini akan saya membagi-bagikan tips untuk mempercantik dan memperindah blog para rekan-rekan pemula tentang cara membuat teks di Tab dan Navbar atas itu berjalan. Mungkin diantara kalian belum ada yang tahu dimana letak Tab dan Navbar Atas, kalau belum tahu lihat contoh gambar dibawah ini:

Nah kalau sudah tahu sekarang kita mulai yuk :

1. Login dan buka Account Blogger anda Klik Tata Letak dan Edit HTML, lihat contoh gambar dibawah :
                                
2. Beri tanda Chek pada Expand Template Widget
3. Copy Paste kode Java Script dibawah ini :
   
   

   <script language='JavaScript'> var txt=&quot;. . : : Selamat Datang di Blog Tips N Trick, Terima Kasih Atas Kunjungannya , Jangan Lupa Komentarnyaa: : . .&quot;; var kecepatan=80;var segarkan=null;function bergerak() { document.title=txt; txt=txt.substring(1,txt.length)+txt.charAt(0); segarkan=setTimeout(&quot;bergerak()&quot;,kecepatan);}bergerak(); </script>

4. Letakan kode diatas seperti pada gambar
                        
5. Klik Pratinjau untuk melihat apakah anda memasukannya dengan benar, apabila sudah benar dan teks yang berjalan sudah sesuai dengan yang kita inginkan ya..tunggu apa lagi tinggal si simpan aja lagi. Untuk menyesuaikan teks yang diinginkan ganti huruf yang berwarna merah, sedangkan untuk mengatur kecepatan ganti teks yang berwarna biru.
   
   

Read more »

Read More Otomatis pada Template Blogger

Read More Otomatis pada Template Blogger - Seperti janji minggu lalu ya sob,Pelajaran Blog kali ini akan mengulas dan mengutak atik 'seputar blogger template' yang kita gunakan saat ini.
Betul gan,ini kaitannya 'membuat read more atau tulisan baca selengkapnya' versi kedua.

Langkah Cara Membuat Read More Otomatis tanpa jQuery pada Blogger dengan Bahasa Javascript

Ada dua(2) pilihan membuat readmore otomatis / auto read more pada blogger ini sob,yakni read more menggunakan gambar dan hanya menggunakan tulisan.

Untuk pertama kali,seperti biasa ya gan pilih Dashboard,lalu Tata Letak dan Contreng tulisan Expand Widget Templates.                                                     

Selanjutnya,cari kode </head>,setelah ketemu tepat diATASnya letakkan kode javascript berikut:

<script type='text/javascript'>
var thumbnail_mode = &quot;float&quot; ;
summary_noimg = 150;
summary_img = 150;
img_thumb_height = 100;
img_thumb_width = 120;
</script>

<script type='text/javascript'>
//<![CDATA[
/******************************************
Auto-readmore link script, version 2.0 (for blogspot)

(C)2008 by Anhvo

visit http://en.vietwebguide.com to get more cool hacks
********************************************/
function removeHtmlTag(strx,chop){
if(strx.indexOf("<")!=-1)
{
var s = strx.split("<");
for(var i=0;i<s.length;i++){
if(s[i].indexOf(">")!=-1){
s[i] = s[i].substring(s[i].indexOf(">")+1,s[i].length);
}
}
strx = s.join("");
}
chop = (chop < strx.length-1) ? chop : strx.length-2;
while(strx.charAt(chop-1)!=' ' && strx.indexOf(' ',chop)!=-1) chop++;
strx = strx.substring(0,chop-1);
return strx+'...';
}

function createSummaryAndThumb(pID){
var div = document.getElementById(pID);
var imgtag = "";
var img = div.getElementsByTagName("img");
var summ = summary_noimg;
if(img.length>=1) {
imgtag = '<span style="float:left; padding:0px 10px 5px 0px;"><img src="'+img[0].src+'" width="'+img_thumb_width+'px" height="'+img_thumb_height+'px"/></span>';
summ = summary_img;
}

var summary = imgtag + '<div>' + removeHtmlTag(div.innerHTML,summ) + '</div>';
div.innerHTML = summary;
}
//]]>
</script>

Kemudian cari kembali kode <data:post.body/> atau <p><data:post.body/></p>

Setelah itu untuk Cara 1.Read More Button Otomatis menggunakan gambar,hapus kode tersebut dan gantilah dengan kode berikut:

<b:if cond='data:blog.pageType != &quot;item&quot;'>
<div expr:id='&quot;summary&quot; + data:post.id'><data:post.body/></div>
<script type='text/javascript'>createSummaryAndThumb(&quot;summary<data:post.id/>&quot;);</script>
<span style='float:right'><a expr:href='data:post.url'><img alt='Read More..' src='http://1.bp.blogspot.com/-IHpf1c0gAZE/TahDsOmCrCI/AAAAAAAAAy0/lOZgwgw7eHg/s1600/pelajaran%2Bblog%2Bread%2Bmore%2Botomatis.jpg'/></a></a></span> 
<b:else/>
<data:post.body/>
</b:if>

Sedangkan untuk Cara 2.Read More Button Otomatis hanya berupa text,hapus kode <data:post.body/> atau <p><data:post.body/></p>

tersebut dan gantilah dengan kode berikut:

<b:if cond='data:blog.pageType != &quot;item&quot;'>
<div expr:id='&quot;summary&quot; + data:post.id'><data:post.body/></div>
<script type='text/javascript'>createSummaryAndThumb(&quot;summary<data:post.id/>&quot;);</script>
<span style='float:right'><a expr:href='data:post.url'>Read More..</a></span> 
<b:else/>
<data:post.body/>
</b:if>

Lalu simpan templates dan lihat hasilnya. Selamat Mencoba ^_^

                                                       

Read more »

SEO | Optimasi Blog

SEO | Optimasi Blog - Kamu sudah tahu "Sepenting apa itu SEO" dan "bagaimana optimasi keyword" dalam membuat sebuah blog. Hal tersebut tidak lain dan tidak bukan dimaksudkan agar search engine atau mesin pencari mudah melakukan deteksi ke halaman blog kamu. Semakin mudah sebuah blog dibaca oleh mesin pencari, maka semakin besar pula peluang suatu blog menduduki ranking yang bagus dalam daftar pencarian.

Jika user internet memasukkan kata-kata kunci dalam mesin pencari, kemudian alamat blog kamu muncul di urutan atas daftar pencarian, sudah barang tentu sangat besar kesempatan alamat blog itu akan diklik oleh user tersebut. Imbasnya trafik (lalu lintas) ke blog akan semakin meningkat pula.

Untuk mencapai tujuan diatas, kamu perlu menerapkan beberapa tips dan trik optimalisasi atau istilah kerennya optimization blog (optimasi blog). Optimization merupakan proses untuk menuju kepada kondisi yang lebih baik. Optimization dalam pengertian Indonesia-nya adalah proses yang maksimal atau pemaksimalan. Jadi Optimization blog adalah proses pemaksimalan sebuah blog untuk menuju kepada kondisi yang lebih baik.

Illustrasi :

Selayaknya supir taksi cepat di sebuah kota yang padat lalu lintasnya dan hobbynya macet melulu, maka kamu harus tahu jalan-jalan pintas atau alternatif menuju lokasi tujuan. Harapannya agar pelanggan kamu tetap memilih taksi kamu, karena mudah dan cepat disertai dengan layanan yang memuaskan untuk sampai ke tujuan yang dia kehendaki.

Singkatnya, perlu dilakukan upaya untuk melakukan optimization terhadap blog kamu supaya lebih bersahabat dengan search engine. Nah, berikut ini adalah beberapa tips dan trik optimasi blog agar lebih SEO friendly :

1. Memilih judul blog
   Judul blog harus memuat hanya keyword atau kata kunci utama. Kamu juga dapat menambahkan sedikit kata yang lain pada judul yang memuat kata kunci utama tersebut.
   
   Contoh :
   
   Keyword utamanya adalah SEO: Jika kamu ingin membuat blog dengan judul "SEO blog dan cara promosi blog" adalah lebih baik dan sempurna apabila kamu memotong kata itu ke dalam judul "SEO Blog | Promosi Blog".
   
   Keterangan :
   
   1.  Ganti kata penghubung "dan, atau, yang, dengan, de-el-el" dengan karakter "|".
   2.  Karakter "|" terletak di atas tombol "Enter".
   3.  Padukan Judul blog yang panjang ke dalam potongan kata dengan menggunakan karakter "|".
   
   
2. Letakkan keyword utama di awal dan akhir halaman blog
   Judul blog (title) merupakan keyword utama di awal halaman blog. Sedangkan lokasi judul dalam kode HTML, umumnya berada di antara tag <header>...</header> atau sejenisnya. Header <h1> seharusnya terletak paling kiri atas blog, sehingga ketika search engine/mesin pencari mendeteksi halaman blog, maka yang terbaca pertama kali adalah keyword utama blog kamu.
   
   Contoh :
   
   Keyword utamanya adalah SEO, judul blog "SEO Blog | Optimasi Blog". Kode HTML untuk judul blog tersebut adalah <h1>SEO Blog | Optimasi Blog</h1>
   
   Tambahkan pula kata kunci tersebut di akhir blog atau ekstrimnya terletak paling kanan bawah halaman blog kamu. Secara umum berada sebelum kode </footer> atau </body>, tergantung kode HTML template blog kamu.
   
   Trik untuk penempatan keyword ini agar terlihat wajar adalah dengan memasukkan kode copyright, ditulis oleh, dipublikasikan oleh, dan sebagainya.
   
   Contoh :
   
    - Copyright by <a href="#">SEO Blog | Optimasi Blog</a>
    - Dipublikasikan oleh <a href="#">SEO Blog | Optimasi Blog</a>
   
   Catatan :
   
   Pastikan kamu telah meletakkan keyword utama di paling kiri atas dan paling kanan bawah halaman blog.
   
   
3. Tambahkan karakter huruf tebal <b> atau huruf miring <i> dalam kata-kata yang mengandung keyword.
   
   Contoh :
   
   Keywordnya adalah SEO,mesin pencari,ranking
   <b>SEO</b> blog merupakan cara-cara agar blog terdeteksi dan menempati peringkat teratas dalam daftar pencarian oleh <i>mesin pencari</i> yang bertujuan untuk meningkatkan trafik ke blog itu sendiri. Semakin tinggi trafik, maka akan semakin besar pula peluang <i>ranking</i> yang didapat oleh blog kamu.
   
   
4. Tambahkan kode <alt> dalam setiap image yang kamu gunakan dalam blog.
   Ketika kamu ingin memasukkan gambar kedalam blog, tambahkanlah kode <alt> didalamnya. Kode HTML-nya digambarkan seperti berikut :
   
   

   <img src="SEO.jpg" width="85" height="85" alt="seo blog">
   

Read more »

SEO | Optimasi Blog Lewat Kata Kunci, "Keyword"

SEO | Optimasi Blog Lewat Kata Kunci, "Keyword" - Kamu pasti berharap bahwa blog kamu akan dikunjungi oleh pengguna internet lain. Namun setelah beberapa minggu nge-blog ternyata masih sangat sedikit atau malahan tidak ada orang yang mengunjungi blogmu. Kemudian berusaha untuk men-submit blog ke beberapa mesin pencari, namun hasilnya masih sama. Selanjutnya, kamu berusaha lebih extra powerfull dengan mengoptimalkan kata kunci atau "keyword" utama dan sekarang hanya difokuskan pada satu mesin pencari. Tetapi lagi-lagi jawabannya masih "anda belum beruntung". Sampai disini mungkin kamu menyerah dan memutuskan membuat blog lain yang berbeda sasarannya atau bahkan berhenti nge-blog. Ganti blog sih agak mending, tapi kalau sampai berhenti nge-blog (coba kamu bayangin sendiri). Mudah-mudahan hal tersebut jangan terjadi pada kita, karena kegagalan itu merupakan kesuksesan yang tertunda. So, don't give up...

Diatas merupakan gambaran tentang "betapa berharganya sebuah SEO", sedangkan Apa itu SEO telah diulas pada postingan "Apa itu Search Engine Optimization | SEO". Kembali ke keyword, langkah awal dalam membuat suatu blog adalah menentukan judul yang tepat. Ini penting dilakukan sebelum kamu mulai mengisi blog dengan berbagai konten, seperti posting dan widget/gadget/elemen halaman. Judul blog semestinya mempunyai keterkaitan/korelasi dengan keyword utama, sedangkan keyword merupakan satu atau serangkaian kata yang menjadi dasar dalam pencarian di search engine. Untuk mengetahui sumberdaya keyword tersebut silakan download secara gratis tool "goodkeywords" atau kunjungi https://adwords.google.com/select/KeywordToolExternal.

Sekarang coba masukkan keyword kamu ke dalam pencarian Google, berapa total hasil pencariannya (result)? Semakin banyak result, maka semakin tinggi pula tingkat persaingannnya. Artinya sangat kecil peluang blog kamu akan dikunjungi orang, apabila kamu tetap memaksakan judul dengan keyword yang ada.

Analisa keyword yang berperingkat sedang dan masih berhubungan erat dengan blog yang akan kamu buat. Jika sudah menemukannya, pilih dan masukkan "Words" tersebut dalam judul blog selama masih tersedia pada website blog yang kamu inginkan. Adalah lebih baik memasukkan serta keyword lain yang masih berhubungan dengan blog, bahkan keyword yang memiliki rangking tinggi contoh : SEO | Blog mudah terdeteksi, mesin pencari, SEO blog, dan seterusnya.

Bagaimana menambah judul blog (title) dapat kamu baca di  Rahasia dibalik "Meta Title Tag" blogger dari O-OM atau SEO | Analisa Kode HTML, "Source Code" dari Suka-Suka.com

Rekomendasi : Lakukan pula langkah di atas, ketika kamu ingin membuat judul posting dan tag posting.

Tambahan : Bagaimana cara mengetahui rangking blog?

Demikian banyak tool atau add-on atau plugin yang dapat kamu gunakan untuk mengetahui rangking blog, namun dalam pembahasan ini kita batasi hanya pada penggunaan "Page Rank". Page Rank adalah cara Google memberi suatu nilai yang spesifik kepada situs web mengenai kepopuleran dari situs web itu sendiri. Hal tersebut didasarkan pada banyaknya "suara-suara" situs web lain bersesuaian dengan situs web mu. Sedangkan pengertian "suara" itu sendiri adalah ketika situs web lain menempatkan link-nya di situs web mereka yang menunjuk ke situs web mu. Secara umum, semakin banyak "suara-suara" atau link yang menunjuk ke situs web mu, maka Page Rank akan lebih tinggi(PR).

Agar web browsing dapat melihat Page Rank Google blog kamu, maka kamu harus meng-install "Google Toolbar". Toolbar tersebut dapat diunduh secara bebas di http://toolbar.google.com.

Read more »

Apa itu Search Engine Optimization | SEO

Search Engine Optimization - atau yang lebih familiar disebut SEO adalah serangkaian proses yang dilakukan secara sistematis yang bertujuan untuk meningkatkan volume dan kualitas trafik dari mesin pencari menuju alamat situs web tertentu dengan memanfaatkan mekanisme kerja alami algoritma mesin pencari tersebut. Tujuan spesifik SEO adalah menempatkan suatu alamat situs web pada posisi teratas (atau setidaknya pada halaman pertama) hasil pencarian berdasarkan subyek tertentu.(Wikipedia.org)

SEO itu sendiri apabila di Indonesiakan menjadi Optimasi mesin pencari. Kenapa harus dioptimalkan? Wah, pertanyaan pancingan nih...

Kalau kamu memiliki sebuah blog, tentu kamu ingin agar blog tersebut dikenal orang. Kemudian orang suka dengan blog kamu dan orang akan rindu dengan ulasan-ulasannya. Ini merupakan jalan pembuka yang mengarahkan kamu ke SEO.

Ibarat dalam suatu koloni pasar, "kamu adalah penjual". Seorang penjual sudah barang tentu membutuhkan pembeli dan pembeli akan datang jika ia kenal "apa yang kamu jual". Apabila jualan kamu enak dipandang, dicium, dirasa, serta ditawarkan dengan harga yang kompetitif (bersaing), langkah selanjutnya pembeli akan suka dan ikhlas menjadi langganan kamu. Kabarnya tidak hanya sampai di situ. Ia akan mempromosikan jualan kamu kepada pembeli lain, sehingga pembeli yang lain itu akan mengikuti langkah pembeli awalnya. Begitu seterusnya sampai terbentuk menyerupai jaring laba-laba (spider). Kamu pun tidak lupa untuk menambah dan meningkatkan cita rasa yang berkesesuaian dengan jualan kamu. Seandainya mereka semua sudah suka dengan jualan kamu, coba bayangkan jika kamu tidak nongol 2 atau 3 hari?

Illustrasi di atas merupakan gambaran yang jelas mengenai betapa pentingnya sebuah SEO. Secara alami sebuah blog memiliki hak yang sama untuk di deteksi oleh search engine atau mesin pencari, namun blog juga harus tahu kewajibannya untuk memberikan layanan (service) yang baik ke search engine. Jangan mentang-mentang haknya terpenuhi lalu mengisi bermacam-macam keyword yang tidak sesuai dengan konten di dalamnya. Kalau si search engine marah, minimal blog kamu kena "warning" bahkan kalau saking parahnya bisa-bisa sampai dibanned atau dibekukan lho. Wah...amit-amit.

Berdasarkan uraian diatas kita dapat mengambil benang merahnya, bahwa SEO blog merupakan cara-cara agar blog terdeteksi dan menempati peringkat teratas dalam daftar pencarian oleh mesin pencari yang bertujuan untuk meningkatkan trafik ke blog itu sendiri. Semakin tinggi trafik, maka akan semakin besar pula peluang ranking yang didapat oleh blog kamu. Sedangkan peringkat dalam daftar pencarian didasarkan kepada kesesuaian antara title (judul), keyword (kata kunci), dan konten (isi) blog.

Jangan lupa! Orang tidak akan kenal dengan blogmu, jika kamu tidak memperkenalkannya.

Read more »

Cara Membuat Efek Bintang Pada Link

                                                              
Cara Membuat Efek Bintang Pada Link - Bulan lalu saya pernah menulis sebuah posting cara membuat link berwarna warni, kali ini kita akan membuat link tersebut dengan efek bintang berkedip. Efek ini akan muncul apabila link tersebut disorot oleh cursor. Jika sobat ingin membuat blog lebih menarik dengan berbagai macam animasi maka trik yang satu ini mungkin saja bermanfaat. Efek bintang pada link udah saya terapkan di demo blog dan hasilnya sukses. Berikut ini saya akan berikan langkahnya kepada sobat:

1. Login ke blogger
2. Masuk ke Rancangan -- Edit HTML
3. Carilah kode a:link{ atau a:visited{
4. Lalu letakkan kode dibawah ini dibawah kode tadi
   
   a:hover {background-image: url(https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMzPT-sBHxrYHxCyQamQ_y4uD_cZdkVAi_XsLGWYdSONuMpHNo2-01w5KGUGuTqd-MA9m8-kktbtpd2CBcT3koXArGfQrfdsfJzFzZ2tx8UU4ntma7oOhLT7dyiKxWFYeGF_qeMDt5MT8/s1600/stars.gif);}
   
   Link akan mengeluarkan gambar seperti ini:
   
                                      
   
5. Simpan template anda lalu lihat hasilnya

Jika sobat kurang menyukai efek animasi gambar diatas maka sobat tinggal ganti dengan url gambar yang lain. Selamat mencoba!

Read more »

Trik SEO Menjadikan Blog Nomor 1 Terindeks di Search Engine

Trik SEO Menjadikan Blog Nomor 1 Terindeks di Search Engine - SEO atau yang dikenal dengan sebutan "Search Engine Optimation" merupakan suatu cara atau langkah untuk mengoptimalkan suatu website agar bisa terindeks dan ditampilkan pada halaman utama seacrh engine. Intinya adalah apabila user atau seseorang mengetikkan keyword pada kolom pencarian seperti di Google, Yahoo, MSN, maupun di situs - situs penyedia layanan pencarian informasi lainnya maka alamat web yang kita miliki bisa muncul di halaman pertama pada halaman pencarian tersebut sesuai dengan kata kunci yang di cari user tersebut.

Jika tujuan SEO terpenuhi, tentunya tujuan kita menjadikan blog atau website akan tercapai dengan mudah. Traffic pengunjung meningkat, interaksi dan transaksi semakin bertambah dan menjadikan blog atau website milik kita semakin dikenal dan populer.

Trik yang saya maksud adalah berupa E-Book, lengkap beserta tutorialnya.

Download : Di Sini
Password  : blogmasdidik

Read more »

Trik SEO: Pengaturan Web Dapat Meningkatkan Traffic Pengunjung

Trik SEO: Pengaturan Web Dapat Meningkatkan Traffic Pengunjung - Bertambahnya tahun maka bertambah pula website yang ada di internet, tentunya persaingan pun akan terjadi, (bersaing secara sehat ya..:D). Banyak pemiliki website atau blog berlomba-lomba agar web mereka dapat bersaing dengan web baik lokal maupun mancanegara. Yang tujuan utamanya adalah mencari traffic pengunjung atau visitor. Sebenarnya untuk menaikkan traffic pengunjung dapat dikatakan susah-susah gampang, kenapa saya mengatakan demikian? menurut pengalaman saya pengunjung akan bertambah apabila konten yang terdapat pada website sangat menarik dan tentunya mempunyai banyak manfaat.

Cara diatas cukup efektif apabila diterapkan, buatlah konten semenarik mungkin. Tautkan konten website dengan satu kategori saja, misalnya website yang fokus membahas pada pendidikan,kesehatan, sesuaikan dengan keahlian masing-masing.

Setelah kita membahas konten, tahap selanjutnya adalah melakukan setting pada web misalnya :

1. Buat judul laman yang unik, akurat

• Tag judul memberitahu pengguna dan mesin penelusuran mengenai topic tertentu suatu laman 

     2.  Tingkatkan struktur URL 

• Dengan membuat kategori dan nama file yang deskriptif untuk dokumen situs web tidak hanya membantu situs tetap terorganisir dengan lebih baik, tapi juga dapat membawa penelusuran yang lebih baik pada dokumen Anda dengan mesin telusur. Hal ini juga akan membuat URL yang lebih mudah dan "lebih bersahabat" untuk mereka yang ingin bertaut ke konten Anda. Pengunjung mungkin diintimidasi oleh URL yang sangat panjang dan tersembunyi yang berisi sedikit kata yang dapat dikenali.

 Trik Ini berupa Ebook yang dapat anda download.
Download Disini
Password : blogmasdidik

Read more »

CARA HACK MODEM SMARTFREN ( INTERNET UNLIMITED GRATIS)

INTERNET MODEM SMARTFREN UNLIMITED + KECEPATAN DOWNLOAD SAMPAI 3 MBPS
langsung ke caranya aja ya sob : dial dulu modem sob pake kartu smartfren dan coba aja ke chome or firefox, lalu ketikkan:
Code:
smartfren.com@url:google.comdan coba liat halaman pencarian google kebuka... jd ada vuln disitu.

kita gabungin pake proxy....

software yg akn kita butuhkan.. dpt di
DOWNLOAD DISINI 




langsung saja!
1. Install program ispce td, trus buka, beri centang pada query mode, dan kita atur listen portx 127 biar gampang nantinya. klik OK.

2. Coz domain yg hanya bisa diakses saat pulsa smart sob habis "nol" adalhsmartfren.com, smart-telecom.co.id, dan jump.smart-telecom.co.id, jadi masuklah pd Query URL Configuration, pilih front query, trus masukkan salah satu domain tsb pd font query + simbol "@".

3. Kita beralih pd proxy configuration, unk proxy server silahkan cari sendiri, dgn catatan proxy dgn port 80 dan 3128 yg hanya bisa dgunakan disini, coz pihak smartfren mungkin hanya membuka kedua port tsb. unk proxy cari di google sendiri ea ato ke hidemyass.com banyak koq.. cari yang fast proxy, biar liar larinyaaa,,, hehehehhe
Ato kalo gak pengen repot pake aja ne proxy, tp gak ane jamin, lemoootnya ampuuunnn..!!

4. Udahan dulu, klik REFRESH 3x, lalu minimize, jangan di-exit!!

next...

buka firefox. ke menu Options - Advanced - Network - Setting. Atur http proxy 127.0.0.1, dan gunakan listen portx yg tadi yaitu 127., berikan centang pd use this proxy.........
kemudian kosongkan pd No proxy for.

dan silahkan menikmati yg gratisan.

Bagi sob yg daerahx sudah tercover EVDO n make perangkat (modem) yg mendukung kecepatan EVDO rev A ato rev B,. pihak smart tdk membatasi bandwidth (kecepatan), speed bisa mencapai 3.1 Mbps ato sekitar 396,8 kb per detik. (bedakan antara bit dgn byte, 1 bytes= 8 bit)
Unk daerah yg hanya trdapat jaringan CDMA 1x cuma bs donlot sampek 19 kb per detik. jadi yg sabar aja ya..... heheheh


NOTE :
1. Pertama, agar gratisan dapat digunakan pd browser chrome da IE, pd browser IE masuklah ke Internet Options - Connections, pilih pd koneksi yg sedang sob gunakan, klik Settings. Masukkan proxy dan portnya seperti pd firefox td. lalu klik OK. OK lagi. dan OK lagi.

Agar bisa dgunakan unk mendownload lewat IDM, pilih Download - Options - Proxy, berikan centang dan masukkan proxy di Use Http proxy. Klik OK.

2. Kedua, beberapa situs ato blog mungkin tidak dpt dbuka dg sempurna, ataupun tdk dpt dibuka sama sekali, misl: mail.google.com, mail.yahoo.com. coz menggunakan protokol HTTPS yg mungkin perluh make port selain yg ane cantumkan d ats.

Read more »

Cara Membuat Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12

Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1

Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2

Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3

Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4

Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5

Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6

Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7

Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8

Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0

Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-

Command Button 12:
(Name) : cmdKoma
Caption : .

Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +

Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -

Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x

Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /

Command Button 17:
(Name) : cmdClearEntry
Caption : CE

Command Button 18:
(Name) : cmdClear
Caption : C

Command Button 19:
(Name) : cmdSamaDengan
Caption : =

Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0

End Sub

Read more »

Membuat Injector Ayodance with VB Visual 6.0 / Portable

Bahan - Bahan :

-Visual Basic Full Version

-Secangkir kopi

-Rokok 1pack

-Kesabaran

Cool Tutorial Pembuatan Auto Injeck Game ( audit bisa masuk )

Alat/tool yang diperlukan: Microsoft Visual Basic 6 (VB6), bisa portable atau instalable. Lebih disarankan memakai instalable karena komponennya lebih lengkap.

A. Langkah Awal
buka vb6, saat pertama kali dibuka atau dijalankan akan muncul kotak dialog, salah satunya standard exe, pilih standard exe dan klik open, secara tidak langsung membuat project baru dengan 1 form.

B. Pengaturan Properties dan Design pada form
klik 1 kali pada form1 (ingat cuman 1 kali), kemudian liat dibagian kanan layar properties form1. Pada bagian propertiesnya, jadikan borderstyle = 0 None

Untuk memasukan gambar pilih pada properties Form Klik picture pilih picture
C. Pemasangan Object/Komponen inti
adapun komponen yang akan digunakan adalah 2 Label, 1 Check dan 1 timer, klik dan drag ke form1.

berikut component2 yang harus dibuat:
- 2 label, dengan name label1 dan label2. untuk label2 beri caption exit.
- 1 timer, dengan name timer1, jangan lupa set interval pada properties timernya 100
- 1 Check, dengan name check1 dan beri caption Auto Exit After Injection

D. Coding Form1
klik kanan pada form --> pilih view code.
isikan kode berikut pada form1,

Form 1

Option Explicit
'Created Date: 02 Febuari 2011
'Form1 Auto injeck by Chandielz@Nyit-Nyit.Net & EGZ
'This Code ngambil dari akan rifqi36@N3.

'deklarasi variabel
Private winHwnd As Long
Private NamaDll As String

'deklarasi fungsi movable form
Private Const WM_NCLBUTTONDOWN As Long = &HA1
Private Const HTCAPTION As Integer = 2
Private Declare Sub ReleaseCapture Lib "user32" ()
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()
'Mengetengahkan Form
CenterForm Me

'sesuaikan nama dll dibawah ini dengan nama dll yg ingin di injectkan.
NamaDll = App.Path & "\nama-dll-anda.dll"

'nama game target terserah,
FileTarget = "Audition.exe"

'jika ingin injector disetting otomatis exit
'berikan nilai 1 pada kode check1 dibawah, sebaliknya
'jika tidak berikan nilai 0
Check1.Value = 1

End Sub

Private Sub Form_Unload(Cancel As Integer)
'auto open url setelah form di close
OpenURL "www.Earthgamers.com", Me.hwnd
End Sub

Private Sub Label2_Click()

'keluar aplikasi injector

Unload Me

End Sub

Private Sub Timer1_Timer()

winHwnd = GetProcessWndByName(FileTarget)
If Not winHwnd = 0 Then 'jika ditemukan
NTProcessList 'deteksi process game
InjectExecute NamaDll 'inject library
If Check1.Value = 1 Then 'jika check1 dicentang (Auto Exit After Injection) maka
End 'tutup otomatis injector
End If
Else 'jika tidak
Label1.Caption = "Waiting Game..."
End If

End Sub

'kode center form
Private Sub CenterForm(frm As Form)

frm.Top = Screen.Height / 2 - frm.Height / 2
frm.Left = Screen.Width / 2 - frm.Width / 2

End Sub

'kode movable form
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, _
X As Single, _
Y As Single)


If Button = 1 Then
ReleaseCapture
SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End If
Screen.MousePointer = vbDefault

End Sub

E: Coding Modul
- bikin 1 modul, klik menu project --> add modules, berinama ModUniversal, masukkan code berikut:

ModUniversal 

Option Explicit
'Created Date: 02 Febuary 2011
'Modul Universal Injection by rifqi36@Nyit-Nyit.Net
'beberapa bagian code berasal dari sourcecode Gesp 1.3
'credit by eRGe@Nyit-Nyit.Net dan Chandielz@N3 & EGZ
'Thx to Seluruh Member EGZ
'NOT for sale

Public FileTarget As String
Private sFlDLL As String
Private IdTargetOne As Long
Private Const TH32CS_SNAPHEAPLIST As Long = &H1
Private Const TH32CS_SNAPPROCESS As Long = &H2
Private Const TH32CS_SNAPTHREAD As Long = &H4
Private Const TH32CS_SNAPMODULE As Long = &H8
Private Const TH32CS_SNAPALL As Double = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Private Const MAX_PATH As Integer = 260
Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Type MODULEENTRY32
dwSize As Long
th32ModuleID As Long
th32ProcessID As Long
GlblcntUsage As Long
ProccntUsage As Long
modBaseAddr As Long
modBaseSize As Long
hModule As Long
szModule As String * 256
szExePath As String * 260
End Type
Private Type THREADENTRY32
dwSize As Long
cntUsage As Long
th32ThreadID As Long
th32OwnerProcessID As Long
tpBasePri As Long
tpDeltaPri As Long
dwFlags As Long
End Type

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, _
ByVal lProcessID As Long) As Long
Private Declare Function Module32First Lib "kernel32" (ByVal hSnapshot As Long, _
uProcess As MODULEENTRY32) As Long
Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, _
uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, _
uProcess As PROCESSENTRY32) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, _
ByVal lpProcName As String) As Long
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, _
lpAddress As Any, _
ByVal dwSize As Long, _
ByVal fAllocType As Long, _
flProtect As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, _
ByVal lpBaseAddress As Any, _
lpBuffer As Any, _
ByVal nSize As Long, _
lpNumberOfBytesWritten As Long) As Long
Private Declare Function CreateRemoteThread Lib "kernel32" (ByVal ProcessHandle As Long, _
lpThreadAttributes As Long, _
ByVal dwStackSize As Long, _
ByVal lpStartAddress As Any, _
ByVal lpParameter As Any, _
ByVal dwCreationFlags As Long, _
lpThreadID As Long) As Long

Public Function GetFName(fn) As String

Dim f As Integer
Dim n As Integer

GetFName = fn
f = InStr(fn, "\")
Do While f
n = f
f = InStr(n + 1, fn, "\")
Loop
If n > 0 Then
GetFName = Mid$(fn, n + 1)
End If

End Function

Public Function GetProcessIdByName(ByVal szProcessName As String) As Long

Dim pe32 As PROCESSENTRY32
Dim hSnapshot As Long
Dim bFoundProc As Boolean
Dim dwProcId As Long

dwProcId = 0
pe32.dwSize = Len(pe32)
hSnapshot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)
bFoundProc = Process32First(hSnapshot, pe32)
Do While bFoundProc
If Right$(LCase$(Left$(pe32.szExeFile, InStr(1, pe32.szExeFile, vbNullChar) - 1)), Len(szProcessName)) = LCase$(szProcessName) Then
dwProcId = pe32.th32ProcessID
Exit Do
End If
bFoundProc = Process32Next(hSnapshot, pe32)
Loop
CloseHandle hSnapshot
GetProcessIdByName = dwProcId

End Function

Public Function GetProcessWndByName(ByVal szProcessName As String) As Long

Dim dwProcId As Long
Dim dwProcWnd As Long

dwProcId = GetProcessIdByName(szProcessName)
If dwProcId = 0 Then
GetProcessWndByName = 0
Else
dwProcWnd = OpenProcess(PROCESS_ALL_ACCESS, False, dwProcId)
CloseHandle dwProcId
GetProcessWndByName = dwProcWnd
End If

End Function

Public Sub InjectDll(DllPath As String, _
ProsH As Long)

Dim DLLVirtLoc As Long
Dim DllLength As Long
Dim inject As Long
Dim LibAddress As Long
Dim CreateThread As Long
Dim ThreadID As Long
Dim Bla As VbMsgBoxResult

g_loadlibary:
LibAddress = GetProcAddress(GetModuleHandle("kernel32.dll"), "LoadLibraryA")
If LibAddress = 0 Then
Bla = MsgBox("Can't find LoadLibrary API from kernel32.dll", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_loadlibary
Else
Exit Sub
End If
End If
g_virutalallocex:
DllLength = Len(DllPath)
DLLVirtLoc = VirtualAllocEx(ProsH, 0, DllLength, &H1000, ByVal &H4)
If DLLVirtLoc = 0 Then
Bla = MsgBox("VirtualAllocEx API failed! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_virutalallocex
Else
Exit Sub
End If
End If
g_writepmemory:
inject = WriteProcessMemory(ProsH, ByVal DLLVirtLoc, ByVal DllPath, DllLength, vbNull)
If inject = 0 Then
Bla = MsgBox("Failed to Write DLL to Process! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_writepmemory
Else
Exit Sub
End If
End If
g_creatthread:
CreateThread = CreateRemoteThread(ProsH, ByVal 0, 0, ByVal LibAddress, ByVal DLLVirtLoc, 0, ThreadID)
If CreateThread = 0 Then
Bla = MsgBox("Failed to Create Thead! - try again?", vbYesNo, "ERROR")
If Bla = vbYes Then
GoTo g_creatthread
Else
Exit Sub
End If
End If
Form1.Label1.Caption = "Injected Successful"
MsgBox "EGZ SC Credit Chandielz@N3 & EGZ Thx To Rifqi36@Nyit-Nyit.Net!", vbInformation, "Success"

End Sub

Public Sub InjectExecute(ByVal sFlDLL As String)

Dim lProcInject As Long

lProcInject = OpenProcess(PROCESS_ALL_ACCESS, 0, IdTargetOne)
If lProcInject > "0" Then
InjectDll sFlDLL, lProcInject
End If
CloseHandle lProcInject

End Sub

Public Function NTProcessList() As Long

Dim FileName As String
Dim ExePath As String
Dim hProcSnap As Long
Dim hModuleSnap As Long
Dim lProc As Long
Dim uProcess As PROCESSENTRY32
Dim uModule As MODULEENTRY32

On Error Resume Next
hProcSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
uProcess.dwSize = Len(uProcess)
lProc = Process32First(hProcSnap, uProcess)
Do While lProc
If uProcess.th32ProcessID <> 0 Then
hModuleSnap = CreateToolhelp32Snapshot(TH32CS_SNAPALL, uProcess.th32ProcessID)
uModule.dwSize = Len(uModule)
Module32First hModuleSnap, uModule
If hModuleSnap > 0 Then
ExePath = StripNulls(uModule.szExePath)
FileName = GetFName(ExePath)
If FileTarget = FileName Then
IdTargetOne = uProcess.th32ProcessID
End If
End If
End If
lProc = Process32Next(hProcSnap, uProcess)
Loop
CloseHandle hProcSnap
CloseHandle lProc
On Error GoTo 0

End Function

Private Function StripNulls(ByVal sStr As String) As String

StripNulls = Left$(sStr, lstrlen(sStr))

End Function

Public Sub OpenURL(situs As String, sourceHWND As Long)
Call ShellExecute(sourceHWND, vbNullString, situs, vbNullString, vbNullString, 1)
End Sub

F. Tahap Terakhir, Compile ke exe.
jika udah selesai, klik menu file pilih make project exe*



Jangan Lupa Cendol udah cape ngetik edit SC neh

buakakak +++


Credit: rifqi36@N3 and edit by Chandielz@N3 & EGZ-

Oh yah kalian bisa mengubah asal kalian mengerti tentang SC VB6..
So perhatikan baik - baik

ada yang mau di tanyakan tanya saja
saya kan jawab dengan sebaik - baiknya -- <

Read more »