分析至此，函数RasDial的各项参数已清楚，VFP中调用程序如下：

　　*!* 先注册函数

DECLARE INTEGER RasDial in rasapi32 ; INTEGER , ; && lpRasDialExtensions INTEGER , ; && lpszPhonebook STRING @ , ; && 指向RasDialParams INTEGER , ; && dwNotifierType INTEGER , ; && lpvNotifier INTEGER @ && 指向hRasConn *!* 给结构变量RasDialParams中各变量赋初值 dwSize= CHR(28)+ CHR(4)+ CHR(0)+ CHR(0) && 即4*256+28=1052 szEntryName=REPLICATE(CHR(0), 257) && 不使用电话簿 sTemp="95963" && 服务器（INTERNET服务商或自建）的电话号码 TszPhoneNumber = sTemp +REPLICATE(CHR(0),129-LEN(sTemp)) && 补足129字节 szCallbackNumber=REPLICATE(CHR(0), 129) && 回拨号码，置空 sTemp="263" && 用户名 szUserName = sTemp +REPLICATE(CHR(0),257-LEN(sTemp)) && 补足字节数 sTemp="263" && 密码 szPassword = sTemp +REPLICATE(CHR(0),257-LEN(sTemp)) && 补足字节数 szDomain=REPLICATE(CHR(0), 16) && 如为自建服务器，可填入相应域名 *!* 生成结构变量RasDialParams初值 RasDialParams=dwSize+szEntryName+TszPhoneNumber+szCallbackNumber ; +szUserName+szPassword+szDomain +REPLICATE(CHR(0), 3) hRasConn=0 && 远程访问连接句柄，初值为0 DialResult=RasDial(0,0, @RasDialParams,0,0,@hRasConn)

　　断线的程序如下：

DECLARE INTEGER RasHangUp in rasapi32 INTEGER HangResult=RasHangUp(hRasConn)

　　注意以下几点：

　　* 指针参数（p或lp开头）通常按引用传递。NULL指针为特殊情况，其值为0，在VFP中对应值为0的INTEGER类型变量。句柄参数（H开头）对应INTERGER变量。

　　* API函数中空字符的ASCII码为0,即CHR(0)。

　　本文中的程序在Visual FoxPro 6.0下编译通过，在WINDOWS98、WINDOWS2000下运行成功。

相关搜索：