參考資訊:
https://wasm.in/
http://four-f.narod.ru/
https://github.com/steward-fu/ddk
main.bas
#include "wdm.bi" declare function DriverEntry stdcall alias "DriverEntry" (byval pMyDriver as PDRIVER_OBJECT, byval pMyRegistry as PUNICODE_STRING) as NTSTATUS dim shared pNextDevice as PDEVICE_OBJECT = Null function AddDevice(byval pMyDriver as PDRIVER_OBJECT, byval pPhyDevice as PDEVICE_OBJECT) as NTSTATUS dim usDriverName as UNICODE_STRING dim pMyDevice as PDEVICE_OBJECT = null dim status as NTSTATUS = STATUS_SUCCESS RtlInitUnicodeString(@usDriverName, @wstr("\Device\MyDriver")) status = IoCreateDevice(pMyDriver, 0, @usDriverName, FILE_DEVICE_UNKNOWN, 0, FALSE, @pMyDevice) pNextDevice = IoAttachDeviceToDeviceStack(pMyDevice, pPhyDevice) (*pMyDevice).Flags = (*pMyDevice).Flags and (not DO_DEVICE_INITIALIZING) (*pMyDevice).Flags = (*pMyDevice).Flags or DO_BUFFERED_IO return STATUS_SUCCESS end function function IrpDispatch(byval pMyDevice as PDEVICE_OBJECT, byval pIrp as PIRP) as NTSTATUS dim pStack as PIO_STACK_LOCATION pStack = IoGetCurrentIrpStackLocation(pIrp) If (*pStack).MinorFunction = IRP_MN_REMOVE_DEVICE then IoDetachDevice(pNextDevice) IoDeleteDevice(pMyDevice) IoCompleteRequest(pIrp, IO_NO_INCREMENT) return STATUS_SUCCESS End If IoSkipCurrentIrpStackLocation(pIrp) return IoCallDriver(pNextDevice, pIrp) end function sub Unload(byval pMyDriver as PDRIVER_OBJECT) end sub function DriverEntry(byval pMyDriver as PDRIVER_OBJECT, byval pMyRegistry as PUNICODE_STRING) as NTSTATUS DbgPrint(@!"Hello, world!") (*pMyDriver).DriverUnload = @Unload (*pMyDriver).MajorFunction(IRP_MJ_PNP) = @IrpDispatch (*(*pMyDriver).DriverExtension).AddDevice = @AddDevice return STATUS_SUCCESS end function
L39~44:只有做Callback設定的動作,需要設定AddDevice、PNP、DriverUnload這三個Callback
L08~17:產生一個Device Object,用來管理新加入的裝置(純軟體虛擬裝置也算),接著初使化相關旗標
L21~32:主要處理移除Device Object的動作,其餘Irp不處理,直接往下傳遞
main.inf
[Version] Signature=$CHICAGO$ Class=Unknown Provider=%MFGNAME% DriverVer=8/21/2019,1.0.0.0 [Manufacturer] %MFGNAME%=DeviceList [DeviceList] %DESCRIPTION%=DriverInstall, *MyDriver [DestinationDirs] DefaultDestDir=10,System32\Drivers [SourceDisksFiles] main.sys=1,,, [SourceDisksNames] 1=%INSTDISK%,,, [DriverInstall.NT] CopyFiles=DriverCopyFiles [DriverCopyFiles] main.sys,,,2 [DriverInstall.NT.Services] AddService=FILEIO,2,DriverService [DriverService] ServiceType=1 StartType=3 ErrorControl=1 ServiceBinary=%10%\system32\drivers\main.sys [DriverInstall.NT.HW] AddReg=DriverHwAddReg [DriverHwAddReg] HKR,,SampleInfo,,"" [DriverInstall] AddReg=DriverAddReg CopyFiles=DriverCopyFiles [DriverAddReg] HKR,,DevLoader,,*ntkern HKR,,NTMPDriver,,main.sys [DriverInstall.HW] AddReg=DriverHwAddReg [Strings] MFGNAME="MyDriver" INSTDISK="MyDriver Disc" DESCRIPTION="MyDriver"
編譯
"c:\freebasic\fbc32.exe" -c main.bas "c:\masm32\bin\link.exe" main.o /driver /base:0x10000 /subsystem:native /entry:DriverEntry "c:\masm32\lib\wxp\i386\ntoskrnl.lib" "c:\masm32\lib\wxp\i386\csq.lib" /OUT:main.sys
在開始安裝驅動程式之前,需要先下載除錯工具,讓驅動程式的Debug訊息可以顯示在除錯工具上面,目前最佳的Debug輸出訊息工具是DbgView,該公司目前已經被Microsoft併購,所以可以從Microsoft網站下載,下載完後執行DbgView並將Capture => Capture Kernel選項打勾,接著重啟DbgView
對於驅動程式的安裝工具,司徒目前使用NuMega公司製作的EzDriverInstaller,將main.sys和main.inf放在同一個目錄並執行EzDriverInstaller,選擇File => Open...(開啟main.inf檔案),接著按Add New Device就可以在DbgView上面看到輸出訊息
Device Manager
Device Object