谁的拨号程序的源码?
急用。
我写了一个小程序中需要系统[MODEM]自动拨号->上传文件->拨号断开!
现急需在里面加一个拨号程序,谁有源码.[运行在WINDOW2000/NT下面]
问题点数:100、回复次数:6Top
1 楼kingzai(stevenzhu)回复于 2002-06-05 15:56:12 得分 80
void CDialprocDlg::SetupDialupCombo()
{
m_DialCombo.ResetContent();
//m_DialCombo是对话框中Combox控件的命名
DWORD n;
DWORD dwSize=0;
//枚举出本地电脑中的所有拨号连接。
DWORD ret=RasEnumEntries
(NULL, NULL, NULL, &dwSize,&n);
n=dwSize/sizeof(RASENTRYNAME);
RASENTRYNAME *entry=new RASENTRYNAME[n];
if (entry) {
entry[0].dwSize=sizeof(RASENTRYNAME);
DWORD ret=RasEnumEntries
(NULL, NULL, entry, &dwSize,&n);
for (DWORD i=0;i〈n;i++)
{ m_DialCombo.AddString(entry[i].szEntryName);
} delete[] entry; } }
void CDialprocDlg::OnConnectbutton()
{
CWaitCursor wait; RASDIALPARAMS params; memset(¶ms, '\0', sizeof(params));
params.dwSize="sizeof(params);"
m_DialCombo.GetWindowText(params.szEntryName, sizeof(params.szEntryName)-1);
strcpy(params.szPhoneNumber,"");
m_UserId.GetWindowText(params.szUserName, sizeof(params.szUserName)-1);
m_PasswordEdit.GetWindowText(params.szPassword, sizeof(params.szPassword)-1); //m_UserId 和m_PasswordEdit是对话框中两个Edit控件的命名
HRASCONN handle; //指定的拨号连接。
if (RasDial(NULL, NULL, ¶ms, NULL, NULL, &handle)="=0)"
{ MessageBox("已联接,如果按“确定”就会切断电话"); }
else { MessageBox("正在拨打的计算机没有应答,稍后请再试");
} wait.Restore(); RasHangUp(handle); }
void CDialprocDlg::OnSelchangeDialupCombo()
{ RASDIALPARAMS params; memset(¶ms, '\0',sizeof(params));
params.dwSize="sizeof(RASDIALPARAMS);" int sel="m_DialCombo.GetCurSel();"
if (sel>=0) {
m_DialCombo.GetLBText(sel, params.szEntryName);
TRACE("%s\n",params.szEntryName);
BOOL p;
RasGetEntryDialParams(NULL, ¶ms, &p);
m_UserId.SetWindowText(params.szUserName);
m_PasswordEdit.SetWindowText(params.szPassword);
}
}
BOOL CDialprocDlg::OnInitDialog()
{CDialog::OnInitDialog();
SetupDialupCombo();
return TRUE; // return TRUE
unless you set the focus to a control
}Top
2 楼louifox(兰陵笑笑生)回复于 2002-06-05 16:06:42 得分 1
bu cuoTop
3 楼suduan()回复于 2002-06-05 16:16:35 得分 1
邮箱Top
4 楼XinZi(新子)回复于 2002-06-05 16:20:06 得分 0
To:kingzai()
可以将整个源码发到我的邮箱吗.
webyue@hotmail.comTop
5 楼XinZi(新子)回复于 2002-06-05 16:22:05 得分 0
多谢各位朋友,分数不够可以再开帖给分!Top
6 楼kingzai(stevenzhu)回复于 2002-06-05 16:37:05 得分 18
for more details,navigate this url:
http://www.tech521.com/show_data.asp?tid=920
Top




