|
HIT目录下的几个PDF文件不就是帮助吗，连MATHLIB接口都有。
function main()
integer i=0,count,c;
string line;
device("GS4");
while(1)
tx("ZMCJ:ALL=N;");//A demo
while(getline(line,"'TOTAL NUMBER OF RESERVED CALL RECORDS'"))
count=strscan(line,"%*s %*s %*s %*s %*s %*s %*s %d",c);
if(count==1)
if(c<1000)
loudbeeploop();
endif
endif
endwhile
loudbeeploop(); //A demo end
if(pause(120,inttostr(++i,DEC))==CANCEL)
abort("user cancel");
endif
endwhile
endfunction
function loudbeeploop()
while(1)
loudbeep();
if(pause(5,"maybe something is wrong")==CANCEL)
abort("user cancel");
endif
endwhile
endfunction
function loudbeep()
integer MyDll;
MyDll=dllload("winmm.dll");
if (MyDll == 0)
abort("winmm.dll loading failed\n");
endif
dllfunction(MyDll,"PlaySound(S,W,W)","PASCAL","C:\\WINDOWS\\Media\\ringin.wav",0,1);
dllfree(MyDll);
endfunction
|
关注楼主