zoukankan      html  css  js  c++  java
  • vb6.0的各种SHELL,CMD内部命令、外部命令、SHELL任意文件

     1 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
     2 '能打开任意文件的shell
     3 Public Function ShellAll(nHwnd As Long, ByVal strFilePath As String, Optional ByVal strCanShu As String = "") As Boolean
     4     On Error GoTo ShellAllErr
     5     ShellAll = True
     6     strFilePath = Trim(strFilePath)
     7     Dim nLs As Long
     8     nLs = ShellExecute(nHwnd, "open", strFilePath, vbNullString, strCanShu, vbNormalFocus)
     9     If nLs <= 32 Then
    10         ShellAll = False
    11     End If
    12     Exit Function
    13 ShellAllErr:
    14     Err.Clear
    15     ShellAll = False
    16 End Function
    17 '不提示错误的shell,可SHELL外部DOs命令
    18 Public Function myShell(strFile As String) As Boolean
    19     On Error GoTo shellError
    20     myShell = True
    21     Dim k As Long
    22     k = Shell(strFile, vbNormalFocus)
    23     If k = 0 Then myShell = False
    24     Exit Function
    25 shellError:
    26     myShell = False
    27 End Function
    28 'SHELL DOS的内部命令
    29 Public Sub ShellDocIn(ByVal strCmd As String)
    30     On Error Resume Next '此过程不保证一定执行成功
    31     strCmd = Trim(strCmd)
    32     Shell "Cmd.exe /k " & strCmd, vbHide
    33 End Sub
    欢迎大家添加我为好友: QQ: 578652607
  • 相关阅读:
    vue 将毫秒转为日期
    element-ui 点击获取table的行索引
    LInux设置tomcat端口为80
    java引用传递和值传递
    java包装类的自动装箱及缓存
    理解JVM之java内存模型
    理解JVM之类加载机制
    理解JVM之内存分配以及分代思想实现
    理解JVM之垃圾回收
    理解JVM之对象的生命周期
  • 原文地址:https://www.cnblogs.com/lhghroom/p/7663476.html
Copyright © 2011-2022 走看看