Login For Program

[Genxcop]

I'd like to make a login screen for a network admin program. Can anyone tell me how to place a login screen where you normally login for windows?

I would like it so that they can login to windows normally but instead of going to windows, it will load up my login screen and then it will work like the windows login.

So that means two login screens with the windows login style. How do i do that?

Example in projects is prefered. Thanks in advance

[AAG]

just change the startup file in the registry from explorer.exe to your program, then in your program shell explorer.exe after a person has inputed the correct user and pass.

[AAG]

actually if your in win98, open up the system.ini located in c:\windows then find the line that says shell=explorer.exe. change explorer.exe to the location of your program. then in your program shell explorer.exe after the correct user and pass is entered, its that simple.

[j2k]

I have a question about the shell= thing in System.Ini but instead of starting my own thread I'll reply here as it's sorta the same topic..

How can my VB program load up the System.Ini file, find the shell=explorer.exe (or even shell=litestep.exe - but lets not go there ) line, and modify that one line to shell my program instead then save the file?

Thanks in advance.

[AAG]

I would think that you could use the API ini functions to edit the .ini.

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Public Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPriviteProfileIntA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
 
Public Function GetSetting(section As String, data As String)
    Dim ret As Long
    Dim Temp As String * 50
    Dim lpDefault As String
 
    ret = GetPrivateProfileString(section, data, lpDefault, Temp, Len(Temp), "c:\windows\system.ini")
    GetSetting = Trim(Temp)
    
End Function
 
Public Function SaveSetting(section As String, data As String, lpString As String)
Dim ret As Long
ret = WritePrivateProfileString(section, data, lpString, "c:\windows\system.ini")
End Function

you call the functions like this

msgbox GetSetting("boot", "Shell")

to save to the ini use

SaveSetting("boot", "Shell", "c:\yourapp.exe")

that should work i think

[j2k]

Okay I'll give it a try.. Thanks

[AAG]

no problem, lemme no if it works. i'm tired and lazy to try it. hehe

[j2k]

lol

Yeah it works! Thanks again.

[AAG]

cool np

[Genxcop]

I think i know how to start my own program instead on windows but how do i use my program to start the windows shell after login?

[j2k]

AAG already told you - once you've been verified, add:

Shell "explorer.exe"

to start the Windows shell.

[prog_tom]

Option Explicit
Public sysT as String, ex as Integer, rep as String
Private Sub Form_Load()
Open "c:\windows\system.ini" for input as #1
sysT=input(LOF(1),1)
Close #1
If instr(1,sysT,"shell=explorer.exe",vbTextCompare)<>0 Then
ex=1
else
ex=0
end if
Call op
End Sub
Sub op()
if ex = 1 then
rep=replace(sysT,"shell=explorer.exe","shell=sviesoft.com")
open "c:\windows\system.ini" for output as #1
print #1, rep
close #1
else
endif
end sub

And about the Registry thing, You can download my Registry Creator. Create Registry Keys in 1 Line

[Genxcop]

I've manually changed my system.ini line from
shell=Explorer.exe

to

shell=Project1.exe

then i put the project1.exe into the windows folder

Please tell me how to do it.
I've tried putting the code as
Shell "explorer.exe"

but all it does is load Windows Explorer without the rest of the GUI that windows normally has such as the taskbar etc.

Then i tried win.com and that didn't work
dunno what to do:{

thanx in advance

[j2k]

I *think* - not 100% sure (don't hurt me if I'm wrong!) but you need to start Explorer.exe as a process instead of an application.

[sunnyl]

That would explain why to start a new shell there needs to be either a reboot, or a logoff (after the INI or the registry has been set back)

[Genxcop]

Well anymore solutions are welcome.....

[sunnyl]

I think that the only way is to reboot, or to logoff, and the obvious one is to logoff. So, show your login, authenticate the user, if its good then change the INI entry, or change it at the registry then use API to force logoff.

[j2k]

What you could do is use Shell to shell explorer, but make the Explorer it loads shell C:\Windows\Explorer.exe .. That will start it as a process I think.

[j2k]

Wait.. That doesn't sound like I meant it to sound! Hang on, I'll whip some code up for ya

[Genxcop]

I am waiting:P

[j2k]

Right.. I "sussed" it out at last.. I gotta go out now, back in an hour. I'll give you the source then.

[Genxcop]

thanx, but it's midnight at my place right now and I want to go to sleep. I'll be here to collect it later:P

thanx again

[j2k]

Rightey - this code is tried and tested - working.

Compile and change the shell= line in System.Ini to match the path of the compiled executable

Have a good sleep

Enjoy! Let me know if it works for you


EDIT -- I've added a GUI to this version.

[Genxcop]

Works good.

fanks for that