作者：吹水佬 DECLARE long GetDefaultPrinter IN winspool.drv string@,long@ nlen = 0 GetDefaultPrinter(NULL, @nLen) cName = SPACE(nLen) IF GetDefaultPrinter(@cName, @nLen) != 0 ? LEFT(cName,nLen-1) ELSE ? "没有默认打印机" ENDIF

* 生成数据库中表间关系名 CLEAR CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE T_Rela (父表 c(20),子表 c(20),父表索标 c(20),子表索标 c(20)) OPEN DATABASE Mdf\Comm_Dbf nRelas=ADBOBJECTS(aRela,"RELATION") =ASORT(aRela) FOR i=1 TO nRelas INSERT INTO T_Rela VALUES (aRela[i,2],aRela[i,1],aRela[i,4],aRela[i,3]...

* 生成数据库中表结构明细 CLOSE DATABASES ALL SET SAFETY OFF CREATE TABLE Made_Dbf\T_Name (表名 c(30),字段名 c(20),字段说明 c(100),字段类型 c(1),索引类型 c(10),索引方式 c(4),宽度 n(3),小数位 n(1),表说明 c(100)) OPEN DATABASE Made_Dbf\Comm_Dbf nTables=ADBOBJECTS(aTable,"TABLE") =ASORT(aTable) FOR i=1 TO nTables USE ("Made_D...

oSpeech = CreateObject("SAPI.SpVoice") &&连接到系统的语音功能 sWord='中华人民共和国'&&被阅读的字串 oSpeech.Speak(sWord) &&让系统读出字符串里的内容 oSpeech=NULL &&阅读完毕

DECLARE INTEGER GdipLoadImageFromFile IN Gdiplus.dll STRING, INTEGER @ DECLARE INTEGER GdipSaveImageToFile IN Gdiplus.dll INTEGER, STRING, STRING, INTEGER DECLARE INTEGER GdipDisposeImage IN Gdiplus.dll INTEGER lcBMPFile = GETPICT("BMP") lcJPGFile = FORCEEXT(lcBMPFile,"JPG") lnImage =0 =G...

ox=CreateObject("MSwinsock.Winsock") ?'IP地址：',ox.LocalIP ?'计算机名：',ox.LocalHostName RELEASE OX

作者：自由之风 Clear objWMIService = Getobject("winmgmts:\\.\root\CIMV2") colItems = objWMIService.ExecQuery("SELECT * FROM Win32_VideoController",,48) For Each ye In colItems ?"型 号: "+ ye.VideoProcessor ?"厂 商: "+ye.AdapterCompatibility ?"名 称: "+ ye.Name ?"状 态: "+ y...

** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 名称：WAIT信息屏幕居中 函数 * 作者：宋** * 公司：SYRSOFT(R) 上海 中国 * 声明：版权所有(C)宋** 保留所有权利 ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * 语法 MsgCent(cExpression [,nModel]) * 参数 * cExpression * 指定要显示的自定义信息。若省略...

在百度搜索框内打入 site www.meizvfp.com 你要搜索的关键字