|
Personal StartUp! As simple as it can get...
|
Email
|
| Submitted on: |
6/10/1999 |
| By: |
Hyperswede
|
| Level: |
Not Given |
| User Rating: |
By 102 Users |
| Compatibility: |
VB 5.0, VB 6.0 |
| Views: |
19613 |
|
|
|
|
|
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!
|
| |
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 :Personal 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...
- You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
- 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.
- You may link to this code from another website, but ONLY if it is not wrapped in a frame.
- 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/vb/scripts/ShowCode.asp?txtCodeId=2047&lngWId=1'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
(If this comment was disrespectful, please report it.)
|
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
(If this comment was disrespectful, please report it.)
|
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
To post feedback, first please login.
|
