Thread: CarShell : touch-screen friendly shell and password application

I seem to be stumbling tring to convert this to dot net, I am new to API calls perhapes I am missing something here? Here is what I have.

Code:

Declare Auto Function OpenEvent Lib "kernel32.dll" Alias "OpenEventA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long
    Declare Auto Function SetEvent Lib "kernel32.dll" (ByVal hEvent As Long) As Long
    Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Long) As Long
    Private Const EVENT_MODIFY_STATE As Long = &H2

    Public Sub Main()

  
        Dim H As Long
        H = OpenEvent(EVENT_MODIFY_STATE, False, "msgina: ShellReadyEvent")
        If H <> 0 Then
            SetEvent(H)
            CloseHandle(H)
        End If

Vis studio shows no problems with code and it runs and builds without any errors, but no change in boot up time??? anyone good with vb6 - .net?

Actually in .net, all longs would be integer.

Try this:

Code:

Declare Function OpenEvent Lib "kernel32.dll" Alias "OpenEventA" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal lpName As String) As Integer
    Declare Function SetEvent Lib "kernel32.dll" (ByVal hEvent As Integer) As Integer
    Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Integer) As Integer
    Private Const EVENT_MODIFY_STATE As Integer = &H2

    Public Sub Main()

  
        Dim H As Integer
        H = OpenEvent(EVENT_MODIFY_STATE, False, "msgina: ShellReadyEvent")
        If H <> 0 Then
            SetEvent(H)
            CloseHandle(H)
        End If

Just tested this and it works well.

Code:

Declare Function OpenEvent Lib "kernel32.dll" Alias "OpenEventA" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal lpName As String) As Integer
Declare Function SetEvent Lib "kernel32.dll" (ByVal hEvent As Integer) As Integer
Declare Function CloseHandle Lib "kernel32.dll" (ByVal hObject As Integer) As Integer
Private Const EVENT_MODIFY_STATE As Integer = &H2

		
		Public Shared Sub Main

		Dim H As Integer
        	H = OpenEvent(EVENT_MODIFY_STATE, False, "msgina: ShellReadyEvent")
        	If H <> 0 Then
            	    SetEvent(H)
            	    CloseHandle(H)
        	End If

			Dim fMainForm As New MainForm
			fMainForm.ShowDialog()
		
		End Sub

Leave off the "Auto", and make sure this is performed before you load any modal forms or whatnot, make this the very first code executed.

frodo, you da man.

It works!

RoyN here are the boot times

Explorer - 37.8 sec
CarShell without fix - 1:04.2
Carshell with fix - 35.3

These times were all from the instant power kicked on the system and times were run on a Athlon M 2400+ (running 1.8 ghz @ 200 x9) with 512 megs ram. XP pro

I also have the administrator set to automatically login

I will implement the code in a release that i should have up later today, will post again when it is up.

ok - the version with the code fix is up, i also streamlined the process of changing between shells to help avoid closing out of carshell completely when you are using it as a shell.

Kinda curious to see if there is more of a change in boot time with differnt hardware. If anyone decides to give it a try post your results with what hardware your running on.

Originally Posted by foltster

Am I blind or is the download not in the first post?

sorry i edited it this morning before coffee

cool, cant wait to try it out... my new carputer (for my dads car, but it will live temporarily in mine hehehe) comes in today (I hope....praying as I type).... I'm gonna have this all on CF, so I'll post boot times and any issues I find...