Cara mengganti Favicon di Blogspot

Assalamu'alaikum wr wb semua..................(di jawab donk salam q!!!).

Pagi nie q mw sharing lagi ilmu q yg dah aq dapet beberapa hari yg lalu(sorry klo baru q post sekarang). Yaitu ngerubah Favicon yg ada di blogspot, ada yang tau gak apa itu favicon? so pasti, favicon tu icon kecil yg da di deketnya URL disebelah kiri.

Nah, kalo bagi para pengguna Blogspot iconnya tetep simbol B yg warnanya orange, n skarang q mw ngasih tau caranya ngerubah tuh ikon menjadi apa yg kalian mw, seperti punya q diatas.

ini dia caranya:

pertama kalian upload dulu icon kalian yg berukuran 32x32 n yg berformat png ke http://imageshack.com , sebenernya sih terserah.

Loh kok formatnya png, bukannya ico? Emang sengaja, coz kalo formtanya ico kagak bisa di upload(gak support), kecuali kalau punya host sendiri.
Nah kalo usah di upload kalian pasti dikasih link kayak gini misalnya : http://img182.imageshack.us/img182/8089/l32.png klo udah dapet link kalian copy ja dulu, trus kalian masuk kedalam Edit HTML , yg ada di Tata Letak >> Edit HTML / Layout >> Edit HTML.
Sebelumnya kalian edit dolo link tadi jadi code sprti ini:

<*link href="'http://img182.imageshack.us/img182/8089/l32.png'" rel="'icon'" type="'icon'/"> (hilangin tanda tanda * sebelum kata link)

Trus masukin code di atas persis dibawah code

yg ada di Edit HTML

nyarinya gak susah kok, cos da diatas, habis tu kalian Simpen n lihat perubahan pada blog kalian
taraaaaaaaaaa..................dan iconnya pun berubah

thanks to : ALLAH SWT

Cara Ngakalin RAPIDSHARE !!!

Private Sub Post_Begin()

Askum wr wb dolo.....................

Hi semua orang yang telah berbaik hati masuk kedalam blog q nie(emang ada??? aauu deh...).

Ok, setelah berdetik-detik, berjam-jam, berhari-hari, n berminggu-minggu akhirnya aq ketemu ma dia(siapa?? au...)[halah]....................


tips n tricks ni adalh buat ngakalin nyang namanya RAPIDSHARE, biasanya ente2 pada kan klo mw dunlud dari RAPIDSHARE via gratisan(adat keindonesiaan), pasti dilimit oleh RAPIDSHARE. so , cuman boleh dunlud file per 10 menitnya 1 file, jadi klo mw dunlud banyak file kudu nunggu lama, lamaaaaaaaa bngetz(kecuali kalau pux account premium[indonesia sedikit nyang punya]).

Nah, ni cara buat mematahkan limitan tuh RAPID , here we go :

1. u musti ngehapus semua cookies dan cache (aq asumsikan kalin dah pada tau)
2. jalankan command prompt (WinKey + R >> type : cmd >> enter)
3. lalu ketik nyang dibawah ni :
ipconfig /flushdns lalu enter
ipconfig /release lalu enter
ipconfig /renew lalu enter

4. udah skarang kalian coba dunlud lagi..........

:::jadi begini, setiap kalian dunlud satu kali dari rapidshare, kalian jalan cara diatas biar bisa dunlud lagi:::

End Sub

Cara mengetahui posisi x dan y pada cursor (GetMousePos) melalui VB

بسم الله الرحمن الرحيم

hallo semua, pa kabar? dah lama nih gak ngepost (emang sejak kapan aq ngepost? haha).
Ok skarang aq mw bagi2 ilmu VB q k kalian semua, itu klo da yg mw mampir sih............

Hal pertama yang harus u punya ialah VB(of course) , aq asumsikan kalian dah pada punya.......

Skarang masuk ke jendelah VB kalian!!! n tambahkan pula pada project kalian es be be:
- 2 texboxt (gunakan name defaultnya "text1" n "text2")
- 1 timer ("timer1" , name default)


n masukin code dibawah ini!!!

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Dim a As POINTAPI
Dim bx As Long
Dim cy As Long


Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
mousepos
End Sub

Sub mousepos()
ret = GetCursorPos(a)
bx = a.x
cy = a.y

Text1 = "X : " & bx
Text2 = "Y : " & cy

End Sub



nie dia penjelasannya :

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type

Dim a As POINTAPI
Dim bx As Long
Dim cy As Long

"code diatas sebagai pendeklarasian untuk mendapatkan akses posisi mouse"


Private Sub Form_Load()
Timer1.Interval = 1
End Sub

"klo yg diatas nie, buat memberikan value interval pada properties timer1 menjadi 1 setiap kali Form diload, klo gak diisi gak bakaln jalan tuh timer1"



Sub mousepos()
ret = GetCursorPos(a)
bx = a.x
cy = a.y

Text1 = "X : " & bx
Text2 = "Y : " & cy
End Sub

"code diatas akan membuat text1 n text2 mengetahui letak X dan Y dari mouse kita, dan script diatas tidak akan berjalan sebelum dipanggil"



Private Sub Timer1_Timer()
mousepos
End Sub

"Code diatas untuk memanggil code yg akan menampilkan posisi mouse"


n skarang coba u jalanin [tekan F5]!!!
taraaaaaaaa, lihat ndiri hasilnya............
jgan lupa commentx yah!!!



code diatas dapat u kembangin lagi, sesuai kreativitas kalian

sekian

"Ilmu kamu tidak akan berguna sebelum kamu memberi ilmu itu ke orang lain"