11/04/19 11:21:04.80
#include "d3m.hsp"
#uselib "ntdll.dll"
#func RtlInitUnicodeString "RtlInitUnicodeString" sptr,sptr
#func ZwCreateFile "ZwCreateFile" sptr,int,sptr,sptr,sptr,int,int,int,int,sptr,int
#func ZwDeviceIoControlFile "ZwDeviceIoControlFile" int,int,sptr,sptr,sptr,int,sptr,int,sptr,int
#func ZwClose "ZwClose" int
dim usDn,2
sdim Dn,16
cnvstow Dn,"\\Device\\Beep"
RtlInitUnicodeString varptr(usDn),varptr(Dn)
hFile=0
dim objAttr,6
objAttr=24
objAttr.2=varptr(usDn)
dim ioStat,2
ZwCreateFile varptr(hFile),3,varptr(objAttr),varptr(ioStat),0,0,3,3,0,0,0
dim opt,2
opt.0=500
opt.1=500
ZwDeviceIoControlFile hFile,0,0,0,varptr(ioStat),$10000,varptr(opt),8,0,0
s=d3timer()
mes "ピ"
while s+opt.1>=d3timer()
x+=ginfo_mesx
pos x,0
mes "~"
await 50
wend
ZwClose hFile