【だからこそ】HSP初質P58【続けるよ】at TECH
【だからこそ】HSP初質P58【続けるよ】 - 暇つぶし2ch21:デフォルトの名無しさん
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


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch