❶ VB中的Shell 函数怎么用
把我自己总结的shell和ShellExecute的用法分享一下:
shell 函数只可以执行.exe .com .bat 的可执行文件。
ShellExecute 是个api函数,可以执行与Windows系统相关联的文件。比如:
shell "c:\1.doc" 应该报错的,因为shell只能执行.exe .com .bat
应:ShellExecute Me.hwnd, "open", "C:\1.doc", "", "", 0
ShellExecute Me.hwnd, "open", "http://xiaofeng0663.go3.icpcn.com", "", "", 5
ShellExecute hwnd, "open", "C:\1.xls", vbNull, vbNull, SW_SHOWNORMAL
ShellExecute声明:Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
打开文件夹
shell "explorer 文件夹",1
shell "cmd /c start D:\music"
打开d盘下music的文件夹
打开网址:
Shell "C:\Program Files\TheWorld 2.0\TheWorld.exe http://www..com", 1
Shell "explorer.exe http://www..com", 1
(Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & strurl , 1)
(sub main()
strfilepath = "F:\cp\C\成果\test\t.dsw"
Shell "C:\Program Files\Microsoft Visual Studio\Common\MSDev98\Bin\MSDEV.EXE " & strfilepath, 1
End Sub
)
调用系统计算器Shell "calc.exe", 3
调用记事本Shell "NotePad ", vbNormalFocus(打开某个记事本:Shell "NOTEPAD.EXE " & 文档路径, vbNormalFocus)
打开任务管理器:Shell "c:\windows\system32\taskmgr.exe", 1
打开资源管理器:Shell "c:\windows\explorer.exe " & path, 1
注销用户 Shell "shutdown -l"
关闭系统 Shell "shutdown -S -t 0"
重启 Shell "shutdown -R -t 0"
0是代表响应的时间
结束explorer.exe进程
Shell "taskkill /f /im explorer.exe ", vbHide
(结束其它进程也是这样,如:shell "taskkill /f /im ttplayer.exe")
❷ 怎么让VB中shell命令执行完第一个命令,再执行第二次命令
这样调用应用程序或批处理文件确实不好。但可以这样操作:Shell "cmd.exe /c具体命令行(如Ipconfig查询IP地址)", vbHide。如下:Shell "cmd.exe /cipconfig", vbHide 就是利用VB查询IP地址的,如命令行不多用此方法重复几次也是可以的。
❸ VB中的shell函数是干什么的怎么用啊
Shell函数是VB中的内部函数,它负责执行一个可执行文件,返回一个Variant(Double),如果成功的话,代表这个程序的进程ID,若不成功,则会返回0,shell一个非常重要的特性是它可作为一种编程语言来使用。
Shell的语法:Shell(PathName[,WindowStyle])。
PathName 为必需参数,类型为String,它指出了要执行的程序名,以及任何需要的参数或命令行变量。
(3)vbshell命令扩展阅读:
因为shell是一个解释器,所以它不能对为它编写的程序进行编译,而是在每次从磁盘加载这些程序时对它们进行解释,而程序的加载和解释都是非常耗时的。
针对此问题,许多shell(如BourneAgainShell)都包含shell函数,shell把这些函数放在内存中,这样每次需要执行它们时就不必再从磁盘读入。
❹ vb中shell的用法还有调用内部命令谁来教一下
shell
有两个方式
第一个有返回值的
pro=shell("路径",打开文件的状态)
第二个
shell
"路径",打开文件的状态
其中
路径就不用说了吧.
打开文件的状态好象是有三个吧.0,1,2
一般1表示默认的.所以一般用的时候用这个.2,好象是最小化,0是最大.
调用内部命令
1,如果你指的是内部函数的话.
一般的用法和上面那个一样.
比如消息框
x=msgbox("prompt",style,"title")
或者
msgbox"prompt",style,"title"
类似的有INPUTBOX函数
X=inputbox("prompt","title",default)
他们的属性我就不一一介绍了,你可以查下.
另外,如果你指的是调用API的话,那就比较麻烦了。
不过大概是这个样子的
[public]
declare
function(sub)
名称
Lib
系统函数名
Alias
别名(值.....)
as
类型
举个例子
Declare
Function
SetFocus
Lib
"user32"
"SetFocus"
(ByVal
hwnd
As
Long)
As
Long
❺ VB如何用Shell命令调用CMD来修改IP
Dim Wsh
Set Wsh=WScript.CreateObject("WScript.Shell")
set objShell=wscript.createObject("wscript.shell")
set Runexe=createobject("wscript.shell")
objShell.Run("netsh interface ip set address name=本地连接 source=static addr=192.168.10.222 mask=255.255.255.0"),0
objShell.Run("netsh interface ip set address name=本地连接 gateway=192.168.10.254 gwmetric=0"),0
objShell.Run("netsh interface ip set dns name=本地连接 source=static addr=192.168.1.1 register=PRIMARY"),0
Set Wsh=NoThing
wscript.quit
===
本地连接是指网卡的名字,也就是在网络连接里看到的网卡名称
❻ vb中shell的完整用法
SHELL语句用法心得
一. 调用系统“创建快捷方式”向导
是否为VB不支持创建快捷方式而于着急呢?虽然 您可以调用vb5stkit.Dll中的fCreateShellLink函 数,但它是为安装程序设计的,快捷方式的默认路径 总是从当前用户的“\Start Menu\Programs”开始,也 就是说,如果您的Windows95装在C盘上,您无法通过 fCreateShellLink函数把快捷方式创建到D盘上去。
现在,给大家介绍一种极为方便、巧妙的方法: 用Shell语句调用系统“创建快捷方式”向导。
新建一个项目,在窗体上放一个按钮,双击此按 钮,加入以下代码:
Private Sub Command1_Click()
Open App.Path & "\temp.lnk" For Output As #1
Close #1 '以上两句在程序所在目录建立一 个临时文件
Shell "Rundll32.exe AppWiz.Cpl,NewLinkHere
"& App.Path & "\temp.lnk"
End Sub
(注意:Shell语句中NewLinkHere后面跟着一个 空格才是引号,否则将出错。)
运行程序,按一下命令按钮,怎么样?“创建快 捷方式”向导出现了,如果创建成功,快捷方式将取 代临时文件temp.lnk的位置,如果选取消,temp.lnk 也会自动消失。当然,您可以在硬盘的任意位置建立 temp.lnk。好,现在又可以为您的程序增添一项新功 能了。Enjoy!
二. Rundll32.exe的用途
我们知道,用Shell语句只能调用可执行文件,即 exe、com、bat和pif文件,有时我们想要调用其他一 些系统功能该怎么办呢?此时,Windows提供的 Rundll32.exe可大显身手了。下面我们来认识一下这 些用法,也许会给您带来一点惊喜。
1.要打开设置系统时间的控制面板文件 (Timedate.cpl),只需运行如下代码:
Shell "Rundll32.exe
Shell32.dll,Control_RunDLL Timedate.cpl"
至于打开其他控制面板文件,相信您一定能够举 一反三,尝试一下,换个文件名就成了。
2.要运行某一快捷方式(*.lnk)则可以用以下 代码:
She11 "Rundll32.exe url.dll, FileProtocolHandler X" (X代表要运行的文件,包括 路径,下同。
3. 也可以这样写来打开ActiveMovie控制:
Shell "RUNDLL32.EXE amovie.ocx,Rundll",1
而用Shell "RUNDLL32.EXE amovie.ocx,Rundll /play X",1 将直接播放媒体文件。
4. Shell "rundll32.exe desk.cpl,InstallScreenSaver X”当然是安装屏幕保 护啦,如果你写了一个屏幕保护程序,那么可以在安 装程序中写上它,而不一定要装到system目录下。顺 便提一下,VB不是自捞一个“Application Setup Wizard”么?它的VB源代码都在安装目录下的 “\setupkit\setup1”中放着呢,好好把它研究一下。 你完全能做出富有个性的安装程序来。
5.按住shift键,右击某一文件,菜单中会出现 “打开方式”选项,这也许已不是什么秘密。但现在, 用shell "rundll32.exe shell32.dll OpenAs_RunDLL X" 便能直接调用“打开方式”框。
6. 甚至能用这样一句来打印文件(包括HTML所 支持的所有文本与图像格式):
Shell "rundll32.exe MSHTML.DLL,PrintHTML X”, 1
怎么样?是不是小有收获呢?这下,您一定会对 Rundll32.exe这个平时不起眼的文件另眼相待了,它 可是系统运行必不可少的部件呢!其实 Shell+Rundll32还能调用其他许多系统功能,比如关 于NetMeeting和Telnet方面的。如果您有兴趣,可以 到往册表的“我的电脑\HKEY_CLASSES_ROOT\”或“我 的电脑\HKEY_LOCAL_MACHINE\Software\CLASSES”下 去看看,本文的内容大都是从那里“抄”来的。只要 有足够的决心、信心、耐心,您一定能发现更多有价 值的东西。Good luck!
❼ vb的shell命令求救!
这句
yuui = Shell("shutdown -s -t + T1 + ", vbNormalFocus)
改成:
yuui = Shell("shutdown -s -t " + str(val(T1)) , vbNormalFocus)