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…!
source : oktavianus.wordpress.com
