problem with conditional statements in vb.net IDE

[=?Utf-8?B?Y2FyYm8=?=]

I am getting odd behavior in my code, first I thought it was caused by SP1
but now I have the same issue with a vanilla version of VS 2005. When I
execute a function that contains an if statement. i.e.

Dim b As Boolean
Dim i As Integer = 0

If b then
i += 1 'point 1
msgbox(i.toStri ng()) ' point 2
End If

the problem is even though the condition is false the code enters at point
2... and the messagebox appears... What the hell is up with that? I've look
up to see if there is anything online but can't find any answers. Closing VS
2005 doesn't work... Rebooting doesn't work... Can anyone help!

[RobinS]

Doesn't do it under my version of VS2005. What else is in the routine
where you're running this?

Robin S.
-------------------------------------------------
"carbo" <ca***@discussi ons.microsoft.c omwrote in message
news:94******** *************** ***********@mic rosoft.com...

>I am getting odd behavior in my code, first I thought it was caused by
SP1
but now I have the same issue with a vanilla version of VS 2005. When
I
execute a function that contains an if statement. i.e.

Dim b As Boolean
Dim i As Integer = 0

If b then
i += 1 'point 1
msgbox(i.toStri ng()) ' point 2
End If

the problem is even though the condition is false the code enters at
point
2... and the messagebox appears... What the hell is up with that? I've
look
up to see if there is anything online but can't find any answers.
Closing VS
2005 doesn't work... Rebooting doesn't work... Can anyone help!

[=?Utf-8?B?Y2FyYm8=?=]

This isn't the exact code. It was just an example... It happens on a giving
If statement. The first code I had this problem with was similar to the
previous post... and dealt with managed code.

This is the function I'm having an issue with currently

Public Sub InstallHooks()
If hMouseHook = 0 Then
MouseHookProced ure = New Win32.HookProc( AddressOf MouseHookProc)
hMouseHook = Win32.SetWindow sHookEx( _
Win32.WH.WH_MOU SE_LL, _
MouseHookProced ure, _

Marshal.GetHINS TANCE(Reflectio n.Assembly.GetE xecutingAssembl y().GetModules( )(0)), _
0)

If hMouseHook = 0 Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
End If
End If

If hKeyboardHook = 0 Then ' install Keyboard hook
KeyboardHookPro cedure = New Win32.HookProc( AddressOf
KeyboardHookPro c)
hKeyboardHook = Win32.SetWindow sHookEx( _
Win32.WH.WH_KEY BOARD_LL, _
KeyboardHookPro cedure, _

Marshal.GetHINS TANCE(Reflectio n.Assembly.GetE xecutingAssembl y().GetModules( )(0)), _
0)

If (hKeyboardHook = 0) Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
End If
End If
End Sub

even though hKeyboardHook is not 0 it executes Throw New
Exception("SetW indowsHookEx failed.") in the last if.

I can post the rest of the code if you want to try too reproduce the
behavior...

Thanks

"RobinS" wrote:

Doesn't do it under my version of VS2005. What else is in the routine
where you're running this?

Robin S.
-------------------------------------------------
"carbo" <ca***@discussi ons.microsoft.c omwrote in message
news:94******** *************** ***********@mic rosoft.com...

I am getting odd behavior in my code, first I thought it was caused by
SP1
but now I have the same issue with a vanilla version of VS 2005. When
I
execute a function that contains an if statement. i.e.

Dim b As Boolean
Dim i As Integer = 0

If b then
i += 1 'point 1
msgbox(i.toStri ng()) ' point 2
End If

the problem is even though the condition is false the code enters at
point
2... and the messagebox appears... What the hell is up with that? I've
look
up to see if there is anything online but can't find any answers.
Closing VS
2005 doesn't work... Rebooting doesn't work... Can anyone help!

[=?Utf-8?B?Y2FyYm8=?=]

If I add the lines
If (hKeyboardHook = 0) Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
Dim i as Integer ' added line
i=0 ' added line
End If
I get a warning that i is an unused variable... I had no warnings or errors
before adding this code... I am getting the same problem with 2 computers
with different configs.

"carbo" wrote:

This isn't the exact code. It was just an example... It happens on a giving
If statement. The first code I had this problem with was similar to the
previous post... and dealt with managed code.

This is the function I'm having an issue with currently

Public Sub InstallHooks()
If hMouseHook = 0 Then
MouseHookProced ure = New Win32.HookProc( AddressOf MouseHookProc)
hMouseHook = Win32.SetWindow sHookEx( _
Win32.WH.WH_MOU SE_LL, _
MouseHookProced ure, _

Marshal.GetHINS TANCE(Reflectio n.Assembly.GetE xecutingAssembl y().GetModules( )(0)), _
0)

If hMouseHook = 0 Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
End If
End If

If hKeyboardHook = 0 Then ' install Keyboard hook
KeyboardHookPro cedure = New Win32.HookProc( AddressOf
KeyboardHookPro c)
hKeyboardHook = Win32.SetWindow sHookEx( _
Win32.WH.WH_KEY BOARD_LL, _
KeyboardHookPro cedure, _

Marshal.GetHINS TANCE(Reflectio n.Assembly.GetE xecutingAssembl y().GetModules( )(0)), _
0)

If (hKeyboardHook = 0) Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
End If
End If
End Sub

even though hKeyboardHook is not 0 it executes Throw New
Exception("SetW indowsHookEx failed.") in the last if.

I can post the rest of the code if you want to try too reproduce the
behavior...

Thanks

"RobinS" wrote:

Doesn't do it under my version of VS2005. What else is in the routine
where you're running this?

Robin S.
-------------------------------------------------
"carbo" <ca***@discussi ons.microsoft.c omwrote in message
news:94******** *************** ***********@mic rosoft.com...

>I am getting odd behavior in my code, first I thought it was caused by
>SP1
but now I have the same issue with a vanilla version of VS 2005. When
I
execute a function that contains an if statement. i.e.
>
Dim b As Boolean
Dim i As Integer = 0
>
If b then
i += 1 'point 1
msgbox(i.toStri ng()) ' point 2
End If
>
the problem is even though the condition is false the code enters at
point
2... and the messagebox appears... What the hell is up with that? I've
look
up to see if there is anything online but can't find any answers.
Closing VS
2005 doesn't work... Rebooting doesn't work... Can anyone help!

[RobinS]

i is an unused variable because it will never reach those statements.
When you throw an exception, it exits the routine before executing the
next statements. If you really wanted them to be executed, you would
put in a Try/Catch, and put those in the Finally block.

>even though hKeyboardHook is not 0 it executes Throw New
Exception("Set WindowsHookEx failed.") in the last if.

If you put a breakpoint right on that IF statement, and check the value
of hKeyboardHook, it's not 0?

Robin S.
------------------------------
"carbo" <ca***@discussi ons.microsoft.c omwrote in message
news:77******** *************** ***********@mic rosoft.com...

If I add the lines
If (hKeyboardHook = 0) Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
Dim i as Integer ' added line
i=0 ' added line
End If
I get a warning that i is an unused variable... I had no warnings or
errors
before adding this code... I am getting the same problem with 2
computers
with different configs.

"carbo" wrote:

>This isn't the exact code. It was just an example... It happens on a
giving
If statement. The first code I had this problem with was similar to
the
previous post... and dealt with managed code.

This is the function I'm having an issue with currently

Public Sub InstallHooks()
If hMouseHook = 0 Then
MouseHookProced ure = New Win32.HookProc( AddressOf
MouseHookPro c)
hMouseHook = Win32.SetWindow sHookEx( _
Win32.WH.WH_MOU SE_LL, _
MouseHookProced ure, _

Marshal.GetHIN STANCE(Reflecti on.Assembly.Get ExecutingAssemb ly().GetModules ()(0)),
_
0)

If hMouseHook = 0 Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
End If
End If

If hKeyboardHook = 0 Then ' install Keyboard hook
KeyboardHookPro cedure = New Win32.HookProc( AddressOf
KeyboardHookPr oc)
hKeyboardHook = Win32.SetWindow sHookEx( _
Win32.WH.WH_KEY BOARD_LL, _
KeyboardHookPro cedure, _

Marshal.GetHIN STANCE(Reflecti on.Assembly.Get ExecutingAssemb ly().GetModules ()(0)),
_
0)

If (hKeyboardHook = 0) Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
End If
End If
End Sub

even though hKeyboardHook is not 0 it executes Throw New
Exception("Set WindowsHookEx failed.") in the last if.

I can post the rest of the code if you want to try too reproduce the
behavior...

Thanks

"RobinS" wrote:

Doesn't do it under my version of VS2005. What else is in the
routine
where you're running this?

Robin S.
-------------------------------------------------
"carbo" <ca***@discussi ons.microsoft.c omwrote in message
news:94******** *************** ***********@mic rosoft.com...
I am getting odd behavior in my code, first I thought it was
caused by
SP1
but now I have the same issue with a vanilla version of VS 2005.
When
I
execute a function that contains an if statement. i.e.

Dim b As Boolean
Dim i As Integer = 0

If b then
i += 1 'point 1
msgbox(i.toStri ng()) ' point 2
End If

the problem is even though the condition is false the code enters
at
point
2... and the messagebox appears... What the hell is up with that?
I've
look
up to see if there is anything online but can't find any answers.
Closing VS
2005 doesn't work... Rebooting doesn't work... Can anyone help!

[=?Utf-8?B?Y2FyYm8=?=]

Yes the value on hKeyboardHook is not zero. I've come to the conclusion that
there is a code error that the compiler is not finding on compilation anyway
I found great C# code on the codeproject that works just used Lutz Roeder's
..NET Reflector to convert it to VB.Net. Code works like a charm. Thanks for
you help, I decided to trash the buggy code and move on with the new one :)
If anybody want the converted code (good code for a GlobalHook) let me know,
I'll post it in it's entirety.

"RobinS" wrote:

i is an unused variable because it will never reach those statements.
When you throw an exception, it exits the routine before executing the
next statements. If you really wanted them to be executed, you would
put in a Try/Catch, and put those in the Finally block.

even though hKeyboardHook is not 0 it executes Throw New
Exception("SetW indowsHookEx failed.") in the last if.

If you put a breakpoint right on that IF statement, and check the value
of hKeyboardHook, it's not 0?

Robin S.
------------------------------
"carbo" <ca***@discussi ons.microsoft.c omwrote in message
news:77******** *************** ***********@mic rosoft.com...

If I add the lines
If (hKeyboardHook = 0) Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
Dim i as Integer ' added line
i=0 ' added line
End If
I get a warning that i is an unused variable... I had no warnings or
errors
before adding this code... I am getting the same problem with 2
computers
with different configs.

"carbo" wrote:

This isn't the exact code. It was just an example... It happens on a
giving
If statement. The first code I had this problem with was similar to
the
previous post... and dealt with managed code.

This is the function I'm having an issue with currently

Public Sub InstallHooks()
If hMouseHook = 0 Then
MouseHookProced ure = New Win32.HookProc( AddressOf
MouseHookProc)
hMouseHook = Win32.SetWindow sHookEx( _
Win32.WH.WH_MOU SE_LL, _
MouseHookProced ure, _

Marshal.GetHINS TANCE(Reflectio n.Assembly.GetE xecutingAssembl y().GetModules( )(0)),
_
0)

If hMouseHook = 0 Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
End If
End If

If hKeyboardHook = 0 Then ' install Keyboard hook
KeyboardHookPro cedure = New Win32.HookProc( AddressOf
KeyboardHookPro c)
hKeyboardHook = Win32.SetWindow sHookEx( _
Win32.WH.WH_KEY BOARD_LL, _
KeyboardHookPro cedure, _

Marshal.GetHINS TANCE(Reflectio n.Assembly.GetE xecutingAssembl y().GetModules( )(0)),
_
0)

If (hKeyboardHook = 0) Then 'SetWindowsHook Ex failed
RemoveHooks()
Throw New Exception("SetW indowsHookEx failed.")
End If
End If
End Sub

even though hKeyboardHook is not 0 it executes Throw New
Exception("SetW indowsHookEx failed.") in the last if.

I can post the rest of the code if you want to try too reproduce the
behavior...

Thanks

"RobinS" wrote:

Doesn't do it under my version of VS2005. What else is in the
routine
where you're running this?

Robin S.
-------------------------------------------------
"carbo" <ca***@discussi ons.microsoft.c omwrote in message
news:94******** *************** ***********@mic rosoft.com...
>I am getting odd behavior in my code, first I thought it was
>caused by
>SP1
but now I have the same issue with a vanilla version of VS 2005.
When
I
execute a function that contains an if statement. i.e.
>
Dim b As Boolean
Dim i As Integer = 0
>
If b then
i += 1 'point 1
msgbox(i.toStri ng()) ' point 2
End If
>
the problem is even though the condition is false the code enters
at
point
2... and the messagebox appears... What the hell is up with that?
I've
look
up to see if there is anything online but can't find any answers.
Closing VS
2005 doesn't work... Rebooting doesn't work... Can anyone help!