易语言制作网络拨号程序

易语言制作网络拨号程序 易语言制作网络拨号程序 今天我们来做网络拨号程序，大家看一下界面 那么我们需要: 透明标签4个，组合框1个，编辑框3个，标签1个，按钮3个 看一下源码: 源码: .版本 2 .支持库 xplib .支持库 internet .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 拨号连接数, 整数型 .局部变量 计次变量, 整数型 XP风格 (3) 组合框.加入项目 (“指定电话号码”, ) 拨号连接数 , 取拨号连接数 () .计次循环首 (拨号连接数, 计次变量) 组合框.加入项目 (取连接名称 (计次变量 , 1), ) .计次循环尾 () 组合框.现行选中项 , 0 .子程序 _组合框_列项被选择 .如果 (组合框.现行选中项 ? 0) 电话编辑框.禁止 , 假 帐号编辑框.内容 , “” .否则 .如果结束 电话编辑框.禁止 , 真 帐号编辑框.内容 , 取用户帐号 (组合框.现行选中项 , 1) .子程序 _按钮3_被单击 结束 () .子程序 _按钮1_被单击 .局部变量 电话号码, 文本型 .如果真 (是否已在线 () , 真) 信息框 (“已连接上网络，请不要重复连接～”, #信息图标 ， #确认钮, “信息”) 返回 () .如果真结束 .如果 (组合框.现行选中项 ? 0) 电话号码 , 电话编辑框.内容 .否则 .如果结束 电话号码 , “0” ， 到文本 (组合框.现行选中项 , 1) .如果 (拨号 (电话编辑框.内容, 帐号编辑框.内容, 密码编辑框.内容, 假, 标签1)) 标签1.标题 , “正在拨号” .否则 标签1.标题 , “拨号失败” .如果结束 .子程序 _按钮2_被单击 挂断 () 那么我们今天就学到这里。