Minggu, 27 November 2011

Membulatkan Angka Ke Dalam Kelipatan Seratus Berikutnya


Pernahkah Anda kesulitan ketika ingin membulatkan sebuah angka ke dalam kelipatan seratus ke atas berikutnya? Contoh: Anda memiliki angka 729, dan Anda ingin membulatkan angka tersebut ke kelipatan seratus ke atas sehingga menjadi 800. Sedangkan jika angkanya tepat kelipatan seratus, proses pembulatan akan diabaikan. Untuk mengatasi hal ini, Anda bisa menggunakan fungsi khusus yang saya buat. Fungsi ini bahkan bisa juga Anda gunakan melalui fitur Macro di Microsoft Excel. Berikut ini code selengkapnya.

Deskripsi:
Membulatkan angka ke dalam kelipatan seratus berikutnya
Contoh:
Anda memiliki angka 101, maka jika dibulatkan
ke dalam kelipatan seratus berikutnya, hasilnya adalah 200.


Persiapan:
1. Buat sebuah project standard exe dengan satu form.
2. Tambahkan satu CommandButton ke atas form.
3. Copy-paste code berikut ke editor form yang bertalian.

Public Function BulatkanAngka(lngAngka As Long) As Long
If lngAngka Mod 100 > 0 Then
Dim lngHasil As Long
lngHasil = lngAngka \ 100
BulatkanAngka = (lngHasil * 100) + 100
Else
BulatkanAngka = lngAngka
End If
End Function

Private Sub Command1_Click()
Ulangi:
Dim lngAngka As Long
If lngAngka = 0 Then lngAngka = 729
lngAngka = InputBox("Masukkan sebuah angka!", "Angka", lngAngka)
MsgBox "Angka " & lngAngka & " setelah dibulatkan ke dalam " & vbCrLf & _
"kelipatan seratus berikutnya adalah: " & BulatkanAngka(lngAngka)
If MsgBox("Ulangi lagi?", vbQuestion + vbYesNo, "Ulangi?") = vbNo Then
Exit Sub
Else
GoTo Ulangi
End If
End Sub

Membuat Tabel Baru Saat Run-Time dengan ADO


Berikut ini source code yang bisa Anda gunakan untuk membuat tabel saat run-time di program Anda dengan menggunakan ADO dan database Microsoft Access 2000. Untuk mencoba code ini, jangan lupa agar Anda membuat terlebih dulu satu buah database Access kosong (blank database, tanpa tabel) lalu simpan di C:\ dengan nama NewDB.mdb. Anda juga harus menambahkan dua item dari menu Project -> References... punya Visual Basic 6, masing-masing: "Microsoft ActiveX Data Objects 2.x Library" dan "Microsoft ADO Ext. 2.x for DDL and Security".

Deskripsi:
Membuat tabel saat run-time dengan reference ADO menggunakan
database Microsoft Access 2000. Dalam code ini, Anda harus
menambahkan dua item sebagai reference untuk code, yaitu:
"Microsoft ActiveX Data Objects 2.x Library" dan
"Microsoft ADO Ext. 2.x for DDL and Security".
MDAC versi terakhir yang terinstall di PC saya adalah versi 8
sehingga 2.x itu menjadi 2.8. Sesuaikan di PC Anda.


Persiapan:
1. Buat satu project standard exe dengan satu Form dan
satu control CommandButton di atas form.
2. Buat sebuah database baru Access 2000 kosong tanpa tabel
dan simpan di drive "C:\" dengan nama "NewDB.mdb".
3. Klik menu Project -> References... lalu beri tanda
centang pada "Microsoft ActiveX Data Objects 2.x Library"
di mana x = versi dari MDAC yang terinstall di PC Anda
4. Beri tanda centang juga di "Microsoft ADO Ext. 2.x for
DDL and Security".
5. Copy-kan code berikut ke editor form yang bertalian.


Kode::

'--- Copy Code Dibawah Ini Pada Kolom Form Code Editor , Deskripsi General ---'
Private Sub InsertInitialData()
Dim rsTabelBaru As ADODB.Recordset
Set rsTabelBaru = New ADODB.Recordset
'Optimalkan variable ADODB.Recordset
With rsTabelBaru
.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='C:\NewDB.mdb';"
.CursorLocation = adUseClient '<-- jangan pernah lupa ini .CursorType = adOpenKeyset '<-- biasa .LockType = adLockPessimistic '<-- biasa .Source = "SELECT * FROM TabelBaru" .Open 'Tambah record baru jika tabel sudah ada .AddNew .Fields("KodeData").Value = 1 .Fields("DeskripsiData").Value = "Deskripsi Satu" .Update MsgBox "Sukses tambah 1 record baru", vbInformation End With End Sub Private Function CreateTable() As Boolean Dim catDatabase As ADOX.Catalog Dim oTable As ADOX.Table Dim bCreateTable As Boolean On Error GoTo KeluarErr 'Di sini tabel belum terbentuk bCreateTable = False 'Variable untuk membuat tabel baru Set catDatabase = New ADOX.Catalog With catDatabase .ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _ "Data Source='C:\NewDB.mdb';" 'Tentukan nama tabel baru yang akan dibuat Set oTable = .Tables("TabelBaru") End With KeluarProsedur: If (bCreateTable) Then Set oTable = New ADOX.Table With oTable .Name = "TabelBaru" 'Tambahkan 2 field baru Call .Columns.Append("KodeData", adInteger) Call .Columns.Append("DeskripsiData", adVarWChar, 20) End With 'Tambahkan tabel baru ke database Call catDatabase.Tables.Append(oTable) End If 'Bersihkan memory If (Not catDatabase Is Nothing) Then Set catDatabase = Nothing End If 'Tabel sudah terbentuk CreateTable = bCreateTable KeluarErr: Select Case Err.Number Case 3265 'Table belum ada bCreateTable = True Err.Clear Resume KeluarProsedur Case Is <> 0
MsgBox Err.Description, vbCritical
bCreateTable = False
Err.Clear
Resume KeluarProsedur
End Select
End Function

Private Sub Command1_Click()
On Error GoTo ErrHandler
Dim bTableCreated As Boolean
bTableCreated = CreateTable
If (bTableCreated) Then
Call InsertInitialData
End If
MsgBox "Sukses membuat tabel baru di database C:\NewDB.mdb!", vbInformation
Exit Sub
ErrHandler:
MsgBox Err.Description
End Sub

Membuat Menu Dengan Bahasa Rakitan

gandhi segment
assume cs:gandhi
org 100h
mulai: jmp cetak
menu db,       ‘MENU UTAMA’
db 13,10,’1. discending’
db 13,10,’2. biodata’
db 13,10,’3. Keluar$’
pilihan db 13,10,’Pilihan [1-3]: $’
biodata db       ‘BIODATA$’
nim     db 13,10,’NIM      : $’
nama    db 13,10,’Nama     : $’
kel     db 13,10,’Kelompok : $’
inputnim db 15,?,15 dup(?)
inputnama db 31,?,31 dup(?)
inputkel db 8,?,8 dup(?)
discendingmenu db          ‘DISCENDING’
db 13,10,’1. Tampil secara Ascending’
db 13,10,’2. Tampil secara Descending’
db 13,10,’3. Ke Menu utama$’
back db ‘Kembali ke menu utama [Y/T]: $’
cetak: mov ax,03h
int 10h
mov ah,09h
mov dx,offset menu
int 21h
mov ah,09h
mov dx,offset pilihan
int 21h
mov ah,01h
int 21h
cmp al,’1′
je bio
cmp al,’2′
je alpha
cmp al,’3′
selesai: int 20h
bio: mov ax,03h
int 10h
mov ah,09h
mov dx,offset biodata
int 21h
mov ah,09h
mov dx,offset nim
int 21h
mov ah,0ah
mov dx,offset inputnim
int 21h
mov ah,09h
mov dx,offset nama
int 21h
mov ah,0ah
mov dx,offset inputnama
int 21h
mov ah,09h
mov dx,offset kel
int 21h
mov ah,0ah
mov dx,offset inputkel
int 21h
mov ah,09h
mov dx,offset back
int 21h
cmp al,’y’
jmp cetak
cmp al,’Y’
jmp cetak
cmp al,’t’
jmp selesai
cmp al,’T’
jmp bio
jmp selesai
alpha: mov ax,03h
int 10h
mov ah,09h
mov dx,offset discendingmenu
int 21h
mov dx,offset pilihan
int 21h
mov ah,01h
int 21h
cmp al,’1′
je descending
cmp al,’2′
jmp cetak
descending:mov ax,03h
int 10h
mov cx,1ah
mov ah,02h
mov dl,’Z’
b:         int 21h
dec dl
loop b
mov ah,01h
int 21h
jmp alpha
;submenubio: jmp bio
;submenualpha: jmp alpha
;selesai: int 20h
gandhi ends
end mulai

Membuat folder tanpa nama


Udah Malam, dikit Lagi Mau Tidur, Sebelm Tidur, Berbagi ilmu dulu ah,,
Bgini Bro, Folder kan biasanya menggunakan Nama untuk lebih mudah dikenali pemilikya,Tapi ada Juga Folder Buntung tanpa Nama,,
Mau Tau bagaimana Cara Membuatnya??

Caranya :
1. Buat Folder Baru
2. Namai Folder Tersebut dengan menekan tombol : Alt+0160
[Gunakan Bagian Numerik pada keyboard yang ada di keyboard bagian kanan]
3. Tekan Enter

Bisa gak, Terlalu Simple ia??
sesimple bikin Mie instant kan?
Malah Lebih simple bikin Folder Tanpa Nama!!
Wokeh Bro, Aq Mau Tidur!!

Membuat file ISO dari CD/DVD


File ISO memang banyak manfaatnya. Untuk kepentingan backup data, keamanan data atau hal-hal yang kita butuhkan dalam bentuk file ISO. Kalau boleh dikatakan file ISO ini mirip dengan file .rar, .zip dll. Kalau file.rar, zip untuk membuka dan membacanya perlu diekstract, namun file dengan extensi .iso ini dilakukan dengan cara burning. Untuk membacanya tanpa burning dapat dilakukan dengan menggunakan virtual CD/DVD ROM. Banyak sekali software untuk membuat file ISO, termasuk software yang gratis atau free, sebut saja salah satunya adalah free iso creator. Bisa membuat file ISO dari folder maupun file. Bisa di download disini. Namun kalau untuk membuat file ISO dari CD atau DVD masih kesulitan. File ISO dari CD dan DVD ini sangat berguna sekali untuk membackup data cd/dvd dengan aman. Terutama CD / DVD Windows atau Operating system yang lain akan lebih aman kalau disimpan dalam bentuk ISO file. Suatu saat kita perlukan bisa diburn lagi ke cd/dvd.

Untuk membuat file ISO dari CD / DVD ini kita membutuhkan sebuah software. Salah satunya adalah Software Magic ISO Maker. Dengan software ini kita bisa membuat file iso dari cd/dvd dan sebaliknya yaitu membakar atau burning iso file. Selain itu software ini bisa digunakan mengkonversi atau convert file iso menjadi BIN dan Nero image atau sebaliknya. Ditambah lagi dengan fasilitas windows explorer sangat memudahkan pengguna dalam memanfaatkan software ini. Sayangnya software ini tidak gratis alias berbayar. Sahabat bisa download langsung ke websitenya di www.magiciso.com. Namun sahabat tidak usah khawatir, shobat bisa mendapatkannya sudah disertai serial number dengan download pada link dibawah ini.

Untuk menjalankannya ( membuat file ISO dari CD/DVD) dapat dibuka melalui menu tools pada program Magic Iso. Pada menu tools tersebut terdapat perintah make ISO from CD/DVD, Burn CD/DVD with ISO, virtual cd/dvd rom, compress dan decompress CD/DVD image, make multi boot image dan lain-lain.


Membuat CommandButton Seperti Stop Kontak Lampu

Deskripsi: Membuat sebuah tombol kelihatan ditekan ke dalam saat ditekan
sama seperti jika Anda menekan tombol stop-kontak lampu di rumah;
maka tombol akan kelihatan masuk ke dalam, kemudian ketika Anda
menekan sekali lagi, maka tombol akan kembali normal kembali...
demikian seterusnya secara bergantian untuk penekanan berikutnya.

Persiapan: 1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.
2. Copy-kan coding berikut ke dalam editor form & module tsb.

'--- Copy Code berikut di kolom Modul ---'

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _
Long, lParam As Any) As Long
Public Const BM_SETSTATE = &HF3
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202

'--- Copy'a Sampai Disini...


'--- Copy Code berikut di Form , Deskripsi'a General ---'

Dim blnTekan As Boolean

Private Sub Command1_Click()
If blnTekan = False Then
Call SendMessage(Command1.hwnd, BM_SETSTATE, 1, ByVal 0&)
blnTekan = True
Exit Sub
ElseIf blnTekan = True Then
blnTekan = False
Call SendMessage(Command1.hwnd, BM_SETSTATE, 0, ByVal 0&)
End If
End Sub

'--- Copy'a Sampai sini ...


Keterangan :
'Ketika Anda mengklik Command1 pertama kali, maka tombol kelihatan masuk ke dalam.
'Ketika Anda mengklik Command1 selanjutnya, tombol akan kelihatan normal kembali.
'Demikian seterusnya bergantian... :-)
'Pengertian "klik" di atas tidak hanya event Click saja, tapi bisa dengan
'menekan Enter atau tombol Spasi di keyboard saat tombol dalam keadaan focus.

Membersihkan virus shortcut di Flashdisk


Berikut penanganan untuk USB Flashdisk yang terlanjur terinfeksi serviks.
1. 1. Terlebih dahulu scan flashdisk anda menggunakan Smadav versi 8.3 ke atas, jika hasil scan menunjukkan ada file virus dan beberapa folder tersembunyi klik saja Fix All.
2. 2. Jika sudah di Fix All namun folder Anda tetap saja tersembunyi lakukan langkah selanjutnya:
3. 3. Start – Run –Cmd
4. Ketikkan perintah ini di Command Prompt :
attrib -r -h -s F:\*.* /s /d tekan Enter


huruf F di atas menunjukkan drive flashdisk anda, coba lihat kembali di explorer, terdapat di drive apakah flasddisk anda, kemudian sesuaikan. Jika ada di E: maka ganti huruf F di atas dengan E, begitu pula dengan yang lainnya.
5. 5. Tunggu beberapa saat, semakin banyak file dan folder anda semakin memakan waktu.
6. 6. Setelah berhasil biasanya file dan folder anda yang disembunyikan oleh virus akan terlihat kembali.
7. 7. Scan kembali flashdisk anda menggunakan Smadav versi 8.3 ke atas untuk memastikan flashdisk anda telah bersih dari virus.
Lebih Jauh Tentang Perintah ATTRIB
Perintah ATTRIB merupakan perintah yang ada dalam Microsoft DOS dan masih dapat digunakan sampai saat ini termasuk dalam Command Prompt Windows. Perintah ini digunakan untuk memberikan atau menghilangkan atribut tertentu pada suatu file atau folder.Syntax umumnya adalah sebagai berikut:
ATTRIB [+R | -R] [+A | -A ] [+S | -S] [+H | -H] [[drive:] [path] filename] [/S [/D]]
Keterangan:
+ Digunakan untuk menambahkan sebuah atribut.
- Digunakan untuk menghilangkan sebuah atribut
R Atribut file read only (hanya dapat dibaca)
A Atribut file archive
S Atribut file system
H Atribut file hidden (disembunyikan)
/S Memproses semua file dalam semua direktori
/D Memroses direktori
Dengan mengetahui penjelasan ini, Anda pun dapat pula menyembunyikan folder dan file sendiri. Tapi perlu diingat, folder dan file yang disembunyikan ini, akan tetap dapat terlihat jika kita mengaktifkan tampilan untuk melihat file yang disembunyikan dan file system dari menu Folder Options di Windows Explorer.

Semoga Berhasil..

Membersihkan print head yang mengering dan tersumbat


maztikno, saya mo tanya nih, kok printer pixma ip 1000 saya buat ngeprint bisa tapi warna hitamnya ngga keluar,jadi printer bisa ngeprint tapi ga keluar tinta,saya coba cleaning kok yg colournya putus2 trus warna kuning ngga keluar.palagi warna hitamnya sama sekali ngga keluar,tolong bantu saya maz,makasih banyak atas bantuannya.
Pendapat saya!
Kejadian ini sering kita alami malah kemungkinan yang mempunyai printer jenis inkjet pernah atau mungkin suatu saat akan mengalami juga. Ini sering dikenal dengan Clogged print head atau istilahnya head print mengering atau tersumbat. Sebelum melangkah lebih lanjut emang seharusnya kita ekstra hati-hati dengan print head. Sangat bijaksana kalau kita sering mengecek kondisi print head secara periodik untuk masalah seperti ini. Jika masalah head seperti ini mulai nampak sebaiknya mulai siap-siap kita antisipasi sebelum semakin parah lama-kelamaan.

Head printer bisa mengering dan tersumbat jika suatu saat dalam jangka waktu agak lama printer tidak pernah atau jarang kita gunakan. Ini disebabkan tinta yang mengering dan menyumbat lubang di head printer. Untuk masalah ini kita bisa berusaha dengan berbagai cara untuk mengatasi maslah ini:
Beberapa tipe printer model baru dilengkapi dengan fasilitas Cleaning system. Coba lakukan dengan fasilitas bawaan ini yakni dengan melakukan test printer berulang-ulang. Atau juga ada yang telah dilengkapi dengan fasilitas untuk membersihkan head (cleening head). Fasilitas ini bisa digunakan untuk membersihkan head. Cara ini hanya berguna jika sumbatan pada head tak terlalu parah. Biasanya untuk head tersumbat yang padah cara ini jarang berhasilnya. Dan jika proses cleaning head menggunakan fasilitas tersebut anda lakukan berulang-ulang mungkin 15 sampai 20 kali maka itu akan menyebabkan boros tinta. Atau bahkan bisa menyebabkan “Waste ink tank full” sehingga perlu di reset.
Cara yang lainya adalah tinggal mengganti cartidge. Cara ini bisa dilakukan jika cartidge dan head menyatu. Cara ini memang cepat dan gampang, namun memakan biaya yang lumayan merogoh kocek kita. Coba bayangkan jika kejadian ini sering anda alami.Boro-boro mau hemat. saya hanya menganjurkan ini untuk pilihan terakhir.
Dan terakhir ini salah satu cara yang bisa kita coba. Kita coba bersihkan sendiri head printer. Yaitu dengan merendam atau memasukan head printer kedalam cairan/air boleh ditambahkan alkohol atau ammoniac kedalamnya (ingat yang dimasukan ke cairan hanya bagian head-nya saja, bukan semuanya). 

Atau kalau perlu anda membeli cairan khusus untuk membersihkan head printer yang mengering ini (cartridge flush solution), namun cairan ini lumayan juga harganya. Silahkan anda lakukan langkah ini sekitar 10 menit atau kalau perlu seharian juga tidak masalah. Langkah ini bisa mencirkan lagi tinta yang mengering. Dengan cairnya tinta kering tersebut diharapkan bisa untuk mencetak dengan bagus lagi.

Tips & Cara Mempercepat Koneksi Internet | Trik Koneksi lebih Cepat


Internet yang CepatBrowsing Internet dengan kecepatan yang tinggi pasti sangat menyenangkan, berbagai cara dilakukan untuk mempercepat koneksi internet baik menggunakan software agar koneksi internet menjadi lebih cepat maupun menggunakan settingan tertentu yang diklaim bisa mempercepat koneksi internet.

Berikut ini adalah beberapa tips yang dapat digunakan untuk mempercepat koneksi internet :


I. Menggubah setting bandwith Pada windows
Pada dasarnya OS windows sudah membatasi bandwidth untuk koneksi internet sebanyak 20% dari total bandwidth yang seharusnya bisa maksimal,Jika anda ingin menambah bandwidth internet supaya koneksinya terasa lebih cepat dan kencang bisa dengan cara mengurangi atau mengosongkan batasan bandwidth tersebut supaya pada Windows kita bisa maksimal dalam menggunakan bandwidth yang sudah ada.

Ikuti petunjuknya seperti dibawah ini :

   1. Klik Start
   2. Klik Run
   3. Ketik gpedit.msc
   4. Kemudian klik Ok
   5. Setelah masuk klik Administrative Templates
   6. Kemudian Klik Network
   7. Setelah terbuka klik QoS Packet scheduler
   8. Kemudian klik Limit Reservable Bandwidth
   9. Dan setelah terbuka ubah setting menjadi Enable
  10. Kemudian ubah Bandwidth Limitnya menjadi 0
  11. Klik Apply,ok
  12. Kemudian keluar dan Restart komputer

II. Gunakan DNS dari OpenDNS untuk koneksi internet yang lebih cepat dan lebih aman.

   1. Klik Start
   2. Klik Control Panel
   3. Pilih Network & Internet Connection
   4. Klik Network Connection
   5. Klik Kanan Local Area Connection pilih Properties
   6. Pilih Internet Protocol (TCP/IP) kemudian Klik Properties
   7. Klik Use Following DNS Server
   8. Isi Preferred DNS Server dengan angka : 208.67.222.222
   9. Isi Alternate DNS Server dengan angka : 208.67.220.220
  10. Kemudian Klik OK

III. Jika menggunakan Browser Firefox gunakan add on Fasterfox, bisa di download disini.

Fasterfox adalah sebuah add on yang berfungsi untuk mempercepat koneksi dengan melakukan optimasi pada network dan cache browser. Fungsi dari cache adalah untuk menyimpan data sementara dari website yang kita kunjungi, sehingga ketika kita membuka kembali website tersebut proses loading-nya akan lebih cepat karena datanya telah disimpan di cache.

Beberapa optimasi yang dapat dilakukan oleh fasterfox adalah: HTTP pipelining, Memory caching,Disk caching,DNS caching,FastBack caching.

IV. Bagi pengguna Firefox, silahkan pasang Adblock

Fungsinya adalah untuk mem-filter iklan-iklan yang tidak perlu pada saat kita browsing, sehingga proses loading akan menjadi lebih cepat dan maksimal.

OK brotha and sista, tips lain mengenai cara mempercepat koneksi internet gwa sambung lain kali ya bye..bye...

10 CaRa buat isengin orang lewat note pad


Lagi iseng-iseng browsingan, eh ketemu artikel beginian.. lumayan.. buat isengin orang hihihih

S I N O P S I S

copy paste code” yang ada di bawah ini ke dalam NOTEPAD

1.message yang nongol melulu
Code:
@ECHO off
egin
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN

save namafile.BAT
(ekstensi filenya harus .BAT)

2.bikin shutdown+message
Code:
@echo off
msg * apaan sih lo
shutdown -s -c “Error! muka mu standar abis”

save namafile.BAT
(ekstensi filenya harus .BAT)

3.Mainin Caps Lock button
Code:
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”
loop

save namafile.vbs
(save dengan Ekstensi file .vbs)

4.buka tutup CD/DVD
Code:
Set oWMP = CreateObject(”WMPlayer.OCX.7″)
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

save namafile.vbs

5.bikin vbscript nongol mlulu
Code:
Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “~(enter)”
loop
save namafile.vbs
ket i task manager full wscript yg lg running

6.teken tombol backspace mlulu
Code:
MsgBox “kembali ke menu sebelumnya”
Set wshShell =wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{bs}”
loop
save namafile.vbs

7.otomatis ngetik “lu jelek banget sih” di notepad/word
Code:
Set wshShell = wscript.CreateObject(”WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “lu jelek banget sih!!!”
loop
save namafile.vbs
Ket : TULISAN yg saya warnai BIRU dapat d ganti sesuai keinginan anda

8.buka notepad trus menerus
Code:
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top
save namafile.BAT
ket:termasuk yang ngeselin banget nih
bisa di ganti,terserah mau buka cmd ato buka yg lain..ganti aja dir nya.

9.otomatis buka notepad lalu ngetik apa yg lo mau
Code:
WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject(”WScript.Shell”)
WshShell.Run “notepad”
WScript.Sleep 10
WshShell.AppActivate “Notepad”
WScript.Sleep 50
WshShell.SendKeys “ka”
WScript.Sleep 50
WshShell.SendKeys “mu ”
WScript.Sleep 50
WshShell.SendKeys “je”
WScript.Sleep 50
WshShell.SendKeys “le”
WScript.Sleep 50
WshShell.SendKeys “k ”
WScript.Sleep 50
WshShell.SendKeys ” se”
WScript.Sleep 50
WshShell.SendKeys “ka”
WScript.Sleep 50
WshShell.SendKeys “li”
WScript.Sleep 50
WshShell.SendKeys ” y”
WScript.Sleep 50
WshShell.SendKeys “a”
WScript.Sleep 50
WshShell.SendKeys ” h”
WScript.Sleep 50
WshShell.SendKeys “!”
WScript.Sleep 50
WshShell.SendKeys “!! ”
save namafile.vbs
ket:
ini salah satu script favorit gw…

10.@echo off
title quiz hari ini Smile
:menu
cls
echo jika kamu kena virus apa yang kamu lakukan
pause
echo pilih yang mana:
echo 1. matiin computer
echo 2. format aja
echo 3. bingung ahh
set input=nothing
set /p input=Choice:
if %input%==1 shutdown -s -t 30
if %input%==2 del c:\xxx
if %input%==3 @ECHO off
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

ket di atas :
kalo pilih 1.otomatis matiin computer
2.format file (terserah file apaan ganti aj dir nya)
3.sama aj kayak pilihan 1
kata2 di atas di ganti2 aj sesuai selera temen2

NB : gunakan script ini untuk menjahili teman anda ^^

hehehehehe….

Membuat Flash disk aman dari autorun-nya VIRUS


Tentunya teman2 semuanya sudah mengetahui bhw virus2 dapat menularkan dirinya ke komputer2 lain dengan media flashdisk. -.-“. Kesal? Sudah pasti! Saya juga merasakan perasaan yang sama ketika komputer saya juga ikut2an kena virus… tapi saya punya cara yang ampuh agar virus yang ada di flashdisk tersebut tidak dapat menularkan dirinya ke komputer lain..
Baiklah saya akan mulai membahasnya sekarang, diawali dengan cara penularan virus lewat media flashdisk. Sebenarnya sangat simple, ketika flashdisk dicolokan kedalam port usb virus yang sedang berjalan tinggal men-copy dirinya sendiri ke dalam flashdisk, dan tidak lupa pula dengan membuat file “autorun.inf” yang letak file-nya kasat mata sehingga tidak dapat dilihat. nah… file inilah yang akan kita edit agar virusnya tidak dapat menjalankan dirinya di komputer kita.
Cara yang pertama dengan mengedit secara manual dengan menggunakan notepad atau wordpad. Diasumsikan flashdisk kita yang telah dicolokan kedalam komputer (yang telah terinfeksi) beralamat “F:\”, maka saya akan mencoba membuka file “F:\autorun.inf” lalu enter. Lalu notepad akan terbuka secara otomatis dengan beberapa mantra didalamnya, setelah itu kita tinggal mengedit mantra tersebut dengan memblock semua mantra tersebut(ctrl+a) lalu hapus(backspace atau del) lalu anda bisa membiarkannya kosong lalu tekan ctrl+s untuk men-savenya. Anda juga bisa menuliskan beberapa puisi indah tentang perdamaian didalamnya ^-^.
Tetapi bang blckflcn, bagaimana jika file tersebut memiliki attribute “read-only”? yang jelas kita tidak dapat mengeditnya secara manual!(aaaaarrrrrgh!!!!). Lalu? Apa yang dapat kita lakukan… bang blckflcn? Gigi dibalas dengan gigi, mata dibalas dengan mata, dan yah… anda benar! MANTRA juga DIBALAS DENGAN MANTRA!! Mantranya sangatlah mudah… saya akan membahasnya secara bertahap sekarang juga :
1)buka aplikasi notepad (tempat dimana kita akan menulis mantra)
2)tuliskan mantra “del /a:r (alamat drive FDD):\autorun.inf” (tnp tanda petik) lalu enter.
3)langkah selajutnya adalah tulis mantra lagi! Mantranya “echo ‘terserah tulisan apa’ >(alamat drive FDD):\autorun.inf&attrib +r (alamat drive FDD):\autorun.inf” (tnp tanda petik juga).
4)lalu save file mantra tersebut dengan nama file terserah anda dan path-nya terserah anda juga, tetapi extension-nya harus “.bat”(harus tidak boleh tidak)
5)lalu jalankan file mantra yang baru kita buat tersebut
6)buka explorer
7)pada bagian address tuliskan “(alamat drive):\autorun.inf”, lalu tekan enter sambil mengucapkan “sim…salabim…”. Maka aplikasi notepad akan muncul lagi sambil menampilkan beberapa tulisan, tetapi yang ini jelas bukan mantra ^-^.
Setelah beberapa step tadi, virus tidak dapat menjalankan dirinya di komputer lain ketika kita mencolokan flashdisk kita kedalam port usb-nya. Tetapi bang blckflcn, virus2 dari komputer yang terinfeksi tersebut masih ada di dalam flashdisk saya. Bagaimana ini? Yah, itu sih bukan tugas saya lagi. Itu sih sudah menjadi tugas anti-virus… saya hanya memberitahukan cara agar virusnya tidak berjalan ketika flashdisk kita dicolokan kedalam port usb pada komputer yang lain… lagian mantra yang saya punya masih belum begitu ampuh untuk membuat virus tidak berjalan di komputer. Oleh karena itu, saya akan belajar tentang mantra2 tersebut di hogwarts agar lebih ampuh. Hehehe… ^-^.

Cara Menghapus Virus shortcut Tanpa AntiVirus


Sangatlah menjengkelkan jika komputer kita terkena serangan virus. Apalagi sekarang ini yang lagi trend aalah Virus Shortcut. Virus ini termasuk kedalam golongan virus .vbs. Walaupun virus ini tidak begitu berbahaya, namun kita juga harus tetap waspada karena virus ini akan mengakibatkan kerja komputer menjadi berat. Virus ini dengan cara membuat file ” autorun.inf, dekstop.ini, fanny.bmp, thumb.db, serta file shortcut yang berextensi .lnk “ pada setiap drive dan folder. semakin banyak Folder didalam komputer kita, maka akan semakin banyak pula shortcut yang dibuat oleh virus ini.
Langkah-langkah untuk mencegah atau paling tidak menguranginya adalah sebagai berikut ;
  1. Matikan terlebih dahulu System Restore pada semua drive ( My Computer, Properties, System Restore, beri centang pada Turn off System Restore on All Drives
  2. Matikan proses “wscript.exe”  (Task manager. services, wscript.exe, klik kanan pada wscript exe, end process/end process tree)
  3. Buka windows explorer, klik menu “Tool” lalu pilih “Folder Option”, selanjutnya pada tab “View” klik “Show hidden files and folders”, hilangkan tanda contreng pada “Hide extensions for known file types” dan hilangkan juga tanda contreng pada Hide protected operating system files. Klik OK.
  4. Klik tombol “Search”, Klik All Files and Folders, Pada bagian All or part of the file name ketik : Autorun.inf, pada bagian Look in klik “My Computer”, lalu beri centang semua pada bagian More Advanced Options lalu hapus semua file yang telah ditemukan.
  5. Setelah Proses pada No. 4 selesai, lakukan proses sama seperti No. 4. Tapi pada kolom All or Part of the file name di isi dengan Dekstop.ini. Hapus juga file ini.
  6. Setelah Proses pada No. 5 selesai, lakukan proses sama seperti No. 4. Tapi pada kolom All or Part of the file name di isi dengan *.lnk >>>( LNK bukan ink ). Hapus juga file ini. tapi kamu harus hati-hati jangan sampai salah menghapus, Ciri dari shortcut folder yang dibuat oleh virus yaitu ketika kita menunjuk folder tersebut maka akan muncul link dari shortcut tersebut yaitu ke arah windows/system32, itu adalah shortcut yang harus kita hapus
Ini adalah sedikit dari sekian banyak tips yang aku Sangatlah menjengkelkan jika komputer kita terkena serangan virus. Apalagi sekarang ini yang lagi trend aalah Virus Shortcut. Virus ini termasuk kedalam golongan virus .vbs. Walaupun virus ini tidak begitu berbahaya, namun kita juga harus tetap waspada karena virus ini akan mengakibatkan kerja komputer menjadi berat. Virus ini dengan cara membuat file ” autorun.inf, dekstop.ini, fanny.bmp, thumb.db, serta file shortcut yang berextensi .lnk “ pada setiap drive dan folder. semakin banyak Folder didalam komputer kita, maka akan semakin banyak pula shortcut yang dibuat oleh virus ini.


Langkah-langkah untuk mencegah atau paling tidak menguranginya adalah sebagai berikut ;
  1. Matikan terlebih dahulu System Restore pada semua drive ( My Computer, Properties, System Restore, beri centang pada Turn off System Restore on All Drives
  2. Matikan proses “wscript.exe”  (Task manager. services, wscript.exe, klik kanan pada wscript exe, end process/end process tree)
  3. Buka windows explorer, klik menu “Tool” lalu pilih “Folder Option”, selanjutnya pada tab “View” klik “Show hidden files and folders”, hilangkan tanda contreng pada “Hide extensions for known file types” dan hilangkan juga tanda contreng pada Hide protected operating system files. Klik OK.
  4. Klik tombol “Search”, Klik All Files and Folders, Pada bagian All or part of the file name ketik : Autorun.inf, pada bagian Look in klik “My Computer”, lalu beri centang semua pada bagian More Advanced Options lalu hapus semua file yang telah ditemukan.
  5. Setelah Proses pada No. 4 selesai, lakukan proses sama seperti No. 4. Tapi pada kolom All or Part of the file name di isi dengan Dekstop.ini. Hapus juga file ini.
  6. Setelah Proses pada No. 5 selesai, lakukan proses sama seperti No. 4. Tapi pada kolom All or Part of the file name di isi dengan *.lnk >>>( LNK bukan ink ). Hapus juga file ini. tapi kamu harus hati-hati jangan sampai salah menghapus, Ciri dari shortcut folder yang dibuat oleh virus yaitu ketika kita menunjuk folder tersebut maka akan muncul link dari shortcut tersebut yaitu ke arah windows/system32, itu adalah shortcut yang harus kita hapus
Ini adalah sedikit dari sekian banyak tips yang aku ketahui dapat mengatasi virus shortcut. Selamat mencoba..!! 

Cara menghilangkan Virus di Flashdisk

Makin meningkatnya penggunaan flash disk, membuat pembuat virus mengalihkan sasarannya ke media penyimpanan yang simple tersebut, bukan hanya menanamkan virus tetapi juga efek yang dihasilkan beraneka ragam, salah satunya isi yang ada di flash disk, seperti file atau folder disembunyikan (Hidden).
Gimana cara menanggulangi kasus tersebut? , coba ikuti langkah-langkah di bawah ini :
Menghilangkan virus
Langkah Pertama
1.Pastikan antivirus terupdate
2.Masukkan flash disk ke PC atau Laptop
3.Jangan membuka kotak dialog yang muncul ketika flash disk dimasukkan ke PC atau laptop.
Langkah kedua
1.Buka windows Explorer atau My Computer
2.Klik kanan mouse di posisi drive flash disk,biasanya F:
3.Kemudian pilih scan virus sesuai anti virus yang digunakan
(“ingat”, biasakan antivirus terupdate)
Mengembalikan data
Setelah virus benar-benar hilang dari flash disk, sekarang saatnya mengembalikan data yang disembunyikan (Hidden). Berikut langkah-langkahnya:
1.Buka Command Prompt, bisa dengan cara klik Start – Run- ketik cmd atau command (untuk Windows 98/ME).
2.Setelah terbuka jendela command prompt,kemudian ketik attrib -h -r -s -a /s /d f:
(dengan catatan berada di drive C, sebagai contoh; C:\Documents and Settings\test> attrib -h -r -s -a /s /d f: )
3.Lalu setelah perintah tersebut diketikkan,kemudian enter.
4.Apabila langkah no.2 tidak berhasil, anda pindahkan posisinya dari drive C ke drive flash disk (biasanya F), untuk memindahkan posisi drive, ikuti langkah berikut, apabila posisi flash disk di komputer atau laptop ada di drive F, maka (sebagai contoh);C:\Documents and Settings\test> F: kemudian enter maka akan pindah ke drive F:\>
5.Setelah berada di posisi drive flash disk kemudian ketik perintah yang sama dengan langkah no.2, namun untuk f: yang berada di belakang dihilangkan, sebagai contoh :
F:\> attrib -h -r -s -a /s /d , kemudian enter.
6.Sesudah proses tersebut, sekarang coba cek folder atau file yang ada di flash disk.

Cara menghilangkan taskbar dengan mudah

kali ini Blog tentang Computer tips and tricks, software download menyajikan tema menghilangkan taskbar. Jadi taskbar tidak kelihatan sama sekali. Berbeda dengan pengaturan taskbar auto hide. Pada pengaturan taskbar auto hide, taskbar akan menjadi kelihatan. Namun saat mouse mengarah pada taskbar, maka taskbar akan muncul dan berfungsi seperti biasanya. Untuk mengaktifkan auto hide taskbar bisa dilakukan dengan langkah mudah yaitu Klik kanan pada taskbar kemudian pilih properties. Beri tanda centang pada pada Autohide the taskbar kemudian klik OK.



Untuk menghilangkan taskbar ini kita membutuhkan tools yang bernama taskbar eliminator yang berukuran 556 KB. Tools portable ini pengoperasiannya sangat mudah dan efektif untuk menghilangkan taskbar pada windows xp, vista maupun windows 7. Klik ganda file taskbar eliminator ini kemudian taskbar didesktop shobat akan langsung hilang. Untuk memunculkan tampilan program ini bisa dilakukan dengan menekan combinasi tombol Ctrl + Alt + T, maka tampilan dari aplikasi taskbar eliminator akan muncul. Dari sini kita bisa mengatur supaya aplikasi ini berjalan saat windows startup atau tidak. Kitapun dapat dengan mudah menghilangkan taskbar dan mengembalikan atau memunculkannya lagi hanya dengan menekan combinasi tombol Alt + T pada keyboard.

Tools ini support untuk :
windows xp
windows vista
windows 7

Jika berminat untuk mencoba silahkan download pada link dibawah ini :



Cara membuat file iso dengan Aplikasi Free Iso Creator

Setelah aplikasi free iso creator didownload, silahkan install aplikasi tersebut dengan cara yang seperti pada umumnya,  yaitu  tinggal doble klik, kemudian klik tombol next next dan next sampai finish. Jika sudah berhasil terinstal silahkan ikuti tahap tahapan cara membuat file iso di bawah ini.
1.  yang pertama silahkan buka aplikasi free iso creator
2.  gambar di bawah ini merupakan tampilan antar muka aplikasi free iso creator, yang sudah saya lengkapi dengan fungsi fungsi pada tombol-tombol yang ada pada free iso creator.

3.  Untuk menambahkan file klik pada tombol Add files, sedangkan untuk menambahkan folder klik pada Add folder. perlu diketahui sebelum menambahkan folder sebaiknya klik dulu pada folder new seperti yang saya lingkari. karena kalau langsung menambahkan folder tanpa kamu klik dulu folder New, nanti folder yang kedua dan ketiga akan masuk pada Sub folder pada folder yang sebelumnya kamu tambahkan.
Jika file dan/ atau folder sudah ditambahkan, klik tombol Save ISO as, untuk memberikan nama file iso yang akan disimpan.


4.  pada contoh di bawah ini nama file yang saya gunakan adalah Coba Data, jika sudah diisi silahkan klik tombol Save.


5.  Tanda bahwa file iso telah diberi nama, ditunjukkan seperti gambar di bawah ini, yaitu di bagian bawah ISO path. Setelah yakin file iso telah diberi nama, silahkan klik tombol Convert untuk memulai menjadikan file iso. Cepat lambatnya proses konversi tergantung pada besar kecilnya kumpulan data atau file yang dijadikan file ISO.


Jika proses convert  file  iso telah selesai akan muncul pemberitahuan seperti gambar di bawah ini.  Jika ingin melihat langsung hasil convertnya, klik pada tombol Yes.


nanti akan ditampilkan file ISO nya seperti gambar di bawah ini. icon filenya seperti format winrar, karena winrar juga bisa mendeteksi file ISO, tapi sebenarnya format filenya adalah ISO.


Cara membuat file iso sangat mudah bukan??? semoga pa