求一个拨号上网的代码。最好是通过的，谢谢了

Question

求一个拨号上网的代码。最好是通过的，谢谢了  
我查了很多的帖子都不能实现，信箱[email protected]

Answer 1

错了信箱是[email protected]

Answer 2

哦对了，要 uses 进RasAPI这个单元具体的你还要再找找资料，只能点你这么多了，把分给我的马甲w95927w(D版第一铁公鸡)3q

Answer 3

procedure TRasDialerForm.Dial(EntryName, UserName, Password : String);
var
    rdParams : TRASDIALPARAMS;
    dwRet    : DWORD;
    Buf      : array [0..255] of Char;
begin
    hRasConn := GetActiveConnHandle(EntryName);
    if hRasConn <> 0 then begin
        LogMessage('Connection already active');
        Connected;
        ConnectTime := $FFFFFFFF;
        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));
    rdParams.szPhoneNumber[0]    := #0;
    rdParams.szCallbackNumber[0] := '*';
    rdParams.szDomain            := '*';    g_hWnd := Handle;
    hRasConn := 0;;
    dwRet  := RasDialA(nil, nil, @rdParams, 0, @RasDialFunc, @hRasConn);
    if dwRet <> 0 then begin
        RasGetErrorStringA(dwRet, @Buf[0], SizeOf(Buf));
        LogMessage(IntToStr(dwRet) + ' ' + Buf);
        Disconnected;
    end
    else begin
        LogMessage('Dialing ''' + EntryName + '''');
        CancelButton.Enabled  := TRUE;
        ConnectButton.Enabled := FALSE;
    end;
end;
procedure TRasDialerForm.WndProc(var Msg: TMessage);
var
    Buf      : array [0..255] of Char;
begin
    if Msg.Msg <> WM_RASDIALEVENT then begin
        inherited WndProc(Msg);
        Exit;
    end;
    LogMessage('gfhgf'+RasConnectionStateToString(Msg.wParam));
    if Msg.wParam = RASCS_Connected then begin
        Connected;
        ConfigureAutoForm.ExecuteMailAuto;
        ConfigureAutoForm.ExecuteNewsAuto;
        ConfigureAutoForm.ExecuteBrowserAuto;
    end
    else if Msg.wParam = RASCS_Disconnected then begin
        RasGetErrorStringA(Msg.lParam, @Buf[0], SizeOf(Buf));
        LogMessage(Buf);
        Disconnected;
    end;
end;