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
  • 相关阅读:
    linux下的防火墙iptables
    oracle 学习
    关于测试计划制定
    Android APP性能测试笔记(一)
    adb报错问题解决方法
    Android studio安装与配置
    领导能力与领导力
    ADB安装及使用
    Advanced-REST-client
    性能测试体系-测试分析及调优
  • 原文地址:https://www.cnblogs.com/lhghroom/p/7663476.html
Copyright © 2011-2022 走看看