VFP 愛用者社區

chou min sung · 註冊時間: 2005-08-09 文章: 10 來自: 台中 第 1 樓

公司已經有架設mysql server
我要用什麼軟體，才可以在mysql server建構資料庫
由於小弟的英文太爛了
查mysql上的網站，但實在看不懂
我需要下載那些軟體來使用
有那位實力堅強的大大，幫忙解答一下

Erwin · 發表於: 星期三八月 17, 2005 10:04 pm 文章主題:

可下載 phpMyAdmin 的php程式來用
或其他相關工具 http://dev.mysql.com/downloads/administrator/index.html
或...

zlabsoft · 註冊時間: 2003-10-18 文章: 22 第 3 樓

先用人手創建 DATABASE, 在開發的機器要裝好 ODBC
然後用附上的程式把 TABEL (DBF) 傳上到 MYSQL 伺服器

chou min sung · 發表於: 星期三八月 24, 2005 12:55 pm 文章主題:

mydll應該怎麼去使用咧？
小弟素新手菜鳥，懂得不多
請多指點一下唄

zlabsoft · 註冊時間: 2003-10-18 文章: 22 第 5 樓

本文檔為 MYDLL.DLL 說明文檔

MYDLL.DLL 中包含以下函數

01 getcpuid 獲取當前機器的 CPUID
02 getbios 獲取主板 ID
03 getname 獲取當前用戶名
04 getip 獲取本機 IP
05 getmac 獲取網卡 MAC
06 getserial 獲取硬碟出廠序列號
07 ChangeSerialNumber 修改/設置磁片標籤(修改後必須重啟機器)
08 DPGetDefaultPrinter 獲取當前默認印表機
09 DPSetDefaultPrinter 設置當前默認印表機
10 PrintStringDirect 直接發送一個字串到指定印表機，列印完後不會送紙
11 IsPrinter 印表機是否連機 (僅能在 9x 下能用)
12 VolumeNumber 獲取磁片格式化時的標籤
13 IsWin2000 當前機器的作業系統
14 IsDiskInDrive 判斷軟碟驅動器中是否插有軟碟
15 num2txt_e 轉換一個數值型為大寫的金額字串(英文)
16 num2txt_c 轉換一個數值型為大寫的金額字串(中文)
17 IsConnected 判斷本機是否連接到 Internet
18 pinghost Ping 一個主機位址
19 connecttonetwork 映射網路資源為一個本地驅動器, 封裝了 WNetUseConnection API
20 cancelconnect 斷開一個已經映射的網路資源 , 封裝了 WNetCancelConnection2 API
21 myftpputfile 從傳一個檔案到指定的 ftp
22 myftpgetfile 從指定的 ftp 下載一個檔案
23 httpdownload 從指定的 http 下載一個檔案
24 sendmail 發送一個 email (可帶一個附件)
25 smail 通過 smtp 郵件伺服器發送一個 email (不需要本地的 OUTLOOK 等郵件程式,最多可帶四個附件)
26 DialUp 撥號上網
27 DisconnectRas 斷開撥號
28 MyInputBox 一個簡單的口令輸入框
29 encstr 字串加密/解密
30 InitUser 用於創建缺省的密鑰容器，在一台機器上只需運行一次，以為下面兩個函數作準備的函數
31 CAPIEncryptFile 加密一個檔案
32 CAPIDecryptFile 解密一個檔案
33 getcrc 取得一個檔案的 CRC 校驗值
34 MD5File 用 MD5 演算法求一個檔案的 16 位檢查和
35 MD5String 用 MD5 演算法求一個字串的 16 位檢查和
36 compress 壓縮一個目錄中的所有檔案到一個卷或多個卷中(不包括子目錄中的內容)
37 decompress 解壓一個經 compress 函數壓縮的檔案中的所有內容到一個指定目錄中
38 sharedel 設置一個本地驅動器或目錄為共用
39 shareadd 刪除共用
40 ShellExecWait 調用一個外部程式並等待結束
41 SetTime 設置一個目錄或檔案的日期
42 dirsize 獲取一個目錄的大小
43 vfpbeep 讓系統發出 "嘟" 聲
44 exitw 登出/關閉/重啟系統
45 changeres 改變顯示分辯率
46 getmetric 獲取系統顯示器當前的分辯率
47 tojpeg 轉換一個 BMP 檔案到 JPG 檔案
48 tobmp 轉換一個 JPG 檔案到 BMP 檔案
49 getbmpdemension 獲取一個 BMP 檔案的大小
50 getjpgdimension 獲取一個 JPG 檔案的大小
51 LoadIME 設置特定的輸入法
52 ListMail 列出 POP 3 郵件伺服器上的郵件
53 formtobmpA 保存螢幕指定區域的內容到一個 bmp 檔案
54 formtobmp 將表單或螢幕內容保存為一個點陣圖
55 hzbh 獲取漢字筆劃
56 topy 漢字轉拼音頭
57 ConvertFile 轉換文檔為 big 或 bg 碼格式
58 BIG5toGB 轉換 big 字串為 gb
59 GBtoBIG5 轉換 gb 字串為 big
60 TerminateApp 終止一個 32 位元進程
61 getallproc 獲取當前系統中的所有進程
62 KillProcessByName 按名字殺掉一個正在運行的進程

zlabsoft · 註冊時間: 2003-10-18 文章: 22 第 6 樓

MYDLL 是很好用的東東, 來自大陸的高人,
原示範文章如下:

Clear
Clear dlls
Set DEFAULT TO (SUBSTR(SYS(16,1),AT(":",SYS(16,1)) - 1, RAT("\", SYS(16,1)) - (AT(":",SYS(16,1)) - 1)))

?"轉換數值到文本:"
Declare String num2txt_c IN "MyDll.dll" double orgStr
?num2txt_c(12345.09)

?"硬盤序列號:"
Declare String getserial IN "MyDll.dll" Integer DiskNo
?getserial(0)

?"主板 Bios ID"
Declare String getbios IN "MyDll.dll"
?getbios()

Declare String BIG5toGB IN "MyDll.dll" string
Declare String GBtoBIG5 IN "MyDll.dll" string
Declare integer ConvertFile IN "MyDll.dll" string,string,integer

** 生成測試文件
strtofile("在一台計算機上最多只需要運行此函數一次,用于?機器創建缺省的密鑰容器。","test.txt")
?"轉換文本文件從 gb 到 big:"
ConvertFile("test.txt","testbig5.txt",0)
?"轉換文本文件從 big 到 gb:"
ConvertFile("testbig5.txt","testgb.txt",1)

?"轉換字符串從 gb 到 big:"
str1 = GBtoBIG5("在一台計算機上最多只需要運行此函數一次,用于?機器創建缺省的密鑰容器。")
?str1
?"轉換字符串從 big 到 gb:"
str2 = BIG5toGB(str1)
?str2

*-- Graphics
********************************************************************************
*-- capture window or screen image into a bitmap file
Declare Integer formtobmp IN "mydll.dll" integer hwnd,String bmpFileName
* Parameters:
* hwnd
* Handle to the window to be saves to a bitmap file. if this parameter is zero, then saves desktop to a bitmap file.
*
* bmpFileName
* The bitmap filename to be save. must include full path name.
*
* Note
* if success, return value 0, else return 1.
*
* Sample:
*
?"屏幕捕捉,保存當前屏幕內容到文件 c:\screen.bmp"
retVal = formtobmp(0,"c:\screen.bmp") && Save screen to file c:\screen.bmp
if retval = 0
messagebox("Capture screen ok!")
endif
********************************************************************************

Declare Integer formtobmpA IN "mydll.dll" String bmpFileName,integer,integer,integer,integer
?"屏幕捕捉,保存當前屏幕指定區域的內容到文件 c:\screena.bmp"
retVal = formtobmpA("c:\screena.bmp",0,0,200,120) && Save screen to file c:\screena.bmp
if retval = 0
messagebox("Capture screen ok!")
endif

********************************************************************************
*-- Convert a bmp file to jpg file
Declare Integer tojpeg IN "mydll.dll" String bmpfilename, String jpgfilename
?"圖形轉換,轉換 c:\screen.bmp 到 c:\screen.jpg:"
retval = tojpeg("c:\screen.bmp","c:\screen.jpg")
* Parameters:
* bmpfilename
* origin bitmap filename.
*
* jpgfilename
* destination jpeg filename.
*
* Note
* if success, return value 0, else return 1.
*
* Sample:
*
if retval = 0
messagebox("Convert bitmap to jpeg ok!")
endif
********************************************************************************

********************************************************************************
*-- Convert a jpg file to bmp file
?"圖形轉換,轉換 c:\screen.jpg 到 c:\screen2.bmp:"
Declare Integer tobmp IN "mydll.dll" String jpgfilename, String bmpfilename
retval = tobmp("c:\screen.jpg","c:\screen2.bmp")
* Parameters:
* jpgfilename
* origin jpeg filename.
*
* bmpfilename
* destination bitmap filename.
*
* Note
* if success, return value 0, else return 1.
*
* Sample:
*
if retval = 0
messagebox("Convert jpeg to bitmap success!")
endif
********************************************************************************

********************************************************************************
*-- Retrieves the width and height of a bmpfile
Declare Integer getbmpdimension IN "mydll.dll" string bmpfilename, integer @ nwidth,integer @ nheight
* Parameters:
* bmpfilename
* origin bitmap filename.
*
* nwidth
* bitmap's width measured in pixels.
*
* nheight
* bitmap's height measured in pixels.
*
* Note
* if success, return value 0, else return 1.
* if success, variable nwidth hold the bitmap's width ,variable nheight hold the bitmap's height.
*
* Sample:
*
nwidth=0
nheight=0
?"得到 c:\screen.bmp 的顯示高度和寬度:"
retval = getbmpdimension("c:\screen.bmp",@ nwidth, @ nheight)
if retval = 0
messagebox("Width:"+str(nwidth)+chr(13)+"Height:"+str(nheight))
endif
********************************************************************************

********************************************************************************
*-- Retrieves the width and height of a jpg file
Declare Integer getjpgdimension IN "mydll.dll" string jpgfilename, integer @ nwidth,integer @ nheight
* Parameters:
* jpgfilename
* origin jpeg filename.
*
* nwidth
* jpeg's width measured in pixels.
*
* nheight
* jpeg's height measured in pixels.
*
* Note
* if success, return value 0, else return 1.
* if success, variable nwidth hold the jpeg's width ,variable nheight hold the jpeg's height.
*
* Sample:
*
?"得到 c:\screen.jpg 的顯示高度和寬度:"
nwidth=0
nheight=0
retval = getjpgdimension("c:\screen.jpg",@ nwidth, @ nheight)
if retval = 0
messagebox("Width:"+str(nwidth)+chr(13)+"Height:"+str(nheight))
endif
********************************************************************************

********************************************************************************

*-- internet
*-- Ping a http
Declare string pinghost IN "MyDll.dll" String cHostName
*-- if success, return host's ip adress,else return a empty string.

*-- copy a file to a ftp server
Declare integer myftpputfile IN "MyDll.dll" string host, string remotefile,string localfile, string username,string pa

*-- copy a file from a ftp server
Declare integer myftpgetfile IN "MyDll.dll" string host, string localfile,string remotefile, string username,string pa

*-- download a file from a http
Declare integer httpdownload IN "MyDll.dll" string host, string remotefile,string localfile

*-- dialup
Declare integer DialUp IN "MyDll.dll" String UserName,String Pas,String PhoneNumberToDial

*-- Disconnect a ras
Declare integer DisconnectRas IN "MyDll.dll"

*- send a mail to smtp server,can with four attas
Declare integer smail IN "MyDll.dll" String smtpsrvname,String username,String pas,String sender,String frommail,;
String tomail,String sub,String mes,String atta1,String atta2,String atta3,String atta4

*-- send a mail
Declare integer sendmail IN "MyDll.dll" String recipient,String subject,String sub,String Attachment

*-- get pop3 server's maillist
Declare string ListMail in "mydll.dll" string user,string pass,string svr,integer po,integer DeleteMail

* intranet
*-- get a machine's name
Declare String getname IN "MyDll.dll"

*-- get a machine's ip
Declare String getip IN "MyDll.dll"

*-- delete a share
Declare integer sharedel in "MYDLL.DLL" String Sharename

*-- add a share
Declare integer shareadd in "MYDLL.DLL" String Localdir, String Sharename,String comment, integer bReadOnly,String password

*-- cancel a connect
Declare integer cancelconnect IN "MyDll.dll" String

*-- connect to network
Declare integer connecttonetwork IN "MyDll.dll" String remotname,String Localname,String username,String pas

Declare integer shareadd IN "MyDll.dll" String DirToShare,String ShareName,String CommentStr,Integer iReadOnly,String PasswordStr
Declare integer sharedel IN "MyDll.dll" String sharename

* Compress/Decompress. if success,return 0 else return a error code:
Declare integer compress in "MYDLL.DLL" String cabfilename,string filetocomp,Integer cabsize
Declare integer decompress in "MYDLL.DLL" String uncompdir,string cabfilename

* crypt/encrypt
Declare String encstr IN "MyDll.dll" String origStr,String cKey
Declare string getcrc IN "MyDll.dll" String filename
Declare STRING MD5File IN "mydll.dll" AS MD5FILE STRING filename
Declare STRING MD5String IN "mydll.dll" AS MD5STRING STRING inputstr, INTEGER strlen
Declare integer InitUser in "MYDLL.DLL" && 在一台計算機上最多只需要運行此函數一次,用于?機器創建缺省的密鑰容器。
Declare integer CAPIDecryptFile in "MYDLL.DLL" String szSource, String szDestination, String szPassword
Declare integer CAPIEncryptFile in "MYDLL.DLL" String szSource, String szDestination, String szPassword

* 硬件相關
* get harddisk serial no
Declare String getserial IN "MyDll.dll" Integer DiskNo

*-- get mac
Declare String getmac IN "MyDll.dll"

*-- get disk Volume Number
Declare String VolumeNumber IN "MyDll.dll" String Driver

*-- change screen resolution
Declare integer changeres IN "MyDll.dll" Integer nWidth, Integer nHeigth && 兩個參數分別? 屏幕的寬/高

*-- if a disk in driver?
Declare integer IsDiskInDrive IN "MyDll.dll" String Driver

*-- get screen resolution
Declare integer getmetric IN "MyDll.dll" integer @ nWidth,integer @ nHeight,integer @ nFreq

* 轉換
Declare String topy IN "MyDll.dll" String orgStr
Declare String hzbh IN "MyDll.dll" String orgStr,Integer nFlag

*-- convert a number to english
Declare String num2txt_e IN "MyDll.dll" double orgStr
Declare String num2txt_c IN "MyDll.dll" double orgStr

*-- 系統相關
Declare string getcpuid in "mydll.dll"
Declare integer exitw in "mydll.dll" integer flag
Declare long dirsize IN "mydll.dll" String DirName,Integer Flag
Declare integer vfpbeep IN "MyDll.dll"
Declare Integer SetTime in "mydll.dll" String Filename,integer nyear,integer nmonth,integer nday
Declare Integer IsWin2000 IN "MyDll.dll"
Declare Integer DPGetDefaultPrinter IN "MyDll.dll" String @ PrinterName, Integer @ BufferSize
Declare Integer DPSetDefaultPrinter IN "MyDll.dll" String @ PrinterName
Declare integer PrintStringDirect IN "MyDll.dll" String lcString,String prtname,String DeviceName && 直接發送一個串到打印機

*-- 雜項
Declare integer MyInputBox in "MYDLL.DLL" Integer Whd,String Title,String @,Integer passlen
Declare String LoadIME IN "mydll.dll" String ImeName
Declare String getallproc IN "mydll.dll"
Declare integer TerminateApp IN "mydll.dll" double dwPID,double dwTimeout
Declare integer killtask in "mydll.dll" String cNotKillWinCaption

*-- 調用一個外部程序?等待結束
Declare INTEGER ShellExecWait IN "MYDLL.DLL" STRING lpProgName,STRING lpParms,SHORT n_ShowWinMode,INTEGER @ExitCode

?"列舉正在運行的進程:"
?getallproc() && get and display all Proccess

nwidth=0
nheight=0
?"bmp 文件顯示大小:"
getbmpdimension("c:\screen.bmp",@nwidth,@nheight) && Get a bmp file's dimensions, after called ,nwidth hold the width and nheight hold the height.
?"jpg 文件顯示大小:"
getjpgdimension("c:\screen.jpg",@nwidth,@nheight) && Get a jpg file's dimensions, after called ,nwidth hold the width and nheight hold the height.

?"輸入法列舉和設置:"
?LoadIME("EN") && Enum and Load a Ime
&&&&&ListMail("njjane","XXXXXXXXXXXXX","pop.21cn.com",110,0) && get pop3 mail server mail list
getcpuid() && get cupid

**nflag=0 && 注銷
**nflag=1 && 關閉
**nflag=2 && 重?
** nflag=8 && 關電
**exitw(nflag) && Loggoff or Close system

?dirsize("C:\books\*.cdx",1)+;
dirsize("C:\books\*.dbf",1)+;
dirsize("C:\books\*.fpt",1)+;
dirsize("C:\books\*.dbc",1)+;
dirsize("C:\books\*.dcx",1)+;
dirsize("C:\books\*.dct",1) && get all files size in a directory

**?dirsize("C:\MultiUser",1)

*-- beep with PC speaker
vfpbeep()

* send mail via smtp mail server
&&smail("your smtp server name","your mail username","your password","sender","your email address","destinate mail address","mail contents","subject!","c:\title.jpg","c:\dtest.rar","c:\hz.txt","c:\test1.txt")

*-- a dialog to input password
Pas=SPACE(50)
MyInputBox(0,"input your password",@PAS,50)
Pas=ALLTRIM(PAS)
??left(alltrim(Pas),len(alltrim(Pas))-1)

* 以下是調用示例：
**gnDOSpgmShowWinMode = 0 && SW_HIDE
**gnExitCode = 0
**rc = ShellExecWait("..\ARJ.EXE"+CHR(0),;
**"A ..\ARJ\"+c_SEL_DATE+".ARJ"+;
**" ..\OUTPUT\"+c_SEL_DATE+"*.*"+CHR(0),;
**gnDOSpgmShowWinMode, ;
**@gnExitCode)
*出錯處理
**IF rc != 0
** =MSG_ERR("調用 ARJ 壓縮出錯! 出錯碼:"+ALLTRIM(STR(rc)))
** RETURN
**ENDIF
**IF gnExitCode != 0
** =MSG_ERR("ARJ 壓縮出錯! ARJ 退出碼:"+ALLTRIM(STR(gnExitCode)))
** RETURN
**ENDIF

*-- 設置一個文件或目錄的創建日期
ret = SetTime("c:\mydll\test\test2.cpp",2005,12,31)
If ret=0
Messagebox("設置一個文件或目錄的創建日期,設置成功!")
Else
Messagebox("設置一個文件或目錄的創建日期,設置失敗!")
Endif

InitUser() && 初始化密鑰
CAPIEncryptFile("C:\塊替換.txt","C:\塊替換.tx_","abc") && 加密一個文件
CAPIDecryptFile("C:\塊替換.tx_","c:\塊替換2.txt","abc") && 解密文件

?compress("c:\Acme", "C:\Acme\*.*",0) && 最後一個參數值? 0 則意味著壓縮所有的文件到一個單一的 cab 文件中.否則，該值?多卷壓縮中的每一個卷的大小(以 K ?單位)
?decompress("C:\001\","C:\Acme1.CAB")

*-- 直接發送一個串到當前打印機,打印後不會回車，也不會進紙
?PrintStringDirect("要打印的串", "Star AR-3200+","LPT1:")

*-- 撥號與斷開
&&&&&?DialUp("163","163","163")
&&&&&?DisconnectRas()

?getip()
?getname()

? MD5STRING("message digest",len("message digest"))
?"================"
? MD5FILE("F:\mydll\mydll.dll")

* 獲取網卡 MAC
?"網卡 MAC:"
?getmac()

* 漢字轉拼音
?"拼音轉換:開放客戶款項空間"+topy("開放客戶款項空間")

* 數值轉金額
?num2txt_c(1234567.89)
?num2txt_c(-1234567.89)

*-- 添加和?除共享
If shareadd("C:\","MYSHARE","我的共享盤",1,"")=1
Messagebox("共享成功")
Else
Messagebox("共享失敗")
Endif

If sharedel("MYSHARE")=1
Messagebox("?除共享成功")
Else
Messagebox("?除共享失敗")
Endif

* 映射/斷開映射網絡驅動器
ret=connecttonetwork("\\legend4-1\檔案備份文件","P:","legend4-1","legend41")
If ret=0 && 映射網絡資源?一個本地驅動器, 封裝了 WNetUseConnection API
Messagebox("已經將 \\legend4-1\檔案備份文件映射?本地盤 P:")
Else
Messagebox("映射 \\legend4-1\檔案備份文件 ?本地盤 P: 操作失敗,錯誤碼:"+str(ret))
Endif

If cancelconnect("P:")=1 && 斷開一個已經映射的網絡資源 , 封裝了 WNetCancelConnection2 API
Messagebox("已經將映射 P: 斷開")
Else
Messagebox("斷開 P: 映射的操作失敗")
Endif

*-- 通過 MAPI 發送帶附近件的郵件
&&&&&If sendmail("icoico@21cn.com","test","this is a sendmail test","c:\winzip.log")=0
&&&&& Messagebox("sendmail 發送成功")
&&&&&Else
&&&&& Messagebox("sendmail 發送失敗")
&&&&&Endif

lcWidth=0
lcHeigth=0
lcFreq=0
getmetric(@lcWidth,@lcHeigth,@lcFreq)
?lcWidth,lcHeigth,lcFreq
?getip()
&&&&&myftpgetfile("61.133.63.168", "skin.txt","C:\skin.txt", "fox","fox")
&&&&&myftpputfile("61.133.63.168", "C:\dtest.rar","dtest.rar", "fox","fox")
&&&&&httpdownload("http://www.myf1.net/","http://www.myf1.net/temp/mydlltest.rar","C:\dtest.rar")
atfile=sys(5)+curdir()+"readme.txt"
&&&&&sendmail("njjane@21cn.com","該信息用于測試","你好！"+chr(13)+" 如有打擾，多加原諒",sys(5)+curdir()+"readme.txt")
&&&&&sendmail("njjane@21cn.com","該信息用于測試","你好！"+chr(13)+" 如有打擾，多加原諒","")
?num2txt_c(0.12)
?num2txt_c(1.23)
?num2txt_c(123.09)
?num2txt_c(1234567.89)

If IsDiskInDrive("A:\") = 0
? "No disk in driver"
Else
? "disk is in driver"
Endif

?"==========測試開始=============="
?"串加密測試:"
a="1 2 3 1 23abc中國人民解放軍是人民的軍隊123123abc "
?" 原串:"+a,len(a)

b=alltrim(getserial(0)) && 加密用的密鑰,這裏使用的是第一個硬盤的出廠序列號
c=encstr(a,b)
?" 加密後的串:"+c,len(c)

d=encstr(c,b) && 解密的密鑰必須與加密時的密鑰相同
?"解密加密後的串:"+d,len(d)
?
?"檢測硬盤序列號:"
?"硬盤序列號1:"+alltrim(getserial(0))
?"硬盤序列號2:"+alltrim(getserial(1))
?
op=IsWin2000()
If op=1
?"你的操作系統 Windows 2000 或 NT"
Else
?"你的操作系統 Windows 9x"
Endif
?
PrinterName=space(250) &&replicate(chr(0),250)
NameSpace=250
DPGetDefaultPrinter(@PrinterName,@NameSpace)
?"默認打印機:"+left(PrinterName,NameSpace-1)
?
*-- 修改以下行以適應你的系統
NewPrint="Star AR-3200+"
DPSetDefaultPrinter(@NewPrint)
?"新設置的默認打印機:"+NewPrint
?
?"本機機器名:"+getname()
?"本機 IP:"+getip()
?
?"拼音轉換:朱熔彭珮雲牛奔 = "+topy("朱熔彭珮雲牛奔")

?"C:盤卷:" + VolumeNumber("C:\")
?
?"文件"+sys(5)+curdir()+"MyDll.dll 的 CRC 值?:" + getcrc(sys(5)+curdir()+"mydll.dll")
?getcrc("") && 檢測無效的文件名

*?"改變屏幕分辯率?:1024*768 "
*changeres(1024,768)

?"Ping www.myf1.net 的結果："+pinghost("www.myf1.net")
?"Ping 一個不存在的網址的結果："+pinghost("www.naughter.com")

?num2txt_c(123.09)
?num2txt_c(1234567.89)

* FTP 下載
&&&&&myftpgetfile("61.133.63.168", "VFP7亮麗_輸入法排序.zip","C:\VFP7亮麗_輸入法排序.zip", "fox","fox")

*?"改變屏幕分辯率?:800*600 "
&&??changeres(800,600)

*-- 檢測打印機是否連機
Declare integer IsPrinter IN "MyDll.dll"
retval = IsPrinter()
do case
case retval = 999
MessageBox("該函數只能運行于 9x 平臺")
case retval = 1
MessageBox("打印機已經連機")
case retval = 0
MessageBox("打印機未連機")
endcase

*-- 設置磁盤序列號(格式化時?生的序列號)
Declare integer ChangeSerialNumber IN "c:\mydll\release\MyDll.dll" long, long

diskname = asc("C")
serial = 0x98765432

retval = ChangeSerialNumber(diskname,serial)

if retval = 0
MessageBox("C: 盤的序列號已經設置? 9876-5432，你必須重新?動系統")
else
&& 設置失敗
?retval
endif

?"==========測試結束=============="
Clear dlls
Return