vb.net打开其他程序,vb打开其他程序

VB.net如何调用外部程序不改变原来的路径?

因为process.start(EXEA)是VB.net

debug下这个exe打开的，所以如果EXEA里面用到了相对路径，那必然是指向VB.net

debug下的，除非在EXEA中使用绝对路径，如果EXEA你无法更改则只能用VB.net

debug下这个exe来控制了，比如EXEA如果要在他自己的目录下去找一个文件，那你就用exe把这个文件复制到VB.net

debug下

VB.NET怎么调用其它模块的过程？

调用过程，调用过程有诸多技巧，它们与过程的类型、位置以及在应用程序中的使用方式有关。下面说明如何调用 Sub 过程和 Function 过程。

调用 Sub 过程

与 Sub 过程不同，在表达式中，Sub 过程不能用其名字调用。调用 Sub 过程的是一个独立的语句。Sub 过程还有一点与函数不一样，它不会用名字返回一个值。但是，与 Function过程一样，Sub 过程也可以修改传递给它们的任何变量的值。

调用 Sub 过程有两种方法：

'以下两个语句都调用了名为 MyProc 的 Sub 过程。

Call MyProc (FirstArgument, SecondArgument)

MyProc FirstArgument, SecondArgument

注意，当使用 Call 语法时，参数必须在括号内。若省略 Call 关键字，则也必须省略参数两边的括号

调用函数过程

通常，调用自行编写的函数过程的方法和调用 Visual Basic 内部函数过程（例如 Abs）的方法一样；即在表达式中写上它的名字。

'下面的语句都调用函数 ToDec。

Print 10 * ToDec

X = ToDec

If ToDec = 10 Then Debug.Print "Out of Range"

X = AnotherFunction ( 10 * ToDec)

就像调用 Sub 过程那样，也能调用函数。下面的语句都调用同一个函数：

Call Year (Now)

Year Now

当用这种方法调用函数时，Visual Basic 放弃返回值。

调用其它模块中的过程

在工程中的任何地方都能调用其它模块中的公用过程。可能需要指定这样的模块，它包含正在调用的过程。调用其它模块中的过程的各种技巧，取决于该过程是在窗体模块中、类模块中还是标准模块中。

窗体中的过程

所有窗体模块的外部调用必须指向包含此过程的窗体模块。如果在窗体模块 Form1 包含 SomeSub 过程，则可使用下面的语句调用 Form1 中的过程：

Call Form1.SomeSub(arguments)

类模块中的过程

与窗体中调用过程类似，在类模块中调用过程要调用与过程一致并且指向类实例的变量。例如，DemoClass 是类 Class1 的实例：

Dim DemoClass as New Class1

DemoClass.SomeSub

但是不同于窗体的是，在引用一个类的实例时，不能用类名作限定符。必须首先声明类的实例为对象变量（在这个例子中是 DemoClass ）并用变量名引用它。

标准模块中的过程

如果过程名是唯一的，则不必在调用时加模块名。无论是在模块内，还是在模块外调用，结果总会引用这个唯一过程。如果过程仅出现在一个地方，这个过程就是唯一的。

如果两个以上的模块都包含同名的过程，那就有必要用模块名来限定了。在同一模块内调用一个公共过程就会运行该模块内的过程。例如，对于 Module1 和 Module2 中名为 CommonName 的过程，从 Module2 中调用 CommonName 则运行 Module2 中的 CommonName 过程，而不是 Module1 中的 CommonName 过程。

从其它模块调用公共过程名时必须指定那个模块。例如，若在 Module1 中调用 Module2 中的 CommonName 过程，要用下面的语句：

Module2.CommonName (arguments)

Public   用于声明对所有模块中的所有其它过程都可以使用的过程。 

Private  用于声明只能在包含该声明的模块中使用的过程。

VB.NET，如何调用外部程序？

两种方法

1.

Shell(""Explorer.exe", AppWinStyle.NormalFocus")

2.

Dim proc As New Process

proc.StartInfo.FileName="Explorer.exe"

proc.Start

方法2给予更多的控制，如结束进程的方法Kill

vb.net 调用其他文件 如 dll

DLL（动态链接库）是一个很有用的东西，在开发大项目的时候显得非常重要，因为多人合作开发时，可以给每个人分配一个任务，用DLL完成，最后组合起来，就不会出现互相冲突的问题。这里给出最简单的DLL编写与调用的示例

首先，我们打开VB.NET，选择类库，名称改为test

然后输入以下代码

Public Class test

    Public Function test(ByVal a As Long, ByVal b As Long) As Long

        Return a + b

    End Function

End Class

保存后，生成DLL文件。

这就是最简单的一个DLL，下面是调用该DLL的示例

新建一个工程，单击“项目” -- 添加引用

找到刚才生成的DLL，双击它

添加引用以后，似乎什么也没发生，这时我们输入以下代码：

Imports test.test

这样，就包含了该DLL的类。

然后我们定义一个类

Dim test As New test.test

这样，就可以使用里面的函数了，下面是程序示例

Imports test.test

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim test As New test.test

        MsgBox(test.test(1, 2))

    End Sub

End Class

运行该程序，可以看到，调用了DLL内的函数。

这就是最简单的DLL示例，可以将一些复杂的代码集成到DLL里，以后升级或重用都比较方便。

求vb.net句柄实例，实现操作其他程序窗口。如我给的例子

Imports System.Text

Imports System.Runtime.InteropServices

Public Class Form1

    ' 相关API函数声明,注释掉的这里没用到，但是也比较常用吧，这些函数的功能都能搜到。

    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr

    Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr

    Private Delegate Function EnumChildProc(ByVal hWnd As IntPtr, ByVal lParam As Integer) As Boolean

    Private Declare Function EnumChildWindows Lib "user32.dll" (ByVal hWndParent As IntPtr, ByVal lpEnumFunc As EnumChildProc, ByVal lParam As Integer) As Boolean

    Private Declare Auto Function SendMessage Lib "User32.dll" (ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As String) As Integer

    'Private Declare Function CheckDlgButton Lib "user32" Alias "CheckDLGButtonA" (ByVal hDlg As IntPtr, ByVal nIDButton As IntPtr, ByVal wCheck As Integer) As Integer

    Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As IntPtr, ByVal lpClassName As StringBuilder, ByVal nMaxCount As Integer) As Integer

    'Private Declare Function GetWindowThreadProcessId Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hwnd As IntPtr, ByVal lpdwProcessId As Long) As Integer

    Private Declare Auto Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLength" (ByVal hwnd As IntPtr) As Integer

    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As StringBuilder, ByVal cch As Integer) As Integer

    ' 相关消息定义，也有没用到的

    Const WM_SETTEXT = HC

    Const WM_GETTEXT = HD

    'Const WM_SETFOCUS = H7

    'Const WM_KILLFOCUS = H8

    'Const WM_CLOSE = H10

    'Const WM_SYSCOMMAND = H112

    'Const SC_CLOSE = HF060

    'Const SC_MINIMIZE = HF020

    Const BM_GETCHECK = HF0

    Const BM_SETCHECK = HF1

    Const BM_GETSTATE = HF2

    Const BM_SETSTATE = HF3

    Const BM_SETSTYLE = HF4

    Const BM_CLICK = HF5

    'Const BM_GETIMAGE = HF6

    'Const BM_SETIMAGE = HF7

    Const BST_UNCHECKED = O0

    Const BST_CHECKED = O1

    Const BST_INDETERMINATE = O2

    ' 储存窗口句柄

    Dim WindowHandle As IntPtr

    ' 储存两个（或者多个）编辑框句柄

    Dim EditHandle As New List(Of IntPtr)

    Dim EditWindowsText As List(Of String)

    ' 储存复选框句柄

    Dim CheckHandle As IntPtr = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Button1_Click(sender, e)

    End Sub

    ' EnumChildWindows 回调函数，该函数名作为API函数EnumChildWindows 的一个参数

    ' 该函数实现了枚举各个子窗口，找出编辑框属性的功能

    Public Function EnumChildProcC(ByVal hwnd As IntPtr, ByVal lParam As Integer) As Boolean

        Dim dwWindowClass As StringBuilder = New StringBuilder(100)

        ' 获得某一个句柄的类名

        GetClassName(hwnd, dwWindowClass, 100)

        If dwWindowClass.ToString.Contains("EDIT") Or dwWindowClass.ToString.Contains("Edit") Then     ' 类名包含EDIT的为编辑框

            EditHandle.Add(hwnd)                        ' 存储该句柄

        End If

        ' 返回 True 一直枚举完

        Return True

    End Function

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

        WindowHandle = FindWindow(vbNullString, "登陆")

        If WindowHandle.ToInt32 = 0 Then

            MsgBox("未捕获到窗口" + "登陆")

            Return

        End If

        ' 枚举所有主窗口的子窗口（控件），枚举时自动调用回调函数，完成编辑框句柄的获取

        EnumChildWindows(WindowHandle, AddressOf EnumChildProcC, 0)

        ' 寻找复选框

        CheckHandle = FindWindowEx(WindowHandle, IntPtr.Zero, vbNullString, "记住密码")

        Dim str As New StringBuilder

        Dim j As Integer = 0

        ' 对编辑框文本赋值

        For j = 0 To EditHandle.Count - 1

            SendMessage(EditHandle(j), WM_SETTEXT, 0, "Text")

            'GetWindowText(EditHandle(j), str, 20)

            'EditWindowsText.Add(Str.ToString)

            'Str.Clear()

        Next

        If EditHandle.Count = 0 Then

            MsgBox("未找到输入框！")

        End If        

        If CheckHandle.ToInt32  0 Then

            'CheckDlgButton(WindowHandle, id, 1)

            ' 对复选框进行鼠标单击操作

            SendMessage(CheckHandle, BM_CLICK, 0, 0)

            'SendMessage(CheckHandle, BM_SETCHECK, True, 0)

        End If

    End Sub

    

End Class