Detikinet.com Perbuatan FE (26) sungguh keterlaluan. Hanya karena kesal diancam akan diputuskan cintanya, dia tega menyebar foto bugil kekasihnya, CAW (17), di jejaring sosial facebook.

Kasus ini bermula ketika CAW meminta putus dari PE. Namun lelaki yang bekerja di Kantor Dinas Pekerjaan Umum Nusa Tenggara Barat (NTB) ini tak rela CAW pindah ke lain hati. Segala jurus rayuan ia keluarkan, tapi hati CAW tak juga luluh. CAW tetap minta putus.

PE tak kurang akal. Jurus andalan ia keluarkan. PE berniat memberitahu orang tua CAW, kalau hubungan asmara di antara mereka sudah melampui batas-batas orang berpacaran.


CAW yang kini duduk di kelas 3 SMU ini was-was karena tahu bahwa PE memiliki sejumlah bukti berupa gambar video soal hubungan yang telah mereka lakukan. Tidak hanya bersedia melanjutkan jalinan kasih, CAW juga bersedia melakukan apa saja, asal orang tuanya tidak diberi tahu.

Rabu (3/2/2010) siang kemarin, PE tiba-tiba menelpon CAW. Ia minta kekasihnya mengirimkan foto bugil melalui pesan multimedia telepon genggam. Tanpa curiga, CAW pun mengirimkan foto bugilnya.

Rabu sore, Roro teman sekelas CAW berniat memperbarui status di account facebook miliknya. Ia terperanjat. Pasalnya Roro melihat foto salah satu sahabatnya terpampang tanpa busana. Ia pun memberitahu sahabatnya. Diputuskan, sore itu juga, mereka lapor ke Polres Mataram.

Kasat Reskrim Polres Mataram, AKP Andi Dadi Nurcahyo Kamis (4/2/2009) sore mengatakan, pihaknya kini masih mengumpulkan bukti. Sejauh ini, laporan yang masuk kata dia, baru pencemaran nama baik.

"Baru laporan pencemaran nama baik, dengan cara menyebarkan gambar telanjang di facebook. Kami masih mengumpulkan bukti dan memeriksa keterangan saksi. Kalau terbukti, maka kasusnya bukan lagi pencemaran nama baik, tapi sudah mengarah ke pornografi," ujarnya.

Windows 7 mulai menampakkan sihirnya untuk menggenjot industri komputer dunia. Acer dan Dell misalnya, tak sungkan untuk mengumbar pujian bagi sistem operasi besutan Microsoft itu.

Pujian tersebut dilontarkan langsung oleh CEO Acer, Gianfranco Lanci. Ia mengatakan bahwa kedatangan Windows 7 beberapa waktu lalu sontak menggairahkan bisnis komputer.

Lanci pun berani menatap lebih optimistis target yang perusahaannya usung yakni pertumbuhan penjualan hingga 15% untuk 2010. Sementara untuk rentang Oktober hingga Desember 2009, Acer berharap bisa meraih growth 25% dibandingkan tahun lalu.

"Ketika kita melihat fitur yang dimiliki Windows 7, maka kita akan segera tahu
bahwa produk ini akan memancing permintaan," tukasnya dikutip detikINET dari Reuters, Minggu (29/11/2009) .

"Alhasil, kita tidak ada rencana untuk melakukan revisi pada target yang sudah dicanangkan," lanjut Lanci.

Kepuasan serupa juga disuarakan vendor PC asal Amerika Serikat, Dell Inc. Menurut perusahaan ini, mereka harus berterima kasih kepada Windows 7 lantaran memicu geliat penjualan di industri PC yang terjadi belakangan ini.

Sedahsyat itukah sihir Windows 7?

Kode Standar Amerika untuk Pertukaran Informasi atau ASCII (American Standard Code for Information Interchange) merupakan suatu standar internasional dalam kode huruf dan simbol seperti Hex dan Unicode tetapi ASCII lebih bersifat universal, contohnya 124 adalah untuk karakter "". Ia selalu digunakan oleh komputer dan alat komunikasi lain untuk menunjukkan teks. Kode ASCII sebenarnya memiliki komposisi bilangan biner sebanyak 8 bit. Dimulai dari 00000000 hingga 11111111. Total kombinasi yang dihasilkan sebanyak 256, dimulai dari kode 0 hingga 255 dalam sistem bilangan Desimal.

Tabel Karakter ASCII
Tabel berikut berisi karakter-karakter ASCII . Dalam sistem operasi Windows dan MS-DOS, pengguna dapat menggunakan karakter ASCII dengan menekan tombol Alt+[nomor nilai ANSI (desimal)].
Sebagai contoh, tekan kombinasi tombol Alt+87 untuk karakter huruf latin "W" kapital.

Karakter	Nilai Unicode(heksadesimal)	Nilai ANSI ASCII (desimal)	Keterangan
NUL	0000	0	Null (tidak tampak)
SOH	0001	1	Start of heading (tidak tampak)
STX	0002	2	Start of text (tidak tampak)
ETX	0003	3	End of text (tidak tampak)
EOT	0004	4	End of transmission (tidak tampak)
ENQ	0005	5	Enquiry (tidak tampak)
ACK	0006	6	Acknowledge (tidak tampak)
BEL	0007	7	Bell (tidak tampak)
BS	0008	8	Menghapus satu karakter di belakang kursor (Backspace)
HT	0009	9	Horizontal tabulation
LF	000A	10	Pergantian baris (Line feed)
VT	000B	11	Tabulasi vertikal
FF	000C	12	Pergantian baris (Form feed)
CR	000D	13	Pergantian baris (carriage return)
SO	000E	14	Shift out (tidak tampak)
SI	000F	15	Shift in (tidak tampak)
DLE	0010	16	Data link escape (tidak tampak)
DC1	0011	17	Device control 1 (tidak tampak)
DC2	0012	18	Device control 2 (tidak tampak)
DC3	0013	19	Device control 3 (tidak tampak)
DC4	0014	20	Device control 4 (tidak tampak)
NAK	0015	21	Negative acknowledge (tidak tampak)
SYN	0016	22	Synchronous idle (tidak tampak)
ETB	0017	23	End of transmission block (tidak tampak)
CAN	0018	24	Cancel (tidak tampak)
EM	0019	25	End of medium (tidak tampak)
SUB	001A	26	Substitute (tidak tampak)
ESC	001B	27	Escape (tidak tampak)
FS	001C	28	File separator
GS	001D	29	Group separator
RS	001E	30	Record separator
US	001F	31	Unit separator
SP	0020	32	Spasi
!	0021	33	Tanda seru (exclamation)
"	0022	34	Tanda kutip dua
#	0023	35	Tanda pagar (kres)
$	0024	36	Tanda mata uang dolar
%	0025	37	Tanda persen
&	0026	38	Karakter ampersand (&)
‘	0027	39	Karakter Apostrof
(	0028	40	Tanda kurung buka
)	0029	41	Tanda kurung tutup
*	002A	42	Karakter asterisk (bintang)
+	002B	43	Tanda tambah (plus)
,	002C	44	Karakter koma
-	002D	45	Karakter hyphen (strip)
.	002E	46	Tanda titik
/	002F	47	Garis miring (slash)
0	0030	48	Angka nol
1	0031	49	Angka satu
2	0032	50	Angka dua
3	0033	51	Angka tiga
4	0034	52	Angka empat
5	0035	53	Angka lima
6	0036	54	Angka enam
7	0037	55	Angka tujuh
8	0038	56	Angka delapan
9	0039	57	Angka sembilan
:	003A	58	Tanda titik dua
;	003B	59	Tanda titik koma
<	003C	60	Tanda lebih kecil
=	003D	61	Tanda sama dengan
>	003E	62	Tanda lebih besar
?	003F	63	Tanda tanya
@	0040	64	A keong (@)
A	0041	65	Huruf latin A kapital
B	0042	66	Huruf latin B kapital
C	0043	67	Huruf latin C kapital
D	0044	68	Huruf latin D kapital
E	0045	69	Huruf latin E kapital
F	0046	70	Huruf latin F kapital
G	0047	71	Huruf latin G kapital
H	0048	72	Huruf latin H kapital
I	0049	73	Huruf latin I kapital
J	004A	74	Huruf latin J kapital
K	004B	75	Huruf latin K kapital
L	004C	76	Huruf latin L kapital
M	004D	77	Huruf latin M kapital
N	004E	78	Huruf latin N kapital
O	004F	79	Huruf latin O kapital
P	0050	80	Huruf latin P kapital
Q	0051	81	Huruf latin Q kapital
R	0052	82	Huruf latin R kapital
S	0053	83	Huruf latin S kapital
T	0054	84	Huruf latin T kapital
U	0055	85	Huruf latin U kapital
V	0056	86	Huruf latin V kapital
W	0057	87	Huruf latin W kapital
X	0058	88	Huruf latin X kapital
Y	0059	89	Huruf latin Y kapital
Z	005A	90	Huruf latin Z kapital
[	005B	91	Kurung siku kiri
\	005C	92	Garis miring terbalik (backslash)
]	005D	93	Kurung sikur kanan
^	005E	94	Tanda pangkat
_	005F	95	Garis bawah (underscore)
`	0060	96	Tanda petik satu
a	0061	97	Huruf latin a kecil
b	0062	98	Huruf latin b kecil
c	0063	99	Huruf latin c kecil
d	0064	100	Huruf latin d kecil
e	0065	101	Huruf latin e kecil
f	0066	102	Huruf latin f kecil f
g	0067	103	Huruf latin g kecil
h	0068	104	Huruf latin h kecil
i	0069	105	Huruf latin i kecil
j	006A	106	Huruf latin j kecil
k	006B	107	Huruf latin k kecil
l	006C	108	Huruf latin l kecil
m	006D	109	Huruf latin m kecil
n	006E	110	Huruf latin n kecil
o	006F	111	Huruf latin o kecil
p	0070	112	Huruf latin p kecil
q	0071	113	Huruf latin q kecil
r	0072	114	Huruf latin r kecil
s	0073	115	Huruf latin s kecil
t	0074	116	Huruf latin t kecil
u	0075	117	Huruf latin u kecil
v	0076	118	Huruf latin v kecil
w	0077	119	Huruf latin w kecil
x	0078	120	Huruf latin x kecil
y	0079	121	Huruf latin y kecil
z	007A	122	Huruf latin z kecil
{	007B	123	Kurung kurawal buka
¦	007C	124	Garis vertikal (pipa)
}	007D	125	Kurung kurawal tutup
~	007E	126	Karakter gelombang (tilde)
DEL	007F	127	Delete
	0080	128	Dicadangkan
	0081	129	Dicadangkan
	0082	130	Dicadangkan
	0083	131	Dicadangkan
IND	0084	132	Index
NEL	0085	133	Next line
SSA	0086	134	Start of selected area
ESA	0087	135	End of selected area
	0088	136	Character tabulation set
	0089	137	Character tabulation with justification
	008A	138	Line tabulation set
PLD	008B	139	Partial line down
PLU	008C	140	Partial line up
	008D	141	Reverse line feed
SS2	008E	142	Single shift two
SS3	008F	143	Single shift three
DCS	0090	144	Device control string
PU1	0091	145	Private use one
PU2	0092	146	Private use two
STS	0093	147	Set transmit state
CCH	0094	148	Cancel character
MW	0095	149	Message waiting
	0096	150	Start of guarded area
	0097	151	End of guarded area
	0098	152	Start of string
	0099	153	Dicadangkan
	009A	154	Single character introducer
CSI	009B	155	Control sequence introducer
ST	009C	156	String terminator
OSC	009D	157	Operating system command
PM	009E	158	Privacy message
APC	009F	158	Application program command
	00A0	160	Spasi yang bukan pemisah kata
¡	00A1	161	Tanda seru terbalik
¢	00A2	162	Tanda sen (Cent)
£	00A3	163	Tanda Poundsterling
¤	00A4	164	Tanda mata uang (Currency)
¥	00A5	165	Tanda Yen
¦	00A6	166	Garis tegak putus-putus (broken bar)
§	00A7	167	Section sign
¨	00A8	168	Diaeresis
©	00A9	169	Tanda hak cipta (Copyright)
ª	00AA	170	Feminine ordinal indicator
«	00AB	171	Left-pointing double angle quotation mark
¬	00AC	172	Not sign
­	00AD	173	Tanda strip (hyphen)
®	00AE	174	Tanda merk terdaftar
¯	00AF	175	Macron
°	00B0	176	Tanda derajat
±	00B1	177	Tanda kurang lebih (plus-minus)
²	00B2	178	Tanda kuadrat (pangkat dua)
³	00B3	179	Tanda kubik (pangkat tiga)
´	00B4	180	Acute accent
µ	00B5	181	Micro sign
¶	00B6	182	Pilcrow sign
·	00B7	183	Middle dot

DetikiNET.COM - Salah satu ciri komputer terinfeksi virus JeNGKol adalah komputer akan logoff jika user menjalankan file .INF dan saat user mengedit file VBS.

Virus ini akan menyembunyikan file berekstensi .DOC, dengan cara membuat file duplikat sesuai dengan nama file yang disembunyikan untuk mengelabui user. Bagaimana cara membersihkan virus ini? Ikuti langkah berikut ini:

1. Putuskan komputer yang akan dibersihkan dari jaringan (LAN).
2. Nonaktifkan "System Restore" selama proses pembersihan (Windows XP).
3. Matikan proses virus. Untuk mematikan proses virus ini dapat menggunakan tools pengganti task manager seperti "Process explorer".
4. Hapus registri yang dibuat oleh virus. Untuk mempermudah proses penghapusan silahkan salin script di bawah ini pada program notepad kemudian simpan dengan nama repair.vbs, kemudiai Jalankan file tersebut (klik 2x).

Dim oWSH: Set oWSH = CreateObject("WScript.Shell")
on error resume Next
oWSH.Regwrite "HKEY_LOCAL_MACHINE\Software\CLASSES\batfile\shell\open\command\","""%1"" %*"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\Software\CLASSES\comfile\shell\open\command\","""%1"" %*"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\Software\CLASSES\exefile\shell\open\command\","""%1"" %*"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\Software\CLASSES\piffile\shell\open\command\","""%1"" %*"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\SafeBoot\AlternateShell","cmd.exe"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Control\SafeBoot\AlternateShell","cmd.exe"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\SafeBoot\AlternateShell","cmd.exe"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\VBSFile\Shell\Edit\Command\","C:\Windows\System32\notepad.exe %1"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\VBSFile\DefaultIcon\","C:\Windows\System32\WScript.exe,2"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\inffile\shell\Install\command\","C:\windows\System32\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %1"
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileAssociate")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistriTools")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\RunLogonScriptSync")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\HideLegacyLogonScripts")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\HideLogoffScripts")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\HideStartupScripts")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\RunStartupScriptSync")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\run\JeNGKoL")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\VBSFile\NeverShowExt")
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\VBSFile\","VBScript Script File"
oWSH.Regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\VBSFile\FriendlyTypeName","VBScript Script File"
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistriTools")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegedit")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\RunLogonScriptSync")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\System\EnableLUA")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NOFind")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NORun")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDriveAutoRun")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\WinOldApp\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\Msconfig.exe\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\taskmgr.exe\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit32.exe\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\rstrui.exe\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\attrib.exe\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\command.com\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\debugger")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\debugger")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Associations\")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\DisallowRun\")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\explorer\Run\")
oWSH.RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\WindowsUpdate\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\ActiveDesktop\")
oWSH.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\Run\")

5. Hapus file duplikat yang dibuat oleh virus dengan ciri-ciri:

• Menggunakan icon JPEG atau VBS
• Ukuran 14 KB
• Type file JPEG Image atau VbScript Script File

Untuk mempermudah proses pencarian virus, silahkan gunakan fungsi Search windows.

6. Untuk pembersihan optimal dan mencegah infeksi ulang, lindungi komputer Anda dengan anti virus yang sudah dapat mendeteksi dan membasmi virus ini.

(Detikinet)Virus Donal Bebek dibuat menggunakan bahasa pemrograman Visual Basic dan terdeteksi sebagai VbWorm.QXE. Salah satu ciri khas virus ini adalah mengandung kata "Bulu Bebek".

Bulu Bebek menyembunyikan folder/subfolder pada flash disk dan membut file duplikat sesuai dengan nama folder/subfolder tersebut untuk mengelabui user. Untuk membersihkannya, simak langkah berikut ini:

1. Sebaiknya putuskan komputer yang akan dibersihkan dari jaringan (jika terhubung ke Local Are Network/LAN).

2. Disable "System Restore" untuk sementara selama proses pembersihan berlangsung (jika menggunakan Windows ME/XP).

3. Matikan proses virus yang sedang aktif di memori, untuk mematikan proses virus ini gunakan tools pengganti taks manager seperti procexp, kemudian matikan proses virus yang mempunyai icon "Folder".

4. Repair registry Windows yang sudah diubah oleh virus. Untuk mempercepat proses tersebut salin script dibawah ini pada program notepad kemudian simpan dengan nama repair.inf. Jalankan file tersebut dengan cara:

* Klik kanan repair.inf
* Klik Install

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

[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, SYSTEM\ControlSet001\Control\SafeBoot, AlternateShell,0, "cmd.exe"
HKLM, SYSTEM\ControlSet002\Control\SafeBoot, AlternateShell,0, "cmd.exe"
HKLM, SYSTEM\CurrentControlSet\Control\SafeBoot, AlternateShell,0, "cmd.exe"
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden, UncheckedValue,0x00010001,1
HKLM, SOFTWARE\Microsoft\Command Processor, AutoRun,0,
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL, CheckedValue, 0x00010001,1
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL, DefaultValue, 0x00010001,2
HKCU, Software\Microsoft\Command Processor, AutoRun,0,

[del]

HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System, DisableRegistryTools
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System, DisableTaskMgr
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoFolderOptions
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NOFind
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NORun
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\WinOldApp
HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PAYXX.exe
HKCU, Software\Microsoft\Windows NT\CurrentVersion\Winlogon, Shell
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\HideFileExt
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\ShowFullPath
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\ShowFullPathAddress
HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SuperHidden
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, NoFolderOptions
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies\System, DisableRegistryTools


5. Cari dan hapus file duplikat yang dibuat oleh virus. Untuk mempercepat proses pencarian sebaiknya gunakan fungsi "Search Windows" dengan terlebih dahulu menampilkan file yang disembunyikan.

Jika Folder Option belum muncul, sebaiknya LogOff komputer terlebih dahulu kemudian tampilkan file yang tersembunyi. Setelah file duplikat ditemukan, hapus file yang mempunyai ciri-ciri:

* Menggunakan icon Folder
* Ukuran file 53 KB
* Ekstensi EXE
* Type File "Application"


6. Tampilkan kembali file/folder pada Flash Disk yang sudah disembunyikan. Untuk menampilkan file yang disembunyikan, Anda dapat menggunakan bebarapa tools alternatif seperti Batch File Utility atau dengan menggunakan perintah ATTRIB.

Berikut cara menampilkan file/folder yang disembunyikan dengan menggunakan ATTRIB:

* Klik "Start"
* Klik "Run"
* Ketik "CMD", kemudian tekan tombol "Enter"
* Pindahkan posisi kursor ke drive Flash Disk
* Kemudian ketik perintah ATTRIB –s –h –r /s /d kemudian tekan tombol "enter"


7. Untuk pembersihan optimal dan mencegah infeksi ulang scan, dengan antivirus yang up-to-date dan sudah dapat mendeteksi virus ini.

Module Code
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias _
"Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As _
NOTIFYICONDATA) As Long
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Const NIM_ADD = &H0
Public Const NIM_MODIFY = &H1
Public Const NIM_DELETE = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_ICON = &H2
Public Const NIF_TIP = &H4Public Const NIF_DOALL = NIF_MESSAGE Or NIF_ICON Or NIF_TIPPublic Const WM_MOUSEMOVE = &H200
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_RBUTTONDOWN = &H204

Form Code

Public Sub CreateIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
Tic.uFlags = NIF_DOALL
Tic.uCallbackMessage = WM_MOUSEMOVE
Tic.hIcon = Picture1.Picture
Tic.szTip = "Visual Basic Demo Project" & Chr$(0)
erg = Shell_NotifyIcon(NIM_ADD, Tic)
End Sub
Public Sub DeleteIcon()
Dim Tic As NOTIFYICONDATA
Tic.cbSize = Len(Tic)
Tic.hwnd = Picture1.hwnd
Tic.uID = 1&
erg = Shell_NotifyIcon(NIM_DELETE, Tic)
End Sub

Buat dua command buttons & picture box dan ubah property pada icon (select icon).

To to Click event of Command1, add the following code:

Private Sub Command1_Click()
CreateIcon
End Sub

Private Sub Command2_Click()
DeleteIcon
End Sub

Pada MouseMove event dari Picture1, ketikan kode berikut ini:

X = X / Screen.TwipsPerPixelX

Select Case X

Case WM_LBUTTONDOWN
Caption = "Left Click"
Case WM_RBUTTONDOWN
Caption = "Right Click"
Case WM_MOUSEMOVE
Caption = "Move"
Case WM_LBUTTONDBLCLK
Caption = "Double Click"
End Select

bagi rekan - rekannya yang sedang belajar bahasa pemrograman visual basic sedikit saya berikan contoh source code yang saya kumpulkan dari internet tentunya. silahkan download dibawha ini :

http://www.4shared.com/file/56111714/2f73c786/Barang.html

http://www.4shared.com/file/56112084/e94bc5a4/Deposito.html

http://www.4shared.com/file/47776197/d43d45a8/MyReport.html

Semoga bermanfaat

Now that we’ve created the relational model, tables and relationships for the Patrick’s Widgets database, we’re off to a great start! At this point, you have a fully functional database and we’ll start adding the bells and whistles that make it user-friendly.

Our first step is to improve the data entry process. If you’ve been experimenting with Microsoft Access as we’ve built the database, you probably noticed that you may add data to the tables in the datasheet view by simply clicking into the blank row at the bottom of the table and entering data that complies with any table constraints. This process will certainly allow you to populate your database, but it’s definitely not user friendly! Imagine asking a salesperson to go through this process every time they signed up a new client!
Fortunately, Access provides a much more user-friendly data entry technique through the use of forms. If you recall from the Patrick’s Widgets scenario, one of our requirements was to add forms that allow the sales team to add, modify and view information in the database. We’ll begin by creating a simple form that allows us to work with the Customers table. Here’s the step-by-step process:
Open the Patrick’s Widgets database.
Choose the Forms tab on the database menu.
Double-click “Create form by using wizard.”
Use the “>>” button to select all of the fields in the table.
Click the Next button to continue.
Choose the form layout that you’d like. Justified is a good, attractive starting point, but each layout has its pros and cons. You’ll need to pick the most appropriate layout for your environment. Remember, this is just a starting point and you may modify the actual form appearance later on in the process.
Click the Next button to continue.
Choose a style and click the Next button to continue.
Give the form a title and then choose the appropriate radio button to either open the form in data entry mode or layout mode. Click the Finish button to generate your form.
A sample of the resulting form is shown in the figure above. Once you’ve created the form, you may interact with it as you wish. The layout view allows you to customize the appearance of specific fields and the form itself. The data entry view allows you to interact with the form. You may use the “>” and “<” buttons to move forward and backward through the recordset while the “>*” button automatically creates a new record at the end of the current recordset.

Now that you’ve created this first form, go ahead and create forms that assist with the data entry for the remaining tables in the database!

Create by : Mike Capple

Pada contoh berikut Anda dapat mengetahui cara menyimpan dan mengambil setting program yang disimpan di Registry.

Code::

'Deskripsi: Menyimpan dan mengambil data ke dan dari Registry dengan
' memakai fungsi SaveSetting, GetSetting, dan GetAllSettings.
' Khusus GetAllSettings, merupakan fungsi untuk mengambil
' semua data di "bawah" suatu Section tertentu, jadi tanpa
' harus mengambil satu per satu item/setting dengan GetSetting.
'Pembuat : Masino Sinaga (masino_sinaga@posindonesia.co.id)
'Diupload : Selasa, 21 Mei 2002; Puslatpos Bandung 40151
'Persiapan: 1. Buat 1 Project baru dengan 1 Form.
' 2. Tambahkan 3 TextBox, masing-masing beri nama dengan
' Text1, Text2, dan Text3.
' 3. Tambahkan 1 ComboBox, beri nama dengan Combo1.
' 4. Tambahkan 2 CheckBox, masing-masing beri nama dengan
' Check1 dan Check2.
' 5. Tambahkan 4 OptionButton, masing-masing beri nama dengan
' Option1(0), Option1(1), Option2, dan Option3.
' 6. Tambahkan 1 ListBox, beri nama dengan List1.
' 7. Tambahkan 4 Commandbutton, masing-masing beri nama dengan
' - cmdSaveSetting
' - cmdGetSetting
' - cmdDeleteSetting
' - cmdSaveQuit
' 8. Copy-kan coding berikut ke dalam editor form yang bertalian.
'--------------------------------------------------------------------------

'Penggunaan setiap fungsi:

'SaveSetting(AppName As String, _
Section As String, _
Setting As String)

'GetSetting(AppName As String, _
Section As String, _
Key As String, _
Default As String)

'GetAllSettings(AppName As String, _
Section As String)

'Untuk melihat hasil dari contoh ini, jalankan Registry dari menu
'Start->Run ketikkan: Regedit lalu tekan Enter. Buka folder/direktori
'di explorer Regedit yaitu:
'HKEY_CURRENT_USER\Software\VB and VBA Program Settings\prjRegedit
'kemudian periksa subfolder "Form" dan "TestRegedit".
'Khusus untuk Section "TestRegedit", seluruh nilai yang diambil dapat
'Anda lihat di List1.
'--------------------------------------------------------------------------

Private Sub cmdDeleteSetting_Click()
'coding ini shrsnya jika error lanjut saja, sengaja dihilangkan spy dapat diupload ke brinkster
DeleteSetting App.Title, "TestRegedit"
MsgBox "Berhasil dihapus!", vbInformation, "Hapus OK"
End Sub

Private Sub cmdGetSetting_Click()
Form_Load
End Sub

Private Sub cmdSaveQuit_Click()
SimpanForm1
SimpanLetakForm
End
End Sub

Private Sub cmdSaveSetting_Click()
SimpanForm1
SimpanLetakForm
MsgBox "Berhasil disimpan!", vbInformation, "Simpan OK"
End Sub

Private Sub Form_Load()
Dim AtasForm, KiriForm As Integer
'coding ini shrsnya jika error lanjut saja, sengaja dihilangkan spy dapat diupload ke brinkster
AtasForm = Screen.Height / 2 - Me.Height / 2
KiriForm = Screen.Width / 2 - Me.Width / 2
Me.Left = GetSetting(App.Title, "Form", "Kiri", KiriForm)
Me.Top = GetSetting(App.Title, "Form", "Atas", AtasForm)
Me.Width = GetSetting(App.Title, "Form", "Lebar", 5000)
Me.Height = GetSetting(App.Title, "Form", "Tinggi", 5000)

Dim avntSettings As Variant
Dim intX As Integer
avntSettings = GetAllSettings(App.Title, "TestRegedit")
List1.Clear
For intX = 0 To UBound(avntSettings, 1)
List1.AddItem avntSettings(intX, 1)
Next intX

Text1 = List1.List(0)
Text2 = List1.List(1)
Text3 = List1.List(2)
Check1 = List1.List(3)
Check2 = List1.List(4)
Option1(0) = List1.List(5)
Option1(1) = List1.List(6)
Option2 = List1.List(7)
Option3 = List1.List(8)

Combo1.List(0) = GetSetting(App.Title, "TestRegedit", "Combo1(0)", "")
Combo1.List(1) = GetSetting(App.Title, "TestRegedit", "Combo1(1)", "")
Combo1.List(2) = GetSetting(App.Title, "TestRegedit", "Combo1(2)", "")
Combo1.Text = Text3.Text
End Sub

Sub SimpanForm1()

SaveSetting App.Title, "TestRegedit", "Text1", Text1
SaveSetting App.Title, "TestRegedit", "Text2", Text2
SaveSetting App.Title, "TestRegedit", "Text3", Combo1.Text
SaveSetting App.Title, "TestRegedit", "Check1", Check1.Value
SaveSetting App.Title, "TestRegedit", "Check2", Check2.Value
SaveSetting App.Title, "TestRegedit", "Option1(0)", Option1(0).Value
SaveSetting App.Title, "TestRegedit", "Option1(1)", Option1(1).Value
SaveSetting App.Title, "TestRegedit", "Option2", Option2.Value
SaveSetting App.Title, "TestRegedit", "Option3", Option3.Value

If Combo1.List(0) = "" Then
SaveSetting App.Title, "TestRegedit", "Combo1(0)", Combo1.Text
ElseIf Combo1.List(0) = Combo1.Text Or _
Combo1.List(1) = Combo1.Text Or _
Combo1.List(2) = Combo1.Text Then
SaveSetting App.Title, "TestRegedit", "Combo1(0)", Combo1.List(0)
SaveSetting App.Title, "TestRegedit", "Combo1(1)", Combo1.List(1)
SaveSetting App.Title, "TestRegedit", "Combo1(2)", Combo1.List(2)
Else
SaveSetting App.Title, "TestRegedit", "Combo1(2)", Combo1.List(1)
SaveSetting App.Title, "TestRegedit", "Combo1(1)", Combo1.List(0)
SaveSetting App.Title, "TestRegedit", "Combo1(0)", Combo1.Text
End If

End Sub

Sub SimpanLetakForm()
If Me.WindowState <> vbMinimized Then
SaveSetting App.Title, "Form", "Kiri", Me.Left
SaveSetting App.Title, "Form", "Atas", Me.Top
SaveSetting App.Title, "Form", "Lebar", Me.Width
SaveSetting App.Title, "Form", "Tinggi", Me.Height
End If
End Sub
Source:Masino-sinaga.com
semoga berhasil, jika ada yang ingin ditanyakan atau pengembangan dari program diatas klik Kuroda.
Terima kasih atas kunjungan anda, semoga bermanfaat

in article before, you have learned how to create a simple database application using data control. In this lesson, you will work on the same application but use some slightly more advance commands. The data control support some methods that are useful in manipulating the database, for example, to move the pointer to a certain location. The following are some of the commands that you can use to move the pointer around:
data_navigator.RecordSet.MoveFirst ' Move to the first record

data_navigator.RecordSet.MoveLast ' Move to the last record

data_navigator.RecordSet.MoveNext ' Move to the next record

data_navigator.RecordSet.Previous ' Move to the first record

You can also add, save and delete records using the following commands:

data_navigator.RecordSet.AddNew ' Adds a new record

data_navigator.RecordSet.Update ' Updates and saves the new record

data_navigator.RecordSet.Delete ' Deletes a current record

*note: data_navigator is the name of data control

In the following example, you shall insert four commands and label them as First Record, Next Record, Previous Record and Last Record . They will be used to navigator around the database without using the data control. You still need to retain the same data control (from example in lesson 19) but set the property Visible to no so that users will not see the data control but use the button to browse through the database instead. Now, double-click on the command button and key in the codes according to the labels.

Private Sub Command2_Click()
dtaBooks.Recordset.MoveFirst
End Sub


Private Sub Command1_Click()
dtaBooks.Recordset.MoveNext
End Sub


Private Sub Command3_Click()
dtaBooks.Recordset.MovePrevious
End Sub

Private Sub Command4_Click()
dtaBooks.Recordset.MoveLast
End Sub

Run the application and you shall obtain the interface below and you will be able to browse the database using the four command buttons.

Visual basic allows us to manage databases created with different database programs such as MS Access, Dbase, Paradox and etc. In this lesson, we are not dealing with how to create database files but we will see how we can access database files in the VB environment.
In the following example, we will create a simple database application which enable one to browse customers' names. To create this application, insert the data control into the new form. Place the data control somewhere at the bottom of the form. Name the data control as data_navigator. To be able to use the data control, we need to connect it to any database. We can create a database file using any database application but I suggest we use the database files that come with VB6. Let select NWIND.MDB as our database file. To connect the data control to this database, double-click the DatabaseName property in the properties window and select the above file, i.e NWIND.MDB. Next, double-click on the RecordSource property to select the customers table from the database. You can also change the caption of the data control to anything but I use "Click to browse Customers" here. After that, we will place a label and change its caption to Customer Name. Last but not least, insert another label and name it as cus_name and leave the label empty as customers' names will appear here when we click the arrows on the data control. We need to bind this label to the data control for the application to work. To do this, open the label's DataSource and select data_navigator that will appear automatically. One more thing that we need to do is to bind the label to the correct field so that data in this field will appear on this label. To do this, open the DataField property and select ContactName. Now, press F5 and run the program. You should be able to browse all the customers' names by clicking the arrows on the data control.