blocks|key|1446600|text|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1446601|+easyhook库|blockquote|1446602|1446603|1446604|尝试使用the+EasyHook+library|offset|length|1446605|entityMap|0|LINK|mutability|MUTABLE|url|http://easyhook.codeplex.com/^0|0|0|0|0|4|K|0|0^^$0|@$1|2|3|-4|4|5|6|R|7|@]|8|@]|9|$]]|$1|A|3|B|4|C|6|S|7|@]|8|@]|9|$]]|$1|D|3|-4|4|5|6|T|7|@]|8|@]|9|$]]|$1|E|3|-4|4|5|6|U|7|@]|8|@]|9|$]]|$1|F|3|G|4|5|6|V|7|@]|8|@$H|W|I|X|1|Y]]|9|$]]|$1|J|3|-4|4|5|6|Z|7|@]|8|@]|9|$]]]|K|$L|$4|M|N|O|9|$P|Q]]]]

<blockquote>
 easyhook libraries
</blockquote>

Try to use <a href="http://easyhook.codeplex.com/" rel="nofollow">the EasyHook library</a>

blocks|key|1470460|text|我发现基于deviare挂钩dll的工作vb.net代码隐藏在deviare论坛中。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1470461|请记住在安装了deviare之后，添加在visual+studio的添加引用页面的com选项卡下找到的所有6个deviare引用。|1470462|Public+Class+Form1

'To+print+to+a+textbox+in+the+gui+you+will+have+to+call+textbox.invoke
Private+_mgr+As+Deviare.SpyMgr
Private+WithEvents+_hook+As+Deviare.Hook
Private+_proc+As+DeviareTools.IProcess

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

++++_mgr+=+New+Deviare.SpyMgr()
++++_hook+=+_mgr.CreateHook("user32.dll!ShowWindow")
++++_hook.Attach(_mgr.Processes)
++++_hook.AddProcessFilter(0,+"notepad",+1)
++++_hook.Hook()

Private+Sub+OnFunctionCalled(ByVal+proc+As+DeviareTools.IProcess,+ByVal+callInfo+As+DeviareParams.ICallInfo,+ByVal+rCall+As+Deviare.IRemoteCall)+Handles+_hook.OnFunctionCalled

Debug.Print("Caught+function+call+in+"+&+proc.Name)+'view+in+imediate+window

End+Sub

end+class|code-block|syntax|javascript|1470463|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|L|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|M|8|@]|9|@]|A|$G|H]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

I found working vb.net code based on the deviare hooking dlls buried in the deviare forums.

please remember to add all 6 deviare references found under the com tab of the add references page of visual studio after installing deviare.

<pre><code>Public Class Form1

'To print to a textbox in the gui you will have to call textbox.invoke
Private _mgr As Deviare.SpyMgr
Private WithEvents _hook As Deviare.Hook
Private _proc As DeviareTools.IProcess

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

 _mgr = New Deviare.SpyMgr()
 _hook = _mgr.CreateHook("user32.dll!ShowWindow")
 _hook.Attach(_mgr.Processes)
 _hook.AddProcessFilter(0, "notepad", 1)
 _hook.Hook()

Private Sub OnFunctionCalled(ByVal proc As DeviareTools.IProcess, ByVal callInfo As DeviareParams.ICallInfo, ByVal rCall As Deviare.IRemoteCall) Handles _hook.OnFunctionCalled

Debug.Print("Caught function call in " &amp; proc.Name) 'view in imediate window

End Sub

end class
</code></pre>

blocks|key|1470501|text|我正在将Easyhook+c#代码转换成vb.net。目前，我得到了错误代码5的消息，挂钩的应用程序正在被windows关闭，例如，帮助保护您的计算机等。如果有人能在这方面提供帮助，我将不胜感激。到目前为止我得到的是..。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1470502|Imports+EasyHook
Imports+System
Imports+System.Diagnostics
Imports+System.Runtime.Remoting
Imports+System.Windows.Forms
Imports+System.Security
Imports+System.Security.Principal

Namespace+FileMon
Friend+Class+Program
++++'+Methods
++++Public+Shared+Sub+Main(ByVal+args+As+String())

++++++++Dim+result+As+Integer+=+0
++++++++If+((args.Length+<>+1)+OrElse+Not+Integer.TryParse(args(0),+result))+Then
++++++++++++Console.WriteLine()
++++++++++++Console.WriteLine("Usage:+FileMon+%25PID%25")
++++++++++++Console.WriteLine()
++++++++Else
++++++++++++Try
++++++++++++++++Try
++++++++++++++++++++Console.WriteLine("Registering+Application")
++++++++++++++++++++Console.WriteLine()
++++++++++++++++++++Config.Register("A+FileMon+like+demo+application.",+"FileMon.exe",+"FileMonInject.dll")

++++++++++++++++Catch+exception1+As+ApplicationException
++++++++++++++++++++Console.WriteLine("This+is+an+administrative+task!+"+&+exception1.ToString)
++++++++++++++++++++Console.WriteLine()
++++++++++++++++++++Process.GetCurrentProcess.Kill()
++++++++++++++++End+Try

++++++++++++++++Console.WriteLine("Creating+IPC+Server")
++++++++++++++++Console.WriteLine()
++++++++++++++++RemoteHooking.IpcCreateServer(Of+FileMonInterface)(Program.ChannelName,+WellKnownObjectMode.SingleCall)
++++++++++++++++RemoteHooking.Inject(result,+"FileMonInject.dll",+"FileMonInject.dll",+New+Object()+{Program.ChannelName})
++++++++++++++++Console.WriteLine("Injected")
++++++++++++++++Console.WriteLine()
++++++++++++++++Console.ReadLine()

++++++++++++Catch+exception+As+Exception
++++++++++++++++Console.WriteLine("There+was+an+error+while+connecting+to+target:"+&+exception.ToString)
++++++++++++End+Try
++++++++End+If
++++End+Sub

++++'+Fields
++++Private+Shared+ChannelName+As+String
End+Class
End+Namespace|code-block|syntax|javascript|1470503|和|1470504|Imports+System

Namespace+FileMon
Public+Class+FileMonInterface
++++Inherits+MarshalByRefObject
++++'+Methods
++++Public+Sub+IsInstalled(ByVal+InClientPID+As+Integer)
++++++++Console.WriteLine("FileMon+has+been+installed+in+target+"+&+InClientPID)
++++End+Sub

++++Public+Sub+OnCreateFile(ByVal+InClientPID+As+Integer,+ByVal+InFileNames+As+String())
++++++++Dim+i+As+Integer
++++++++For+i+=+0+To+InFileNames.Length+-+1
++++++++++++Console.WriteLine(InFileNames(i))
++++++++Next+i
++++End+Sub

++++Public+Sub+Ping()
++++End+Sub

++++Public+Sub+ReportException(ByVal+InInfo+As+Exception)
++++++++Console.WriteLine(("The+target+process+has+reported+an+error:"+&+InInfo.ToString))
++++End+Sub

End+Class
End+Namespace|1470505|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

I am in the process of converting the Easyhook c# code into vb.net. At the moment I am getting the error code 5 message and the hooked application is being closed by windows eg to help protect your computer etc. If anyone could help with this then I would be grateful. What I have so far is...

<pre><code>Imports EasyHook
Imports System
Imports System.Diagnostics
Imports System.Runtime.Remoting
Imports System.Windows.Forms
Imports System.Security
Imports System.Security.Principal

Namespace FileMon
Friend Class Program
 ' Methods
 Public Shared Sub Main(ByVal args As String())

 Dim result As Integer = 0
 If ((args.Length &lt;&gt; 1) OrElse Not Integer.TryParse(args(0), result)) Then
 Console.WriteLine()
 Console.WriteLine("Usage: FileMon %PID%")
 Console.WriteLine()
 Else
 Try
 Try
 Console.WriteLine("Registering Application")
 Console.WriteLine()
 Config.Register("A FileMon like demo application.", "FileMon.exe", "FileMonInject.dll")

 Catch exception1 As ApplicationException
 Console.WriteLine("This is an administrative task! " &amp; exception1.ToString)
 Console.WriteLine()
 Process.GetCurrentProcess.Kill()
 End Try

 Console.WriteLine("Creating IPC Server")
 Console.WriteLine()
 RemoteHooking.IpcCreateServer(Of FileMonInterface)(Program.ChannelName, WellKnownObjectMode.SingleCall)
 RemoteHooking.Inject(result, "FileMonInject.dll", "FileMonInject.dll", New Object() {Program.ChannelName})
 Console.WriteLine("Injected")
 Console.WriteLine()
 Console.ReadLine()

 Catch exception As Exception
 Console.WriteLine("There was an error while connecting to target:" &amp; exception.ToString)
 End Try
 End If
 End Sub

 ' Fields
 Private Shared ChannelName As String
End Class
End Namespace
</code></pre>

and

<pre><code>Imports System

Namespace FileMon
Public Class FileMonInterface
 Inherits MarshalByRefObject
 ' Methods
 Public Sub IsInstalled(ByVal InClientPID As Integer)
 Console.WriteLine("FileMon has been installed in target " &amp; InClientPID)
 End Sub

 Public Sub OnCreateFile(ByVal InClientPID As Integer, ByVal InFileNames As String())
 Dim i As Integer
 For i = 0 To InFileNames.Length - 1
 Console.WriteLine(InFileNames(i))
 Next i
 End Sub

 Public Sub Ping()
 End Sub

 Public Sub ReportException(ByVal InInfo As Exception)
 Console.WriteLine(("The target process has reported an error:" &amp; InInfo.ToString))
 End Sub

End Class
End Namespace
</code></pre>

I have been trying to build a game bot in vb.net. One of the main problems is getting access to the text the game prints on the screen so I have been trying to hook the games calls to the windows api drawtext and textout functions. I have been hunting for examples of how to set up a hook in vb.net for a long time without any luck. I have found it impossible to translate examples in old school vb, C++, and C#. For convenience's sake I would like to use the freely available deviare and/or easyhook libraries. Can anyone help?

hooking another program's calls to winapi functions in vb.net

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我一直在尝试用vb.net构建一个游戏机器人。其中一个主要问题是访问游戏打印在屏幕上的文本，所以我一直在尝试将游戏调用与windows api、drawtext和textout函数挂钩。很长一段时间以来，我一直在寻找如何在vb.net中设置钩子的示例，但一无所获。我发现用老式的vb、C++和C#来翻译例子是不可能的。为...

问在vb.net中将另一个程序的调用挂接到winapi函数
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问在vb.net中将另一个程序的调用挂接到winapi函数EN