转载请注明:http://www.abcxd.com
明生注：想必大家都测试过很多拨号的方式。要不TP要不就用RS。多难多麻烦呀。。。现在简单了。我写了一个给大家
方法１：
rasdial 宽带连接 用户名 密码
方法２：
rasphone.exe -d 宽带连接
需将“宽带连接”->“属性”->“选项”->“提示名称、密码和证书等”的勾去掉
小提示: 用Alt+R 然后输入命令 "rasphone.exe -d 宽带连接" 注意后面的宽带连接是你的连接名称
断开连接: rasphone -h 宽带连接
自己写的一段代码。需要在头部加上Tclinetsocket控制
procedure TForm1.Timer1Timer(Sender: TObject);
var
Hosta:string;
begin
if abcxddos='' then Close;
Timer1.Enabled:=false;
if abcxddosa='路由断线' then
begin
if clientsocket1.Active=true then
clientsocket1.Close;
Hosta:=Copy(abcxddos,pos('Host: ',abcxddos)+6,Pos(#$D#$A,abcxddos));
Delete(Hosta,Pos(#$D#$A,Hosta),100);
clientsocket1.Host:=Hosta;
clientsocket1.Port:=80;
clientsocket1.Open;
end;
if abcxddosa='路由连接' then
begin
if clientsocket1.Active=true then
clientsocket1.Close;
abcxddos:=StringReplace(abcxddos,'Disconnect=断%20线','Connect=连%20接',[rfReplaceAll]);
Hosta:=Copy(abcxddos,pos('Host: ',abcxddos)+6,Pos(#$D#$A,abcxddos));
Delete(Hosta,Pos(#$D#$A,Hosta),100);
clientsocket1.Host:=Hosta;
clientsocket1.Port:=80;
clientsocket1.Open;
end;
{MoDam拨号}
if abcxddosa='ADSL拨号' then
begin
abcxddos:=Copy(abcxddos,1,Pos(#$D,abcxddos)-1);
WinExec(PChar('rasphone.exe -h '+abcxddos),SW_SHOW); //断开
Sleep(3000);
WinExec(PChar('rasphone.exe -d '+abcxddos),SW_SHOW); //拨号
Sleep(1000);
Close;
end;
end;
原创文章如转载，请注明：转载自心动吧DELPHI网络书 [ http://www.abcxd.com/delphi/ ]
本文链接地址：http://www.abcxd.com/delphi/abcxddelphi/DELPHITS/delphi-rasphone-zidongbohao.html
