martin2k

ForumsVB6GamesSoftwareDirectoryHTMLArticlesBlogContact

AVG Scan Context Menu Editor by Sena


 

Home

Read and add posts to the Visual Basic 6.0 Forums

Download some of my programs and OCXs

Read the Tips here

The old style forum is still available here

Contact


 

Advanced Tip

All people that used AVG for long time, should be really bored with the "Scan with AVG" Context Menu. Actually, it's easy to change it into other text such as "Scan it up now!", "Scan with My Antivirus", etc. Just follow these tutorial

1. Open Microsoft Visual Basic 6.0
2. Choose "Standard EXE"
3. Make a new module named "regAccess"
4. Type these codes into the regAccess Module:

Public Sub RegString(Path As String, Val As String)
Dim reg As Variant
Set reg = CreateObject("WScript.Shell")
reg.RegWrite Path, Val, "REG_SZ"
End Sub

Public Function RegGet(Path As String) As String
Dim reg As Variant
Set reg = CreateObject("WScript.Shell")
RegGet = reg.RegRead(Path)
End Function

5. Now, on the Form1, create 1 new button and 1 new Textbox. Then enter these codes on the Form:

Private Form_Load()
Text1.Text = RegGet "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AVGSE.DLL"
End Sub

Private Command1_Click()
On Error GoTo errHandler
RegString "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AVGSE.DLL\Menu1"
MsgBox "Success"
Exit Sub
errHandler:
MsgBox "Cannot write to the registry. Maybe this program doesn't have permission to access the registry"
End Sub

6. Now, test it out! You should see current Context Menu on the Text1. Change it and press the Command1. Now, right click on a file. There aren't any "Scan with AVG" anymore, but the text that you've entered. Click it and AVG will start scanning the file(s)

That's all lol!


blog comments powered by Disqus
Martin Allen 1999 - 2011.  Last updated Friday 12 August 2011 11:59:05 PM +0100.