Read a string - Visual Basic Discussion Boards

WESHILL29-Jun-04 10:32

29-Jun-04 10:32

Hi,

I have the following Keyboard hook module and would like to convert it so that it can hook application File Open call instead. Could someone help me with this.

...........................................
Module TestHook

Public Const WH_KEYBOARD = 2
Public Const VK_SHIFT = &H10
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Integer, ByVal ncode As Integer, ByVal wParam As Integer, ByVal lParam As KBDLLHOOKSTRUCT) As Integer
Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Integer
Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Integer, ByVal lpfn As Integer, ByVal hmod As Integer, ByVal dwThreadId As Integer) As Integer
Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Integer) As Integer
Public hHook As Integer
Public Function KeyboardProc(ByVal idHook As Integer, ByVal wParam As Integer, ByVal lParam As KBDLLHOOKSTRUCT) As Integer
'if idHook is less than zero, no further processing is required
If idHook < 0 Then
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, lParam)
Else
'check if SHIFT-S is pressed
If (GetKeyState(VK_SHIFT) And &HF0000000) And wParam = Asc("S") Then
'show the result
MsgBox("Shift-S pressed ...")
End If
'call the next hook
KeyboardProc = CallNextHookEx(hHook, idHook, wParam, lParam)
End If
End Function

End Module

Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, App.ThreadID)
End Sub

Private Sub Form_Unload(Cancel As Integer)
'remove the windows-hook
UnhookWindowsHookEx hHook
End Sub
...........................................

Thanks,

Re: Hooking application Open file calls

Dave Kreskowiak29-Jun-04 15:49

Dave Kreskowiak

29-Jun-04 15:49

You can't convert this to catch a File Open. There is no hook for that. What, exactly, do you want to accomplish by hooking the File System?

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: Hooking application Open file calls

WESHILL29-Jun-04 17:57

WESHILL

29-Jun-04 17:57

I would like to intercept open calls by any applications that try to open files with the *.txt, for example. I would like to perform some routine before the application proceeds with the open.

Re: Hooking application Open file calls

Dave Kreskowiak30-Jun-04 0:34

Dave Kreskowiak

30-Jun-04 0:34

You would have to write what is essentially a device driver. The driver would attach to the NTFS file system and report back with the details your looking for. You can't do it entirely in VB.NET. The .NET languages, except for C++, are too high-level for work like this. You could write your app that does the actual reporting in VB.NET, but the driver work is best done in C++.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: Hooking application Open file calls

WESHILL30-Jun-04 1:50

WESHILL

30-Jun-04 1:50

Would you happen to have a sample of this in C++ or a site that I can go to for more info?

Re: Hooking application Open file calls

Dave Kreskowiak30-Jun-04 2:36

Dave Kreskowiak

30-Jun-04 2:36

Nope, and I doubt you'll find many samples either. It requires very deep knowledge of the internals of NTFS and Windows to write one. People usually bill you for that kind of knowledge. But...

There is an example of such a technique in the FileMon utility at www.sysinternals.com. There is no source for it, you you'll see the .dll in the package. Under the Source nav menu on the left side of their page, you'll find a utility called FunDelete. There is source code in its .ZIP file that demonstrates some of the techniques you'll need to get one these drivers running.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: Hooking application Open file calls

WESHILL5-Jul-04 4:05

WESHILL

5-Jul-04 4:05

Thanks. I will have a look.

Read a string

Brad Fackrell29-Jun-04 9:57

Brad Fackrell

29-Jun-04 9:57

Hi.

I’m trying to write and if then statement that checks to see if a string contains a certain value.

Here is how I thought it worked:

If TheString.IndexOfAny(“This Text”) then

I want the statement to return True if the string contains “This Text” anywhere within the string.

Can anybody tell me how this should be written?

Thanks
Brad

Re: Read a string

Name Removed29-Jun-04 10:51

Name Removed

29-Jun-04 10:51

There is a function in Microsoft.VisualBasic called Instr that can, given two strings, give you the number of times that string2 occurs in string1.

Try using this function

<br />
Function ContainsStr(Str1 As String, Str2 as String) As Boolean<br />
      Return (Microsoft.VisualBasic.Instr(Str1, Str2) > 0)<br />
End Function <br />

Hope This Helps

Re: Read a string

Brad Fackrell29-Jun-04 11:21

Brad Fackrell

29-Jun-04 11:21

This looks like it will do the trick.

Thank you very much!

Brad

Re: Read a string

shalwi29-Jun-04 18:42

shalwi

29-Jun-04 18:42

i think it will work like this .

if theString.IndexOfAny="This Text" then

ROLI

Re: Read a string

Brad Fackrell30-Jun-04 1:33

Brad Fackrell

30-Jun-04 1:33

Hi ROLI.

I didn't completely understand the use of IndexOfAny. This thread contains a good explanation for anybody who is interested:

http://www.visualbasicforum.com/showthread.php?t=175579

Thanks for you help.
Brad

Re: Read a string

manish.m.tawde1-Jul-04 0:48

manish.m.tawde

1-Jul-04 0:48

declare a boolean variable as say
Dim val As boolean
then after the statement,
If TheString.IndexOfAny(“This Text”) then
type

val="true"<br />
Endif

OR
return "true":|
u can then reference variable val elsewhere as the value returned

List Boxes

Glen Conaway29-Jun-04 8:55

Glen Conaway

29-Jun-04 8:55

I am trying to play and increment tracks in a listbox control with the windows media player active x control (OCX).

The following line of code will play a selected item.
AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem

I need to be able to start from a point in the listbox, for example the third
track, with out selecting it with the mouse, and then I need to play and increment through the tracks.

The following line gives me an error that the list box has no default property:
AXWindowsMediaPlayer1.URL = ListBox1(3)

Any sugestions?

Many thanks,
Glen Conaway

Re: List Boxes

Dave Kreskowiak29-Jun-04 9:33

Dave Kreskowiak

29-Jun-04 9:33

It's right, there is no default property like there was in VB6. You have to use something like this:

AXWindowsMediaPlayer1.URL = ListBox1.Items(3).Text

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: List Boxes

Glen Conaway29-Jun-04 10:43

Glen Conaway

29-Jun-04 10:43

Ok, Thanks,
But I still have a problem, I am getting the following error message:

An unhandled exception of type 'System.MissingMemberException' occurred in microsoft.visualbasic.dll

Additional information: Public member 'Text' on type 'String' not found.

Many thanks,
Glen Conaway

Re: List Boxes

Name Removed29-Jun-04 12:03

Name Removed

29-Jun-04 12:03

Glen Conaway wrote:
Additional information: Public member 'Text' on type 'String' not found.

The objects in ListBox.Items() are strings, so just try ListBox.Items(1), instead of ListBox.Items(1).Text.

Hope This Helps

Re: List Boxes

Glen Conaway29-Jun-04 12:35

Glen Conaway

29-Jun-04 12:35

Works great.

Many thanks,
Glen Conaway

Re: List Boxes

Dave Kreskowiak29-Jun-04 15:47

Dave Kreskowiak

29-Jun-04 15:47

Sorry for the late reply, but yes, drop the .Text. That's what I get for writing this stuff when I'm in a hurry to get out of work! Roll eyes | :rolleyes:

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

When is the right time to throw exceptions?

kowplunk29-Jun-04 5:43

kowplunk

29-Jun-04 5:43

I am at the stage that I realized that alot of my exceptions are being handled poorly, and have now created a class that will handle the exceptions that are thrown at one point in the program rather than at the many that existed before. (based on the article on exception handling on this site)

BUT, now that I am going through I see alot of places that I am unsure whether it is a place that should be within a try/catch block or not.

Here is a simple example:
let's say that you are about to create an object that requires one or more params. If the params are not there you do not want the code to continue because obviously the later code requires the object. Now this seems to me at this point to enclose this within a try/catch block. Is that wrong, because this kind of thinking would result in ALOT of t/c blocks throughout the program, and I know that they can take their toll on your system.

I guess that it is things like this that I am want to make sure of because I don't want to have to make a bunch of changes a couple weeks down the road to changes that I need to make now.

Thanks for the help.

Re: When is the right time to throw exceptions?

kowplunk29-Jun-04 5:46

kowplunk

29-Jun-04 5:46

another question:
is there any harm in only catching the std exception if you are not going to deal with any other exceptions differently? That is the way that I am doing it now, but I want to make sure.

Thanks again

Re: When is the right time to throw exceptions?

Blaiser29-Jun-04 6:26

Blaiser

29-Jun-04 6:26

We use the thread exception handler to catch all "unanticipated" exceptions. Then in code elsewhere we only write exception handlers for expected errors that we specifically want to do something about (file not found, etc.). We also include a fair number of Try/Finally blocks to be sure we cleanup when an error occurs (close files, release handles, etc).

This scheme seems to work pretty well ... but I would certainly be open to other opinions and ideas Wink | ;-)

A person with one watch knows what time it is; a person with two watches is never quite sure ...
[remove "NFS-" from email (No Freaking Spam)]

Re: When is the right time to throw exceptions?

kowplunk29-Jun-04 7:10

kowplunk

29-Jun-04 7:10

===we only write exception handlers for expected errors that we specifically want to do something about (file not found, etc.).

what is the benefit of handling exceptions of that sort at that point? Because right now all mine are being thrown to the global e catcher Smile | :)

Is there any disadvantages that I am missing out on that will come to haunt me later?

Re: When is the right time to throw exceptions?

Dave Kreskowiak29-Jun-04 8:07

Dave Kreskowiak

29-Jun-04 8:07

kowplunk wrote:
what is the benefit of handling exceptions of that sort at that point? Because right now all mine are being thrown to the global e catcher Is there any disadvantages that I am missing out on that will come to haunt me later?

Well, if the user attempts to open a file, it would be nice to catch the FileNotFoundException and the tell user to try again (or jump off a bridge Wink | ;)

), or the SecurityException so we can tell the user he/she's got insufficient rights to open the file, or ...

It just depends on what the function does and what you want to do in the even of an exception. Production quality code is HEAVILY populated with exception handlers just because of the little things like trying to open a file that doesn't exist. You could encompass your app with one giant exception handler, but that would also mean that any error would effectively stop your app in its tracks and you would have to restart it.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: When is the right time to throw exceptions?

kowplunk29-Jun-04 7:12

kowplunk

29-Jun-04 7:12

Blaiser wrote:
We use the thread exception handler to catch all "unanticipated" exceptions

Does this mean that you have the whole program running within one big t/c block?

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.