2个Shell问题
1.如何调用类似登陆网上邻居计算机时弹出的登陆对话框
2.如何在网上邻居计算机的右键菜单中添加自己的项目
[解决办法]
第一个问题你去察看下rundll32的用法有你的答案
第二个问题我想问下你要添加哪些菜单是在哪种情况下的快捷菜单
这些可以到注册表中添加
[解决办法]
不知这个对你有用吗
Const PROCESS_QUERY_INFORMATION = 1024
Const STILL_ACTIVE = 259
'等待程序执行完毕
Public Sub ShellWait(cCommandLine As String, AppStyle As VbAppWinStyle)
Dim hShell As Long
Dim hProc As Long
Dim lExit As Long
hShell = Shell(cCommandLine, AppStyle)
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)
Do
GetExitCodeProcess hProc, lExit
DoEvents
' Exit Do
Loop While lExit = STILL_ACTIVE
End Sub
[解决办法]
第一个问题:
这种对话框的出现条件之一是,目标计算机上拥有一个与当前计算机相同的用户名,并且密码不同.
当当前计算机访问目标计算机时,系统会自动尝试用当前用户登录,而由于密码不同,会弹出这个对话框让你确认;
应该还有其它条件,不过没注意....
想让它直接弹出来,恐怕不容易....因为我估计这个框框不是系统的一个资源,而是写出来的...
至于第二个问题,如果在那里的右键里要弄上新的项,估计在其它地方也会有(全局的)
等高手来看看.....我纯属想蹭分型.........
关于ShellWait:
http://www.m5home.com/blog/blogview.asp?logID=411&cateID=2
