Jumat, 29 Juni 2012

Mempuat Pengunci Folder (Batch)

Fungsi Script Batch kali ini adalah untuk membuat pengunci Folder, Langsung aja ke Langkah-Langkah.nya :

1. Buka Notepad kamu
2. Masukan Kode di bawah ini :

@ECHO OFF
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Yakin nih,folder loe mau di kunci ??(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Masukkan Y atau N
goto CONFIRM
:LOCK

Membuat Arti kata

Script ini berfungsi untuk menampilkan Arti kata yang sudah kamu masukan terlebih dahulu.
Di bawah ini menggunakan Kata KELINCI dan TIKUS, Yg nantinya akan di artikan dalam bahasa Inggris

Langkah :

1. Buka Notepad kamu
2. Ketik/Copas Script di bawah ini :

   Dim inggris
   inggris=Inputbox ("bahasa Inggris untuk, Kelinci, tikus")
   If inggris= "kelinci" Then
   msgbox "bahasa Inggris Kelinci adalah"
   msgbox "Rabbit,Playboy,Playgirl"

   Else if inggris= "tikus" Then
   msgbox "bahasa Inggris Tikus adalah"
   msgbox "Mouse,Rat, KORUPTOR"
   else
   msgbox "Pilih Kategori"
   msgbox"Kelinci"
   msgbox"Tikus"
   End If
   End If


4. Lalu Save As dengan Extensi (*.vbs), Contoh : ( ArtiKata.vbs )
5. Lalu Jalankan script yang sudah di Save tadi

KET :

Script di atas akan menampilkan Arti kata KELINCI dan TIKUS, Jika memilih Kata KELINCI,  Maka akan keluar Project Pesan yang menampilkan Arti kata dalam bahasa Inggris dari Kelinci yaitu ( Rabbit, Playboy, Playgirl ).
Untuk Playboy & Playgirl...itu saya yang nambahin....he..he

Script Penghitung Umur

Script ini berfungsi untuk menghitung umur sesuai tahun lahir kamu.

Langkah :

1. Buka Notepad kamu
2. Ketik/Copas kode di bawah ini :

   WScript.Echo "Contoh VBS penghitung Umur"
   Set WshShell = WScript.CreateObject("WScript.Shell")
   tahunlahir = InputBox("Masukan Tahun lahir")
   umur = 2011-tahunlahir
   WshShell.Popup "Umur kamu sekarang adalah  : " & umur


3. Lalu Save As, Nama (terserah), asal di beri Extensi .vbs (nama.vbs), Save As type di ganti All Files
4. Lalu jalankan Sript yang sudah di save tadi.
5. ♠ Semoga Bermanfaat ♠

Selasa, 26 Juni 2012

Mengetahui LINK RUSAK pada Blog kita

Link yang rusak pada blog, bisa menyebabkan turun.nya pagerank di blog kita, Karna Mesin pencari sendiri tidak mau mencari/menIndex Blog yang mempunyai Banyak link yang rusak.
Link yang rusak cukup cukup berpengaruh pada SEO blog, karena dapat membuat blog tidak valid atau tidak sehat.


Dan untuk mengatasi hal tersebut, Kamu wajib mengetahui link mana aja yang rusak.
Caranya, kunjungi aja situs http://linkchecker.submitexpress.com/ , masukan Alamat Blog/Web kamu, masukan Capta yang tersedia dan tekan tombol Enter.... dan kamu akan mengetahui Link mana aja yang rusak.
Tanda seru warna merah, Menandakan Link Blog kamu yang rusak, Dan tanda seru warna Hijau, menandakan Link blog kamu baik-baik saja.
Dan untuk mengecek kebenaran.nya, Kamu bisa Copy salah satu Link yang rusak, Dan memasukanya ke Alamat dan lakukan pencarian. 

♠ Semoga Bermanfaat ♠

Visual Basic 6.0 PORTABLE

Wah..gak lengkap rasanya, jika di Blog saya menyediakan Source code VB6 , Tapi gak menyediakan Software.nya.
Nah .. ini ada, Software Visual Basic 6.0...tapi yang portable..,cocok nie, Bagi sobat-sobat sekalian yang baru pengen belajar bahasa pemrogaman Visual Basic 6.0.
Karena Visual Basic 6.0 ini Portable, Ya pasti Tools.nya banyak yang di kurangin, dengan maksud supaya ukuranya bisa agak kecil, jadi cepat di Download.nya dan Mudah di bawa dengan Flashdisk ukuran minim.
tanpa basa-basi....

  Langsung Download di SINI sobat         
  ♠ Semoga Bermanfaat ♠

AVG PC Tuneup 2011 full SN

AVG PC Tuneup 2011 ada yang tau, Pasti jarang yang tau, Paling yang di inget cuma Tune Up utilities..ya kan
Tapi gak apa..., Fungsinya sih juga Sama , sama-sama untuk mengOptimalkan Kinerja Komputer.
Bagi yang penasaran pengen Download ..silakan, Saya juga sediakan Serial Number.nya


   Download di SINI

WinRAR

Siapa yang gak tau WinRAR itu software apaan, Software yang berfungsi untuk menArcive file/data2 dan di kompres ukuran file supaya agak kecil, Walau gak kecil2 amat, Tapi lumayan lah.
Dan cocok buat para Bloger yang suka Upload2 Software atau data ke Hosting, Dan mempercepat proses Upload...ya gak cepet2 amat, Tergantung file.nya...ha..ha..ha
Langsung aja kalau gitu, Sobat bisa Download WinRAR versi baru di sini , Bagi yang belum punya juga boleh Ambil 100% Gratiiizzzzzzz








Download WinRAR di SINI

SMADAV Anti Virus versi 9.0

Ayo ganti SMADAV kamu di komputer yang versi lama dengan yang baru.
Kalau yang belum punya langsung aja ...loncat ke bawah..









Download SMADAV 9.0

Sachs Marine Aquarium v0.99G

Screen Saver komputer kamu gitu-gitu aja, Jadikan Screen saver komputer kamu lebih indah, Serasa Aquarium Digital dengan Sachs Marine Aquarium.
Di jamin kamu akan mengatur Timer Screen Saver kamu lebih cepat, Supaya bisa lihat Ikan-ikan berenang di layar Komputer kamu..ha..ha


   Penasaran  ... Download aja di sini

Aplikasi Jail

Aplikasi yang Saya postingin sebelum-sebelum.nya biasa-biasa aja, Kalau yang ini luar biasa "JAIILLLL.nya.
Software jail ini tidak berbahaya kok.., tidak menyebabkan kerusakan, Error, serangan jantung,gangguan kehamilan, dan janin...ha..ha..ha       100% Aman

Salah satu kejailanya seperti, Membuat layar komputer terbalik, Berkedip-kedip, Dan Frezee alias Hang.
Aplikasi di lengkapi dengan Timer, Untuk menentukan waktu komputer akan di Jailin

Nih, Screenshot.nya :

Penasaran dengan Software ini... Download

Membuat Folder dengan VB6

Hai sobat.. kalau pada postingan saya tentang Batch Script, Membuat folder dengan Batch, Sekarang beda lagi.
Nie ada Source Code membuat Folder dengan Visual Basic 6.0..
langsung aja ....

Source Code.nya ada di SINI kok

Kalkulator Visual Basic 6.0

Mungkin kata sobat Aplikasi nie udah basi kali y..he..he
tapi kalau buat Ane, Aplikasi ini, Buat nambah-nambah isi Blog Ane..ha..ha..ha
Lucu Gk...Gk kan....iya pastinya.

Screenshot :



Buat yang masih pengen Source Code.nya..... teng mriki


3 Script jail VB6

Di sini ane kasih nih, 3 Script jail Visual Basic 6.dengan tujuan untuk belajar maksud.nya.
Dan jangan di gunakan buat jailin orang, Kalo jailin diri kamu sindiri sih gak apa2 kali...ha..ha..ha

Source Code di SINI ,........."INGAT"

Icon Maker VB6

Aplikasi ini seperti aplikasi pembuat icon pada umumnya, Cuma Source Code ini minim fitur, dan yang pengen ngembangin.nya silakan.
Bagi sobat yang pengen mempelajari Source Code.nya

Langsung aja ke SINI

Resistor Color Code

Nah..Aplikasi yang satu ini cocok banget bagi pecinta elektronika yang baru belajar membaca code warna Resistor.
Penasaran...,langsung aja

Source Code di SINI

CPU monitor

Aplikasi ini layaknya Performance di Task Manager yang menampilkan Status memori CPU usage dan PF usage.
Tetapi tampilanya terpisah-pisah...
lebih jelasnya.

Source Code di SINI

Tweak Registry

Source Code ini berfungsi untu menEnable dan Disable suatu tools yang ada pada komputer (Windows).
Code ini seperti Tools yang di pakai kebanyakan AntiVirus lainya.

Source Code di SINI

Hide&ShowTaskMan

Source Code ini berfungsi untuk menampilkan dan menghilangkan Proses Runing Alikasi yang kita buat di Task Manager.
Membuat Aplikasi tidak bisa di End Task atau di Akhiri lewat Task Manager.

Source Code di SINI

MsgBoxMerlin

Pasti udah pada tau Script/Code MsgBox pada VB6 , kode yang berfungsi untuk memunculkan project pesan pada Aplikasi yang kita buat.
Script yang satu ini juga sudah umum, cuma bagi yang tidak tau, boleh ambil Source Code.nya.
MsgBox/kotak pesan ini memunculkan karakter Animasi Merlin yang membacakan pesan yang kamu buat.

Source Code di SINI

Always on Top

Source Code ini mempuat Aplikasi kita menjadi tampil paling depan (On Top), Semua pasti udah pada tau code ini, Buat menuhin isi Blog.,jadi Ane Postingin ..he..he

Source Code di SINI

Rabbit Punishment

Ini game VB coba-coba saya, Sebenar.nya sih ini mirip Game HangMan..,cuma saya kasih tampilan yang 180 drjt berbeda...ha..ha
Kalau penasaran ama Game saya...

Screenshot :




Contoh Game di SINI sobat

Aplikasi JAM Dekstop

Nah.. ini adalah lanjutan proyek saya yang membuat Aplikasi jam desktop, Kalau yang ini lumayan lengkap fiturnya, Hanya Lumayan lo, bukan Lengkap..he..he
Tapi ini Jam.nya tidak bergerak, Seperti contoh Jam pada postingan saya yang lalu..,

Di bawah ini Screenshot.nya  :


Kalau yang ini bisa Tampil Otomatis saat StartUp , Bisa On/Off Top, Bisa di taruh di posisi Dekstop mana aja, dan Bisa di Close..ha..ha..ha

Ini juga pemanfaatan dari fungsi Settingan File INI,yang menyimpan setingan pengaturan Aplikasi.

Contoh Aplikasi di SINI

Senin, 25 Juni 2012

Jam dekstop Animasi

Aplikasi ini adalah aplikasi 95% buatan saya sendiri, tapi masih buuuaaaaaanyak banget kurangnya, namanya juga lagi belajar..he..he
Lagi coba-coba uteg-uteg Source Code sendiri, Dari pada nganggur di rumah n gak ada ide buat posting..hi..hi

Oke, langsung aja ke TKP.nya, Jadi aplikasi ini seperti Aplikasi desktop lainya yang biasanya ada di Windows Vista, Cuma saya bikin unik sedikiti.
Gambar aplikasi jam Desktop ini bisa bergerak, Karna yang saya pakai untuk gambar.nya adalah Animasi SWF, Dan masih banyak pilihan Gambar Animasi lainya.
Ini cuma contoh aja , Siapa tau sobat sekalian mau bikin juga.., nanti kalau ada yang minta Source.nya, Baru nanti tak Postingin Source Code.nya

 Preview :
  Contoh Aplikasi ada di SINI

watermark_rotate (VB6)

Source Code ini berfungsi untuk menaruh Text ke dalam PictureBox yang berisi gambar dalam keadaan tanpa warna Background alias Alpha

CONTOH GAMBAR :


Source Code di SINI

Membuat Color Picker

Source Code ini berfungsi untuk, mendeteksi warna yang tersentuh Pointer Mouse, Dan di tampilkan pada PictureBox..
Untuk lebih jelas :

Source Code di SINI

Membuat Database Form Login

Source Code ini berfungsi untuk menyimpan ID dan Password User (pemakai)..
Ini adalah contoh cara penyimpanan Aplikasi ke DataBase.

Source Code di SINI

Sumber : VB-code.blogspot.com

Form Transparant dengan Scrooll

Mungkin sobat2 sekalian sudah banyak tau tentang Source Code ini.
Cuma gak apa2 Ane posting lagi, Buat ngisi-ngisi laman Blog... he..he..he
Source code ini berfungsi untuk membuat Form transparant, yang ada Scroll.nya untuk mengatur Opacity.nya


Source Code di SINI

Aplikasi Trial

Source Code ini berfungsi untuk membuat Aplikasi yang kita buat menjadi Trial, Hanya bisa di buka beberapa kali saja....

Source Code di SINI

Sumber : Forget

Animasi Ketikan di PictureBox

Source Code ini berfungsi untuk menampilkan Animasi ketikan di dalam PictureBox, Ini adalah pemanfaatan fungsi Timer ...

Source Code di SINI

Sumber : VB-code.blogspot.com

Disable Mouse & Keyboard

Source Code ini berfungsi untuk men Disable fungsi Mouse & Keyboard.
pengen tau ... ke SINI aja

Clipboard Copy

Source Code ini berfungsi untuk menCopy text pada saat kita melakukan Copy Paste di luar Form/Aplikasi.
Pasti bingung... kalau gitu langsung ambil aja Source Code.nya di bawah :

Source Code di SINI

MenCapture Form

Sourcode ini berfungsi untuk MenCapture/Mengambil gambar diri sendiri (hanya pada form)

Source Code di SINI

Minggu, 24 Juni 2012

Membuat Text Voice (VBS)

Membuat Input yang berasal dari Text/Huruf menjadi OutPut Suara ...

Langkah-langkah :

1. Buka NOTEPAD kamu
2. Ketik/Copas kode Script di bawah ini :

    Dim userInput
    userInput = InputBox("Masukan kalimat di kolom text, lalu tekan OK (Sound/Speaker harus          aktif)")
    Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
    Sapi.speak userInput


3. Lalu Save As dengan Extensi ( *.vbs )  CONTOH : ( Nama.vbs )
4. Lalu jalankan progam.nya
5. ♠ Semoga Bermanfaat ♠

Mengubah Atribut file dengan Batch

Tutorial kali ini adalah, Bagaimana mengubah Atribut File dengan Batch.
Langsung aja :

1. Buka NOTEPAD kamu
2. Ketik code di bawah ini :

     attrib +s +h D:\contoh.doc  ( mengubah Atribut file menjadi Hidden )
   

3. Save As dengan Extensi ( *.bat )
4. Lalu buat Dokument dg Ms.Word, Lalu beri nama ( contoh ) ,tanpa tanda kurung, Lalu letakan di Drive D
5. Jalankan Batch file yang kamu buat tadi dengan cara Double click.
6. Lalu lihat pada Dokument kamu di Drive D .... Pasti hilang 


Dan untuk mengembalikan Dokument supaya tidak ke Hidden , Berikut langkah2.nya :

Jumat, 22 Juni 2012

Membatasi Nominal Angka pada Text Box (VB6)

Maksud judul postingan kali ini adalah, Membuat nilai nominal angka 100 pada TextBox, jadi kalau kamu memasukan nilai nominal di atas seratus, Misal 101,..Maka akan keluar pesan "Angka tidak boleh melebihi 100"

Berikut langkah-langkah.nya.

1. Buka VB6 kamu, pilih Standard EXE
2. Masukan : 1 TexsBox dan 1 Command Button ke dalam Form
3. Lalu masukan kode di bawah ini :

                      Private Sub Command1_Click()
                      On Error Resume Next
                       If Text1.Text > 100 Then
                       MsgBox "Angka tidak boleh melebihi = 100"
                       Text1.Text = 100
                       End If
                       End Sub


4. Lalu RUN aplikasi dan bisa langsung di coba...ok
5. ♠ Semoga Bermanfaat ♠

Sumber : CAP info tech

Supaya Aplikasi tidak berjalan dua kali (VB6)

Sobat tau maksud judul postingan ini, Maksudnya adalah Saat kita membuka aplikasi yg kita buat, Aplikasi hanya bisa berjalan satu kali.
Jadi kita tidak bisa membuaka Aplikasi yang sama.
Misal : Aplikasi A kita buka ,lalu sebelum Aplikasi A kita tutup ,kita buka lagi Aplikasi yg sama, yaitu Aplikasi A , maka Aplikasi A yang kita buka tidak akan tampil ,karna Aplikasi A yang pertama belum di tutup............ aduuuuuuuuhhhhhh ribet ya.. mudah-mudahan Sobat ngerti maksudnya...

Udah deh langsung aja :

1. Buka VB6 kamu, Pilih Standar EXE
2. Lalu masukan sedikit Code ini di dalam Form Load :

Membuat Form Password

Kali ini Saya akan kasih tutorial membuat Form Password yang sedikit berbeda tapi tetep sama..he..he..he
Ini hasil code saya sendiri , jd jangan di ketawain bagi yg sudah Master .. ☺

Langsung aja :

1. Buka VB6 dan pilih Standard EXE
2. Beri 1 Text Box dan 1 Command Button
3. Lalu View kode dan masukan Script di bawah ini :

Kamis, 21 Juni 2012

Drag Drop Image (VB6)

Drag Drop Image/gambar ke dalam Form, Atau mengeser gambar ke dalam Form.

Langsung aja pada langkah :

1. Buka VB6 kamu dan pilih Standard EXE.
2. Beri Image pada Form.
3. Ubah Properties Image pada :

 BorderStyle = 1 - Fixed Single ,OLEDropMode = 1 - Manual, Stretch = True
 ( strech : supaya gambar bisa menyesuaikan pada kotak image)

4. Klik View Code, dan masukan Script di bawah ini :

Membuat Folder dengan Notepad (batch)

Klik kanan New -Folder, ..... " Itu sih biasa, kalau kita mau buat Folder Baru.
Tapi ada cara unik lagi, Untuk buat New Folder, dengan NOTEPAD yg di save jadi Batch file.
Pengen tau ,lihat langkah-langkah di bawah ini :

1. Buka Notepad kamu
2. lalu masukan Code di bawah ini :

echo off
@color 0a
:start
cls
echo
echo   ______ echo http://cap-vbs.blogspot.com
echo   ______
set /p folder=Nama folder =
cd %userprofile%\desktop
md "
%folder%" goto:start

3. Lalu

Membuat Nama Form berjalan

Langkah pertama ,Buka VB6 kamu ,pilih Standard EXE.
Masukan Timer dengan Interval 100/200.
Lalu buka View Code, masukan Script di bawah ini :

CODE :
Dim nama As String Private
Sub Form_Load() nama = " CENDHIKIA ADITYA PRATAMA "
End Sub

Private Sub Timer1_Timer()
a = Left(nama, 1)
c = Len(nama)
b = Right(nama, c - 1)
nama = b + a
Me.Caption = nama
End Sub

Lalu RUN aplikasi, dan lihat pada nama Form kamu...

♠ Semoga Bermanfaat ♠

Sumber : djiesoft.blogspot.com

Cara ganti Password blog (versi baru)

Cara ganti Password Blog versi baru.

1. LogIn ke Bloger kamu
2. Klik Akun kamu di pojok kanan paling atas
3. Pilih Setelan Akun
4. Pilih ( Ikhtisar Akun )

Selasa, 19 Juni 2012

CAP image Tools









Supaya Komputer tidak Lemot

Pada postingan pertama saya tentang Komputer ,saya mau bahas tentang Komputer lambat dan cara mengatasinya.

Pertama saya liat-liat dulu jenis komputenya ,kalau komputer Pentium 4 sich ,saya bisa bantu ..,Tapi kalau dibelakangya, ane nyerah dech .. ☺
Komputer lambat bisa jadi karna :

1. Penempatan Data

Penempatan Data/File ,harusnya di letakan dengan aturan dan tidak acak-acakan.
Kamu bisa meletakan data sesuai tempatnya , untuk File gambar ,Dokument ,Software, dll, letakan sesuai jenis file.
Jangan meletakan Folder yang berisi File-file atau Dokument di Desktop / Drive C..,Kenapa ..?
Karna akan mengurangi kinerja komputer , membuat Desktop berantakan dan yang terakhir biar Gak Nyesel saat komputer mau di Instal ulang dan Data belum di Back Up .karna System yang gk bisa selamat cuma di Drive C.
Lalu Defrag Drive kamu..,Pake Disk Defragmenter .(klik-Start -Accessories-System Tools-klik Disk Defragmenter)

2. HardDisk

Harddisk yang terlalu penuh data penyimpananya atau bahkan sampai muncul pesan Low Disk Space pada komputer ,Nah..itu juga jadi penyebab komputer lambat.
Solusinya..

Sabtu, 16 Juni 2012

Setting konfigurasi dengan (*.ini) file

1. Siapkan 5 TexsBox dan 1 CommandButton.

2. Masukan Code di bawah ini ke dalam Form :

'Tambahkan 5 buak textbox dan sebuah command button Option Explicit 'Untuk mencatat ke ini file Private Sub Command1_Click() WriteIniValue App.Path & "\Test.ini", "konfigurasi", "Server", Text1.Text WriteIniValue App.Path & "\Test.ini", "konfigurasi", "Database", Text2.Text WriteIniValue App.Path & "\Test.ini", "konfigurasi", "User", Text3.Text WriteIniValue App.Path & "\Test.ini", "konfigurasi", "Password", Text4.Text WriteIniValue App.Path & "\Test.ini", "keterangan", "data", Text5.Text Unload Me End Sub 'Untuk membaca ke ini file Private Sub Form_Load() Text1.Text = ReadIniValue(App.Path & "\Test.ini", "konfigurasi", "Server") Text2.Text = ReadIniValue(App.Path & "\Test.ini", "konfigurasi", "Database") Text3.Text = ReadIniValue(App.Path & "\Test.ini", "konfigurasi", "User") Text4.Text = ReadIniValue(App.Path & "\Test.ini", "konfigurasi", "Password") Text5.Text = ReadIniValue(App.Path & "\Test.ini", "keterangan", "data") End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If UnloadMode = 0 Then Cancel = 1 End Sub

3. Lalu masukan Code di bawah ini, ke dalam Modul, nama (terserah) :

Option Explicit 'Untuk membaca isi ini file Public Function ReadIniValue(INIpath As String, KEY As String, Variable As String) Dim NF As Integer Dim Temp As String Dim LcaseTemp As String Dim ReadyToRead As Boolean AssignVariables: NF = FreeFile ReadIniValue = "" KEY = "[" & LCase$(KEY) & "]" Variable = LCase$(Variable) EnsureFileExists: Open INIpath For Binary As NF Close NF SetAttr INIpath, vbArchive LoadFile: Open INIpath For Input As NF While Not EOF(NF) Line Input #NF, Temp LcaseTemp = LCase$(Temp) If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False If LcaseTemp = KEY Then ReadyToRead = True If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then If InStr(LcaseTemp, Variable & "=") = 1 Then ReadIniValue = Mid$(Temp, 1 + Len(Variable & "=")) Close NF: Exit Function End If End If Wend Close NF End Function 'Untuk menulis ke ini file Public Function WriteIniValue(INIpath As String, PutKey As String, PutVariable As String, PutValue As String) Dim Temp As String Dim LcaseTemp As String Dim ReadKey As String Dim ReadVariable As String Dim LOKEY As Integer Dim HIKEY As Integer Dim KEYLEN As Integer Dim VAR As Integer Dim VARENDOFLINE As Integer Dim NF As Integer Dim X As Integer AssignVariables: NF = FreeFile ReadKey = vbCrLf & "[" & LCase$(PutKey) & "]" & Chr$(13) KEYLEN = Len(ReadKey) ReadVariable = Chr$(10) & LCase$(PutVariable) & "=" EnsureFileExists: Open INIpath For Binary As NF Close NF SetAttr INIpath, vbArchive LoadFile: Open INIpath For Input As NF Temp = Input$(LOF(NF), NF) Temp = vbCrLf & Temp & "[]" Close NF LcaseTemp = LCase$(Temp) LogicMenu: LOKEY = InStr(LcaseTemp, ReadKey) If LOKEY = 0 Then GoTo AddKey: HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[") VAR = InStr(LOKEY, LcaseTemp, ReadVariable) If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable: GoTo RenewVariable: AddKey: Temp = Left$(Temp, Len(Temp) - 2) Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue GoTo TrimFinalString: AddVariable: Temp = Left$(Temp, Len(Temp) - 2) Temp = Left$(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid$(Temp, LOKEY + KEYLEN + 1) GoTo TrimFinalString: RenewVariable: Temp = Left$(Temp, Len(Temp) - 2) VARENDOFLINE = InStr(VAR, Temp, Chr$(13)) Temp = Left$(Temp, VAR) & PutVariable & "=" & PutValue & Mid$(Temp, VARENDOFLINE) GoTo TrimFinalString: TrimFinalString: Temp = Mid$(Temp, 2) Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0 Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf) Loop Do Until Right$(Temp, 1) > Chr$(13) Temp = Left$(Temp, Len(Temp) - 1) Loop Do Until Left$(Temp, 1) > Chr$(13) Temp = Mid$(Temp, 2) Loop OutputAmendedINIFile: Open INIpath For Output As NF Print #NF, Temp Close NF End Function

4. Lalu RUN aplikasi.

Sumber :  http://cimahi-one.com

Minggu, 10 Juni 2012

Membuat Daftar Link (dengan scroll)

Di tutorial kali ini, saya akan memberikan contoh cara membuat Daftar Link untuk koleksi link dari teman2 blog kamu.
Walau di bloger sendiri sudah di sediakan Widget Daftar Link.., gak ada salahnya kn.,buat yang beda.. ☺

Ok..langsung aja ..

1. Login ke akun Blogger kamu
2. Pilih menu Tata Letak
3. Tambahkan Widget baru "Add Gadget"
4. Pilih HTML/Javascript
5. Copy kode di bawah ini ,dan Paste di Widget  :

Sabtu, 09 Juni 2012

Widget PageRank

Mau Kumpulan Widget-widget keren buat Blog kamu, Clik aja LINK yang ada di bawah :
---------------------------------------------------------------------------------------------------

Feedjit            : Untuk menampilkan dari negara mana aja yang berpengunjung di  Blog kamu  _link
WowCounter  : Untuk menampilkan jumlah pengunjung di Blog kamu link
ClockWidgets : Untuk menampilkan Jam Analog maupun Digital di Blog kamu link
Widgeo           : Tempat penyedia layanan Widget Gratis, tinggal pilih link
RevolverMaps : Fungsi widget ini hampir sama seperti Widget pengunjung lainya..cuma dalam bentuk  globe/Bola dunia  Link


Kamis, 07 Juni 2012

Cara menghapus BLOG ( Blogspot )

UNTUK BLOGER VERSI BARU :

1.  Login ke blogger.com
2.  Pada Dasbor bloger (pilih tombol yang dilingkari merah

3. Lalu, pilih menu setelan ( biasanya paling bawah )

 4. Selanjutnya pilih menu Setelan (sebelah kiri/lihat gambar )

5. Pilih menu Lainya (paling bawah)
6. Pada pengaturan Alat Blog , pilih Hapus Blog