vb.net's CreateFile

[Stephen Remde]

Hi,

Private Declare Function CreateFile _
Lib "kernel32" Alias "CreateFile A" _
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttri butes As Any, _
ByVal dwCreationDispo sition As Long, _
ByVal dwFlagsAndAttri butes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function closeHandle_ _
Lib "kernel32" _
Alias "CloseHandl e" (ByVal hObject As Long) As Long

How to convert these to vb.net - or is there some other way of obtaining a
file handle. Well actually its "\\.\C:" i want to get to pass to another api
function

Stephen

[Herfried K. Wagner [MVP]]

* "Stephen Remde" <sp*******@smre mde.co.uk> scripsit:

Private Declare Function CreateFile _
Lib "kernel32" Alias "CreateFile A" _
Declare the function as 'Auto' ('Declare Auto Function...'), then remove
the alias.
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttri butes As Any, _
ByVal dwCreationDispo sition As Long, _
ByVal dwFlagsAndAttri butes As Long, _
ByVal hTemplateFile As Long) As Long
Replace all 'As Long' with 'As Int32', 'lpSecurityAttr ibutes' can be
declared as 'Int32' (...), 'hTemplateFile' as 'IntPtr'. The return
value is an 'IntPtr'.
Private Declare Function closeHandle_ _
Lib "kernel32" _
Alias "CloseHandl e" (ByVal hObject As Long) As Long

Remove the alias, declare its parameter as 'IntPtr' and its return value
as 'Boolean'.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[Stephen Remde]

thanks, that worked...

now heres a tough one:

Private Declare Function NtFsControlFile _
Lib "ntdll.dll" _
(ByVal hFileHandle As Long, _
ByVal hEvent As Long, _
ByRef ApcRoutine As Any, _
ByRef ApcContext As Long, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Long, _
ByRef InputBuffer As Any, _
ByVal InputBufferLeng th As Long, _
ByRef OutputBuffer As Any, _
ByVal OutputBufferLen gth As Long) As Long

i've tried

Public Structure IO_STATUS_BLOCK
Public Status As Integer ' (were long's in vb6)
Public Information As Integer
End Structure

Declare Auto Function NtFsControlFile Lib "ntdll.dll" _
(ByVal hFileHandle As Integer, _
ByVal hEvent As Integer, _
ByRef ApcRoutine As Integer, _
ByVal ApcContext As Integer, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Integer, _
ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer) As Integer

but i get return values of &hC0000023 {Buffer Too Small} The buffer is too
small to contain the entry. No information has been written to the buffer.

so im thinking that theres something wrong ith these lines

ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer

the call i am making is

Dim a as Long
Dim b(bSize) as Byte

NtFsControlFile ( ... , ... , ... , ... , ... , ... , a , 8 , b , bSize)

Thanks in advance,
Stephen

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:bo******** *****@ID-208219.news.uni-berlin.de...

* "Stephen Remde" <sp*******@smre mde.co.uk> scripsit:

Private Declare Function CreateFile _
Lib "kernel32" Alias "CreateFile A" _

Declare the function as 'Auto' ('Declare Auto Function...'), then remove
the alias.

(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttri butes As Any, _
ByVal dwCreationDispo sition As Long, _
ByVal dwFlagsAndAttri butes As Long, _
ByVal hTemplateFile As Long) As Long

Replace all 'As Long' with 'As Int32', 'lpSecurityAttr ibutes' can be
declared as 'Int32' (...), 'hTemplateFile' as 'IntPtr'. The return
value is an 'IntPtr'.

Private Declare Function closeHandle_ _
Lib "kernel32" _
Alias "CloseHandl e" (ByVal hObject As Long) As Long

Remove the alias, declare its parameter as 'IntPtr' and its return value
as 'Boolean'.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[Bob]

For starters you should be converting VB6 longs to VB.Net Int32... not
integer... you have declared a variable that is too small to take the long
datatype value being returned...

Herfield stated this in his reply to your first post...

Cheers
"Stephen Remde" <sp*******@smre mde.co.uk> wrote in message
news:uW******** ******@tk2msftn gp13.phx.gbl...

thanks, that worked...

now heres a tough one:

Private Declare Function NtFsControlFile _
Lib "ntdll.dll" _
(ByVal hFileHandle As Long, _
ByVal hEvent As Long, _
ByRef ApcRoutine As Any, _
ByRef ApcContext As Long, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Long, _
ByRef InputBuffer As Any, _
ByVal InputBufferLeng th As Long, _
ByRef OutputBuffer As Any, _
ByVal OutputBufferLen gth As Long) As Long

i've tried

Public Structure IO_STATUS_BLOCK
Public Status As Integer ' (were long's in vb6)
Public Information As Integer
End Structure

Declare Auto Function NtFsControlFile Lib "ntdll.dll" _
(ByVal hFileHandle As Integer, _
ByVal hEvent As Integer, _
ByRef ApcRoutine As Integer, _
ByVal ApcContext As Integer, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Integer, _
ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer) As Integer

but i get return values of &hC0000023 {Buffer Too Small} The buffer is too
small to contain the entry. No information has been written to the buffer.

so im thinking that theres something wrong ith these lines

ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer

the call i am making is

Dim a as Long
Dim b(bSize) as Byte

NtFsControlFile ( ... , ... , ... , ... , ... , ... , a , 8 , b , bSize)

Thanks in advance,
Stephen

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:bo******** *****@ID-208219.news.uni-berlin.de...

* "Stephen Remde" <sp*******@smre mde.co.uk> scripsit:

Private Declare Function CreateFile _
Lib "kernel32" Alias "CreateFile A" _

Declare the function as 'Auto' ('Declare Auto Function...'), then remove
the alias.

(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttri butes As Any, _
ByVal dwCreationDispo sition As Long, _
ByVal dwFlagsAndAttri butes As Long, _
ByVal hTemplateFile As Long) As Long

Replace all 'As Long' with 'As Int32', 'lpSecurityAttr ibutes' can be
declared as 'Int32' (...), 'hTemplateFile' as 'IntPtr'. The return
value is an 'IntPtr'.

Private Declare Function closeHandle_ _
Lib "kernel32" _
Alias "CloseHandl e" (ByVal hObject As Long) As Long

Remove the alias, declare its parameter as 'IntPtr' and its return value
as 'Boolean'.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[Stephen Remde]

Bob,

VB.NETs Integer's are 32bit, the same as Int32... (se below) exchanging
the Integer types for Int32s make no difference.

i think the problem is with

ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer
OutputBuffer - needs to pass a memory pointer to the actual data of the
array. this is where the api call will write its response.

Thanks,

quoted from the msdn
(ms-help://MS.VSCC/MS.MSDNVS/vblr7/html/vadatInteger.ht m):

Integer Data Type

Integer variables are stored as signed 32-bit (4-byte) integers ranging in
value from -2,147,483,648 through 2,147,483,647.

The Integer data type provides optimal performance on a 32-bit processor, as
the smaller integral types are slower to load and store from and to memory.

-snip-

*** The equivalent .NET data type is System.Int32. ***
Stephen
"Bob" <bo*@nospam.com > wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...

For starters you should be converting VB6 longs to VB.Net Int32... not
integer... you have declared a variable that is too small to take the long
datatype value being returned...

Herfield stated this in his reply to your first post...

Cheers
"Stephen Remde" <sp*******@smre mde.co.uk> wrote in message
news:uW******** ******@tk2msftn gp13.phx.gbl...

thanks, that worked...

now heres a tough one:

Private Declare Function NtFsControlFile _
Lib "ntdll.dll" _
(ByVal hFileHandle As Long, _
ByVal hEvent As Long, _
ByRef ApcRoutine As Any, _
ByRef ApcContext As Long, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Long, _
ByRef InputBuffer As Any, _
ByVal InputBufferLeng th As Long, _
ByRef OutputBuffer As Any, _
ByVal OutputBufferLen gth As Long) As Long

i've tried

Public Structure IO_STATUS_BLOCK
Public Status As Integer ' (were long's in vb6)
Public Information As Integer
End Structure

Declare Auto Function NtFsControlFile Lib "ntdll.dll" _
(ByVal hFileHandle As Integer, _
ByVal hEvent As Integer, _
ByRef ApcRoutine As Integer, _
ByVal ApcContext As Integer, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Integer, _
ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer) As Integer

but i get return values of &hC0000023 {Buffer Too Small} The buffer is

too small to contain the entry. No information has been written to the buffer.
so im thinking that theres something wrong ith these lines

ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer

the call i am making is

Dim a as Long
Dim b(bSize) as Byte

NtFsControlFile ( ... , ... , ... , ... , ... , ... , a , 8 , b , bSize)

Thanks in advance,
Stephen

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:bo******** *****@ID-208219.news.uni-berlin.de...

* "Stephen Remde" <sp*******@smre mde.co.uk> scripsit:
> Private Declare Function CreateFile _
> Lib "kernel32" Alias "CreateFile A" _

Declare the function as 'Auto' ('Declare Auto Function...'), then remove the alias.

> (ByVal lpFileName As String, _
> ByVal dwDesiredAccess As Long, _
> ByVal dwShareMode As Long, _
> ByVal lpSecurityAttri butes As Any, _
> ByVal dwCreationDispo sition As Long, _
> ByVal dwFlagsAndAttri butes As Long, _
> ByVal hTemplateFile As Long) As Long

Replace all 'As Long' with 'As Int32', 'lpSecurityAttr ibutes' can be
declared as 'Int32' (...), 'hTemplateFile' as 'IntPtr'. The return
value is an 'IntPtr'.

> Private Declare Function closeHandle_ _
> Lib "kernel32" _
> Alias "CloseHandl e" (ByVal hObject As Long) As Long

Remove the alias, declare its parameter as 'IntPtr' and its return value as 'Boolean'.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[Herfried K. Wagner [MVP]]

* "Bob" <bo*@nospam.com > scripsit:

For starters you should be converting VB6 longs to VB.Net Int32... not
integer... you have declared a variable that is too small to take the long
datatype value being returned...

Herfield stated this in his reply to your first post...

?!?

In VB.NET 'Integer' = 'System.Int32' (= VB6's 'Long' datatype).

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[Stephen Remde]

maybe i converted it to vb6 wrong in the first place. here is the c version:

typedef UINT NTSTATUS;

//
// Io Status block
//
typedef struct _IO_STATUS_BLOC K {
NTSTATUS Status;
ULONG Information;
} IO_STATUS_BLOCK , *PIO_STATUS_BLO CK;
//
// Apc Routine
//
typedef VOID (*PIO_APC_ROUTI NE) (
PVOID ApcContext,
PIO_STATUS_BLOC K IoStatusBlock,
ULONG Reserved
);
//
// The undocumented NtFsControlFile
//

NTSTATUS (__stdcall *NtFsControlFil e)(
HANDLE FileHandle,
HANDLE Event, // optional
PIO_APC_ROUTINE ApcRoutine, // optional
PVOID ApcContext, // optional
PIO_STATUS_BLOC K IoStatusBlock,
ULONG FsControlCode,
PVOID InputBuffer, // optional
ULONG InputBufferLeng th,
PVOID OutputBuffer, // optional
ULONG OutputBufferLen gth
);


"Bob" <bo*@nospam.com > wrote in message
news:%2******** **********@TK2M SFTNGP10.phx.gb l...

For starters you should be converting VB6 longs to VB.Net Int32... not
integer... you have declared a variable that is too small to take the long
datatype value being returned...

Herfield stated this in his reply to your first post...

Cheers
"Stephen Remde" <sp*******@smre mde.co.uk> wrote in message
news:uW******** ******@tk2msftn gp13.phx.gbl...

thanks, that worked...

now heres a tough one:

Private Declare Function NtFsControlFile _
Lib "ntdll.dll" _
(ByVal hFileHandle As Long, _
ByVal hEvent As Long, _
ByRef ApcRoutine As Any, _
ByRef ApcContext As Long, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Long, _
ByRef InputBuffer As Any, _
ByVal InputBufferLeng th As Long, _
ByRef OutputBuffer As Any, _
ByVal OutputBufferLen gth As Long) As Long

i've tried

Public Structure IO_STATUS_BLOCK
Public Status As Integer ' (were long's in vb6)
Public Information As Integer
End Structure

Declare Auto Function NtFsControlFile Lib "ntdll.dll" _
(ByVal hFileHandle As Integer, _
ByVal hEvent As Integer, _
ByRef ApcRoutine As Integer, _
ByVal ApcContext As Integer, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Integer, _
ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer) As Integer

but i get return values of &hC0000023 {Buffer Too Small} The buffer is too small to contain the entry. No information has been written to the buffer.
so im thinking that theres something wrong ith these lines

ByRef InputBuffer As Object, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer As Object, _
ByRef OutputBufferLen gth As Integer

the call i am making is

Dim a as Long
Dim b(bSize) as Byte

NtFsControlFile ( ... , ... , ... , ... , ... , ... , a , 8 , b , bSize)

Thanks in advance,
Stephen

"Herfried K. Wagner [MVP]" <hi************ ***@gmx.at> wrote in message
news:bo******** *****@ID-208219.news.uni-berlin.de...

* "Stephen Remde" <sp*******@smre mde.co.uk> scripsit:
> Private Declare Function CreateFile _
> Lib "kernel32" Alias "CreateFile A" _

Declare the function as 'Auto' ('Declare Auto Function...'), then remove the alias.

> (ByVal lpFileName As String, _
> ByVal dwDesiredAccess As Long, _
> ByVal dwShareMode As Long, _
> ByVal lpSecurityAttri butes As Any, _
> ByVal dwCreationDispo sition As Long, _
> ByVal dwFlagsAndAttri butes As Long, _
> ByVal hTemplateFile As Long) As Long

Replace all 'As Long' with 'As Int32', 'lpSecurityAttr ibutes' can be
declared as 'Int32' (...), 'hTemplateFile' as 'IntPtr'. The return
value is an 'IntPtr'.

> Private Declare Function closeHandle_ _
> Lib "kernel32" _
> Alias "CloseHandl e" (ByVal hObject As Long) As Long

Remove the alias, declare its parameter as 'IntPtr' and its return value as 'Boolean'.

--
Herfried K. Wagner
MVP · VB Classic, VB.NET
<http://www.mvps.org/dotnet>

<http://www.plig.net/nnq/nquote.html>

[Tom Shelton]

On 2003-11-09, Stephen Remde <sp*******@smre mde.co.uk> wrote:

Stephen,

Here is my rough, first pass, and untested version :) This is probably
where I would start. If it doesn't work, let me know... And maybe a
little more information about what this function is supposed to do (even
a little project that uses it would be nice) - so that I can refine.

maybe i converted it to vb6 wrong in the first place. here is the c version:

typedef UINT NTSTATUS;

//
// Io Status block
//
typedef struct _IO_STATUS_BLOC K {
NTSTATUS Status;
ULONG Information;
} IO_STATUS_BLOCK , *PIO_STATUS_BLO CK;

<StructLayout(L ayoutKind.Seque ntial)> _
Structure IO_STATUS_BLOCK
Public Status As Integer
Public Information As Integer
End Structure

//
// Apc Routine
//
typedef VOID (*PIO_APC_ROUTI NE) (
PVOID ApcContext,
PIO_STATUS_BLOC K IoStatusBlock,
ULONG Reserved
);


' if you need the call back, it should look something like this
' since the above is defining a pointer to a function that returns
' void and takes 3 parameters...
Delegate Sub PIO_APC_ROUTINE _
(ByVal AbcContext As IntPtr, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal Reserved As Integer)
//
// The undocumented NtFsControlFile
//

NTSTATUS (__stdcall *NtFsControlFil e)(
HANDLE FileHandle,
HANDLE Event, // optional
PIO_APC_ROUTINE ApcRoutine, // optional
PVOID ApcContext, // optional
PIO_STATUS_BLOC K IoStatusBlock,
ULONG FsControlCode,
PVOID InputBuffer, // optional
ULONG InputBufferLeng th,
PVOID OutputBuffer, // optional
ULONG OutputBufferLen gth
);

Declare Function NtFsControlFile Lib "ntdll" _
(ByVal FileHandle As IntPtr, _
ByVal Event As IntPtr, _
ByVal ApcRoutine As PIO_APC_ROUTINE , _
ByVal ApcContext As IntPtr, _
ByRef IoStatusBlock As IO_STATUS_BLOCK , _
ByVal FsControlCode As Integer, _
ByVal InputBuffer() As Byte, _
ByVal InputBufferLeng th As Integer, _
ByVal OutputBuffer() As Byte, _
ByVal OutputBufferLen gth As Integer) As IntPtr

Dim controlCode As Integer
Dim inputBuffer(bSi ze) As Byte
Dim outputBuffer(bS ize) As Byte
Dim controlBlock As IO_STATUS_BLOCK

NtFsControlFile ( _
FileHandle, _
Event, _
Nothing, _
IntPtr.Zero, _
controlBlock, _
controlCode, _
inputBuffer, _
inputBuffer.Len gth, _
outputBuffer, _
outputBuffer.Le ngth)

--
Tom Shelton
MVP [Visual Basic]

[dabuskol]

You want to create a new file. Try this one in .NET

Imports System.IO; //NAMESPACE

public function SaveFile(string strfile)
dim myStreamWriter as StreamWriter myStreamWriter
myStreamWriter = File.AppendText ("c:/oss_listen.log" )
myStreamWriter. WriteLine(strfi le)
myStreamWriter. Flush()
myStreamWriter. Close()
end function

}

-----Original Message-----
Hi,

Private Declare Function CreateFile _
Lib "kernel32" Alias "CreateFile A" _
(ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttri butes As Any, _
ByVal dwCreationDispo sition As Long, _
ByVal dwFlagsAndAttri butes As Long, _
ByVal hTemplateFile As Long) As Long

Private Declare Function closeHandle_ _
Lib "kernel32" _
Alias "CloseHandl e" (ByVal hObject As Long) As Long
How to convert these to vb.net - or is there some other way of obtaining afile handle. Well actually its "\\.\C:" i want to get to pass to another apifunction

Stephen
.