2000 下如何调用拔号网络?(50分)

  • 主题发起人 主题发起人 onlyonekgx
  • 开始时间 开始时间
O

onlyonekgx

Unregistered / Unconfirmed
GUEST, unregistred user!
在2000下好象没有这个RNAUI.DLL文件,
该如何调用设定好的拔号网络?
 
和 win98 下没什么区别吧,例如下面的代码在 Win98 和 win2k 上都可以:

function Dial(EntryName, UserName, Password, Domain : String) : Boolean;
var
rdParams : TRASDIALPARAMS;
dwRet : DWORD;
begin
hRasConn := GetActiveConnHandle(EntryName);
if hRasConn <> 0 then
begin
Result := False;
Exit;
end;

// setup RAS Dial Parameters
FillChar(rdParams, SizeOf(rdParams), 0);
rdParams.dwSize := SizeOf(TRASDIALPARAMS);
strCopy(rdParams.szUserName, PChar(UserName));
strCopy(rdParams.szPassword, PChar(Password));
strCopy(rdParams.szEntryName, PChar(EntryName));
StrCopy(rdParams.szDomain, PChar(Domain));
rdParams.szPhoneNumber[0] := #0;
rdParams.szCallbackNumber[0] := '*';
//rdParams.szDomain := '*';

hRasConn := 0;;
dwRet := RasDialA(nil, nil, @rdParams, 0, @RasDialFunc, @hRasConn);
if dwRet <> 0 then Disconnected;
Result := dwRet = 0;
end;
 
为什么没人回答,帮个忙吧!
 
关于 RAS 拨号的文章和代码网上很多,你自己注意搜索一下,
另外, ICS 作者的主页上有一个完整的例子,是值得参考的东东。
http://overbyte.alexid.fr/frame_index.html
 
接受答案了.
 
后退
顶部