精华内容
下载资源
问答
  • VB使用命令行启动外部程序,希望对您有帮助
  • Imports System.Runtime.InteropServicesImports System.ReflectionImports System.ComponentModel'Imports System.Runtime.InteropServicesPublic Class Form1 Private Sub Form1_Disposed(ByVal sender As Obje.....

    Imports System.Runtime.InteropServices
    Imports System.Reflection
    Imports System.ComponentModel
    'Imports System.Runtime.InteropServices

    Public Class Form1

        Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
            My.Settings.Save()
            If p.StartInfo.FileName <> "" Then
                If p.HasExited = False Then
                    p.Kill()
                End If
            End If


        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            On Error Resume Next
            Me.Show()
            With ListBox1.Items
                'TextBox1.Text = "kxyt:" & My.Settings.kxytks & "----" & My.Settings.kxytjs
                'MsgBox(My.Settings.qxytks)


                .Add("千橡鱼塘(kxyt.exe):" & My.Settings.qxytks & "----" & My.Settings.qxytjs & "  耗时: " & Math.Round((CDate(My.Settings.qxytjs).Ticks - CDate(My.Settings.qxytks).Ticks) / 10 ^ 7 / 60, 2) & "分")
                .Add("开心外挂:" & My.Settings.wgks & "----" & My.Settings.wgjs & "  耗时: " & Math.Round((CDate(My.Settings.wgjs).Ticks - CDate(My.Settings.wgks).Ticks) / 10 ^ 7 / 60, 2) & "分")
                .Add("开心鱼塘:" & My.Settings.kxytks & "----" & My.Settings.kxytjs & "  耗时: " & Math.Round((CDate(My.Settings.kxytjs).Ticks - CDate(My.Settings.kxytks).Ticks) / 10 ^ 7 / 60, 2) & "分")
                .Add("小号外挂:" & My.Settings.xhwgks & "----" & My.Settings.xhwgjs & "  耗时: " & Math.Round((CDate(My.Settings.xhwgjs).Ticks - CDate(My.Settings.xhwgks).Ticks) / 10 ^ 7 / 60, 2) & "分")

            End With

        End Sub

        Public Sub yxcx(ByVal cxname As String, ByVal cxpath As String, ByVal btname As String)
            'MsgBox(cxpath + "\log")
            'End
            cxks = Now.Ticks
            pq = IntPtr.Zero
            p.StartInfo.FileName = cxname
            p.StartInfo.WorkingDirectory = cxpath
            p.StartInfo.WindowStyle = FormWindowState.Normal
            p.Start()
            p.EnableRaisingEvents = True
            p.WaitForInputIdle()

            Do While p.MainWindowTitle = ""
                Threading.Thread.Sleep(2000)
                p.Refresh()
            Loop


            Dim tt As Int32 = 1
            Do While pq.ToInt32 < 1
                Dim title As New System.Text.StringBuilder(55)
                Dim MyCallBack As New funcCallBackParent(AddressOf EnumChildWindowsProc)
                EnumChildWindows(p.MainWindowHandle, MyCallBack, IntPtr.Zero)

                'With ListBox1.Items
                '.Add("mc:" & p.MainWindowTitle)
                For Each pq1 As IntPtr In lngHWND
                    '  .Add(pq1.ToString)

                    GetWindowText(pq1, title, title.Capacity + 1)
                    ' .Add(title.ToString)
                    'MsgBox(title.ToString)

                    If InStr(title.ToString, btname) > 0 Then
                        'TextBox1.Text = pq1.ToString & title.ToString
                        TextBox1.Text = p.MainWindowTitle & "正在运行"
                        pq = pq1
                        Exit For
                    End If

                Next
                'End With
                If pq.ToInt32 < 1 Then
                    Threading.Thread.Sleep(2000)
                    p.Refresh()
                End If

                tt = tt + 1
                If tt > 5 Then
                    MsgBox("无法运行")
                    Exit Sub

                End If
            Loop

            PostMessage(pq, WM_LBUTTONDOWN, IntPtr.Zero, 1)
            PostMessage(pq, WM_LBUTTONUP, IntPtr.Zero, 1)
            PostMessage(p.MainWindowHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0)
            FileSystemWatcher1.Path = Trim(cxpath) + "\log"
            FileSystemWatcher1.Filter = "*.*"
            FileSystemWatcher1.EnableRaisingEvents = True

            'p.WaitForExit()
            Do
                'System.Threading.Thread.Sleep(2000)
                Application.DoEvents()
            Loop While p.HasExited = False
        End Sub

        Public Function EnumChildWindowsProc(ByVal hWndParent As IntPtr, ByVal lParam As IntPtr) As Boolean

            lngHWND.Add(hWndParent)
            EnumChildWindowsProc = True
        End Function



        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


            My.Settings.qxytks = Now.ToString
            kxytks = Now.Ticks
            ii.StartInfo.FileName = "d:\exe\kxyt.exe"
            ii.StartInfo.WindowStyle = FormWindowState.Minimized
            ii.Start()
            Timer1.Interval = 3000
            Timer1.Enabled = True

            My.Settings.Save()
            PostMessage(ii.MainWindowHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0)
            'My.Settings.qxytjs = Now.ToString


            My.Settings.wgks = Now.ToString
            Call yxcx("F:\wg714\开心网花园农夫.exe", "F:\wg714", "开始工作")
            My.Settings.wgjs = Now.ToString

            My.Settings.kxytks = Now.ToString
            Call yxcx("F:\XXXXX.exe", "F:\dm\开心钓鱼1008", "开始")
            My.Settings.kxytjs = Now.ToString

            My.Settings.xhwgks = Now.ToString
            Call yxcx("F:\xhwg\开心网花园农夫.exe", "F:\xhwg", "开始工作")
            My.Settings.xhwgjs = Now.ToString
            My.Settings.Save()
        End Sub

        Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed

        End Sub

        Private Sub FileSystemWatcher1_Created(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created
            My.Settings.Save()
            'PostMessage(pq, WM_CLOSE, IntPtr.Zero, IntPtr.Zero)
            Dim t1 As DateTime = Now


            'If p.StartInfo.FileName = "F:\xhwg\开心网花园农夫.exe" Then
            'MsgBox(e.Name)

            Dim title As New System.Text.StringBuilder(55)
            Dim MyCallBack As New funcCallBackParent(AddressOf EnumChildWindowsProc)
            Do
                EnumChildWindows(p.MainWindowHandle, MyCallBack, IntPtr.Zero)

                For Each pq1 As IntPtr In lngHWND


                    GetWindowText(pq1, title, title.Capacity + 1)

                    If InStr(title.ToString, "距下次") > 0 Then
                        'TextBox1.Text = pq1.ToString & title.ToString
                        Exit Do

                    End If

                Next
                Application.DoEvents()
            Loop
            'End If

            Do While (Now.Ticks - t1.Ticks) < (10 * 10 ^ 7)
                Application.DoEvents()
            Loop
            'MsgBox(Now.Ticks - t1.Ticks)
            If p.HasExited = False Then
                'MsgBox(pq.ToString)

                ListBox1.Items.Add(p.StartInfo.FileName() & "  运行完毕  耗时:" & Math.Round((Now.Ticks - cxks) / 10 ^ 7 / 60, 2) & "分")
                p.Kill()
                'p.Close()
            End If
            My.Settings.Save()
        End Sub

        Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
            If ii.HasExited = True Then
                My.Settings.qxytjs = Now.ToString
                ListBox1.Items.Add("d:\exe\kxyt.exe  运行完毕  耗时:" & Math.Round((Now.Ticks - kxytks) / 10 ^ 7 / 60, 2) & "分")
                Timer1.Enabled = False
            End If
        End Sub

        Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            kxytks = Now.Ticks
            ii.StartInfo.FileName = "d:\exe\kxyt.exe"
            ii.StartInfo.WindowStyle = FormWindowState.Minimized
            ii.Start()
            Timer1.Interval = 3000
            Timer1.Enabled = True
        End Sub
    End Class


    ''''''''
    Module Module1
        Public p As Process = New Process()
        Public ii As Process = New Process()
        Public pq As IntPtr
        Public cxks As UInt64
        Public kxytks As UInt64
        Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String)
        'Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
        'Public Delegate Function EnumWindowsCallback( _
        '                   ByVal hWnd As IntPtr, _
        '                  ByVal lParam As IntPtr) As Boolean

        '<DllImport("user32.dll ")> _
        'Public Function EnumChildWindows( _
        '                   ByVal hwndParent As IntPtr, _
        '                  ByVal lpEnumFunc As EnumWindowsCallback, _
        '                 ByVal lParam As IntPtr) As Boolean
        'End Function
        'Friend Declare Function EnumChildWindows Lib "User32" (ByVal hWndParent As IntPtr, ByVal funcCallBack As funcCallBackParent, ByVal lParam As IntPtr) As Boolean
        Public Const WM_CHAR As Long = &H102
        Public Const WM_KEYDOWN = &H100
        Public Const WM_SYSKEYDOWN = &H104
        Public Const WM_CLOSE = &H10
        Public Const BM_CLICK = &HF5
        Public Const WM_LBUTTONDOWN = &H201
        Public Const WM_LBUTTONUP = &H202
        Public Const WM_SETTEXT = &HC
        Public Const WM_SYSCOMMAND = &H112
        Public Const SC_MINIMIZE = &HF020&

        Public Delegate Function funcCallBackParent(ByVal hWnd As IntPtr, ByVal lParam As IntPtr) As Boolean
        Public Delegate Function funcCallBackChild(ByVal hWndParent As IntPtr, ByVal lpEnumFunc As Long, ByVal lParam As Integer) As Boolean

        ' --> EnumChildWindows matches the funcCallParent Delegate 
        Friend Declare Function EnumChildWindows Lib "User32" (ByVal hWndParent As IntPtr, ByVal funcCallBack As funcCallBackParent, ByVal lParam As IntPtr) As Boolean
        Friend Declare Function EnumWindows Lib "User32" (ByVal funcCallBack As funcCallBackParent, ByVal lParam As IntPtr) As IntPtr
        Public Declare Function GetDesktopWindow Lib "user32" () As IntPtr
        Public lngHWND As New ArrayList
        <Runtime.InteropServices.DllImport("user32.dll")> _
        Public Function GetWindowText(ByVal hWnd As IntPtr, ByVal lpWindowText As System.Text.StringBuilder, _
        ByVal nMaxCount As Integer) As Integer
        End Function


        <Runtime.InteropServices.DllImport("user32.dll", SetLastError:=True, CharSet:=Runtime.InteropServices.CharSet.Auto)> _
        Public Function PostMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Boolean
        End Function
    End Module

    展开全文
  • 本次总结一下VB.NET调用外部程序的方法,在总结代码之前,先讲述一下,电脑快捷键调用外部程序方法。下一篇详细讲述一下,VB,NET调用外部程序的方法, 1、电脑win+R调用外部程序方法: 键盘快捷键输入win+R,然后输入...

    本次总结一下VB.NET调用外部程序的方法,在总结代码之前,先讲述一下,电脑快捷键调用外部程序方法。下一篇详细讲述一下,VB,NET调用外部程序的方法,
    1、电脑win+R调用外部程序方法:
    键盘快捷键输入win+R,然后输入CMD,如下图1,然后如果想调用其它盘里的程序,就可需要先转的相对应的盘,然后输入目标程序的.exe路径,以图2为例。输入后回车既可以调用外部程序。这种方法的原理是直接调用可执行程序的.exe程序来调用,这是第一种方法,但这种方法有个弊端,如果.exe文件需要其他的配套文件,则可能出现调用不了的情况。如下图3所示。解决该问题的方法见方法2.
    在这里插入图片描述
    图1
    在这里插入图片描述
    图2
    在这里插入图片描述
    图3
    2、方法2,解决该问题的方法为,输入cd/+目标程序文件夹,先把路径转的目标程序文件夹,然后在输入文件夹下的目标.exe文件,如下图4所示。这样就可以实现程序的调用。
    在这里插入图片描述
    图4

    展开全文
  • 在传统VB程序中,你可以使用Shell函数启动一个应用程序。当你传送一个数据文件名的时候,VB在相应应用程序中打开这个数据文件。你可以使用一个任选的windowstyle参数控制所启动的应用程序的窗口方式。例如,在VB6中...

    在传统VB程序中,你可以使用Shell函数启动一个应用程序。当你传送一个数据文件名的时候,VB在相应应用程序中打开这个数据文件。你可以使用一个任选的windowstyle参数控制所启动的应用程序的窗口方式。例如,在VB6中,下面这行代码将启动默认的文本编辑器(通常是记事本)并打开文件”D:\run.txt”:

    returnID = Shell("D:\run.txt", vbNormalFocus)

    在VB.NET中仍然能够使用Shell功能,并且它已经被做了一些改动,但在.NET框架中它并不是启动应用程序的最好的方法,因为Shell函数有一些严格的限制条件,特别是对外部程序的输入输出控制完全无能为力。而使用System.Diagnostics命名空间中的Process类来启动外部程序,可以简单的使用共享的 Process.Start方法启动一个新的过程,把一个可执行文件名或者可执行应用程序的扩展关联文件名作为参数传输给它。例如,下面的代码启动”D:\run.txt”文件:

    System.Diagnostics.Process.Start("D:\run.txt")

    ProcessStartInfo类是 Process 组件的一部分,使用 Process 类启动进程时,可以访问附加到当前运行进程时可用的进程信息之外的进程信息,可以使用 ProcessStartInfo 类来更好地控制您启动的进程。最吸引我们的是:通常,标准输入方式为键盘,标准输出和标准错误是显示在监视器屏幕上。然而,我们通过ProcessStartInfo类可以使用 RedirectStandardInput、RedirectStandardOutput 和RedirectStandardError 属性使进程从文件或其他设备获取输入,或者向文件或其他设备返回输出。

    下面用一个实例说明,在窗体上放置一个多行文本框,两个按钮,一个Process控件(工具箱的组件面板里面有),名字都为缺省,代码如下:

    Public Class Form1
        Private _process As Process = Nothing
        Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            '启动cmd.exe 无限输出ping localhost的结果。
            Dim psi As New ProcessStartInfo()
            psi.FileName = "cmd.exe"
            psi.Arguments = " /c ping localhost /t"
            psi.UseShellExecute = False
            psi.RedirectStandardOutput = True
            psi.CreateNoWindow = True
            _process = New Process()
            _process.StartInfo = psi
            ' 定义接收消息的Handler
            AddHandler _process.OutputDataReceived, New DataReceivedEventHandler(AddressOf Process1_OutputDataReceived)
            _process.Start()
            ' 开始接收
            _process.BeginOutputReadLine()
        End Sub
    
        Private Delegate Sub AddMessageHandler(ByVal msg As String)
        Private Sub Process1_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles Process1.OutputDataReceived
            Dim handler As AddMessageHandler = Function(msg As String)
                                                   Me.TextBox1.Text += msg + Environment.NewLine
                                                   Me.TextBox1.[Select](Me.TextBox1.Text.Length - 1, 0)
                                                   Me.TextBox1.ScrollToCaret()
                                               End Function
            If Me.TextBox1.InvokeRequired Then
                Me.TextBox1.Invoke(handler, e.Data)
            End If
        End Sub
    
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            _process.CancelOutputRead()
            _process.Close()
        End Sub
    
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Me.TextBox1.HideSelection = False
        End Sub
    End Class
    

    Ping指令获取返回值

    参考:http://msdn.microsoft.com/zh-cn/library/system.diagnostics.processstartinfo(VS.80).aspx

    展开全文
  • 上一节先介绍了电脑快捷键调用外部程序的方法,这节将会以实际代码总结调用外部程序过程。 1、首先运行软件,新建一个窗体应用程序,程序主界面如下图1所示。就一个listbox控件和5个button控件,每个控件内都有一个...
      上一节先介绍了电脑快捷键调用外部程序的方法,这节将会以实际代码总结调用外部程序过程。
    

    1、首先运行软件,新建一个窗体应用程序,程序主界面如下图1所示。就一个listbox控件和5个button控件,每个控件内都有一个调用外部程序的方法,首先看button1控件里边的程序。
    在这里插入图片描述
    图1

      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            '创建一个新的进程结构()
            Dim str As String = "D:\Keil_v5\Uninstall.exe"
            Process.Start(str)
            ListBox1.Items.Add("1")
        End Sub
    

    这个代码块里的内容比较简单,首先把要调用的exe程序路径找到,并赋值给一个字符串类型的变量,然后输入下一行代码即可。这样调用会出现一个问题,那就是在调用时,还没等调用程序运行完,VB主程序依然可以往下执行,运行结果如下图2。如果想等调用程序运行结束后再执行,VB主程序,请参考button3控件里的程序。
    在这里插入图片描述
    图2
    2、button3里的程序代码如下所示。

        Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
            Dim pInfo As New ProcessStartInfo()
            '设置其成员FileName为系统资料的Eula.txt
            pInfo.FileName = "D:\Keil_v5\Uninstall.exe"
            '运行该文件
            Dim p As Process = Process.Start(pInfo)
            '等待程序装载完成()
            p.WaitForInputIdle()
            '等待进行程退出
            p.WaitForExit()
            '继续执行下面的代码
            MessageBox.Show("外部程序运行结束!")
        End Sub
    

    里边代码大体意思为,先定义pInfo为ProcessStartInfo的类,然后把启动程序的路径赋值给pInfo.Filename,然后又定义了p为process的类,p的方法中调用pinfo,p.waitForExit(),该语句作用为,等外部程序运行结束时,在运行自己VB程序。
    3、按钮2位用shell调用外部程序方法,自己用的不是很熟,就把上网找的相关例程展示出来了。

     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            Dim hWnd As Integer
            Dim ProcID As Integer
            ' 通过shell函数运行一个新实例
            ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)
            'hWnd = FindWindow(vbNullString, "计算器")
            If hWnd Then
                MessageBox.Show("找到计算器")
            Else
                MessageBox.Show("没找到计算器")
            End If
    
        End Sub
    

    4、上一篇中讲过,如果直接调用外部可执行程序,有时候会出现调用不了的情况,出现Failed to execute script main的情况,该问题一般原因为,可执行程序需配合目标程序文件夹内的一些配置文件来运行,直接调用.exe程序,则出现调用不了。解决这种问题的方法,就如前一篇文章所说的,先转到目标程序的文件夹,在从文件夹里启动可执行程序。就可以解决上边问题。按钮4中的程序代码就是解决上述问题方法。

      Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
            Dim info As System.Diagnostics.ProcessStartInfo
            info = New System.Diagnostics.ProcessStartInfo()
            info.WorkingDirectory = "D:\调用程序"
            Dim example As String = "main.exe"
            info.FileName = example
            info.Arguments = ""
            Dim proc As System.Diagnostics.Process = New Process
            proc.StartInfo.UseShellExecute = False
            proc.StartInfo.CreateNoWindow = False
            Try
                proc = System.Diagnostics.Process.Start(info)
                proc.WaitForExit()
                ListBox1.Items.Add("2")
            Catch ex As System.ComponentModel.Win32Exception
                MsgBox(ex.Message, MsgBoxStyle.Information, vbOKOnly)
    
                Return
            End Try
    
        End Sub
    

    5.button5按钮里的程序调用,首先需要声明以下代码

      Private Declare Function ShellExecute Lib "shell32.dll " Alias "ShellExecuteA" ( _
                       ByVal hWnd As IntPtr, _
                       ByVal lpOperation As String, _
                       ByVal lpFile As String, _
                       ByVal lpParameters As String, _
                       ByVal lpDirectory As String, ByVal nShowCmd As Int32) As Long
    

    然后按钮里代码为:

       Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
            ShellExecute(0, vbNullString, "D:\Keil_v5\Uninstall.exe", vbNullString, vbNullString, 1)
        End Sub
    

    以上就是调用外部程序总结的方法,如果有说的不对地方,请评论区指出,灰常感谢,

    展开全文
  • VB.NET启动外部程序

    2012-07-18 17:28:00
    VB中可以使用shell函数来启动外部应用程序,而VB.NET新增加了Process类启动的方法。 Shell函数 用法:Shell(pathname[,windowstyle]) pathname是路径名,windowstyle是窗口风格设置,通过常量设置。 但是shell...
  • vb 运行外部程序

    2009-06-09 11:32:00
    在网上找了半天都是用ShellExecute来运行外部程序,我自己弄了半天也没弄明白怎么弄,所以只好找其他的方法了Dim p As New ProcessDim pi As New ProcessStartInfopi.Verb = "open"也可以是printpi.WindowStyle = ...
  • Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Long, ByVal lpWindowName As Long)
  • 这个内容是以前收藏的,不知道出自哪里了,如有意见请留言。1.有好多时候,我们需要调用外部的EXE程序,并且要等它运行... 怎样等待外部程序运行完毕. 从系统资料夹读入文件 Dim sysFolder As String = _ Environment
  • VB 控制其他程序成为自己的子窗体

    热门讨论 2010-07-25 13:11:52
    VB 控制其他程序成为自己的子窗体 VB 控制其他程序成为自己的子窗体
  • 第一步:由程序1启动程序2, 第二步:关键,从程序1自动点击程序2中按钮(无任程序2是最大化、最小化还是隐藏式),请问如何写代码,谢谢 程序1: Public Class Form1 Private Sub Button1_Click(ByVal sender As ...
  • VB 执行其他程序并等待其结束

    千次阅读 2013-05-17 22:14:31
    VB 执行其他程序并等待其结束    近期在编写程序过程中用Winrar中的DOS程序rar.exe 对.Rar文件进行处理,并将结果写入一个文件,后面的程序将此文件用RichTextFile控件LoadFile方法装入,并显示出来,程序步进...
  • ShellExecute的功能是运行一个外部程序(或者是打开一个已注册的文件、打开一个目录、打印一个文件等等),并对外部程序有一定的控制。 目录 1基本简介 2原型参数 3返回值 4例子 5特殊用法 ...
  • 媒体网络,山寨QQ,Java聊天程序 Java编写的山寨QQ,多人聊天+用户在线,程序分服务端和客户端,典型C/S结构, 当用户发送第一次请求的时候,验证用户登录,创建一个该qq号和服务器端保持通讯连接得线程,启动该通讯...
  • VB轻松调用其他程序

    千次阅读 2012-08-09 16:39:57
    我们编写程序时,有时会遇到在一个程序中调用并控制另一个程序执行的情况,在一些编程语言中实现起来较为繁琐,但如果用VB编写时,则可轻松实现。下面我就以在程序中调用“计算器”为例,总结了以下几种方法: 一、...
  • C# 启动外部程序的几种方法:  1. 启动外部程序,不等待其退出。 2. 启动外部程序,等待其退出。 3. 启动外部程序,无限等待其退出。 4. 启动外部程序,通过事件监视其退出。  // using System....
  • .Net启动外部程序 .

    千次阅读 2013-03-26 09:01:35
    在.Net,则使用Process类来启动外部应用程序,如果是VB.net,还可以使用Shell函数。   一、使用Process类启动外部应用程序    Process proc = New Process();  proc.StartInfo.FileName
  • 例如,Windows 提供了一个名为函数FlashWindowEx允许您进行应用程序的标题栏在浅色和深色阴影之间切换。 在代码中使用 Windows Api 的优点是它们可以节省开发时间,因为它们包含大量有用的功能,已编写并等待...
  • [NET]VB.NET启动并监测外部程序

    千次阅读 2007-01-29 09:31:00
    你再也不需要使用Win32应用编程接口或者VB的Shell函数来启动外部应用程序了。因为你可以使用.NET框架中的System.Diagnostics.Process类来进行这个操作,从而进一步简化代码。 虽然.NET使很多事情变得更加复杂,但是...
  • 程序控制外部程序(VB.Net版)

    千次阅读 热门讨论 2008-10-17 11:05:00
    控制过程输入输出 有时候,你可能不仅仅想使用简单的命令行,而是想把更复杂的输入信息直接发送到启动的过程中。前面例子中的把输出导入到文件中的方法,并不总是最好的选择。在许多情况下,把输出直接导回你的应用...
  • VB关闭其他运行的应用程序

    千次阅读 2018-08-31 08:52:56
    /T Tree kill: 终止指定的进程和任何由此启动的子进程。 /? 显示帮助/用法。 筛选器: 筛选器名 有效运算符 有效值 STATUS eq, ne 运行 | 没有响应 IMAGENAME eq, ne 图像名 PID eq, ne, gt, lt, ge,...
  • 内容索引:VB源码,文件操作,读信器 Vb 读信器,在输入区导入你要读取的信件,设置好程序连接,可以是载入外部的txt文本,也可以直接输入或整个载入,然后进行打印机预览,同时还可以设置字体颜色以及选择几首好听的...
  • .Net启动外部程序

    2010-09-06 17:15:00
    .Net启动外部程序 一、使用Process类启动外部应用程序 二、VB.net使用Shell函数启动外部应用程序

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 8,869
精华内容 3,547
关键字:

vb启动外部程序