Just Share Tips and Tricks Computers, Internet, Anti Virus, Spam Blocker, Blogger Tips, Blogger Tricks, Internet Bussines, News, Awards, Adsense

Tips Membuat Add In Terbilang Untuk Microsoft Word 2007

noreply@blogger.com (Cak Wawan Aja) — Sat, 25 Aug 2012 08:42:00 +0000

Bagaimana membuat membuat Add In terbilang (menterjemahkan angka menjadi kata-kata ) pada Microsoft Excel 2007. Bagi anda yang sering membuat tanda terima pembayaran tentunya sering kali anda harus menterjemahkan angka-angka menjadi kata-kata, misal Rp. 1000,- diterjemahkan menjadi "Seribu Rupiah", tentu akan sangat melelahkan jika hal ini harus dikerjakan secara manual, dimana anda harus mengeja setiap angka pada transaksi anda untuk kemudian anda ketik. Tujuan Add In ini saya berharap akan bisa membantu mempermudah pekerjaan dalam membuat tanda terima dan mempersingkat proses.

Langkah-langkahnya sebagai berikut :
1. Pilih tab View - Macros - View Macros

2. Muncul popup Macros lalu tulis nama macro pada kolom "Macro name" (tanpa spasi)

3. Lalu pilih "Create"
4. Maka muncul "Microsoft visual basic for applications"
5. Pada folder "Modules" klik kanan pada "New Macros - View Code" (delete semua perintah yang ada sebelumnya)

6. Copy paste perintah berikut ini :

Option Explicit
Sub ctvTerbilang()
Dim Number As Variant, Kata As String, sText As String
Const Ttel As String = “Terbilang Max 18 digit saja loh!”sText = Replace(Selection, Chr(10), “”)
Selection = sText
If IsNumeric(Selection) Then
Number = CDec(Selection)
With Selection
.Copy
.EndKey Unit:=wdLine
.TypeParagraph
End WithSelect Case Number
Case 0
Kata = “Zero”
Case 0.001 To 1E+18
Kata = TERBILANG(Number)
Case Else
MsgBox “Bilangan Terlalu besar!”, 48, Ttel
End Select
Else
MsgBox “Tidak ada bilangan di dalam selection!!”, 48, Ttel
End If
Selection = Kata
End SubPrivate Function TERBILANG(Nnum As Variant) As String
Dim nUtuh As Variant, nDesi As Variant
Dim sUtuh As String, sDesi As String
Nnum = CDec(Round(Nnum, 2))
nUtuh = CDec(Int(Nnum))
nDesi = CDec(Round((Nnum – nUtuh) * 100, 0))
sUtuh = TransX(nUtuh)
If nDesi = 0 Then
sDesi = “”
Else
sDesi = “dan ” & TransX(nDesi) & ” per seratus”
End If
TERBILANG = Trim(sUtuh & ” ” & sDesi)
End FunctionPrivate Function TransX(Bilangan As Variant) As String
Dim TxtBil As String, Teks As String, i As Integer, Pos As Integer
Dim Angka(19) As String, Puluh(9) As String, Letak(4) As String
Dim DwiDigit As Byte, TriD1 As Byte, TriD2 As Byte, TriD3 As Byte
Angka(1) = “satu”: Angka(2) = “dua”: Angka(3) = “tiga”
Angka(4) = “empat”: Angka(5) = “lima”: Angka(6) = “enam”
Angka(7) = “tujuh”: Angka(8) = “delapan”: Angka(9) = “sembilan”:
Angka(10) = “sepuluh”: Angka(11) = “sebelas”: Angka(12) = “dua belas”
Angka(13) = “tiga belas”: Angka(14) = “empat belas”: Angka(15) = “lima belas”
Angka(16) = “enam belas”: Angka(17) = “tujuh belas”: Angka(18) = “delapan belas”
Angka(19) = “sembilan belas”
Puluh(0) = “”: Puluh(2) = “dua puluh”: Puluh(3) = “tiga puluh”
Puluh(4) = “empat puluh”: Puluh(5) = “lima puluh”: Puluh(6) = “enam puluh”
Puluh(7) = “tujuh puluh”: Puluh(8) = “delapan puluh”: Puluh(9) = “sembilan puluh”
Letak(0) = “ribu”: Letak(1) = “juta”
Letak(2) = “milyar”: Letak(3) = “triliun”: Letak(4) = “kuadriliun”
Bilangan = CDec(Bilangan)
TxtBil = Trim(Str(Round(Abs(Bilangan), 0)))
If CDec(TxtBil) = 0 Then
Teks = “nol ”
Else
i = 0
Do
TxtBil = “000? + TxtBil
DwiDigit = CByte(Right(TxtBil, 2))
If (DwiDigit > 0) And (DwiDigit < 20) Then
Teks = IIf((Bilangan < 2000 And i = 1), “se”, Angka(DwiDigit) + ” “) + Teks Else TriD3 = CByte(Right(TxtBil, 1)) If (TriD3 > 0) Then Teks = Angka(TriD3) + ” ” + Teks
TriD2 = CByte(Left(Right(TxtBil, 2), 1))
If (TriD2 > 0) Then Teks = Puluh(TriD2) + ” ” + Teks
End If
TriD1 = CByte(Left(Right(TxtBil, 3), 1))
If (TriD1 = 1) Then Teks = “seratus ” + Teks
If (TriD1 > 1) Then Teks = Angka(TriD1) + ” ratus ” + Teks
TxtBil = Left(TxtBil, Len(TxtBil) – 3)
If (CDec(TxtBil) > 0) Then
Teks = IIf(CInt(Right(TxtBil, 3)) = 0, “”, Letak(i) + ” “) + Teks
i = i + 1
End If
Loop While ((CDec(TxtBil) > 0) And (i < 6))
End If
TransX = Trim(Teks)
End Function

7. Lalu pilih File - Save normal

8. Klik File - Close and Return to Microsoft Word
9. Pilih save as dengan type "Word Macro-Enabled Document"

10. Setelah itu coba jalankan microsoft word 2007
11. Lalu coba macro dengan pilih tab View - Macros - View Macros. Nama macro yan dibuat sebelumnya akan otomatis berubah menyesuaikan script yang ada. Lalu coba anda tulis 123426353 dan seleksi angka tersebut lalu pilih tab “View > Macros > View Macros > pilih nama macronya lalu klik "Run"

Tips Membuat Add In Terbilang Untuk Microsoft Excel 2007 (edisi basi)

noreply@blogger.com (Cak Wawan Aja) — Fri, 24 Aug 2012 07:46:00 +0000

5.Pilih tabs "Add-Ins", lalu "Go…".

6. Muncul kotak berikut tekan pada tombol "Browse"

7. Cari file yang anda simpan tadi (misal di c:/My Documents)

8. Klik tombol "Ok" lalu akan muncul kotak berikut :

9. Klik Ok lagi untuk menyeselaikan proses pemasangan Add-Ins
Sekarang kita check apakah fungsi tersebut berfungsi. Untuk memakainya anda perlu mengetahui formulanya. Misal angka yang hendak anda buatkan terbilangnya ada di cell "A1", maka formulanya adalah sebagai berikut :
=terbilang(A1,4,"Rupiah.")

Kode Terbilang dengan akhiran rupiah :

Attribute VB_Name = "Module1"
Option Explicit

Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg

ReDim Place(9) As String
Place(2) = "RIBU "
Place(3) = "JUTA "
Place(4) = "MILYAR "
Place(5) = "TRILYUN "

'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))

'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If

'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If

Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Select Case Rupiah
Case ""
Rupiah = "NOL RUPIAH"
Case Else
Rupiah = Rupiah & "RUPIAH"
End Select

Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " DAN " & Sen & "SEN"
End Select

If IsNeg = True Then
Terbilang = "MINUS " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If

End Function

' Mengubah angka 100-999 menjadi teks *
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)

'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "SE"
Exit Function
End If

'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "SERATUS "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "RATUS "
End If
End If

'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If

Ratusan = Result

End Function

'*******************
' Mengubah puluhan *
Function Puluhan(TeksPuluhan)
Dim Result As String

Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "SEPULUH "
Case 11: Result = "SEBELAS "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "BELAS "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "PULUH "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function

'********************************
' Mengubah satuan menjadi teks. *
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "SATU "
Case 2: Satuan = "DUA "
Case 3: Satuan = "TIGA "
Case 4: Satuan = "EMPAT "
Case 5: Satuan = "LIMA "
Case 6: Satuan = "ENAM "
Case 7: Satuan = "TUJUH "
Case 8: Satuan = "DELAPAN "
Case 9: Satuan = "SEMBILAN "
Case Else: Satuan = ""
End Select
End Function

Kode terbilang tanpa akhiran rupiah :

Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg

ReDim Place(9) As String
Place(2) = "ribu "
Place(3) = "juta "
Place(4) = "milyar "
Place(5) = "trilyun "

'Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))

'Cek bilangan negatif
If Mid(MyNumber, 1, 1) = "-" Then
MyNumber = Right(MyNumber, Len(MyNumber) - 1)
IsNeg = True
End If

'Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, ".")
'Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & "00", 2)
If Left(Tmp, 1) = "0" Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal - 1))
End If

Count = 1
Do While MyNumber <> ""
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp <> "" Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop

Select Case Rupiah
Case ""
Rupiah = "nol rupiah"
Case Else
Rupiah = Rupiah & "rupiah"
End Select

Select Case Sen
Case ""
Sen = ""
Case Else
Sen = " dan " & Sen & "sen"
End Select

If IsNeg = True Then
Terbilang = "minus " & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If

End Function

'**************************************
' Mengubah angka 100-999 menjadi teks *
'**************************************
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)

'Mengubah seribu
If MyNumber = "001" And Count = 2 Then
Ratusan = "se"
Exit Function
End If

'Mengubah ratusan
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = "1" Then
Result = "seratus "
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & "ratus "
End If
End If

'Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If

Ratusan = Result

End Function

'*******************
' Mengubah puluhan *
'*******************
Function Puluhan(TeksPuluhan)
Dim Result As String

Result = ""
' nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = "sepuluh "
Case 11: Result = "sebelas "
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & "belas "
End Select
' nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& "puluh "
Result = Result & Satuan(Right(TeksPuluhan, 1))
'satuan
End If
Puluhan = Result
End Function

'********************************
' Mengubah satuan menjadi teks. *
'********************************
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = "satu "
Case 2: Satuan = "dua "
Case 3: Satuan = "tiga "
Case 4: Satuan = "empat "
Case 5: Satuan = "lima "
Case 6: Satuan = "enam "
Case 7: Satuan = "tujuh "
Case 8: Satuan = "delapan "
Case 9: Satuan = "sembilan "
Case Else: Satuan = ""
End Select
End Function

Tips Sederhana Meningkatkan PageRank dengan Multi Level Marketing Backlink (MLM-B)

noreply@blogger.com (Cak Wawan Aja) — Fri, 10 Aug 2012 08:29:00 +0000

Habis selancar kesana-kesini tidak disangka-sangka ternyata blog jelekku dan paling berantakan sedunia yang mana lama sekali gak pernah update karena kesibukan mengejar setoran demi kelancaran dan kelangsungan "Ngebul-nya Dapur", selama ini masih bertahan di PR-4 (salah satunya bisa dilihat pada artikel sobat septian-lbs-2012) Daftar Blog Dofollow Indonesia 2012 Pagerank Tinggi dan masih banyak sobat-sobat lain yang ikut sumbangsih membantu untuk men-publish bloger sobat-sobat Do-Follow dengan PageRank tinggi.

Kali ini saya ingin berbagi tips dari sobat-sobat blogger mengenai cara cepat meningkatkan PageRank Blog ala MLM-B yaitu dengan cara penyebaran link untuk mendapatkan backlink sebanyak-banyaknya.

Buat kawan-kawan blogger yang ingin mencoba mengikuti Multi Level Backlink (MLM-B) ini, silahkan copy paste tulisan/link dibawah ini dengan mengikuti ketentuan yang telah dibuat.
Untuk tips kali ini saya mencoba mengajak kawan-kawan untuk memanfaatkan kedahsyatan faktor kali dan kecepatan penyebaran ini dalam bentuk backlink.

Cara awal adalah meletakkan link-link berikut ini di blog atau artikel anda :

1. subagya - PageRank 5
2. nagapasha - PageRank 5
3. harry.sufehmi - PageRank 4
4. bloggerbekasi - PageRank 4
5. redeagle21 - PageRank 4
6. mu-ri - PageRank 4
7. ot-indo - PageRank 4
8. jovieblog - PageRank 4
9. cah-cikrik - PageRank 4
10. dhuwuh - PageRank 4 (ini blog saya ya sob)

Rumus dan tata caranya : Sebelum anda meletakkan link diatas di bloger, anda harus menghapus "Peserta Nomor 1" dari daftar, sehingga semua peserta naik 1 tingkat level.
Yang tadinya :
Urutan nomor 1, sekarang sudah hilang
Urutan nomor 2, sekarang jadi nomor 1
Urutan nomor 3, sekarang jadi nomor 2
Urutan nomor 4, sekarang jadi nomor 3
Urutan nomor 5, sekarang jadi nomor 4
Urutan nomor 6, sekarang jadi nomor 5
Urutan nomor 7, sekarang jadi nomor 6
Urutan nomor 8, sekarang jadi nomor 7
Urutan nomor 9, sekarang jadi nomor 8
Urutan nomor 10, sekarang jadi nomor 9
Kemudian masukkan link kamu sendiri di bagian paling bawah (nomor 10).

Contoh buat anda yang pertama kali melihat dan melakukan tips ini :
Copy Paste Blog Link ini ke blog atau artikel anda seperti ini :

* Jika sebagai orang - 1 :
1. nagapasha - PageRank 5
2. harry.sufehmi - PageRank 4
3. bloggerbekasi - PageRank 4
4. redeagle21 - PageRank 4
5. mu-ri - PageRank 4
6. ot-indo - PageRank 4
7. jovieblog - PageRank 4
8. cah-cikrik - PageRank 4
9. dhuwuh - PageRank 4 (blog saya sekarang urutan 9)
10. isi dengan Link Blogger orang 1 (sebagai orang 1)

* Jika sebagai orang - 2 :
1. harry.sufehmi - PageRank 4
2. bloggerbekasi - PageRank 4
3. redeagle21 - PageRank 4
4. mu-ri - PageRank 4
5. ot-indo - PageRank 4
6. jovieblog - PageRank 4
7. cah-cikrik - PageRank 4
8. dhuwuh - PageRank 4 (blog saya sekarang urutan 8)
9. isi dengan Link Blogger orang 1 (sebagai orang 1)
10. isi dengan Link Blogger orang 2 (sebagai orang 2)

* Jika sebagai orang - 3 :
1. bloggerbekasi - PageRank 4
2. redeagle21 - PageRank 4
3. mu-ri - PageRank 4
4. ot-indo - PageRank 4
5. jovieblog - PageRank 4
6. cah-cikrik - PageRank 4
7. dhuwuh - PageRank 4 (blog saya sekarang urutan 7 dan seterusnya)
8. isi dengan Link Blogger orang 1 (sebagai orang 1)
9. isi dengan Link Blogger orang 2 (sebagai orang 2)
10. isi dengan Link Blogger orang 3 (sebagai orang 3)

dan seterusnya.....

Jika tata cara tsb diatas dilakukan dengan tertib dan terencana serta tiap peserta mampu mengajak 5 orang saja, maka jumlah backlink yang akan didapat adalah : Ketika.....

Posisi kamu 10, jumlah backlink yang di dapat = 1
Posisi 9, jumlah backlink yang di dapat = 5
Posisi 8, jumlah backlink yang di dapat = 25
Posisi 7, jumlah backlink yang di dapat = 125
Posisi 6, jumlah backlink yang di dapat = 625
Posisi 5, jumlah backlink yang di dapat = 3,125
Posisi 4, jumlah backlink yang di dapat = 15,625
Posisi 3, jumlah backlink yang di dapat = 78,125
Posisi 2, jumlah backlink yang di dapat = 390,625
Posisi 1, jumlah backlink yang di dapat = 1,953,125

Dan semuanya menggunakan kata kunci yang kamu inginkan.
Dari sisi SEO kita sudah mendapatkan 1,953,125 backlink dan efek sampingnya jika pengunjung web para downline kita mengklik link itu, juga membuat blog kita mendapatkan traffik tambahan.

Attention :
Ingat, anda harus mulai dari posisi 10 agar hasilnya maksimal.
Karena jika anda tiba-tiba di posisi 1, maka link kamu akan hilang begitu ada yang masuk ke posisi 10.

Namanya juga berusaha kan sob...
Apapun itu pasti kita akan mencobanya untuk mendapatkan nilai lebih, terpenting halal dan jujur...

Selamat mencoba dan selamat menunaikan Ibadah Puasa Ramadhan 1 Syawal 1433 H

Tips Membuat Add In Terbilang Untuk Microsoft Word

noreply@blogger.com (Cak Wawan Aja) — Fri, 12 Mar 2010 03:53:00 +0000

Bagaimana klo sekarang mengaplikasikan Add In terbilang (menterjemahkan angka menjadi kata-kata ) pada Microsoft Word. Yang sudah kebanyakan dalam fungsi ini kita aplikasikan pada Excel dan cagaimana kita mengaplikasikannya pada word? Tidaklah sulit serta hampir sama penempatannya seperti pada excel yang telah saya tulis sebelumnya.

Langkah-langkahnya sebagai berikut :

1. Buka Microsoft Word Anda
2. Klik Pada Menu Tools – Macro – Visual Basic Editor (Alt+F11)

3. Setelah tampil jendela Visual Basic Editor, langkah selanjutnya adalah menambahkan module baru dengan cara Klik menu Insert – Module. Dari Proses ini akan terbentuk satu modul baru dengan nama Module1.
4. Download file terbilang_Word dan Masukkan fungsi terbilang yang sudah anda siapkan kedalam module1

5. Setelah listing tersalin dengan rapi, jalankan perintah "Debug | CompileProject".
6. Jika sudah, tutup program registry editor untuk kembali ke lembar kerja.
7. Untuk mempermudah penggunaan makro yang Anda buat ini. Buka saja "Tools - Macro - Macros". Di dalam jendela "Macros" yang terbuka, klik pilihan "Terbilang" dan tekan tombol "Organizer".

8. Di dalam jendela "Organizer", aktifkan tab "Macro Project Item" dan copy "Module1" yang berada di bagian dari kiri ke bagian kanan "In Normal.dot" yang berada di kanannya.

9. Setelah selesai, tutup dengan mengklik "OK".
10. Langkah selanjutnya, Anda harus membuka "Customize" dari menu "Tools". Di dalam jendela "Customize", aktifkan tab "Commands" dan pilih "Macros" yang berada di bagian "Categories". Di bagian kanannya, yaitu di bagian "Command", drag "Normal.Module1. Terbilang" ke bagian menubar yang masih kosong. Klik kanan tombol baru tersebut dan ubah namanya menjadi "Terbilang" saja. Anda juga bisa menambahkan icon di sampingnya melalui "Change Button Image". Terakhir, tutup dengan mengklik "OK" untuk kembali ke lembar kerja. Dan anda dapat mengedit (rename) nama/judul-nya.

11. Cara penggunaannya, tinggal blok angka yang akan dibuat terbilang dan klik tombol fungsi terbilang yg terdapat pada menu toolbar.

Tips Membuat Add In Terbilang Untuk Microsoft Excel

noreply@blogger.com (Cak Wawan Aja) — Wed, 10 Mar 2010 02:35:00 +0000

Bagaimana membuat membuat Add In terbilang (menterjemahkan angka menjadi kata-kata )
pada Microsoft Excel. Bagi anda yang sering membuat tanda terima pembayaran tentunya sering kali anda harus menterjemahkan angka-angka menjadi kata-kata, misal Rp. 1000,- diterjemahkan menjadi "Seribu Rupiah", tentu akan sangat melelahkan jika hal ini harus dikerjakan secara manual, dimana anda harus mengeja setiap angka pada transaksi anda untuk kemudian anda ketik. Tujuan Add In ini saya berharap akan bisa membantu mempermudah pekerjaan dalam membuat tanda terima dan mempersingkat proses.

Langkah-langkahnya sebagai berikut :

1. Buka Microsoft Excel Anda
2. Klik Pada Menu Tools – Macro – Visual Basic Editor (Alt+F11)

3. Setelah tampil jendela Visual Basic Editor, langkah selanjutnya adalah menambahkan module baru dengan cara Klik menu Insert – Module. Dari Proses ini akan terbentuk satu modul baru dengan nama Module1.
4. Download file terbilang_excel dan Masukkan fungsi terbilang yang sudah anda siapkan kedalam module1

5. Sampai disini proses sudah setengah jadi, pindahkan jendela aktif lembar kerja excel, coba anda tuliskan pada cell A1 angka 1000 dan pada cell A2 tuliskan dengan rumus =terbilang(A1), maka pada cell A2 akan tampil tulisan "Seribu".

Membuat deskripsi dan mengamankan kode anda :

Langkah selanjutnya adalah memberi deskripsi dan mengamankan kode VBA anda, langkahnya adalah sebagai berikut :

1. Pada lembar kerja Excel anda, klik menu Tools – Macros
2. Ketikkan nama fungsi terbilang anda dan pastikan tombol Option menjadi enable (menyala), kalau tidak, bisa dipastikan anda salah menuliskan nama fungsi terbilangnya.

3. Klik Option, dan ketikkan Deskripsi fungsi terbilang anda dalam kotak Description. Akhiri proses dengan klik tombol OK dan berikutnya Klik Tombol Cancel untuk menutup Macro dialog.
4. Untuk memberi password kode VBA anda, pindahkan jendela aktif ke jendela Visual Basic, Klik kanan pada VBAProject (Book1) – pilih VBAProject Properties, selanjutnya akan ditampilkan dialog VBAProject Properties , aktifkan Tab protection, masukkan password pada kotak password dan konfirmasi pada kotak Confirm Password. Jika anda bermaksud mendistribusikan Add Ins anda secara gratis dan untuk tujuan pembelajaran, sebaiknya tidak perlu dipassword, karena penerima Add Ins anda akan lebih mudah mempelajari kode anda.

Membuat Add Ins :

1. Tutup Visual basic Editor anda. Simpan Dokumen excel anda dengan klik menu File – Save As.
2. Ubah Save As Type menjadi Microsoft Excel Add In (*.xla), dan spesifikasikan tempat penyimpanannya.
3. Beri nama bebas, misal terbilang.xla dan tutup dokumen excel anda boleh disimpan boleh tidak. Pembuatan Add In telah selesai, dan anda bisa mendistribusikan file terbilang.xla untuk teman anda atau siapa saja yang membutukan.

Menginstall Add In :

Langkahnya sebagai berikut :
1. Siapkan File Add In (terbilang.xla)
2. Buka Microsoft Excel anda, Klik Menu Tools – Add Ins
3. Klik Browse dan arahkan ke tempat penyimpanan file Add In Anda (terbilang.xla) dan klik OK
4. Pastikan terbilang tampil dalam list dan dalam kondisi aktif ( )

Terapi Papan Golden Wood

noreply@blogger.com (Cak Wawan Aja) — Mon, 18 May 2009 07:09:00 +0000

K esehatan adalah hal yang paling utama bagi manusia. Sehat berarti panjang umur. Ini saya ingin memperkenalkan kepada sobat-sobat blogger disamping berblogger ria jangan lupa tetap menjaga kebugaran dan kesehatan ya dengan melakukan terapi sederhana tapi sangat bermanfaat, tapi kembali lagi pada sobat2 percaya dan tidaknya, karena sehat adalah milik pribadi seseorang dan sangat mahal harganya. Ini bukan promosi dagang melainkan saya sangat menganjurkan dalam prosmosi kesehatan kali ini. Dan semoga dapet inspirasi lagi untuk alat2 kesehatan metode lainnya yang sederhana tapi manfaat luar biasa. Kali ini ini aku kenalkan suatu alat terapi papan golden wood yang mana cara penggunakaan dan aturan pakainya sangat sederhana dan setimpal hasilnya. Bisa dibuat sendiri ataupun dibeli di toko2 kesehatan cina, dengan harga relatif murah sekitar Rp. 150.000,00 aja.
Adapun manfaat dari papan kesehatan Golden Wood antara lain :

Sumber Katalok :
1. Badan menjadi sehat dan lincah
2. Merangsang sendi-sendi agar tubuh bekerja dengan lebih baik
3. Mengencangkan otot-otot perut sehingga jadi lebih langsing
4. Melancarkan sirkulasi darah dan jaringan
5. Meningkatkan energi dan vitalitas
6. Mencegah terjadinya stroke atau penyembuhan stroke
7. Meningkatkan konsentrasi dan daya ingat
8. Mencegah sakit pinggang
9. Memperlancar metabolisme
10. Memelihara sistem kekebalan tubuh
Sumber Pengalaman Pribadi & Teman sewaktu menerapi pasien :
11. Mengurangi & Menghilangkan varises
12. Mengurangi & Menghilangkan ambien
13. Mengecilkan perut
14. Membentuk dada bidang
15. Mengencangkan tulang belakang
16. Membentuk sayap dada
17. Menyembuhkan sakit pinggang
18. Menguruskan badan
19. Menggemukkan badan
20. Membentuk pundak
21. Mengurangi sulit tidur, migren, vertigo, dan masih banyak lagi manfaatnya

Cara penggunaan terapinya :

1. Berdoa pembuka
2. Digunakan kurang lebih 15 menit
3. Papan terdiri dari 3 ukuran, (1) PEMULA - (2) SEDANG - (3) NORMAL (45 derajad)
4. Tahap (1) = Kurang lebih selama 1 minggu s/d 2 minggu pemakaian
Tahap (2) = Kurang Lebih minggu ke-2 s/d minggu ke-3
Tahap (3) = Minggu ke-3 s/d rutinitas setiap hari
5. Penggunaan, berdiri tegak diatas papan dengan posisi badan dan kaki lurus, telapak kaki sejajar berhimpit dengan menahan dubur seperti menahan saat kebelet be`ol seperti gambar dan bisa diikuti dengan gerakan2 senam/olah raga lainnya
6. Gunakan 2 x sehari = pagi dan sore selama 15 menit
7. Berdoa penutup semoga sukses
8. Setelah semua proses dijalani, minum 1 - 2 gelas air putih untuk menggantikan air di tubuh yg keluar melalui keringat

Beralih ke Hobi Mancing

noreply@blogger.com (Cak Wawan Aja) — Mon, 20 Apr 2009 02:59:00 +0000

B erawal dari kegiatan kerjaan yang ditunda pas pemilihan gubernur jawa timur dan pemilihan legislatif ( DPRD dan DPR RI ), jadinya ya bete banget dikantor, klo gak nongkrong rokokan ataupun ngopi duh sangat menghabiskan budget. Makanya sekarang ini aku luangin waktu luang untuk menyalurkan hobi mancing di daerah Gerbang kertousilo surabaya dan sekitarnya… HeHeHe.
Kesannya sekarang sangat gila mancing mania deh dan sangat penasaran banget dengan teknik serta trik tip umpan ikan. Gimana tidak beda kolam dengan jenis ikan yang sama umpan belum tentu dimakan/strike aduh… Belum lagi nih mania hunting strikes bandeng yang terkenal tarikannya sangat liar serta mengasikkan.
Perlengkapan joran yang aku pake sih sederhana ndak neko-neko, joran ukuran 120cm, senar/kenur 0,30mm, kail ukuran nomer 4-5-6, kerean/roll.

Umpan yang bisa aku pakai untuk lomba/kiloan/harian sbb :

UMPAN TOMBRO

6 Tongkol Jagung Muda/janten (diparut)
1 Ons Keju Kraft (diparut)
2 Kuning Telor Bebek mentah
1 Kuning Telor Bebek matang
0,5 Ons Kacang Tanah yang sudah disangan/digoreng ga pake minyak (diblender halus)
2 Ons Kroto Putih Segar
1 Kaleng Tuna
1 Helai Daun Pandan Wangi
2 Tetes Esens Almond
2 Tetes Esens Choya
1 Tetes Esens Tengiri

Cara :

Campurkan parutan jagung, keju. kacang tanah, kuning telor mentah, ikan tuna ambil kira-kira dua potong aja, terakhir ambil satu ons aja kroto, potongan daun pandan wangi campur jadi satu, trus diubleg aduk-aduk ampe rata, kemudian masukkan adonan kewadah plastic ato dibungkus daun terserah, tapi kalo menurut pengalaman aku lebih baik dibungkus daun pisang. Kukus ampe matang kira-kira dua jam, selama pengukusan jangan lupa dibolak balik agar matangnya bisa rata. Setelah matang dinginkan sebentar trus campur dgn 1 kuning telor bebek yang udah matang, terakhir kasih tetesan esen, campur lagi sampai pulen. Sebelum dipakai, umpan digulung-gulung dulu ama kroto yang sisa 1 ons tadi.

UMPAN BANDENG :

1. PELET KOI (yang berwarna merah)
disiram air panas terlebih dahulu agar tidak terlalu lembek.

2. PELET yang di campur URSAL
URSAL bisa didapat di toko pakan ternak, bentuknya cairan agak kental, warna kecoklatan dengan baunya yang minta ampun. Biasanya URSAL digunakan oleh peternak ikan bandeng untuk menambah nafsu ikan agar ikan lebih cepat besar. Nah, URSAL ini bisa digunakan untuk BOM supaya ikannya pada ngumpul dan nafsu makannya jadi menggila.

3. ROTI
Roti jangan terlalu kering, dipotong kecil2, bisa juga ditambahkan dengan sedikit terasi kemudian bentuk bulatan kecil (seperti pelet) seukuran matakail no.9. Kalo ngga mau repot, bisa juga pake kulit roti yg rada gosong, cuil sedikit terus masukkan ke mata kail.

Tipikal Ikan Bandeng mencaplok umpan
Ikan Bandeng yang berdomisili di kolam/empang mencaplok umpan +/- 10 s.d 15 cm dibawah permukaan air. Jam makan Pagi Hari: Jam 7.00 s.d 10.00 dan Sore Hari: Jam 15.00 s.d 18.00
Suka bergerombol (mirip orang mau demo atau seperti antri minyak tanah), suka berpindah-pindah tempat (traveling), jika siang hari ikan bandeng males makan, dan biasanya pada bergerombol didasar kolam.

Tuh salah satu umpan superku yang selama ini aku pake. Mungkin dari sohib-sohib mania ada tambahan/tips-trik lain umpan yang lebih murah sederhana tapi sangat manjur. Makasih

Pentingnya Mengetahui Jam Piket Kinerja Organ Tubuh Kita

noreply@blogger.com (Cak Wawan Aja) — Thu, 05 Mar 2009 01:55:00 +0000

M ari kita mulai untuk mencintai dan mengenal secara dalam tubuh kita ini. Dengan mengetahui jam / waktu piket kinerja organ tubuh, sangatlah penting untuk mengontrol/mengatur konsumsi dan asupan makanan/minuman serta vitamin/pengobatan. Sehingga dapat menjaga stabilitas tubuh kita sendiri serta dapat mengantisipasi bahkan tata cara waktu pengkonsumsian obat/herbal yang terbaik dimana saat-saat suatu bagian organ apa yang sedang bekerja.

Adapun minimal waktu kinerja organ-organ tubuh kita antara lain :

LAMBUNG
Jam 07.00 - 09.00
Jam piket organ lambung sedang kuat, sebaiknya makan pagi untuk proses pembentukan energi tubuh sepanjang hari. Minum jus atau ramuan sebaiknya sebelum sarapan pagi, perut masih kosong sehingga zat yang berguna segera terserap tubuh.

LIMPA
Jam 09.00 - 11.00
Jam piket organ limpa kuat, dalam mentransportasi cairan nutrisi untuk energi pertumbuhan. Bila pada jam-jam ini mengantuk, berarti fungsi limpa lemah. Kurangi konsumsi gula, lemak,minyak dan protein hewani.

JANTUNG
Jam 11.00 - 13.00
Jam piket organ jantung kuat, harus istirahat, hindari panas dan olah fisik, ambisi dan emosi terutama pada penderita gangguan pembuluh darah .

HATI
Jam 13.00 - 15.00
Jam piket organ hati lemah, bila orang tidur, darah merah berkumpul dalam organ hati dan terjadi proses regenerasi sel-sel hati. Apabila fungsi hati kuat maka tubuh kuat untuk menangkal semua penyakit.

PARU-PARU
Jam 15.00 - 17.00
Jam piket organ paru-paru lemah, diperlukan istirahat, tidur untuk proses pembuangan racun dan proses pembentukan energi paru-paru

GINJAL
Jam 17.00 - 19.00
Jam piket organ ginjal kuat, sebaiknya digunakan untuk belajar karena terjadi proses pembentukan sumsum tulang dan otak serta kecerdasan.

LAMBUNG
Jam 19.00 - 21.00
Jam piket organ lambung lemah sebaiknya tidak mengkonsumsi makan yang sulit dicerna atau lama dicerna atau lebih baik sudah berhenti makan

LIMPA
Jam 21.00 - 23.00
Jam piket organ limpa lemah, terjadi proses pembuangan racun dan proses regenerasi sel limpa. Sebaiknya istirahat sambil mendengarkan musik yang menenangkan jiwa, untuk meningkatkan imunitas.

JANTUNG
Jam 23.00 - 01.00
Jam piket organ jantung lemah. Sebaiknya sudah beristirahat tidur, apabila masih terus bekerja atau begadang dapat melemahkan fungsi jantung.

HATI
Jam 01.00 - 03.00
Jam piket organ hati kuat. Terjadi proses pembuangan racun/limbah hasil metabolisme tubuh. Apabila ada gangguan fungsi hati tercermin pada kotoran dan gangguan mata. Apabila ada luka dalam akan terasa nyeri.

PARU-PARU
Jam 03.00 - 05.00
Jam piket organ paru-paru kuat, terjadi proses pembuangan limbah/racun pada organ paru-paru, apabila terjadi batuk, bersin-bersin dan berkeringat menandakan adanya gangguan fungsi paru-paru. Sebaiknya digunakan untuk olah nafas untuk mendapatkan energi paru yang sehat dan kuat.

USUS BESAR
Jam 05.00 - 07.00
Jam piket organ usus besar kuat, sebaiknya biasakan BAB secara teratur.

2009 Tahun Aneh

noreply@blogger.com (Cak Wawan Aja) — Wed, 11 Feb 2009 01:46:00 +0000

M au nulis artikel tapi bingung topik apa yang akan aku ketengahkan, habis sudah banyak dituangkan oleh blogger sobat-sobat hehehe. Tahun 2009 ini kok muales banget mau ngapa-ngapain ya, kok sepertinya tahun ini suasana dan pakemnya ada kemunduran disegala sektor. Diawal tahun aja disana sini banyak musibah dan tidak kalah pula banyak orang keminter. Ya semoga aja ini hanya perasaan-ku aja.

Khasiat TAHITIAN NONI® Juice

noreply@blogger.com (Cak Wawan Aja) — Sat, 24 Jan 2009 03:27:00 +0000

R ekomendasi Dokter dan Para Ahli Tentang TAHITIAN NONI® Juice DR. dr. Amarullah H. Siregar, DiHom, DBMed., MA, MSc., PhD. Kandungan Bioaktif dalam Tahitian Noni Juice mempunyai kemampuan untuk merevitalisasi sekaligus meregenerasi sel-sel syaraf dan berperan penting dalam meregulasi sistem kardiovaskular. Doctor of Naturopathy from Clayton College of Natural Health, Birmingham USA. PhD Health Science from Fairfax University New Orleans – USA. Dr. Henry Naland Sp.B Onkologi Noni Juice yang diberikan bersamaan dengan kemoterapi pada pasien kanker akan mengurangi efek samping yang diakibatkan oleh kemoterapi. Dokter bedah Ongkologi FKUI/RSCM & RS. Omni Medical Center Prof. Dr. R.H.H. Nelwan Tahitian Noni Juice mempu menunjang pencegahan dan pengobatan berbagai jenis infeksi sebagai terapi komplimenter. Profesor of Tropical & Infectious Diseases Department of Internal Medicine University of Indonesia Dr. Samuel Oetoro SpGK Kandungan di dalam Noni Juice mengandung antioksidan yang dibutuhkan bagi penderita diabetes untuk mengurangi kemungkinan timbulnya komplikasi yang menjadi resiko setiap penderita diabetes. Konsultan Gizi Klinik Spesialis Semanggi Siloam Glen Eagle. Dr. Handrawan Nadesul Dari studi literatur yang saya baca, terungkap bahwa jus Noni bekerja meningkatkan sistem kekebalan tubuh. Kita tahu sistem kekebalan tubuh juga banyak berperan dalam sistem pencernaan, bagian dari tubuh kita yang paling beresiko tercemar bibit penyakit. Maka jus Noni mestinya menyehatkan lambung, usus dua belas jari, usus halus dan usus besar, termasuk usus buntu.

- Merevitalisasi sekaligus meregenerasi sel-sel syaraf
- meregulasi sistem kardiovaskular
- mengurangi efek samping akibatkan kemoterapi
- Pencegahan dan pengobatan berbagai jenis infeksi sebagai terapi komplimenter.
- Antioksidan untuk mengurangi kemungkinan timbulnya komplikasi pada penderita diabetes.
- Meningkatkan sistem kekebalan tubuh.
- Menyehatkan lambung, usus duabelasjari, usus halus dan usus besar, termasuk usus buntu.
- Menghilangkan kista yang bersarang pada kelenjar hormon.
- Penderita infeksi paru - paru
- Tumor paru-paru ganas
- dll

n/b : Dosis aturan : Dapat digunakan untuk bayi ( 1 - 3 tetes ) anak kecil dan dewasa, dengan disesuaikan menurut keluhan penyakit. Disamping itu dapat digunakan sebagai multivitamin.

Khasiat Tanaman Rambutan

noreply@blogger.com (Cak Wawan Aja) — Thu, 22 Jan 2009 02:38:00 +0000

R ambutan adalah salah satu tanaman yang multi guna selain dapat dikonsumsi buahnya tetapi semua bagian dari tanaman ini, dari kulit, daun, biji, sampai akar, dapat berfungsi sebagai obat demam, uban, disentri, sariawan, sampai kencing manis, bisa luntur dengan ramuan yang tepat. Bagian tanaman yang bermanfaat : kulit buah, kulit kayu, daun, biji, dan akarnya.

Detail manfaatnya adalah sebagai berikut :
Kulit buah: untuk mengatasi disentri, demam
Kulit kayu: untuk mengatasi sariawan
Daun: untuk mengatasi diare dan menghitamkan rambut
Akar: untuk mengatasi demam
Biji: untuk mengatasi kencing manis (diabetes melitus)

Pemakaian :

Disentri.
Cuci kulit buah rambutan (10 buah), potong-potong seperlunya. Tambahkan 3 gelas minum air bersih, lalu rebus sampai menjadi 1 gelas, minum 2 x sehari.

Demam.
Cuci kulit buah rambutan yang telah dikeringkan (15 g). Tambahkan 3 gelas air bersih, lalu rebus sampai mendidih selama 15 menit. Minum 3 x sehari.

Menghitamkan rambut beruban.
Cuci daun rambutan secukupnya, lalu tumbuk sampai halus. Tambahkan sedikit air dan aduk sampai menjadi adonan bubur. Peras dan saring dengan kain, Gunakan untuk membasahi rambut kepala. Lakukan setiap hari sampai terlihat hasilnya.

Kencing manis.
Gongseng biji rambutan (lima biji), lalu giling sampai menjadi serbuk. Seduh dengan satu cangkir air panas. Setelah dingin, minum airnya sekaligus. Lakukan 1--2 kali sehari

Sariawan.
Cuci kulit kayu rambutan (tiga ruas jari), lalu rebus dengan dua gelas air bersih sampai tersisa satu gelas. Gunakan untuk berkumur selagi hangat.

Khasiat Tanaman Herbal Mahkota Dewa

noreply@blogger.com (Cak Wawan Aja) — Tue, 20 Jan 2009 02:32:00 +0000

Tumbuhan dengan nama ilmiah Phaleria macrocarpa di kenal juga dengan nama simalakama (Melayu/Sumater), Makuto Dewo (Jawa). Berkhasiat untuk mengobati berbagai macam penyakit, seperti: Diabetes Mellitus, Kanker dan Tumor, Hepatitis, Rematik dan Asam urat

1. Diabetes Mellitus
Pengobatan: Minum air rebusan

Cara membuat:
1. Ambil 5-6 buah mahkota dewa, iris dan cuci bersih.
2. Rebus bahan dalam 5 gelas air, biarkan rebusan hingga air tersisa 3 gelas
3. Saring air rebusan, minum 3 kali sehari (masing-masing 1 gelas)

2. Kanker dan Tumor
Pengobatan: Minum air rebusan

Cara membuat:
1. Campur 5 gram daging buah mahkota dewa kering dengan 15 gr temu putih, 10 gr sambiloto kering dan 15 gr cakar ayam kering, cuci bersih semua bahan
2. Rebus semua bahan dalam 5 gelas air, biarkan rebusan hingga air tersisa 3 gelas
3. Saring air rebusan, tunggu sampai dingin dan minum 3 kali sehari masing-masing 1 gelas. Ramuan diminum 1 jam sebelum makan

3. Hepatitis
Pengobatan: Minum air rebusan

Cara membuat:
1. Campur 5 gram daging buah mahkota dewa kering dengan 15 gr pegagan, 10 gr sambiloto kering dan 15 gr daun dewa, cuci bersih semua bahan
2. Rebus semua bahan dalam 5 gelas air, biarkan rebusan hingga air tersisa 3 gelas
3. Saring air rebusan, tunggu sampai dingin dan minum 3 kali sehari masing-masing 1 gelas.

4. Rematik dan Asam urat
Pengobatan: Minum air rebusan

Cara membuat:
1. Campur 5 gram daging buah mahkota dewa dengan 15 gr akar sidaguri, 10 gr sambiloto kering, cuci bersih semua bahan
2. Rebus semua bahan dalam 5 gelas air, biarkan rebusan hingga air tersisa 3 gelas
3. Saring air rebusan, tunggu sampai dingin dan minum 3 kali sehari masing-masing 1 gelas. Ramuan diminum 1 jam sebelum makan

sumber: i-herbal.blogspot.com

Khasiat Tanaman Herbal Daun Ungu

noreply@blogger.com (Cak Wawan Aja) — Sun, 18 Jan 2009 01:00:00 +0000

W arna daun ungu langsung tertuju pada wasir atau ambeien. Famili Acanthaceae itu memang mujarab mengobati penyakit akibat membengkaknya bibir anus itu. Daun ungu juga berkhasiat antiinflamasi, antiplak gigi, dan mencegah sakit ketika menopause. Wasir atau hemorrhoid merupakan penyakit yang ditandai dengan adanya pembengkakan atau pembesaran pembuluh vena di bagian terbawah poros usus, baik di sisi dalam maupun di sisi luar anus. Penyakit ini ditandai dengan munculnya benjolan seperti bisul berwarna merah kebiru-biruan atau kehitaman. Ada dua tipe wasir yang lazim dikenal, wasir dalam (internal hemorrhoid) dan wasir luar (external hemorrhoid). Wasir bisa disebabkan karena kurang mengkonsumsi serat. Ini mengakibatkan susah buang air besar (konstipasi), hingga penderita kerap mengejan.

Pola defekasi yang tidak teratur pun serta jarangnya olahraga menjadi faktor pememicu timbulnya wasir. Khasiat daun ungu sebagai anti-hemorrhoid sen diri dibuktikan oleh Prof dr H Sardjono Oerip Santoso dari Farmakologi FKUI. Sebanyak 9-10 gram daun ungu segar kemudian direbus dalam 2 gelas air (600 cc) sampai menjadi 1 gelas rebusan dan diminum tiap hari 1 kali. Lima hari kemudian, efek yang ditimbulkan oleh gejala hemorroid seperti nyeri, pendarahan, dan panas hilang tak berbekas. Dr JM Sugiarto memberikan bukti, Konsumsi 1 gelas rebusan daun ungu selama dua bulan berturut-turut ternyata bisa membebaskan penderita dari gangguan wasir. Berkat daun ungu, pengidap ambeien tak perlu lagi mengkonsumsi obat-obatan jenis phlebodinamic seperti radium dan daflon. Obat itu lazim diresepkan dokter untuk melancarkan sirkulasi darah di daerah anus serta menghilangkan bengkak, tonjolan, dan pendarahan. Analgesik. Sebagai analgesik pun khasiat daun ungu teruji sebagaimana ditunjukkan oleh penelitian yang dilakukan Dr drg Nur Permatasi MS, dr Umi Kalsum MKes, dan dr Nurdiana MKes dari Fakultas Kedokteran Universitas Brawijaya Malang. Mereka menyatakan bahwa kandungan alkaloid dalam daun ungu mempunyai kemampuan sebagai antiinflamasi dan juga sebagai analgesik pada hewan percobaan. Efek analgesik tersebut ditunjukkan dengan terjadinya penurunan nilai ambang nyeri setelah pemberian ekstrak alkaloid pada dosis 1,5, 3, dan 6 mg/kg. Menurut trio peneliti tersebut kemampuan efek analgesik dan antiinfl amasi fraksi alkaloid dari ekstrak etanol daun ungu ampuh menurunkan nilai ambang nyeri pada dosis 3 mg/kg bobot tubuh. Itu setara dengan pemberian aspirin dengan dosis 125 mg/kg bobot tubuh. Hal ini berkat kemampuan alkaloid daun wungu dalam menghambat pembentukan prostaglandin. Penelitian yang dilakukan oleh drg Endang Wahyuningtyas MS SpPros dari Jurusan Ilmu Prostodonsia Fakultas Kedokteran Gigi UGM, menyimpulkan daun ungu bermanfaat untuk sanitasi gigi palsu. Penelitian yang menggunakan 40 sampel gigi tiruan arkrilik dibagi dalam 4 kelompok. Masing-masing kelompok diberikan konsentrasi 5%, 10%, 20%, dan 40% daun ungu dan direndam selama 15 menit. Setelah dipakai oleh pasien selama 4 jam, gigi palsu itu kemudian dibilas dan diperiksa. Hasilnya, daun ungu ampuh mencegah pertumbuhan bakteri mutan streptococcus, cendawan, dan mencegah pertumbuhan plak. Penelitian tersebut merekomendasikan bahwa pencegahan terbaik untuk menghambat plak, bakteri, dan cendawan terjadi pada konsentrasi kandungan daun ungu sebanyak 40%. Daun ungu ternyata mengandung berjuta manfaat.

info : http://www.trubus-online.co.id

Khasiat Tanaman Herbal Sirih Merah

noreply@blogger.com (Cak Wawan Aja) — Fri, 16 Jan 2009 01:56:00 +0000

S irih Merah selain cantik sebagai tanaman yang eksotik juga bermanfaat sebagai tanaman yang "ampuh" dan berkhasiat mengobati beberapa penyakit seperti : DIABETES, KANKER, ASAM URAT, HIPERTENSI, GURAH KEWANITAAN, LIVER, AMBEIEN, PERADANGAN ORGAN TUBUH, dll. Tumbuhan merambat ini dijumpai di halaman rumah. Sirih (Piper betle L atau Chavica aurculata Miq) memang mudah ditanam. Cukup dengan menggunakan stek dan diberi cukup air, tanaman ini bisa tumbuh baik di tempat panas maupun di tempat yang terlindung. Ada beberapa jenis sirih yang dikenal di masyarakat. Misalnya, sirih jawa (daun lebih lembut, kurang tajam, hijau rumput), sirih belanda (daun besar, hijau tuam rasa dan bau tajam dan pedas), sirih cengkeh (kecil, daun kuning, rasa seperti cengkeh), sirih kuning, dan sirih hitam. Sirih sangat kaya dengan kandungan zat berkhasiat. Di antaranya, minyak atsiri, hidroksikavicol, kavicol, kavibetol, allylpyrokatekol, cyneole, caryophyllene, cadinene, estragol, terpennena, seskuiterpena, fenil propana, tanin, diastase, gula, dan pati. Efek zat aktif yang dikandung seluruh bagian tanaman sirih adalah merangsang syaraf pusat, merangsang daya pikir, meningkatkan gerakan peristaltik, merangsang kejang, meredakan sifat mendengkur.

Daun sirih memiliki efek mencegah ejakulasi prematur, mematikan jamur Candida albicans, anti kejang, analgesik, anestetik, pereda kejang pada otot polos, penekan pengendali gerak, mengurangi sekresi cairan pada liang vagina, penekan kekebalan tubuh, pelindung hati, dan antidiare. Tanaman sirih juga diketahui bisa mengatasi batuk, bronchitis, menghilangkan bau badan, mengobati luka bakar, mimisan, bisul, mata gatal dan merah, koreng dan gatal-gatal, menghentikan pendarahan gusi, sariawan, menghilangkan bau mulut, jerawat, keputihan, dan mengurangi produksi air susu ibu yang berlebihan. Untuk obat batuk, sebanyak 15 lembar daun sirih direbus dengan tiga gelas air hingga tersisa 3/4-nya, minum dengan madu. Obat bronchitis, sebanyak tujuh lembar daun sirih dan gula batu satu potong direbus dengan dua gelas air hingga tersisa satu gelas, minum sehari 3 X 1/3 gelas. Menghilangkan bau badan, lima lembar daun sirih direbus dengan dua gelas air hingga menjadi satu gelas, minum siang hari. Obat luka bakar, daun segar diperas airnya, ditambah sedikit madu, bubuhkan di tempat yang luka bakar. Mimisan, daun agak muda satu lembar dilumatkan, digulung untuk menyumbat hidung berdarah. Bisul, daun sirih secukupnya dicuci bersih, digiling menjadi halus, dioleskan pada bisul dan sekelilingnya, dibalut. Sehari diganti dua kali. Mengatasi mata gatal dan merah, lima sampai enam lembar daun direbus dengan satu gelas air sampai mendidih. Setelah dingin untuk cuci mata dengan memakai gelas air sampai mendidih. Setelah dingin untuk cuci mata dengan memakai gelas cuci mata. Sehari tiga kali sampai sembuh. Untuk koreng dan gatal-gatal, sebanyak 20 lembar direbus, saat hangat dipakai untuk cuci. Menghentikan pendarahan gusi, daun empat lembar direbus dengan dua gelas air, dipakai untuk kumur. Obat sariawan, daun sirih segar sebanyak satu sampai dua lembar dibersihkan, dikunyah sampai lumat, ampasnya dibuang. Untuk menghilangkan bau mulut, sebanyak dua sampai empat lembar daun diremas, lalu diseduh, dipakai untuk kumur. Obat jerawat, tujuh sampai 10 lembar daun sirih ditumbuk sampai halus, kemudian diseduh dengan dua gelas air panas. Airnya dipakai untuk mencuci muka yang berjerawat. Sehari dilakukan dua sampai tiga kali. Obat keputihan, sebanyak 10 lembar daun direbus dengan 2,5 liter air, hangat-hangat dipakai untuk mencuci liang kemaluan. Untuk mengurangi produksi ASI yang berlebihan, beberapa lembar daun sirih diolesi minyak kelapa, hangatkan di atas api hingga menjadi layu, hangat-hangat tempelkan di seputar payudara yang bengkak.

Khasiat Tanaman Herbal Mengkudu / Pace

noreply@blogger.com (Cak Wawan Aja) — Fri, 16 Jan 2009 01:32:00 +0000

B uah mengkudu mempunyai berbagai kandungan zat berguna bagi manusia.Keistimewaan buah ini adalah nempunyai kandungan scopoletin, serotin, damnacantal, athraquinon,dll. Buah pace sangat efisien untuk mengobati diabetes, penyakit jantung, strooke, memperbaiiki tekanan darah bahkan dapat menyehatkan kelenjar throid, meningkatkan kekebalan tubuh. Selain itu buah mengkudu dijadikan jus dapat menstabilkan gula darah dan menjegah pembengkaan prostat. Sebagai paionkiller jus mengkudu dapat mengurangi rasa nyeri sewaktu menstruasi. Sebagai sel generator buah mengkudu mampu memulihkan kondisi dan juga fungsi hati. Bahkan dinyatakan juga bahwa jus sari buah mengkudu juga sebagai adaptogen yaitu turut meningkatkan daya penyembuhan tubuh tanpa efek samping ketika jus sari buah pace dikombinasikan dengan pengobatan medis atau pengobatan alternatif. Tumbuhan mengkudu (Morinda citrifolia) sudah sejak lama dikenal oleh masyarakat Indonesia. Tumbuhan berbuah kuning pucat tersebut bisa ditemui di berbagai daerah. Biasanya tumbuh secara liar di pekarangan atau pinggir jalan. Selain mengkudu, nama lokal lain adalah pace, bentis, kemudu (Jawa), cangkudu (Sunda), kondhuk (Madura), bangkudu (Batak), neteu (Mentawai), keumudee (Aceh), tibah (Bali) atau rewonang (Dayak). Namun secara internasional, mengkudu lebih dikenal sebagai “noni” yang merupakan sebutan khas orang Hawai. Oleh karenanya, mengkudu pun mendapat julukan lain yakni sebagai Hawaiian magic plant karena tanaman ini dipercaya mampu mengobati berbagai jenis penyakit. Karena selalu mengonsumsi mengkudu, mereka merasa selalu sehat sepanjang tahun, tanpa gangguan penyakit yang berarti. Demikian pula dengan masyarakat di sejumlah negara sudah sejak lama mengenal mengkudu sebagai tanaman obat multi khasiat. Seluruh bagian tumbuhan, mulai dari akar, batang hingga buah dimanfaatkan untuk mengobati berbagai jenis penyakit.

Secara tradisional, bagian tumbuhan mengkudu digunakan dalam bentuk segar, sari buah atau seduhan, dan tapal. Akar misalnya, dimanfaatkan untuk mengobati kejang-kejang dan tetanus, menormalkan tekanan darah, obat demam, dan tonikum. Kulit batang digunakan sebagai tonikum, antiseptik pada luka atau pembengkakan kulit. Daunnya digunakan sebagai obat disentri, kejang usus, pusing, muntah-muntah, dan demam. Sedangkan buahnya untuk obat peluruh kemih, usus-usus, pelembut kulit, kejang-kejang, bengek, gangguan pernapasan, dan radang selaput sendi. Sementara itu, secara modern, berdasarkan hasil penelitian dan riset tentang khasiat mengkudu, para ilmuwan Barat berhasil mengidentifikasi mengkudu mengandung zat-zat aktif yang sangat bermanfaat bagi kesehatan. Dr. Isabella Abbott misalnya, seorang ahli botani, pada tahun 1992 menulis, mengkudu semakin banyak digunakan orang untuk mengontrol diabetes, kanker, dan tekanan darah tinggi. Kemudian pada 1993, jurnal Center Letter melaporkan bahwa beberapa peneliti dari Keio University dan The Institute of Biomedical Sciences Jepang melakukan riset terhadap 500 jenis tanaman. Mereka mengklaim telah menemukan zat antikanker dalam buah mengkudu. Yang agak populer tampaknya hasil survei yang dilakukan Dr. Neil Solomon terhadap 8.000 pemakai sari buah mengkudu, termasuk 40 dokter dan praktisi medis. Hasilnya memperlihatkan, jus mengkudu membantu menyembuhkan sejumlah penyakit. Sedikitnya ada 22 jenis penyakit, antara lain darah tinggi, kolesterol, stroke, kanker, asam urat, diabetes, kelemahan seksual, rasa nyeri, depresi, gangguan ginjal, dan stres dengan tingkat keberhasilan 78%. Selain itu, jus mengkudu efektif menyembuhkan gangguan pencernaan, obesitas, alergi, sulit tidur, meningkatkan daya konsentrasi hingga daya seksual. Menurut hasil penelitian, selain mengandung zat nutrisi, “sang noni” juga mengandung zat aktif seperti terpenoid, antibakteri, scolopetin, antikanker, xeronine, proxeronine, pewarna alami, dan asam. Zat nutrisi yang dibutuhkan tubuh tergolong lengkap di mengkudu. Terpenoid merupakan zat penting yang berfungsi membentuk tubuh dalam proses sintesis organik dan pemulihan sel-sel tubuh. Sedangkan zat antibakteri dalam mengkudu antara lain antrakuninon, acubin, dan alizarin. Zat-zat tersebut di antaranya mampu mematikan bakteri penyebab infeksi jantung dan disentri.

3 Resep Sehat dengan Mengkudu

Resep Pertama
Buah mengkudu muda dibuat jus. Untuk penambah rasa, bisa dibubuhi sedikit madu. Ramuan ini diminum 30 menit sebelum sarapan.
Khasiat:
Membersihkan endapan lemak darah sehingga bisa menyembuhkan aterosklerosis, stroke, serta mencegah serangan jantung. Dapat membatasi penyerapan dan pembentukan lemak di tubuh sehingga dapat membantu program diet. Selain itu, dapat menurunkan tekanan darah tinggi, meredakan pikiran tegang, stres, gelisah, dan mengurangi rasa tak nyaman.

Resep Kedua
Buah mengkudu matang dihaluskan kemudian dicampur dengan rimpang lempuyang parut dan beberapa sendok makan air masak. Hasil perasannya diminum.
Khasiat:
Mengobati peradangan hati, peradangan ginjal, dan peradangan limpa karena serangan malaria. Lalu, membantu membuang cairan empedu dan kolesterol berlebihan, dan menyembuhkan radang saluran kencing yang kerap disebut anyang-anyangan.

Resep Ketiga
Buah mengkudu matang dihaluskan, lalu dicampur dengan rimpang lengkuas parut dan beberapa sendok makan air panas. Hasil perasannya lalu diminum. Untuk penambah rasa, bisa ditambahkan madu atau gula batu.
Khasiat:
Menurunkan demam karena flu dan masuk angin terutama pada anak-anak. Ramuan ini juga mengobati radang tenggorokan dan amandel.

Khasiat Tanaman Herbal Binahong

noreply@blogger.com (Cak Wawan Aja) — Thu, 15 Jan 2009 08:05:00 +0000

P engen mengetengahkan tentang pengobatan herbal, dalam hal ini bertujuan untuk mengurangi konsumsi obat kimia dan memanusiakan organ tubuh kita ( kasihan ginjel kita setiap hari digelontor obat kimia). Dalam hal ini saya akan mengambil contoh tentang tumbuhan binahong. Binahong (Boussingaultia cordifolia, Boussingaultia basselloides) adalah tanaman obat dari daratan Tiongkok yang dikenal dengan nama asli Dheng San Chi. Tumbuhan ini telah dikenal memiliki kasiat penyembuhan yang luar biasa dan telah ribuan tahun dikonsumsi oleh bangsa Tiongkok, Korea, Taiwan dll. Di kawasan Asia Tenggara, tumbuhan ini merupakan konsumsi wajib penduduk Vietnam ketika melawan invansi Amerika, namun sayangnya tanaman ini masih asing untuk daerah Indonesia. Tumbuhan merambat ini misterius karena belum banyak literatur maupun penelitian ilmiah yang mengungkapkan khasiatnya. Namun, secara empiris, masyarakat memanfaatkannya untuk membantu proses penyembuhan beragam penyakit.

Hampir semua bagian tanaman binahong dapat dimanfaatkan. Umbi, batang dan daun Binahong dapat digunakan dalam terapi herbal. Seluruh bagian tanaman menjalar ini berkasiat, mulai dari akar, batang dan daunnya. Pemanfaatanya bisa direbus atau dimakan sebagai lalapan untuk daunnya. Tanaman ini tumbuh merambat. Sering digunakan sebagai gendola atau gapura yang melingkar di atas jalan taman. Ada yang menamainya binahong dan berasal dari Korea. Tanaman ini masih satu famili dengan gendola (Basella rubra Linn) dan satu ordo dengan bayam.

Kasiat Utama Binahong :

1.Mempercepat pemulihan kesehatan setelah operasi, melahirkan, khitan, segala luka-luka dalam, radang usus.
2.Melancarkan dan menormalkan peredaran dan tekanan darah.
3.Mencegah stroke, maag, asam urat.
4.Menambah dan mengembalikan vitalitas daya tahan tubuh.
5.Wazir (ambeien)
6.Melancarkan buang air kecil, buang air besar.
7.Diabetes
8. Sariawan berat
9. Pusing-pusing
10. Sakit perut dll

Pengkonsumsiannya :

Dosis-nya disesuaian dengan kemampuan tubuh kita, usahakan dengan jumlah ganjil ( 1 atau 3 atau 5 atau 7 atau 9 dst).

Pengolahan :
- Direbusan : ( Daun / Batang / Akar dalam jumlah ganjil ), 3 gelas air direbus sampai menjadi 1 gelas untuk diminum.
- Diserut : Daun diserut perlahan dengan sendok sampai menghasilkan/berbentuk seperti lendir / jeli, langsung dikonsumsi.
- Bobok/kompres : Daun, Batang / Akar hasil rebusan bisa digunakan untuk bobok/kompres.

Tahapannya Dosis:
Dosis Pengenalan : 1 s/d 3 Daun / Batang / Akar ( 2 x sehari selama 3 hari )
Dosis Penyembuhan : 1 s/d sesuai kebutuhannya ( 2 x sehari pada hari ke-4 sampai evaluasi dirasa cukup )
Dosis Penutup : 1 s/d 3 Daun / Batang / Akar ( 2 x sehari selama 3 hari )
Dosis Vitamin : 1 Daun / Batang / Akar ( 1 x sehari )

Semoga bermanfaat, amien.

Missing or Corrupt c:\windows\system32\config\system

noreply@blogger.com (Cak Wawan Aja) — Wed, 24 Dec 2008 01:46:00 +0000

The best option here would be to conduct what is called the "repair install", where only the basic and essential system files are replaced without making any other files or folders. When booting from the installation disk you choose the first option to start this facility, where fast and the installer should ask if you want to repair your current installation. This is a quick way to fix damage and / pr missing system files with the preservation of data. This also require the relocation of some programs as well as Service Pack 2 if not included with the installation disk. The other, but not the best advice is the start of the manual XP system restoration process in the recovery of the console. However, the instructions in the following article :

http://www.michaelstevenstech.com/XPrepairinstall.htm is the better method over a limited.
Use of the system restore using the MS instructions found at : http://support.microsoft.com/default.aspx?scid=kb;en-us;304449&sd=tech

1. Insert CD`s Bootable Windows XP

2. Then choose --> Repair "r"

3. Select drive you want repair --> 1: c:\windows (enter)

4. Goto folder : c:\windows\system32\config\
then :
rename c:\windows\system32\config\system system.bad
rename c:\windows\system32\config\software software.bad

5. And then go to c:\windows\repair
copy file "system" and "software" to --> c:\windows\system32\config\
c:\windows\repair\>copy system c:\windows\system32\config\
c:\windows\repair\>copy software c:\windows\system32\config\

6. Remove CD Boottable from CD-Drive

7. Exit and done

Analysis Tools Your Mobile Phone

noreply@blogger.com (Cak Wawan Aja) — Tue, 23 Dec 2008 10:06:00 +0000

It may be difficult to determine the exact meaning of the various sequences of digits. With our simple online analysis tools that can now find all there is to know about worldwide telephone numbers, numbers of the network IMSI, IMEI code, telephone SIM card numbers, as well as international codes Signaling Point. International Numbering Plans

Check Your Mobile :
Phone number analysis
IMSI number analysis
IMEI number analysis
SIM number analysis
ISPC number analysis

Code Mobile Phone / Handphone

noreply@blogger.com (Cak Wawan Aja) — Tue, 23 Dec 2008 10:01:00 +0000

Nokia

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#0000# Menampilkan versi firmware.
3. *#9999# Merupakan alternatif jika kode *#0000# tidak berfungsi.
4. *#8110# Menampilkan versi firmware (Nokia 8110).
5. *#21# Melihat pengalihan untuk semua panggilan ‘All calls’.
6. **21*nomor tujuan# Mengalihkan panggilan ke nomor yang dituju untuk semua panggilan.
7. **61*nomor tujuan# Mengalihkan panggilan ke nomor yang dituju untuk panggilan yang tidak terjawab.
8. **67*nomor tujuan# Mengalihkan panggilan ke nomor yang dituju untuk panggilan ketika sedang sibuk.
9. *#61# Melihat nomor pengalihan karena tidak dijawab ‘Call divert’.
10. *#62# Melihat nomor pengalihan karena diluar jangkauan ‘Call divert’ dan mengetahui kemana nomor tersebut dialihkan.
11. *#67# Melihat nomor pengalihan karena sibuk ‘Call divert’ dan mengetahui kemana nomor tersebut dialihkan.
12. *#2820# Menampilkan alamat IP Bluetooth.
13. *#30# Menampilkan nomor pribadi.
14. *#43# Melihat status ‘Call waiting’.
15. *#62209526# atau *#MACOWLAN Menampilkan alamat MAC WLAN.
16. *#67705646# Mengganti operator logo (tipe 3310, 3330).
17. *#73# Mereset timer ponsel dan skor game.
18. *#746025625# Menampilkan status SIM Clock. Jika ponsel anda mendukung fungsi power saving akan muncul tulisan “SIM Clock Stop Allowed”, itu berarti anda bisa mendapatkan waktu terbaik untuk standby.
19. *#7370# atau *#RESO# Mereset ke setingan awal (pabrikan), data-data akan terhapus
20. *#7760# Menampilkan kode pabrik/produk.
21. *#7780# atau *#rst0* Mereset ke setingan awal (pabrikan), data-data tidak akan terhapus.
22. *#92702689# atau *#war0anty# Menampilkan nomor serial, tanggal pembuatan, tanggal pembelian, tanggal terakhir servis (000 jika belum pernah diperbaiki) dan transfer user data. Pada beberapa ponsel setelah menggunakan kode ini anda harus merestart ponsel.
23. *#2640# Menampilkan kode pengamanan ponsel.
24. *#3370# Mengaktifkan EFR (Full Rate Codec), kualitas suara terbaik namun pemakaian baterai menjadi boros.
25. #3370# Untuk menonaktifkan EFR.
26. *#4720# Mengaktifkan Half Rate Codec, kualitas suara terendah namun pemakaian baterai menjadi lebih hemat.
27. #4720# Untuk menonaktifkan Half Rate Codec.
28. 10# Cara cepat untuk membuka nomor kontak yang tersimpan di kartu SIM berdasarkan nomor urut. Contoh angka 10 adalah nomor urut kontak.
29. #pw+1234567890+1# Mengunci status provider, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.
30. #pw+1234567890+1# Mengunci status provider, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.
31. #pw+1234567890+2# Mengunci status network, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.
32. #pw+1234567890+3# Mengunci status country, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.
33. #pw+1234567890+4# Mengunci status kartu SIM, gunakan tanda “*” untuk memisahkan antara “p,w” dan tanda “+”.

Sony Ericsson

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#0000# atau 0000 Mereset kembali ke bahasa inggris.
3. >*<<*<* Melihat service menu dan versi software. Tekan tombol Yes berulang kali untuk melihat semua data software dan tekan > untuk melihat semua teks yang terdapat pada ponsel.
4. <**< Untuk mengunci SIM Card agar tidak bisa mengganti SIM Card. Untuk membukanya dengan unlock code.
5. *<<* Mengunci layanan provider.
6. **04*0000*0000*0000# Mengakses ponsel tanpa SIM Card.
7. 0# Melihat nomor terakhir yang ditelepon.

Motorola

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#303# OK Mengubah ke bahasa inggris.
3. *#300# OK Menampilkan versi software (SW and HW Version).
4. *#301# OK Test keypad.
5. 1234 OK Kode default ponsel.
6. *#311# OK Merubah kode ponsel default.
7. ***113*1* OK Net Monitor ON.
8. **113*1* OK Net Monitor OFF.
9. *#304# OK Set Off engineering mode.
10. *#304*1998072# OK Set On engineering mode.
11. *#307* OK Engineering test mode.
12. *#400# OK ADC call val.
13. 19980722 OK Master unlock code for phone and sim lock.
14. *#0000# OK Setting and restore.
15. *#402# OK Contrast
16. *#305# OK Location 1

Samsung

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#9999# atau *#9998*9999# Menampilkan versi software.
3. *#9999# atau *#9998*8888# Menampilkan versi hardware.
4. *#9998*76# Menampilkan nomor produksi.
5. *#9998*288# atau *#0288# Mengecek status baterai.
6. *#0246# atau *#0377# Menampilkan kapasitas ruang penyimpanan / memori.
7. *#9998*782# atau *#0782# Menampilkan tanggal dan waktu alarm.
8. *#8999*638# Menampilkan informasi jaringan telepon.
9. *#9998*523# atau *#0523# Mengatur kontras layar.
10. *#8999*5646# Mengubah logo operator.
11. *#0289# Tes ringtone.
12. *#9998*842# atau *#0842# Tes vibrate.
13. *#9998*289# atau *#0289# Mengubah suara alarm.
14. *#9998*746# atau *#0746# Melihat informasi kartu SIM
15. *2767*2878# Mengunci ponsel.
16. *2767*3855# Mereset memori, jangan lupa mencabut kartu SIM.
17. *#0324# Net Monitor
18. *#0001# Display RS232 serial communication parameter setup.
19. *9266# Display received channel number and received intensity.
20. *#9998*377# atau *#0377# Software error LOG (wrong display of EEPROM).
21. *#9998*778# atau *#0778# SIM Service Table.
22. *#0837# Instruction Software.
23. *#0001# Show Serial Parameter.
24. *#9998*968# View Melody Alarm.
25. *#9998*585# Non Volatile Memory.
26. *#3243948# Digital Audio Interference off.
27. *#32436837# Digital Audio Interference.
28. *#9998*4357# Help Menu.
29. *#9998*5282# Java Menu.
30. *2767*5282# Java Reset.
31. *2767*927# WAP Reset.
32. *2767*63342# Reset Media.
33. *#9999#0# Monitor Mode.

Siemens

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#0000# Mengembalikan ke bahasa default.
3. **05*PUK*newPIN*newPIN# Deblock PIN using PUK.
4. **052*PUK2*newPIN2*newPIN2# Deblock PIN2 using PUK2.
5. **04*old_PIN*new_PIN*new_PIN# Mengubah PIN.
6. **042*old_PIN2*new_PIN2*new_PIN2# Mengubah PIN2.
7. *31# Menyembunyikan nama/nomor telepon pada ponsel penerima (CLIR).
8. #31# Menonaktifkan CLIR.
9. *#31# Mengecek status CLIR.
10. *30# Menampilkan nama/nomor telepon pada ponsel penerima (CLIP).
11. #30# Menonaktifkan CLIP.
12. *#30# Mengecek status CLIP.
13. *43# Mengaktifkan Call Waiting/Call Hold.
14. #43## Menonaktifkan Call Waiting.
15. *#43# Mengecek status Call Wating.
16. *#0001# lalu tekan tombol hijau (Call) Mengubah bahasa menggunakan kode. Angka 0001 adalah kode untuk bahasa inggris. Kode: 0030 (Yunani), 0031 (Belanda), 0032 (Perancis), 0034 (Spanyol), 0039 (Itali), 0049 (Jerman), 0090 (Turki).
17. *#0606# Shows if the phone is locked to any network (Use without SIM card).

BenQ-Siemens

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#0000# Mengembalikan ke bahasa default.
3. *#0001# lalu tekan tombol hijau (Call) Mengubah bahasa menggunakan kode. Angka 0001 adalah kode untuk bahasa inggris. Kode: 0030 (Yunani), 0031 (Belanda), 0032 (Perancis), 0034 (Spanyol), 0039 (Itali), 0049 (Jerman), 0090 (Turki)
4. *#9999# Mereset ke setingan awal (pabrikan).
5. *#300# Mengecek software.
6. *#301# Mengecek hardware.

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#07# Menampikan nomor IMEI dan versi software (LG 510).
3. *8375# Menampilkan versi software (LG B1200).
4. #PWR668 Test pabrikan (LG B1200).
5. 1945#5101# Simlock menu (LG B1200).
6. 2945#*5101# Simlock menu (LG 510W, 5200)
7. 2945#*70001# Simlock menu (LG 7020,7010)

Philips

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. *#3353*# Mereset ponsel.
3. *#7337*# Mereset ponsel (Master reset), kartu SIM dicabut dulu..
4. *#337*# Mengaktifkan/menonaktifkan EFR.
5. *#7693# Mengaktifkan/menonaktifkan Sleep Mode. Aktifkan saja untuk menghemat konsumsi baterai ketika ponsel sedang tidak dipakai.
6. *#8463*# Menampilkan beberapa informasi Sleep Mode: Wake, Sleep Req., Sleep.
7. *#2286*# Mengaktifkan data baterai.
8. *#7948*# Mematikan ponsel.
9. *#7728*# Menampilkan RSAV.
10. *#7524*# Menampilkan KCGPRS.
11. *#7562*# Menampilkan SIM Phase.
12. *#7629*# Menampilkan POOL MAX.
13. *#7632*# Menampilkan Code Bugging dari sleep mode.
14. *#7733*# Menampilkan Cluster aktif.
15. *#7343*# Menampilkan kode Cluster.
16. *#7352*# Menampilkan registrasi software.
17. *#7763*# Menampilkan informasi produk.
18. *#7766*# Menampilkan versi produk.
19. *#7326*# Menampilkan pilihan aksesoris untuk vibrator.
20. *#7276*# Mengaktifkan GPRS Attach.
21. *#7287*# Mengaktifkan GPRS Attached.
22. *#7288*# Mengaktifkan GPRS Try Attached.
23. *#7271*# Mengaktifkan GPRS Kelas 1
24. *#7274*# Mengaktifkan GPRS Kelas 4.
25. *#7252*# Mengaktifkan GPRS Kelas B.
26. *#7224*# Mengaktifkan GPRS Kelas C.
27. *#7222*# Mengaktifkan CSD GSM Kelas C.
28. *#7762*# Melakukan seting SMS bearer GPRS.
29. *#8377*# Menampilkan versi software.
30. *#3377*# Menampilkan kondisi EEPROMP.
31. *#2254# Status Register.
32. *#2255# Active/Deactive “Debug Call”, when activated, make a call to a busy line an the phone will display some hex-codes on the display.
33. *#2558# The time in days, hours, and minutes you are connected to the net..
34. *#7489*# atau *#1234*# Security Code.
35. *#7378*# Name, Length, SIM Phase.
36. *#3333*# Blocking list.

Panasonic

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. **7370# Memformat ulang.

Alcatel

1. *#06# Menampilkan nomor IMEI (International Mobile Equipment Identity).
2. ###847# Reset full.
3. ###765*02# Memblokir panggilan masuk atau keluar (Add barring groups).
4. ###765*78# Menonaktifkan Barring groups.
5. ###765*05# Menonaktifkan/mengunci status network.
6. ###765*07# Mengaktifkan status network.
7. 000000* Net Monitor.

Dancall

IMEI number : * # 0 6 #
Software version : * # 9 9 9 9 #
SIMcard serial number : * # 9 9 9 4 #
Information about battery status: * # 9 9 9 0 #
Selftest (only Dancall HP2731) : * # 9 9 9 7 #
Show version configuration : * # 9 9 9 8 #
Net Monitor : * # 9 9 9 3 #

Bosch

IMEI number : * # 0 6 #
Dafault Language: * # 0 0 0 0 #
Net Monitor : * # 3 2 6 2 2 5 5 * 8 3 7 8 #

Hagenuk

IMEI number : * # 0 6 #
Software version: # # 9 1 4 0 * 8 3 # 7 5 * 2 #

Mitsubishi

View IMEI : * # 06 # View IMEI
Default language English: * # 0044 # English
JDefault language Deutch: * # 0049 # Deutsch
NetMonitor1 activate : hold * enter 4329
NetMonitor2 activate : hold * enter 621342
Enter into M4 Test mode: hold * enter 5472
Show SW version : hold * enter 5806
Show HW version : hold * enter 5807
Show SW and HW version : hold * enter 936505
NS Lock Menu : hold * enter 476989
CP Lock Menu : hold * enter 482896
NS Lock Menu : hold * enter 574243
SP Lock Menu : hold * enter 967678
IMSI Lock Menu : hold * enter 362628
Lock net.level : hold * enter 787090
Lock net.level : hold * enter 787292
Shut Down : hold * enter 3926

Troubleshoot, Tweaks and Fixes Registry Edits For Repair Windows XP

noreply@blogger.com (Cak Wawan Aja) — Wed, 10 Dec 2008 10:27:00 +0000

http://www.ziddu.com/download/2887827/DisableorEnableRegistryEditingTools.rar.html

http://www.ziddu.com/download/2887828/AddCommandLinetotheRightClick.rar.html

http://www.ziddu.com/download/2887829/DisabletheWindowsLogoKeys.rar.html

http://www.ziddu.com/download/2887830/DisableAutorun.rar.html

http://www.ziddu.com/download/2887831/DisableWallpaperBackgroundChanges.rar.html

http://www.ziddu.com/download/2887877/DiskCleanupAlltmp-CompressOldFilesFreezes.rar.html

http://www.ziddu.com/download/2887878/Disable_Autorun_XPHome.rar.html

http://www.ziddu.com/download/2887879/Disable_Autorun_XPProf.rar.html

http://www.ziddu.com/download/2887880/DiskCleanupAlltmp-CompressOldFilesFreezes-UNDO.rar.html

http://www.ziddu.com/download/2887881/Enable-DisableDesktopIcons.rar.html

http://www.ziddu.com/download/2887907/EnableorDisableScreenSaver.rar.html

http://www.ziddu.com/download/2887908/EnableorDisableCtrl-Alt-Delete.rar.html

http://www.ziddu.com/download/2887909/EnableRestorePropertise.rar.html

http://www.ziddu.com/download/2887910/EnableCDAutoPlayforXPPro.rar.html

http://www.ziddu.com/download/2887911/Enable-DisableDesktopIcons.rar.html

http://www.ziddu.com/download/2887936/Enable_exe.rar.html

http://www.ziddu.com/download/2887937/Enable_DragDrop.rar.html

http://www.ziddu.com/download/2887938/Enable_Fix-exe-XP.rar.html

http://www.ziddu.com/download/2887939/EnableWallpaperBackgroundChanges.rar.html

http://www.ziddu.com/download/2887940/Enable_Flash_IE.rar.html

http://www.ziddu.com/download/2887956/Enable_FolderandIconRefresh.rar.html

http://www.ziddu.com/download/2887957/Enable_Klik_kanan.rar.html

http://www.ziddu.com/download/2887958/Enable_FolderOptions.rar.html

http://www.ziddu.com/download/2887959/Enable_MenuWinlogin.rar.html

http://www.ziddu.com/download/2887960/Enable_MenuSearch.rar.html

http://www.ziddu.com/download/2887973/Enable_MyComputer.rar.html

http://www.ziddu.com/download/2887974/Enable_Registry.rar.html

http://www.ziddu.com/download/2887975/Enable_Scroll_Program.rar.html

http://www.ziddu.com/download/2887976/Enable_SaveMode.rar.html

http://www.ziddu.com/download/2887977/Enable_Regedit-4.rar.html

http://www.ziddu.com/download/2888040/Enable_StartMenu.rar.html

http://www.ziddu.com/download/2888041/Enable_Taskmanager.rar.html

http://www.ziddu.com/download/2888042/enable_TaskMgr.rar.html

http://www.ziddu.com/download/2888043/Enable_Search.rar.html

http://www.ziddu.com/download/2888044/Enable_Single_Click.rar.html

http://www.ziddu.com/download/2888094/EnableDisable_WellcomeScreen.rar.html

http://www.ziddu.com/download/2888095/EnableDisableShowHiddenFiles-Folders.rar.html

http://www.ziddu.com/download/2888096/EnableDisable-NetworkConnection.rar.html

http://www.ziddu.com/download/2888097/Enable_TaskMgr-5.rar.html

http://www.ziddu.com/download/2888098/Enable_USB_PortFix.rar.html

http://www.ziddu.com/download/2888136/EXElnkandregfileFixforWindowsXP.rar.html

http://www.ziddu.com/download/2888137/Icon_Fixed.rar.html

http://www.ziddu.com/download/2888138/menubandrestore.rar.html

http://www.ziddu.com/download/2888139/FixtheDingWavFile.rar.html

http://www.ziddu.com/download/2888140/EnhanceCMDQuickEditOptions.rar.html

http://www.ziddu.com/download/2888176/PictureandFaxDisable.rar.html

http://www.ziddu.com/download/2888177/RemoveFile-Edit-Viewdll.rar.html

http://www.ziddu.com/download/2888178/RemoveAccesstoallWindowsUpdateFeatures.rar.html

http://www.ziddu.com/download/2888179/PropertiesMissingFromMyComputer.rar.html

http://www.ziddu.com/download/2888180/Read-FindyourProductIDNumber.rar.html

http://www.ziddu.com/download/2888193/RestoreFastUserSwitching.rar.html

http://www.ziddu.com/download/2888194/RepairtheOfficeXPShortcutBarButtons.rar.html

http://www.ziddu.com/download/2888195/RestoreAdminTools.msc.rar.html

http://www.ziddu.com/download/2888196/Replace-RepairtheRecycleBininWindowsXP.rar.html

http://www.ziddu.com/download/2888197/ReplaceAMPMClockwithwordofChoice.rar.html

http://www.ziddu.com/download/2888215/RestoreMissingNewandTextDoc.rar.html

http://www.ziddu.com/download/2888216/SearchisMissingfromtheStartMenu.rar.html

http://www.ziddu.com/download/2888217/RestoreSaveRemoveHardware_Icon.rar.html

http://www.ziddu.com/download/2888218/screensaverenabledisable.rar.html

http://www.ziddu.com/download/2888219/ScreenSaver-EnableDisable.rar.html

http://www.ziddu.com/download/2888238/TaskBarUnLock.rar.html

http://www.ziddu.com/download/2888239/WinKeys_Enable-Disable.rar.html

http://www.ziddu.com/download/2888240/TaskBarLock.rar.html

http://www.ziddu.com/download/2888241/TabMissing.rar.html

http://www.ziddu.com/download/2888242/SearchisMissingfromtheStartMenu-TOREMOVE.rar.html

http://www.ziddu.com/download/2888252/xpinfo-exe.zip.html

http://www.ziddu.com/download/2888253/util_CreatescopiesofREGEDITMSCONFIGandTaskManager.rar.html

Booster Dengan FeedCat

noreply@blogger.com (Cak Wawan Aja) — Fri, 05 Dec 2008 03:41:00 +0000

Alternatip lagi nih Booster dengan Feedcat, lumayan buat ngenalin blogger kita biar lebih rame. Feedcat ini lebih simple setingannya dibanding dengan Feedburner, memang masih kalah dibanding Feedburners dalam segala hal tapi mengenai fungsi dan tujuannya sih sama kok. Tidak rugi untuk mencobanya, saya sudah pasang.

How to put the icon on your website :

firstly you need to be registered user

secondly you have to be logged in

select your already boosted feed or submit new one

in the feed management select "Website Icons" menu option

here you will find here the html/xml code to be inserted into your website

Defend Computer From Hacker and Virus

noreply@blogger.com (Cak Wawan Aja) — Fri, 05 Dec 2008 03:20:00 +0000

The arrival of broadband Internet access has opened a new playground for hackers. "There is no software available on the network that makes it easy for hackers to probe thousands of hosts and, if file sharing is turned on, they will find you and commitment," said X - Force director Chris Rouland here talking about how to protect your computer from hackers let go! Stop using Internet Explorer and Firefox to make the change, it is more secure, easy and simple. If you have the ability to change our IP address, update regularly. A team will get a new IP address automatically when themachine boots after a restart. Some DSL accounts of their capacity. If your computer has a fixed IP, minimizeopportunities by hackers to shut down the computer when not in use. There are a variety of affodable software and hardware firewall solutions available for home computers and small business networks or Get Spybot Search and Destroy and AdAware SE and update it immediately Check with the manufacturer of your operating system patches and security bulletins issues.Download and install the system patches that are available An important part of any security plan is the installation of an up to date anti-virus software like Norton, Trend Micro PC-cillin, NOD 32, McAfee and Avast a system to protect against viruses and trojan is effective only if horses.This updates are installed on a regular basis basis.the makers of these products offer the ability to download updates of virus signatures to call over the Internet shut down file-sharing software on your computer's operating system.Your service The Internet may be able to provide information on how to manufacture this.your operating system, which may also help. If your computer has been hacked and specifically that can never be 100% sure that your system is no longer in danger and that starts with 11, to back up personal files on the infected system and format and reinstall Windows.

Viral Link = Link Farm ?

noreply@blogger.com (Cak Wawan Aja) — Mon, 01 Dec 2008 06:45:00 +0000

Viral Link = mata rantai karena virus, duh ada-ada saja ya ide bagus dari sohib blogger ini dalam tips untuk menaikkan traffic-nya. Ini pas saya baca di blogger sohib-sohib yang sudah berkompetisi dibidang tersebut yang mengacu pada viral-linking. Saya sih belum berani coba karena mengacu pada artikel saya tentang Link Farm, salah satu kutipan tentang Link-Farm sendiri dimana "Dengan indikasi link farm, pihak search engine / mesin pencari seperti Google dll akan dengan mudah menutup akses (banned) hasil pencariannya ke situs link farm tersebut”. Ini mengingat link farm sangat mudah untuk disalahgunakan sebagai upaya mendongkrak ranking suatu situs/blog secara brutal". Saya mohon maap sudah mengomentari tentang ide ini dan tidak bermaksud menggurui atau apa, ya mungkin ini cuman sebagai referensi buat saya pribadi yg mungkin belum berani bertaruh untuk di Banned Mbah-nya dan hilang dalam peredaran dalam sekejap HeHeHe. Jika memang sudah ciamik, gak salah juga saya akan mencobanya, cuman kawatir aja sama Mbah Buyut Google tentang Viral-Link ini. Mohon-maap juga buat sohib blogger yang sudah tagged dan belum dipasang. Semoga dengan tricks tersebut sangat bermanfaat dan justru tidak merugikan kita. Ditunggu perkembangan dalam sesi selanjutnya.........

Kurang lebih perintah kode-nya seperti ini :

{Start Copy Here}

Rules :
1. Copy paste from {Start Copy Here} to {End Copy Here}
2. Please link back to the person who tagged you and PASS this tag to many of your friends
3. If you have more than one blog, please post this to all of your blogs, the more the merrier.
4. The use of NO FOLLOW on links is not allowed, Let's all be fair!
5. Remember to come back here at JENNY TALKS (pls don't change this link) and leave the exact post url so I can add you to the master list to help increase our rankings and improve our Technorati Authority.
6. Spread the virus.. oooopps I mean the VIRAL LINKING and happy blogging!

BLOGGERS :
1. http://YourBlogsHere.com etc...

{END Copy Here}

Manual Registry Repair For Windows XP

noreply@blogger.com (Cak Wawan Aja) — Mon, 01 Dec 2008 05:51:00 +0000

To use the Regedits : Save the REG file on your hard drive. Double click it and answer yes to the import prompt. REG files can be viewed in Notepad by right-clicking on the file and selecting Edit.

To use the files VBS : Download. Vbs file and save it to your hard drive (you may want to do right click and use Save Target As). Double click the vbs file. You will be prompted when the script is done.

NOTE : If your anti-virus software that warns of a "malicious" script, this is normal if you have "security scripting" or similar enabled technology. These scripts are not malicious, but it does make changes to the system registry.

Disable or Enable Registry Editing Tools .reg

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableRegistryTools"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"**.del.DisableRegistryTools"=-

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableRegistryTools"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"**del.DisableRegistryTools"=-

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSaveSettings"=dword:00000000

Enable or Disable Screen Saver ( Save As To .vbs )

Dim WSHShell, RegKey, ScreenSaver, Result
Set WSHShell = CreateObject("WScript.Shell")
RegKey = "HKCU\Control Panel\Desktop\"
ScreenSaver = WSHShell ( Save As To .reg )Read (regkey & "ScreenSaveActive")
If ScreenSaver = 1 Then 'Screen Saver is Enabled
Result = MsgBox("Your screen saver is currently active." & _
vbNewLine & "Would you like to disable it?", 36)
If Result = 6 Then 'clicked yes
WSHShell ( Save As To .reg )Write regkey & "ScreenSaveActive", 0
End If
Else 'Screen Saver is Disabled
Result = MsgBox("Your screen saver is currently disabled." & _
vbNewLine & "Would you like to enable it?", 36)
If Result = 6 Then 'clicked yes
WSHShell ( Save As To .reg )Write regkey & "ScreenSaveActive", 1
End If
End If

Enable_DragDrop ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Start_EnableDragDrop"=dword:00000001

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoChangeStartMenu"=dword:00000000

Enable_Installer ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.exe]
"Content Type"="application/x-msdownload"

[HKEY_CLASSES_ROOT\.exe\PersistentHandler]
"{098f2470-bae0-11cd-b579-08002b30bfeb}"

Enable_Fix-exe-XP ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\.exe]
@="exefile"
"Content Type"="application/x-msdownload"

[HKEY_CLASSES_ROOT\.exe\PersistentHandler]
@="{098f2470-bae0-11cd-b579-08002b30bfeb}"

[HKEY_CLASSES_ROOT\exefile]
@="Application"
"EditFlags"=hex:38,07,00,00
"TileInfo"="prop:FileDescription;Company;FileVersion"
"InfoTip"="prop:FileDescription;Company;FileVersion;Create;Size"

[HKEY_CLASSES_ROOT\exefile\DefaultIcon]
@="%1"

[HKEY_CLASSES_ROOT\exefile\shell]

[HKEY_CLASSES_ROOT\exefile\shell\open]
"EditFlags"=hex:00,00,00,00

[HKEY_CLASSES_ROOT\exefile\shell\open\command]
@="\"%1\" %*"

[HKEY_CLASSES_ROOT\exefile\shell\runas]

[HKEY_CLASSES_ROOT\exefile\shell\runas\command]
@="\"%1\" %*"

[HKEY_CLASSES_ROOT\exefile\shellex]

[HKEY_CLASSES_ROOT\exefile\shellex\DropHandler]
@="{86C86720-42A0-1069-A2E8-08002B30309D}"

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers]

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\PEAnalyser]
@="{09A63660-16F9-11d0-B1DF-004F56001CA7}"

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\PifProps]
@="{86F19A00-42A0-1069-A2E9-08002B30309D}"

[HKEY_CLASSES_ROOT\exefile\shellex\PropertySheetHandlers\ShimLayer Property Page]
@="{513D916F-2A8E-4F51-AEAB-0CBC76FB1AF8}"

Enable_Flash_IE ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\CLSID\{D27CDB6E-AE6D-11cf-96B8-444553540000}\MiscStatus\1]
@="131473"

Enable_Folder and Icon Refresh ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Update]
"UpdateMode"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"NoNetCrawling"=dword:00000000

Enable_FolderOptions ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoFolderOptions"=dword:0000000

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoFolderOptions"=dword:0000000

Enable_Right_Click ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer]
"NoViewContextMenu"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoViewContextMenu"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSetTaskbar"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSaveSettings"=dword:00000000

Enable_Menu+Winlogin ( Save As To .inf )

[Version]
Signature="$Chicago$"
Provider=Vaksincom

[DefaultInstall]
AddReg=UnhookRegKey
DelReg=del

[UnhookRegKey]
HKLM, Software\CLASSES\batfile\shell\open\command,,,"""%1"" %*"
HKLM, Software\CLASSES\comfile\shell\open\command,,,"""%1"" %*"
HKLM, Software\CLASSES\exefile\shell\open\command,,,"""%1"" %*"
HKLM, Software\CLASSES\piffile\shell\open\command,,,"""%1"" %*"
HKLM, Software\CLASSES\regfile\shell\open\command,,,"regedit.exe "%1""
HKLM, Software\CLASSES\scrfile\shell\open\command,,,"""%1"" %*"
HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, Shell,0, "Explorer.exe"
HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, Userinit,0, "C:\WINDOWS\system32\userinit.exe"
HKLM, SYSTEM\ControlSet001\Control\SafeBoot, AlternateShell,0, "cmd.exe"
HKLM, SYSTEM\CurrentControlSet\Control\SafeBoot, AlternateShell,0, "cmd.exe"

[del]
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System,DisableRegistryTools
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System,DisableTaskMgr
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFind
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoRun
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System,DisableCMD
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoFolderOptions
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoClose
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDesktop
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer,NoDrives
HKCU, Software\Microsoft\Windows\ShellNoRoam\MUICache,C:\WINDOWS\system32\winlogin.exe
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\run
HKCU, Software\Microsoft\Windows\CurrentVersion\RunServices
HKCU, SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce
HKCU, Software\Microsoft\Windows\CurrentVersion\RunOnce, services
HKCU, Software\Microsoft\Windows\CurrentVersion\RunServices, services
HKCU, Software\Microsoft\Windows\CurrentVersion\RunServicesOnce, services
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Run, services
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoFind
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoClose
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoDesktop
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoDrives
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoRun
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System, DisableRegistryTools
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System, NoDiskCpl
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp, Disabled
HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion,Winlogon
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer,ShowSuperHidden
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\run
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\policies\explorer,NoFind
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\policies\explorer,NoRun
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System,DisableRegistryTools
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\policies\System,DisableTaskMgr
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce, services
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnceEx, services
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices, services
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\RunServicesOnce, services
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\Run, services
HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion, winlogon
HKU, S-1-5-21-1177238915-412668190-839522115-1003\Software\Microsoft\Windows\CurrentVersion\RunServices,services
HKU, S-1-5-21-1177238915-412668190-839522115-1003\Software\Microsoft\Windows\CurrentVersion\RunServicesOnce,services
HKU, S-1-5-21-1177238915-412668190-839522115-1003\Software\Microsoft\Windows\ShellNoRoam\MUICache,C:\WINDOWS\system32\winlogin.exe
HKU, .DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\run
HKU, .DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\System,DisableRegistryTools

Enable_MenuSearch ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoShellSearchButton"=dword:00000000

Enable_MyComputer ( Save As To .vbs )

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo, "Notice")
If X = 6 Then
On Error Resume Next
Dim WSHShell, n, MyBox, p, t, errnum, vers
Dim itemtype
Dim enab, disab, jobfunc
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\NonEnum\{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
itemtype = "REG_DWORD"
enab = "ENABLED"
disab = "DISABLED"
jobfunc = "The My Computer icon is now "
t = "Confirmation"
Err.Clear
n = WSHShell ( Save As To .reg )Read (p)
errnum = Err.Number
if errnum <> 0 then
WSHShell ( Save As To .reg )Write p, 0, itemtype
End If
If n = 0 Then
n = 1
WSHShell ( Save As To .reg )Write p, n, itemtype
Mybox = MsgBox(jobfunc & disab & vbCR, 4096, t)
ElseIf n = 1 then
n = 0
WSHShell ( Save As To .reg )Write p, n, itemtype
Mybox = MsgBox(jobfunc & enab & vbCR, 4096, t)
End If
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
Else
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
End If

Enable_SaveMode ( Save As To .inf )

Enable_Scroll_Program ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]

"Start_ScrollPrograms"=dword:00000001
"StartMenuScrollPrograms"="NO"

Enable_Search ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoFind"=dword:00000000
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoFind"=dword:00000000

Enable_StartMenu ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer]
"NoSaveSettings"=dword:00000000
"NoChangeStartMenu"=dword:00000000
"NoStartMenuSubFolders"=dword:00000000
"NoStartMenuMFUprogramsList"=dword:00000000
"NoStartMenuMorePrograms"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced]
"Start_EnableDragDrop"=dword:00000001

Enable_TaskMgr-1 ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableTaskMgr"=dword:00000000

Enable_TaskMgr-2 ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableTaskMgr"=dword:00000000

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Group Policy Objects\LocalUser\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"DisableTaskMgr"=dword:00000000

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\]
"DisableTaskMgr"=dword:00000000
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon]
"DisableCAD"=dword:00000000

Enable_USB_PortFix ( Save As To .reg )

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]
"Type"=dword:00000001
"Start"=dword:00000003
"ErrorControl"=dword:00000001
"ImagePath"=hex(2):53,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,44,00,\
52,00,49,00,56,00,45,00,52,00,53,00,5c,00,55,00,53,00,42,00,53,00,54,00,4f,\
00,52,00,2e,00,53,00,59,00,53,00,00,00
"DisplayName"="USB Mass Storage Driver"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Security]
"Security"=hex:01,00,14,80,90,00,00,00,9c,00,00,00,14,00,00,00,30,00,00,00,02,\
00,1c,00,01,00,00,00,02,80,14,00,ff,01,0f,00,01,01,00,00,00,00,00,01,00,00,\
00,00,02,00,60,00,04,00,00,00,00,00,14,00,fd,01,02,00,01,01,00,00,00,00,00,\
05,12,00,00,00,00,00,18,00,ff,01,0f,00,01,02,00,00,00,00,00,05,20,00,00,00,\
20,02,00,00,00,00,14,00,8d,01,02,00,01,01,00,00,00,00,00,05,0b,00,00,00,00,\
00,18,00,fd,01,02,00,01,02,00,00,00,00,00,05,20,00,00,00,23,02,00,00,01,01,\
00,00,00,00,00,05,12,00,00,00,01,01,00,00,00,00,00,05,12,00,00,00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR\Enum]
"0"="USB\\Vid_116f&Pid_0005\\20031015193616796"
"Count"=dword:00000001
"NextInstance"=dword:00000001

Enable+Disable Show Hidden Files-Folders ( Save As To .vbs )

Message = "To work correctly, the script will close" & vbCR
Message = Message & "and restart the Windows Explorer shell." & vbCR
Message = Message & "This will not harm your system." & vbCR & vbCR
Message = Message & "Continue?"
X = MsgBox(Message, vbYesNo, "Notice")
If X = 6 Then
On Error Resume Next
On Error Resume Next
Dim WSHShell, n, p, itemtype, MyBox
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden"
itemtype = "REG_DWORD"
n = WSHShell ( Save As To .reg )Read (p)
errnum = Err.Number
if errnum <> 1 then
WSHShell ( Save As To .reg )Write p, 2, itemtype
End If
If n = 2 Then
WshShell ( Save As To .reg )Write p, 1, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now ENABLED", 64, "Hidden Files and Folders")
End If
If n = 1 Then
WshShell ( Save As To .reg )write p, 2, itemtype
MyBox = MsgBox("Show Hidden Files and Folders are now DISABLED", 64, "Hidden Files and Folders")
End If
Set WshShell = Nothing
On Error GoTo 0
For Each Process in GetObject("winmgmts:"). _
ExecQuery ("select * from Win32_Process where name='explorer.exe'")
Process.terminate(0)
Next
MsgBox "Finished." & vbcr & vbcr , 4096, "Done"
Else
MsgBox "No changes were made to your system." & vbcr & vbcr, 4096, "User Cancelled"
End If

Enable+Disable_WellcomeScreen ( Save As To .vbs )

Dim WSHShell, n, MyBox, p, p1, t, cn, Caption, itemtype, errnum
Set WSHShell = WScript.CreateObject("WScript.Shell")
p = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\SpecialAccounts\UserList\Administrator"
itemtype = "REG_DWORD"
t= "Choose Accordingly"
On Error Resume Next
n = ws ( Save As To .reg )Read(p)
errnum = Err.Number
If errnum <> 0 then
n = 0
End If
Caption = "1 = Show Administrator on Destop, 0 = Don't Show Administrator on Desktop"
On Error Goto 0
cn = InputBox(Caption, t, n)
If cn <> "" Then
WSHShell ( Save As To .reg )Write p, cn, itemtype
End If
If cn <>"" Then
MyBox = MsgBox("You must Log Off/Log On for the changes to take effect.", vbOKOnly,"Done")
End If
VisitKelly's Korner
Sub VisitKelly's Korner
If MsgBox("This script came from the Tweaks Section of Kelly's Korner" & vbCRLF & vbCRLF & "Would you like to visit Kelly's Web Site now?", vbQuestion + vbYesNo + vbDefaultButton, "Visit Kelly's Korner") =6 Then
wshshell.Run "http://www.kellys-korner-xp.com/xp_tweaks.htm"
End If
End Sub

Easy To Remove Virus From PC

noreply@blogger.com (Cak Wawan Aja) — Thu, 27 Nov 2008 04:00:00 +0000

Identify the name of the virus. I usually use systeminternals the manager know the name of the virus. if they can not even access the software then tell me what the virus is doing with your PC then i will help you determine your name. Killing the running process of the virus on your PC ... For example, if the virus is running under iph.exe process then kill the task. Remove the virus back up your hard drive to WipEout potential future threats. Redesign of the previous damage done by the virus as mission-manager with disabilities, autoruns virus, and so on.
First open the notebook, then type the following, as I have done everything possible to kill the virus process running in the background.

@ECHO OFF
TASKKILL /F /IM "RUNDLL32.EXE"
TASKKILL /F /IM "DRWTSN32.EXE"
TASKKILL /F /IM "RAVMON.EXE"
TASKKILL /F /IM "NEW FOLDER.EXE"
TASKKILL /F /IM "NEWFOLDER.EXE"
TASKKILL /F /IM "WINFILE.EXE"
TASKKILL /F /IM "SCVSHOSTS.EXE"
TASKKILL /F /IM "SCVVHSOT.EXE"
TASKKILL /F /IM "SSCVIHOST.EXE"
TASKKILL /F /IM "SVCHSOT.EXE"
TASKKILL /F /IM "SCVHOSTS.EXE"
TASKKILL /F /IM "SXS.EXE"
TASKKILL /F /IM "BLASTCLNNN.EXE"
TASKKILL /F /IM "SCCVIHOST.EXE"
TASKKILL /F /IM "FUN.EXE"
TASKKILL /F /IM "RMHOST.EXE"
TASKKILL /F /IM WSCRIPT.EXE
TASKKILL /F /IM IMAPD.EXE
TASKKILL /F /IM DXDLG.EXE

Remove possible virus backups from the hard disk. Here is the piece of code that I used.

DEL "%WINDIR%\RAVMON.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\NEW FOLDER.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\NEWFOLDER.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\WINFILE.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SCVSHOSTS.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SCVVHSOT.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SSCVIHOST.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SSCVIHOST.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SCVHOSTS.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SVCHSOT.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SXS.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\RUN.WSH" /F /Q /S /A H R S A
DEL "%WINDIR%\KERNEL32.SYS" /F /Q /S /A H R S A
DEL "%WINDIR%\XMSS.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\BLASTCLNNN.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SCCVIHOST.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\KINZA.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\FUN.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\ISETUP.VBS" /F /Q /S /A H R S A
DEL "%WINDIR%\RMHOST.EXE" /F /Q /S /A H R S A
DEL "%WINDIR%\SYS.VBS" /F /Q /S /A H R S A
DEL "%WINDIR%\BOOT.VBS" /F /Q /S /A H R S A
DEL "%WINDIR%\SOVITTAMRAKAR.EXE" /F /Q /S /A H R S A

Now we're going to repair the row that the virus had damaged.

reg add "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon" /v Userinit /f /d "%windir%\system32\userinit.exe",
reg add "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon" /v Shell /f /d "explorer.exe"
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /t Reg_Binary /v NoDriveAutoRun /f /d ffffff03
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /t Reg_dword /v NoDriveTypeAutoRun /f /d 36
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /t Reg_dword /v NoFolderOptions /f /d 0
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /t Reg_dword /v DisbleRegistryTools /f /d 0
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /t Reg_dword /v DisableTaskMgr /f /d 0