Personal StartUp! As simple as it can get... - visual basic, vb, active server pages (ASP),j

different,user,logins,WindowsTired,having,sam

RentACoder Stats

Code: lines
Jobs: 0 postings

Windows API/Global Declarations:

Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!


    //**************************************
    //     
    //Windows API/Global Declarations for :P
    //     ersonal StartUp! As simple as it can get
    //     ...
    //**************************************
    //     
    Declare Function WNetGetUser Lib "mpr" _
    Alias "WNetGetUserA" (ByVal lpName As _
    String, ByVal lpUserName As String, _
    lpnLength As Long) As Long
    Public Function UserID() As String
    Dim sUserNameBuffer As String * 255
    sUserNameBuffer = Space(255)
    Call WNetGetUser(vbNullString, _
    sUserNameBuffer, 255&)
    UserID = Left$(sUserNameBuffer, _
    InStr(sUserNameBuffer, _
    vbNullChar) - 1)
    If UserID = "" Then UserID = "default"
    End Function

code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled format for langauges that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.

//**************************************
//
// Name: Personal StartUp! As simple as
// it can get...
// Description:Do you use different user
// logins in Windows?
Tired of having the same StartUp folder just because the users share the same Start Menu?
Then this solves your problem!
// By: Hyperswede
//
// Inputs:How to use personal startups.
1) Add the source code below to a new project.
2) Make an exe file.
3) Create a shortcut in your StartUp folder that points to the exe.
4) Log Out and Log In again as the person you want to give personal startup.
5) Check in the directory where you put the exe.
6) Open the file UserID.txt with notepad (Replace UserID with yor UserID)
7) Add the path of the files you want to start when windows starts, separate the paths of the different files by hitting enter.
8) Done!
//
// Returns:Starts different programs on
// startup depending on the who has logged
// in.
//
// Side Effects:None that i know of.
//
//This code is copyrighted and has // limited warranties.Please see http://
// www.Planet-Source-Code.com/xq/ASP/txtCod
// eId.2047/lngWId.-10/qx/vb/scripts/ShowCo
// de.htm //for details. //**************************************
//

Private Sub Form_Load()
Dim OpenWhat
'MsgBox UserID
On Error GoTo bwell
Open App.Path & "\" & UserID & ".txt" For Input As #1
On Error Resume Next
Do Until EOF(1)
Line Input #1, OpenWhat
Shell "Start " & OpenWhat
Loop
Close #1
End
bwell:
Open App.Path & "\" & UserID & ".txt" For Output As #2: Close #2
Resume
End Sub

Other 9 submission(s) by this author

Report Bad Submission

Your Vote!

Other User Comments

7/20/1999 1:26:00 AM:Rianto / Jimmy Suharry

I want to learn with you, would you 
want to teach me?
I'll wait your 
answer, Thanks

9/3/1999 1:39:00 AM:Richard

Instead of open #1 and then if this 
fails, do #2, have a variable and use 
the freefile command...
DIm 
lFreeFile AS long 
lFreeFile = 
FreeFile
Open App.Path & "\" & 
UserID & ".txt" For Input As 
#lFreeFile

Add Your Feedback!

Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.

NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.

For feedback not related to this particular code, please click here.