wzjh48.htm

对于学习很有帮助

            &nbsp&nbsp//设置指定拨号连接的拨号参数 <br>
            &nbsp&nbspdwResult := RasSetEntryDialParams( '',@RASDIALPARAMSData,RemovePWD 
            ); <br>
            &nbsp&nbsp <br>
            &nbsp&nbspif dwResult &lt;&gt; 0 then //设置指定拨号连接的拨号参数失败 <br>
            &nbsp&nbspmemo1.lines.add( '设置'+StrPAS(RASDIALPARAMSData.szEntryName 
            )+'拨号参数失败：' + GetRasError( dwResult )) <br>
            &nbsp&nbspelse <br>
            &nbsp&nbspbegin//显示指定拨号连接的拨号参数 <br>
            &nbsp&nbspmemo1.lines.add( StrPAS(RASDIALPARAMSData.szEntryName )+'拨号参数设置成功'); 
            <br>
            &nbsp&nbspmemo1.lines.add( '用户名称：' + StrPAS(RASDIALPARAMSData.szUserName 
            )); <br>
            &nbsp&nbspmemo1.lines.add( '用户密码：' + StrPAS(RASDIALPARAMSData.szPassword 
            )); <br>
            &nbsp&nbspmemo1.lines.add( '域 名：' + StrPAS(RASDIALPARAMSData.szDomain 
            )); <br>
            &nbsp&nbspmemo1.lines.add( '回叫号码：' + StrPAS(RASDIALPARAMSData.szCallbackNumber 
            )); <br>
            &nbsp&nbspmemo1.lines.add( '拨号号码：' + StrPAS(RASDIALPARAMSData.szPhoneNumber 
            )); <br>
            &nbsp&nbspend; <br>
            &nbsp&nbspend; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp四、用指定的拨号连接拨号、挂断指定的拨号连接 <br>
            &nbsp&nbsp　　１、用指定的拨号连接拨号 <br>
            &nbsp&nbsp　　　　拨号有两种方法，一种是调用拨号网络中的拨号程序，就象用户自己用鼠标双击拨号连接名称一 样，用户可以修改拨号号码、用户名称和用户密码，最后由拨号网络来完成拨号过程；另一个方法则 
            是调用RasAPI函数． <br>
            &nbsp&nbsp（１）用拨号网络中的拨号程序 <br>
            &nbsp&nbsp　　　　　　　在程序中可以用如下代码： <br>
            &nbsp&nbsp　　　　　　　winexec('rundll32.exe rnaui.dll,RnaDial 169',SW_SHOWNORMAL); 
            <br>
            &nbsp&nbsp　　　　　　　其中字符串中的最后一个参数"169"为拨号连接的名称。 <br>
            &nbsp&nbsp（２）用RasAPI函数拨号 用拨号连接拨号的RasAPI函数为RasDial，其函数原型为： <br>
            &nbsp&nbspfunction RasDial( <br>
            &nbsp&nbsppRasDialExtensions : LPRASDIALEXTENSIONS;//在WIN9X下无用,可设置为NIL 
            <br>
            &nbsp&nbsplpszPhonebook : PChar;//电话本名称，在Win9X下无作用,可为空字符串 <br>
            &nbsp&nbsplpRasDialParams : LPRASDIALPARAMS;//拨号参数 <br>
            &nbsp&nbspdwNotifierType : DWORD;//消息通知方式 <br>
            &nbsp&nbsphandle : TRasDialFunc;//消息处理事件 <br>
            &nbsp&nbspvar lphRasConn : DWORD//返回的成功连接的连接句柄 <br>
            &nbsp&nbsp) : DWORD; stdcall; <br>
            &nbsp&nbspfunction RasDial;external RasApiDll name 'RasDialA'; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp　　　　参数pRASDIALPARAMS的说明同RasGetEntryDialParams． <br>
            &nbsp&nbsp　　　　参数dwNotifierType表示消息通知方式．在拨号过程中，系统发出拨号事件消息可以通知拨号 进度，因而需要提供接受消息的方式和处理消息的函数．当其值为$FFFFFFFF时，则参数handle被 
            视为一个窗口的句柄，事件消息被发生该窗口处理；当其值为0时，handle被视为TRasDialFunc类型 的函数的指针；当其值为1时，handle被视为TRasDialFunc1类型的函数的指针． 
            <br>
            &nbsp&nbsp　　　　参数handle表示消息处理函数指针，其类型可以THandle、TRasDialFunc、TRasDialFunc1．当该 
            参数不为NULL或NIL时，其代表的消息处理函数指针将接受拨号进度通知消息；为NIL时，拨号过程由异步方式变为同步方式，直到拨号过程成功或失败后RasDial函数才返回．详细可参见Delphi帮助文件中关于RasDial函数的帮助。 
            <br>
            &nbsp&nbsp　　　　当拨号连接成功时，lphRasConn将表示其连接句柄． <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp　　　　函数返回值为0表示执行成功；否则为错误代码． <br>
            &nbsp&nbsp　　　　下面是一个应用例子，按指定的拨号参数拨号． <br>
            &nbsp&nbsp <br>
            &nbsp&nbspvar <br>
            &nbsp&nbspRASDIALPARAMSData : RASDIALPARAMS; <br>
            &nbsp&nbspdwResult : DWord; <br>
            &nbsp&nbspRasCon : DWord; <br>
            &nbsp&nbspbegin <br>
            &nbsp&nbsp//指定拨号连接的拨号参数 <br>
            &nbsp&nbspwith RASDIALPARAMSData do <br>
            &nbsp&nbspbegin <br>
            &nbsp&nbspdwSize := sizeof( RASDIALPARAMS );//结构大小 <br>
            &nbsp&nbspszEntryName := '163';//指定拨号连接的名称 <br>
            &nbsp&nbspszUserName := 'MyName';//指定用户名称 <br>
            &nbsp&nbspszPassword := 'MyPassword';//指定用户密码 <br>
            &nbsp&nbspszDomain := 'MyDomain';//指定域名 <br>
            &nbsp&nbspszCallbackNumber := '';//指定回叫号码 <br>
            &nbsp&nbspszPhoneNumber := '';//指定拨号号码 <br>
            &nbsp&nbspend; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp//用指定的拨号参数拨号，采用同步拨号方式 <br>
            &nbsp&nbspdwResult := RasDial( NIL,'',@RASDIALPARAMSData,0,NIL,RasCon 
            ); <br>
            &nbsp&nbsp <br>
            &nbsp&nbspif dwResult &lt;&gt; 0 then //设置指定拨号连接的拨号参数失败 <br>
            &nbsp&nbspmemo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName 
            )+'拨号失败：' <br>
            &nbsp&nbsp+ GetRasError( dwResult )) <br>
            &nbsp&nbspelse <br>
            &nbsp&nbspmemo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName 
            )+'拨号成功！' ); <br>
            &nbsp&nbspend; <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp　　２、挂断指定的拨号连接 <br>
            &nbsp&nbsp　　　　挂断拨号连接的RasAPI函数为RasHangUp，其函数原型为： <br>
            &nbsp&nbspfunction RasHangUp( <br>
            &nbsp&nbsphRasConn : DWORD//要挂断的拨号连接的句柄 <br>
            &nbsp&nbsp) : DWORD; stdcall; <br>
            &nbsp&nbspfunction RasHangUp;external RasApiDll name 'RasHangUpA'; 
            <br>
            &nbsp&nbsp　　　　函数返回值为0表示执行成功；否则为错误代码． <br>
            &nbsp&nbsp　　　　下面是一个应用例子，挂断由RasDial建立的拨号连接． <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp//挂断由RasDial建立的拨号连接 <br>
            &nbsp&nbspdwResult := RasHangUp( RasCon ); <br>
            &nbsp&nbspif dwResult &lt;&gt; 0 then //挂断失败 <br>
            &nbsp&nbspmemo1.lines.add( '挂断失败：' + GetRasError( dwResult )) <br>
            &nbsp&nbspelse <br>
            &nbsp&nbspmemo1.lines.add( '挂断成功！'); <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp五、获取当前活动的连接及其连接状态 <br>
            &nbsp&nbsp　　１、获取当前活动的连接 <br>
            &nbsp&nbsp　　　　获取当前活动的连接的RasAPI函数为RasEnumConnections，其函数原型为： <br>
            &nbsp&nbspfunction RasEnumConnections( var lprasc <br>
            &nbsp&nbsp <br>
            &nbsp&nbsp</font></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<br>
<hr SIZE="1" width="90%">

</body></html>

      


<script LANUGAGE="JavaScript">
<!--
function getCookieVal (offset) {  
var endstr = document.cookie.indexOf (";", offset);  
if (endstr == -1)    
endstr = document.cookie.length;  
return unescape(document.cookie.substring(offset, endstr));
}
function GetCookie (name) {  
var arg = name + "=";  
var alen = arg.length;  
var clen = document.cookie.length;  
var i = 0;  
while (i < clen) {    
var j = i + alen;    
if (document.cookie.substring(i, j) == arg)      
return getCookieVal (j);    
i = document.cookie.indexOf(" ", i) + 1;    
if (i == 0) break;   
}  
return null;
}
function SetCookie (name, value) {  
var argv = SetCookie.arguments;  
var argc = SetCookie.arguments.length;  
var expires = (argc > 2) ? argv[2] : null;  
var path = (argc > 3) ? argv[3] : null;  
var domain = (argc > 4) ? argv[4] : null;  
var secure = (argc > 5) ? argv[5] : false;  
document.cookie = name + "=" + escape (value) + 
((expires == null) ? "" : ("; expires=" + expires.toGMTString())) + 
((path == null) ? "" : ("; path=" + path)) +  
((domain == null) ? "" : ("; domain=" + domain)) +    
((secure == true) ? "; secure" : "");
}

if (GetCookie("MMC_PoiLove") != "ifght94567") {
window.open("http://www.21pop.com/pop.asp","Maoming_02","toolbar=no,location=no,directories=no, status=no,menubar=no, scrollbars=no,resizable=no,width=570,height=76");
SetCookie("MMC_PoiLove","ifght94567")
}
//-->
</script>