【だからこそ】HSP初質P58【続けるよ】at TECH【だからこそ】HSP初質P58【続けるよ】 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト20:デフォルトの名無しさん 11/04/19 10:47:43.34 ＡＰＩの仕様だから無理 Swaveとかの波形合成ツールで似た音作ってmmplayで流すとかで代用するのが楽 21:デフォルトの名無しさん 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 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch