不调用拨号网络在程序中拨号

keai683

keai683

2016-02-19 13:05

每个人都希望每天都是开心的,不要因为一些琐事扰乱了心情还,闲暇的时间怎么打发,关注图老师可以让你学习更多的好东西,下面为大家推荐不调用拨号网络在程序中拨号,赶紧看过来吧!
用拨号连接拨号的RasAPI函数为RasDial,其函数原型为:
  function RasDial(pRasDialExtensions : LPRASDIALEXTENSIONS;//在WIN9X下无用,可
  设置为NIL
  lpszPhonebook : PChar;//电话本名称,在Win9X下无作用,可为空字符串
  lpRasDialParams : LPRASDIALPARAMS;//拨号参数
  dwNotifierType : DWord;//消息通知方式
  handle : TRasDialFunc;//消息处理事件
  var lphRasConn : DWORD//返回的成功连接的连接句柄
  ) : DWORD; stdcall;
  function RasDial;external RasApiDll name 'RasDialA';
  
    参数pRASDIALPARAMS的说明同RasGetEntryDialParams.
    参数dwNotifierType表示消息通知方式.在拨号过程中,
  系统发出拨号事件消息可以通知拨号
    进度,因而需要提供接受消息的方式和处理消息的函数.当其
  值为$FFFFFFFF时,则参数handle被
    视为一个窗口的句柄,事件消息被发生该窗口处理;当其值为0
  时,handle被视为TRasDialFunc类型
    的函数的指针;当其值为1时,handle被视为TRasDialFunc1类
  型的函数的指针.
    参数handle表示消息处理函数指针,其类型可以THandle、
  TRasDialFunc、TRasDialFunc1.当该
    参数不为NULL或NIL时,其代表的消息处理函数指针将接受拨号
  进度通知消息;为NIL时,拨号过程由
    异步方式变为同步方式,直到拨号过程成功或失败后RasDial函
  数才返回.具体可参见Delphi帮助文件
    中关于RasDial函数的帮助。
    当拨号连接成功时,lphRasConn将表示其连接句柄.
  
    函数返回值为0表示执行成功;否则为错误代码.
    下面是一个应用例子,按指定的拨号参数拨号.
  
  var
  RASDIALPARAMSData : RASDIALPARAMS;
  dwResult : DWord;
  RasCon : DWord;
  begin
  //指定拨号连接的拨号参数
  with RASDIALPARAMSData do
  begin
  dwSize := sizeof( RASDIALPARAMS );//结构大小
  szEntryName := '163';//指定拨号连接的名称
  szUserName := 'MyName';//指定用户名称
  szPassword := 'MyPassword';//指定用户密码
  szDomain := 'MyDomain';//指定域名
  szCallbackNumber := '';//指定回叫号码
  szPhoneNumber := '';//指定拨号号码
  end;
  
  //用指定的拨号参数拨号,采用同步拨号方式
  dwResult := RasDial( NIL,'',@RASDIALPARAMSData,0,NIL,RasCon
  );
  
  if dwResult   0 then //设置指定拨号连接的拨号参数失败
  memo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName
  )+'拨号失败:'
  + GetRasError( dwResult ))
  else
  memo1.lines.add( '用'+StrPAS(RASDIALPARAMSData.szEntryName
  )+'拨号成功!' );
  end; 
展开更多 50%)
分享

猜你喜欢

不调用拨号网络在程序中拨号

编程语言 网络编程
不调用拨号网络在程序中拨号

在VB程序中怎样挂断拨号网络

编程语言 网络编程
在VB程序中怎样挂断拨号网络

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

使用拨号网络的简单知识

电脑网络
使用拨号网络的简单知识

在Vista中轻松实现宽带自动拨号

windows 操作系统
在Vista中轻松实现宽带自动拨号

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

VisualBasic程序中如何启动默认的拨号连接

编程语言 网络编程
VisualBasic程序中如何启动默认的拨号连接

建立网络拨号的上网共享

Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理
建立网络拨号的上网共享

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

jQuery 创建Dom元素

jQuery 创建Dom元素

为什么我的win7系统桌面快捷图标会突然消失一些

为什么我的win7系统桌面快捷图标会突然消失一些
下拉加载更多内容 ↓