Source Code “Toolbar Explorer”

oleh Muhammad Nur Kholis

yang udah mahir saya mohon jangan membaca artikel ini………………!
daripada habis habisin volt listrik lebih baik jangan baca dech.
kalau maksa ya udah nih dengan sesuka hati (-_-)?

DOWNLOAD di : http://www.virologi.info/download/Toolbar_Explorer_Source_Code.rar

karna di pasuruan sekarang sering pemadaman listrik

ok lah yaudah ini langsung gw kasih source code nya freeeeeeeeeeeee

1 buah form dengan nama Form1
1 buah modul dengan nama Module1
1 buah textbox dengan nama Text1
3 buah command button dengan nama Command1;Command2;Command3
1 buah timer dengan nama Timer1 dengan interval=500
1 buah commondialog dengan nama CommonDialog1
1 buah frame dengan nama Frame1
‘=======================================================================================
‘AWAL SOURCE FORM
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Timer1_Timer()
If Text1.Text = “” Then
Frame1.Caption = ” HAPUS BACKGROUND TOOLBAR “
Else: Frame1.Caption = ” UBAH BACKGROUND TOOLBAR “
End If
End Sub
Private Sub Command2_Click()
If Frame1.Caption = ” HAPUS BACKGROUND TOOLBAR ” Then
DeleteKey “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapShell”
MsgBox “Background Toolbar Windows Explorer Telah Dihapus”, vbInformation, “Informasi”
ElseIf Frame1.Caption = ” UBAH BACKGROUND TOOLBAR ” Then
CreateKey “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\BackBitmapShell”, Text1.Text
MsgBox “Background Toolbar Windows Explorer Telah Diperbarui”, vbInformation, “Informasi”
Text1.Text = “”
End If
End Sub
Private Sub Command3_Click()
If Frame1.Caption = ” HAPUS BACKGROUND TOOLBAR ” Then
DeleteKey “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\BackBitmap”
MsgBox “Background Toolbar Internet Explorer Telah Dihapus”, vbInformation, “Informasi”
ElseIf Frame1.Caption = ” UBAH BACKGROUND TOOLBAR ” Then
CreateKey “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\BackBitmap”, Text1.Text
MsgBox “Background Toolbar Internet Explorer Telah Diperbarui”, vbInformation, “Informasi”
Text1.Text = “”
End If
End Sub
‘AKHIR SOURCE FORM
‘=======================================================================================
‘AWAL SOURCE MODULE
Public Sub CreateKey(Folder As String, Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject(“wscript.shell”)
b.RegWrite Folder, Value
End Sub
Public Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim b As Object
On Error Resume Next
Set b = CreateObject(“wscript.shell”)
b.RegWrite Folder, Value, “REG_DWORD”
End Sub
Public Sub DeleteKey(Value As String)
Dim b As Object
On Error Resume Next
Set b = CreateObject(“Wscript.Shell”)
b.RegDelete Value
End Sub
‘AKHIR SOURCE MODUL
‘=======================================================================================
NB :
program ini khusus untuk pemula yang baru mengenal bahasa perograman ms vb 6.0
tapi semoga program ini sangat bermanfaat.
kelemahan : hanya bisa menggunakan file bitmap (*.bmp)
semoga bermanfaat bagi semua orang di dunia maya
permintaan : yang memiliki program antivirus tercanggih mohon kirim ke
BlackID47@yahoo.CO.ID dan NFS_Kholis@yahoo.CO.ID dan AssassinsDevil@yahoo.CO.ID
please gw lagi butuh nich(._.)
terima kasih bwt
-kakak new.bie yang ada di pasuruan
-kang aat shadewa
-dan semua orang yang mengenal virologi, sering seringah upload ke virologi.info ya…!