VB 小问题（内详）

Question

如何在一个已经启动了的windows中 用不同的 windows账户 启动同一程序，例如：
我要启动2个QQ，我现在的用户名是:admin,那如果我直接启动QQ的话那就算是在admin中启动了一个QQ号；那我的系统上还有其他的帐户存在，例如:admin-two,这就是我想知道的如何在admin的帐户下以 admin-two，的名字启动另一QQ,请高手指导下，谢谢！

Answer 1

1-右键点QQ图标, 选择 运行方式, 在弹出的对话框中 选 下列用户 ,输入另一个用户的用户名密码 , 确定即可

2-runas /user:xxx QQ.EXE

Answer 2

XP或者NT有个自带的命令
runas
你可以用vb的shell函数，拿来调用
runas 的具体用法如下：
RUNAS 用法:

RUNAS [ [/noprofile | /profile] [/env] [/netonly] ]
/user:<UserName> program

RUNAS [ [/noprofile | /profile] [/env] [/netonly] ]
/smartcard [/user:<UserName>] program

/noprofile 指定不应该加载用户的配置文件。
这会加速应用程序加载，但
可能会造成一些应用程序运行不正常。
/profile 指定应该加载用户的配置文件。
这是默认值。
/env 要使用当前环境，而不是用户的环境。
/netonly 只在指定的凭据限于远程访问的情况下才使用。

/savecred 用用户以前保存的凭据。
Windows XP Home Edition 上没有这个选项。
该选项会被忽略。
/smartcard 如果凭据是智能卡提供的，则使用这个选项。

/user <UserName> 应使用 USER@DOMAIN 或 DOMAIN\USER 形式
program EXE. 的命令行。请参阅下面的例子

例如:
> runas /noprofile /user:mymachine\administrator cmd
> runas /profile /env /user:mydomain\admin "mmc %windir%\system32\dsa.msc"
> runas /env /user:user@domain.microsoft.com "notepad \"my file.txt\""

注意: 只在得到提示时才输入用户的密码。
注意: USER@DOMAIN 跟 /netonly 不兼容。
注意: /profile 跟 /netonly 不兼容。

Answer 3

放在公共模块里

===============
Private Const LOGON_WITH_PROFILE = &H1&
Private Const LOGON_NETCREDENTIALS_ONLY = &H2&
Private Const CREATE_DEFAULT_ERROR_MODE = &H4000000
Private Const CREATE_NEW_CONSOLE = &H10&
Private Const CREATE_NEW_PROCESS_GROUP = &H200&
Private Const CREATE_SEPARATE_WOW_VDM = &H800&
Private Const CREATE_SUSPENDED = &H4&
Private Const CREATE_UNICODE_ENVIRONMENT = &H400&
Private Const ABOVE_NORMAL_PRIORITY_CLASS = &H8000&
Private Const BELOW_NORMAL_PRIORITY_CLASS = &H4000&
Private Const HIGH_PRIORITY_CLASS = &H80&
Private Const IDLE_PRIORITY_CLASS = &H40&
Private Const NORMAL_PRIORITY_CLASS = &H20&
Private Const REALTIME_PRIORITY_CLASS = &H100&

Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type

Private Type STARTUPINFO
cb As Long
lpReserved As Long
lpDesktop As Long
lpTitle As Long
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Byte
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type

Private Declare Function CreateProcessWithLogon Lib "Advapi32" Alias "CreateProcessWithLogonW" (ByVal lpUsername As Long, ByVal lpDomain As Long, ByVal lpPassword As Long, ByVal dwLogonFlags As Long, ByVal lpApplicationName As Long, ByVal lpCommandLine As Long, ByVal dwCreationFlags As Long, ByVal lpEnvironment As Long, ByVal lpCurrentDirectory As Long, lpStartupInfo As STARTUPINFO, lpProcessInfo As PROCESS_INFORMATION) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Function RunAs(lpUsername, Optional lpPassword = "", Optional lpApplicationName = "", Optional lpCommandLine = "") As Boolean
Dim StartInfo As STARTUPINFO, ProcessInfo As PROCESS_INFORMATION
StartInfo.cb = LenB(StartInfo)
RunAs = CreateProcessWithLogon(StrPtr(lpUsername), 0, StrPtr(lpPassword), LOGON_WITH_PROFILE, StrPtr(lpApplicationName), StrPtr(lpCommandLine), CREATE_DEFAULT_ERROR_MODE Or CREATE_NEW_CONSOLE Or CREATE_NEW_PROCESS_GROUP, ByVal 0&, 0, StartInfo, ProcessInfo)
CloseHandle ProcessInfo.hThread
CloseHandle ProcessInfo.hProcess
End Function
==============

runas "admin-two", ,<QQ路径>
everything is Okay!!!

Answer 4

右键点QQ图标
选择 运行方式
在弹出的对话框中 选 下列用户
输入另一个用户的用户名密码
确定即可

Answer 5

切换用户 到admin-two然后启动QQ。
或安装虚拟机。在虚拟机中运行QQ。