수다닷컴

Function LoadDriver(ByVal DriverName As String, ByVal DriverPath As String) As Integer Dim STA As SERVICE_STATUS Dim hSCM As Long Dim hService As Long Dim ret As Long hSCM = OpenSCManager(vbNullString, vbNullString, &HF003F)
If hSCM = 0 Then LoadDriver = -1& Exit Function End If hService = CreateService(hSCM, _ asdaazzzzzz, _ asdaazzzzzz, _ &HF01FF, _ &H1, _ &H3, _ &H1, _ C:\\Test\\cccc.sys, _ vbNull, vbNull, vbNull, vbNull, vbNull) If hService = 0 Then hService = OpenService(hSCM, DriverName, SERVICE_ALL_ACCESS) If hService = 0 Then LoadDriver = -2& CloseServiceHandle hSCM Exit Function End If End If ret = StartService(hService, 0&, vbNull)
CloseServiceHandle hSCM CloseServiceHandle hService If ret = 0 Then LoadDriver = -3& Exit Function End If LoadDriver = 1&End Function
으 남한텐 알아서 만들라 해놓고 제가 못만드네여hService 까진 생기는데 StartService 의 결과가 자꾸 0으로 되네여 어디서 문제가 잇는거져?게다가GetLastError 리턴값도 0모바일로 쓰는거라 답변은 오늘 못볼듯

신청하기