导航:首页 > 程序命令 > vb命令行

vb命令行

发布时间:2023-03-02 22:55:27

① vb 命令

用bat文件
先写一个bat文件,把要执行的命令写在其中
然后shell bat文件路径
如果想得到命令执行的结果,在命令后加 >文件名,就可以把执行的结果输出到文件中。
例如:dir >a.txt
文件的读写我就不说了。

② 在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中怎么获取命令行参数

直接使用Command对象
Private Sub form_load()
Dim ss
If Command <> "" Then
ss = Command '将命令行参数赋值给ss
'这里写你要执行的代码(ss中就是你的命令行参数)
End If
End Sub

例如:
Private Sub form_load()
Dim ss
If Command <> "" Then
ss = Command '将命令行参数赋值给ss
MsgBox "你的命令行参数是:" & ss
End If
End Sub
假设编译为abc.exe,路径为d:\abc.exe
在运行里输入 d:\abc.exe MyMingLingHang
程序运行时 msgbox 就提示 你的命令行参数是:MyMingLingHang
对于 \a \b 等一类多参数命令行也是全部存储在Command中的
具体使用时可以对ss字符串进行切分、判断等一系列操作

④ VB中的"命令行参数"怎么用

给你做个简单的介绍吧,先做下面的
'添加窗体Form1,然后添加如下代码:
"winmm.dll"Alias"mciSendStringA"(ByVallpstrCommandAsString,,ByValuReturnLengthAsLong,ByValhwndCallbackAsLong)AsLong
PrivateSubForm_Load()
SelectCaseLeft(Command,2)
Case"/o"'表示open,打开光驱
mciSendString"SetCDAudioDoorOpenWait",0&,0&,0&
Case"/c"'表示close,关闭光驱
mciSendString"SetCDAudioDoorClosedWait",0&,0&,0&
EndSelect
UnloadMe
EndSub

将上面的编译成test.exe,放到c:\下,然后打开命令提示符窗口,敲入c:\test.exe /o看看,是不是打开光驱了?再试试c:\test.exe /c

⑤ VB程序怎么处理命令行参数

PrivateSubForm_Load()
DimAAsString
A=Command
SelectCaseUCase$(A)
Case"INSTALL"
MsgBox"进入安装模式",vbInformation,"命令行测试"
Me.Caption="安装模式"
Case"UNINSTALL"
MsgBox"进入卸载模式",vbInformation,"命令行测试"
Me.Caption="卸载模式"
CaseElse
MsgBoxA,vbInformation,"命令行测试"
EndSelect
EndSub

'比如将编译好的程序Test.exe放入D盘根目录下,然后启动命令提示符,将目录切换到D盘根目录,然后输入“Testinstall”则会自动弹出消息框。

阅读全文

与vb命令行相关的资料

热点内容
安卓快手下载怎么没有下载到本地 浏览:228
怎么在安卓手机登绘旅人 浏览:404
桌面文件全部加密 浏览:401
6s怎么外接u盘需要什么app 浏览:131
linux查看文件权限命令 浏览:685
安卓手游存档怎么用 浏览:761
linuxyum安装ftp 浏览:690
村委会主任可以推行政命令吗 浏览:102
电脑文件夹封面多张图片 浏览:263
网吧总服务器叫什么 浏览:922
多个算法解决同一个问题 浏览:455
小车解压后我的购车发票呢 浏览:977
做app开发用什么云服务器 浏览:177
linux网卡子接口 浏览:985
21岁职高毕业学程序员怎么学 浏览:321
vs如何对单个文件编译 浏览:6
为什么有的电脑不能安装python 浏览:75
金蝶迷你版加密狗检测到过期 浏览:186
硬件描述语言编译结果 浏览:655
程序员逆天改命 浏览:19