Невозможно загрузить DLL AutoHotkey.dll VB.NET - PullRequest
Новая
       27

Невозможно загрузить DLL AutoHotkey.dll VB.NET

0 голосов
/ 20 мая 2019

я все еще новичок, я пытаюсь делать классные вещи, используя проект vb.net, но у меня проблема

Невозможно загрузить DLL 'AutoHotkey.dll

System.DllNotFoundException HResult = 0x80131524 Сообщение = Невозможно загрузить DLL 'AutoHotkey.dll': указанный модуль не найден. (Исключение из HRESULT: 0x8007007E) Source = WindowsApp2 StackTrace: в WindowsApp2.Form1.ahktextdll (строковый сценарий, строковые параметры, строковый параметр) в WindowsApp2.Form1.Button1_Click (отправитель объекта, EventArgs e) в C: \ Users \ test \ source \ repos \ WindowsApp2 \ WindowsApp2 \ Form1.vb: строка 19 в System.Windows.Forms.Control.OnClick (EventArgs e) в System.Windows.Forms.Button.OnClick (EventArgs e) в System.Windows.Forms.Button. OnMouseUp (MouseEventArgs mevent) в System.Windows.Forms.Control.WmMouseUp (сообщение & m, кнопка MouseButtons, щелчки Int32) в System.Windows.Forms.Control.WndProc (сообщение & m) в System.Windows.Forms.ButtonBase.WndProc ( Сообщение & m) в System.Windows.Forms.Button.WndProc (Сообщение & m) в System.Windows.Forms.Control.ControlNativeWindow.OnMessage (Сообщение & m) в System.Windows.Forms.Control.ControlNativeWindow.WndProc (Сообщение & m) в System.Windows.Forms.NativeWindow.DebuggableCallback (IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) в System.Windows.Forms.UnsafeNativeMethods.Dispa tchMessageW (MSG & msg) в System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop (IntPtr dwComponentID, причина Int32. Int2. Причина Int32, контекст ApplicationContext) в System.Windows.Forms.Application.ThreadContext.RunMessageLoop (причина Int32, контекст ApplicationContext) в Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun () в Microsoft.VisualBasic.ApplicationB.ic.ApplicationForAs.ApplicationForAs.ApplicationForAs.ApplicationService.ApplicationService.ApplicationService.ApplicationService.ApplicationService.ApplicationService.ApplicationService.ApplicationService.ApplicationService). Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run (String [] commandLine) в WindowsApp2.My.MyApplication.Main (String [] Args) в строке 81

мой код: 

Imports System.Runtime.InteropServices
Imports AutoHotkey.Interop
Imports AutoHotkey
Imports System.IO

Public Class Form1

' Dim ahk = New AutoHotkey
<DllImport("AutoHotkey.dll", CallingConvention:=CallingConvention.Cdecl, CharSet:=CharSet.Unicode)>
Private Shared Function ahktextdll(ByVal script As String, ByVal options As String, ByVal param As String) As Integer
End Function
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim n As Object = vbLf
    Dim script As Object = ("SetTitleMatchMode, 2" & (n & ("Run, calc.exe" & (n & ("Sleep, 1000" & (n & ("WinGet, rid , ,Rechner, , , " & (n & ("WinActivate, ahk_id %rid%" & (n & ("IfWinExist, ahk_id %rid%" & (n & ("{" & (n & (vbTab & "WinMove, ahk_id %rid%,, 0, 0, , " & (n & ("}" & (n & ("MouseClick, left,  105,  184" & (n & ("Sleep, 100" & (vbCrLf & ("MouseClick, left,  147,  215" & (n & ("Sleep, 100" & (vbCrLf & ("MouseClick, left,  110,  185" & (n & ("Sleep, 100" & (vbCrLf & ("MouseClick, left,  178,  263" & (n & ("Sleep, 100" & (n & "msgbox, 81"))))))))))))))))))))))))))))))))))
    ahktextdll(script, "", "")
    MsgBox("ende")

End Sub
End Class
...