怎么样自动运行adsl拨号

ZhuJunfeng 2002-12-24 09:44:22

怎么样自动运行adsl拨号，最好能做成服务，在启动时没有登陆就运行，可以吗？
谢谢大家了
帮我up 也给分

...全文

44 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

ZhuJunfeng 2003-01-22

打赏
举报

问题还没解决，但是大家都这么热情，还是先结贴吧，说好了up有分的

ZhuJunfeng 2002-12-26

打赏
举报

tangue 2002-12-26

打赏
举报

yelanne 2002-12-26

打赏
举报

cneast 2002-12-25

打赏
举报

To Songdan2002(宋) :
怎样能做成服务，在启动时没有登陆就运行？

ZhuJunfeng 2002-12-25

打赏
举报

adsl没有phone number呀，怎么办

ZhuJunfeng 2002-12-25

打赏
举报

没有人知道吗？帮帮我吧，谢谢

songdan2002 2002-12-25

打赏
举报

还有一个通过RAS拨号的例子

function MyDial(FEntryName: String;
FPhoneNumber: String;
FCallbackNumber: String;
FUserName: String;
FPassword: String;
FDomain: String;
FHRasConn: THRasConn): Longint;
var
DialParams: TRasDialParams;
lpfPassword: LongBool;
begin
if FHRasConn > 0 then HangUp;

FillChar(DialParams, SizeOf(TRasDialParams), #0);

with DialParams do
begin
dwSize:=Sizeof(TRasDialParams);
StrPCopy(szEntryName, FEntryName);
end;

if FEntryName <> '' then
begin
Result := RasGetEntryDialParams(nil, DialParams, lpfPassWord);
if Result <> 0 then Exit;
end
else
with DialParams do
begin
dwSize := SizeOf(TRASDialParams);
szEntryName := '';
UniqueString(FPhoneNumber);
StrLCopy(szPhoneNumber, PChar(FPhoneNumber), RAS_MaxPhoneNumber);
UniqueString(FCallBackNumber);
UniqueString(FCallBackNumber);
StrLCopy(szCallbackNumber, PChar((FCallBackNumber)),

RAS_MaxCallbackNumber);
UniqueString(FUserName);
StrLCopy(szUserName,PChar((FUserName)) , UNLEN);
UniqueString(fPassWord);
StrLCopy(szPassword, PChar((fPassWord)), PWLEN);
UniqueString(FDomain);
StrLCopy(szDomain, Pchar(FDomain), DNLEN);
end;

FHRasConn := 0;

Result := RasDial(nil, nil, DialParams, 0, nil, FHRasConn);
end;

songdan2002 2002-12-25

打赏
举报

var
hCommFile : THandle;

procedure TForm1.Button1Click(Sender: TObject);
var
PhoneNumber : string;
CommPort : string;
NumberWritten : LongInt;
begin
PhoneNumber := 'ATDT 1-555-555-1212' + #13 + #10;
CommPort := 'COM2';
{Open the comm port}
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,
0);
if hCommFile=INVALID_HANDLE_VALUE then
begin
ShowMessage('Unable to open '+ CommPort);
exit;
end;

{Dial the phone}
NumberWritten:=0;
if WriteFile(hCommFile,
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
nil) = false then begin
ShowMessage('Unable to write to ' + CommPort);
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
{Close the port}
CloseHandle(hCommFile);
end;

cneast 2002-12-24