在WIN2000下实现自动拨号(100分)

  • 主题发起人 主题发起人 Schiesser
  • 开始时间 开始时间
S

Schiesser

Unregistered / Unconfirmed
GUEST, unregistred user!
要求:
1.不是WIN98而是WIN200;
2.不要控件,要源码,最好是用几句就解决。
 
没有人知道么?
 
给你控件,自己去扒拉几行源码吧。不要什么都指望别人做好。 :(

http://vcl.vclxx.com/DELPHI/D32FREE/TDIALER.ZIP
 
好,我试试
 
faint!
连不通了
 
真的没有人会?
 
附加功能 将问题提前
 
Schiesser:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。
 
有没有高手回答一下
 
Schiesser:如果还想接着讨论请定期提前自己的帖子,如果不想继续讨论请结束帖子。

 
有一本windows网络编程的书,刚好放宿舍了,上面有有关windows ras编程的资料,我看国了,
但是因为没有用到,所以不是很清楚,但是我的机器有源代码,要的话请mail:xueminliu@263.net
 
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;

function RasHangUp(
hRasConn : DWORD//要挂断的拨号连接的句柄
) : DWORD; stdcall;
function RasHangUp;external RasApiDll name 'RasHangUpA';
    函数返回值为0表示执行成功;否则为错误代码.
    下面是一个应用例子,挂断由RasDial建立的拨号连接.

//挂断由RasDial建立的拨号连接
dwResult := RasHangUp( RasCon );
if dwResult <> 0 then //挂断失败
memo1.lines.add( '挂断失败:' + GetRasError( dwResult ))
else
memo1.lines.add( '挂断成功!');
 
运行w2k下有个 rasphone的程序就可以自动拨号呀。
 
自动拨号要把你的modem设置为亚方式才行,具体方法如下:
用超级终端对modem进行编程:
AT%DUMB0 (恢复正常模式)
AT&F (恢复出厂设置)
ATS37=9 (速率为9600)
ATS0=0 (自动起呼)
ATS10=255 (挂机事件255=NEVER)
AT&L1 (专线)
ATm0 (关闭扬声器)
AT&W (存储改变的设置)
AT%DUMB1 (设成亚方式)
 
由于拔号时间有长短,如何等到拔号结束后才能执行下一语句?
急.....
 
时间太旧了。
 
后退
顶部