Option Explicit On
Public Class Class1
Public Const DLL_PROCESS_DETACH = 0
Public Const DLL_PROCESS_ATTACH = 1
Public Const DLL_THREAD_ATTACH = 2
Public Const DLL_THREAD_DETACH = 3
Public Function DllMain(ByVal Handle As Long, ByVal Durum As Long, ByVal Yer As Long) As Boolean
Select Case Durum
Case DLL_PROCESS_DETACH
Case DLL_PROCESS_ATTACH
DllMain = True
MsgBox("Injected")
Case DLL_THREAD_ATTACH
DllMain = True
MsgBox("Injected")
Case DLL_THREAD_DETACH
End Select
Return True
End Function
Private Sub Main()
MsgBox("Injected")
End Sub
Protected Overrides Sub Finalize()
MyBase.Finalize()
End Sub
End Class