关于通过vb或cmd下载(.exe)文件开发者社区的信息

k quot Text1Text通过vb或cmd下载(.exe)文件开发者社区， vbNormalFocusEnd Sub如果希望执行以后不保留CMD窗口，则把CMD K改成 CMD CSet WshShell = WScriptCreateObjectquotWScriptShellquotWshShellRun quotwinrarexequot a m5 ep1 quot压缩文件名quot quot压缩原始文件或文件夹quot通过vb或cmd下载(.exe)文件开发者社区你调用 rarexe和unrarexe 2个文件实现压缩和解压缩直接在VB；代码Shell quotcmd c E\111plequot说明Shell可以调用任何类型的文件，其中c参数指定通过vb或cmd下载(.exe)文件开发者社区了cmd运行完毕后自动关闭，如果换成k参数则指定了cmd运行完毕后保留shell；Shell quotcmdexe c 你要执行的命令quot其中要执行的命令中需要注意空格问题 如果一个参数中有空格就需要使用双引号引起来，双引号在VB字符串中使用两个双引号quotquot表示例如Shell quotcmdexe c copy quotquotd\ab ctxtquotquot quotquotd\a bctxtquotquotquotShell 函数执行一个可执行文件，返回一个 Variant；输入cmd， 回车，在命令提示符下输入复制即可 for %1 in %windir%\system32\*ocx do regsvr32 s %1 粘贴，回车，再输入for %1 in %windir%\system32\*dll do regsvr32exe s %1 回车直到屏幕滚动停止为止，重启电脑10实在不行就“一键还原”系统或“重装系统”如果；简单啊·代码Shell quotcmdexe c taskkill im exequot ，vbhide 这样就可以关闭了如果要关闭其通过vb或cmd下载(.exe)文件开发者社区他的就直接输入你要关闭的程序的进程就可以了在。

下载完成后，您需要遵循安装向导的指示来完成安装过程安装过程中，建议您仔细阅读每一步骤的说明，以确保正确安装VB60安装完成后，您可以通过Visual Basic 60集成开发环境IDE来创建编译和运行您的应用程序尽管VB60不再得到微软官方的支持，但通过社区的支持和资源，您可以找到许多相关的教程；cmdexe c net use \共享文件夹 password userusername username是上必须存在的对共享文件夹有可更改权限的用户的登录名，password是该用户的密码 除非是老式的Win9x系统，否则必须登录。

可以调用，自己修改Private Sub Command1_ClickShell quotcmdexe cquot quotping c\abctxtquotEnd Sub用个例子进行演示一下，比如在VB中调用DOS命令，如何得知DOS命令是否已经执行完毕方法如下Set wshl = CreateObjectquotwscriptshellquotwshlRun quotping 9zpcomquot， 1， True #39；也可设为vbNullString，表示默认为“Open”lpFile String，想用关联的程序打印或打开的一个程序名或文件名lpParameters String，如lpFile是一个可执行文件，则这个字串包含了传递给执行程序的参数如lpFile引用的是一个文档文件，或者不需要使用参数，则设为vbNullStringlpDirectory String，想使用的默认路径；Print #1， quotbcdeditexeset current nx AlwaysOffquotPrint #1， quotpausequotClose #1Shell quotE\testbatquot， vbNormalNoFocus代码本身是没有问题的很可能是你的系统目录C\Windows\System32下面少了bcdeditexe这个文件，导致命令提示符报错“不是内部或外部命令，也不是可运行放入程序或批处理文件”可。

这是因为你的bat中使用绝对路径，vb在调试时启动路径为C\Program Files\Microsoft Visual Studio\VB98，所以atxt就产生在程序启动的位置 bat内容正确为 echo off Fwmic process fatxt 请；str = IIfLenAppPath 3， AppPath quot\quot AppEXEName quotexequot， AppPath AppEXEName quotexequot str 就是EXE文件的路径了搞这么复杂是因为当EXE文件在根目录下的时候，apppath 是带有“\”，不在根目录下的时候没有 本回答由网友推荐 举报 答案纠错 评论 6 0；启动vb前，将vbexe右键属性，在兼容性栏，勾选以兼容模式运行xp3，以管理员方式运行即可解决应用程序错误解决方法一 检查电脑是否存在病毒解决方法杀毒二 系统文件损坏或丢失，盗版系统或Ghost版本系统，很容易出现该问题解决方法使用完整版或正版系统三 安装的软件与系统或其它软件发。

修改下答案吧，给你写一小段示例代码，估计修改下就可以用了，但要注意 你的aaaacmd里面的数据格式必须是文本的 Private Sub Command1_ClickDim strFileName As String #39文件名 Dim lngHandle As Long #39文件句柄 Dim strAll As String #39所读取的文本文件的所有内容 Dim strLine As String #39在；b 开始菜单－运行－输入cmd 回车在命令提示符下输入for %1 in %windir%\system32\*dll do regsvr32exe s %1 后回车，怕输入错误的话，可以复制这条指令，然后在命令提示框点击左上角的c\，使用下面的“编辑－粘贴”功能就不容易输错了在飞速滚屏完全静止之后，别着急启动其他；str3 = IIfoptyesValue， quot是党员quot， quot非党员quotEnd Sub Private Sub Command1_ClickMsgBox Option1Value End Sub #39如果以上不能运行或者显示的结果不是false的话建议重装vb 默认情况下是未选中的，结果应该是false，编译成exe文件拷贝到别人的机器上运行看看，如果还是true的话就重装vb；ShellExecute MEhWnd， vbNullString， vbNullString， vbNullString， quotC\1exequot， 0 通过这个函数，可以查找与指定文件关联的程序文件和程序之间的关联可以通过Windows注册表编辑器进行设置，例如，扩展名为TXT的文件通常与记事本NOTEPADEXE相关联双击TXT文件时，记事本会自动打开并显示该文件。

上一篇： 【Windows】Windows11、Windows10完美去除快捷方式小箭头的简单介绍

下一篇： 关于详解nRF24L01无线收发模块设计(附完整源码)开发者的信息