EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明

回复
头像
天涯海客
帖子: 69
注册时间: 2007-05-12 23:50
送出感谢: 0
接收感谢: 0

EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明

#1

帖子 天涯海客 » 2008-10-11 22:33

EasyDrcom ── Ubuntu下Drcom图形界面登录设置软件
经过几天的努力,终于把基本功能都实现了。
本测试版的功能包括登录/注销、直接使用gedit修改配置文件和使用图形界面修改配置文件。
drcom.jpg
截图
[更新日志 2008-10-10]
1)、 完成了创建版中未完成的图形修改配置文件功能
2)、 添加了登录/注销信息显示模块
3)、 修改了部分代码,使软件功能实现的代码简化、优化


PS:软件运行需要安装drcom客户端、gedit文本编辑软件

EasyDrcom(创建版)地址:http://os.deepin.org/read.php?tid=760429

gcell 写了:创建版怎么跑深度去了?

因为我把软件首先发在深度论坛的。
wubinghui888 写了:大虾呀,怎么装的阿?好东西不会用哎,痛苦中。。。。。。
不需要安装,解压后直接运行即可。
sonofthewind 写了:请问楼主能不能发个详细教程上来,现在深度论坛不开放注册,楼主的贴也看不了啊
现在我已经把简单的说明贴上来了。就在8楼
附件
Easy_Drcom.tar.gz
源代码
(72.52 KiB) 下载 168 次
EasyDrcom.gambas.7z.rar
软件 使用时将后缀中的.rar去掉,然后解压即可
(200.29 KiB) 下载 275 次
上次由 天涯海客 在 2008-10-15 0:15,总共编辑 2 次。
头像
abcdo
帖子: 233
注册时间: 2005-10-29 9:16
送出感谢: 0
接收感谢: 0

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件

#2

帖子 abcdo » 2008-10-12 11:00

支持一下,虽然不懂dr。com
Linux就是Linux,了无痕迹,却无处不在。
xeoc
帖子: 1994
注册时间: 2007-05-06 10:12
送出感谢: 0
接收感谢: 0

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件

#3

帖子 xeoc » 2008-10-12 12:12

支持 :em11
头像
gcell
帖子: 429
注册时间: 2007-04-30 2:25
来自: 湖南湘潭
送出感谢: 0
接收感谢: 0
联系:

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件

#4

帖子 gcell » 2008-10-12 12:17

创建版怎么跑深度去了?
孰能浊静之以徐清,孰能安动之以馀生!
gcell -- http://gcell.blog.163.com/
wubinghui888
帖子: 26
注册时间: 2008-05-16 19:18
来自: 中国
送出感谢: 0
接收感谢: 0
联系:

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件

#5

帖子 wubinghui888 » 2008-10-12 12:45

大虾呀,怎么装的阿?好东西不会用哎,痛苦中。。。。。。
头像
pengpeng1987
帖子: 73
注册时间: 2008-05-06 11:02
来自: 野猪帝国
送出感谢: 0
接收感谢: 0

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件

#6

帖子 pengpeng1987 » 2008-10-12 13:08

gcell 写了:创建版怎么跑深度去了?
弱弱地同疑问一句 :em06
头像
sonofthewind
帖子: 557
注册时间: 2008-10-12 12:58
来自: 天津
送出感谢: 0
接收感谢: 0

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件

#7

帖子 sonofthewind » 2008-10-14 11:17

请问楼主能不能发个详细教程上来,现在深度论坛不开放注册,楼主的贴也看不了啊
头像
天涯海客
帖子: 69
注册时间: 2007-05-12 23:50
送出感谢: 0
接收感谢: 0

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件

#8

帖子 天涯海客 » 2008-10-15 0:09

简易教程
下面我以本软件中的设置界面为例简单介绍一下Gambas的使用
其简要框图如下
EasyDrcom - Gambas 2.png
Gambas功能区简介
首先在左面的软件结构区中的“窗口”这一项上点击右键选择新建窗口。
然后大致调解窗口大小,在参数设置区中根据自己的需要设置好默认参数。
三、从组件区将需要的组件拖到窗口中,同窗口设置参数一样设置好参数,大小与位置可直接使用鼠标拖动调节。
四、双击组件进入代码窗口,写代码。(当默认事件不是自己要使用的时候,可在目标组件上使用右键,在事件菜单下选择自己使用的事件)
五、保存、使用软件自带的编译调试功能测试软件。
示例
Set窗口代码 写了:

代码: 全选

' Gambas class file
PUBLIC va1 AS Boolean  '用户名
PUBLIC va2 AS Boolean  '密码
PUBLIC va3 AS Boolean  '服务器IP
PUBLIC va4 AS Boolean  '内网IP 
PUBLIC SUB Form_Open()
'初始化操作
'========================================
'       参数定义
'========================================
  DIM dr AS File       '文件标号
  DIM nr, pd AS String 'nr-文件内容,pd-判断字符
  DIM fq AS Boolean    '文件权限
  DIM nu AS Integer
'========================================
'1、从配置文件中取相关信息
'   判断是否使用已经命令修改配置文件的权限
'     否的话首先测试文件权限
'     是的话读取信息
'========================================
  nu = 0
  fq = Access("/etc/drcom.conf", gb.Read OR gb.Write) '测试文件权限
  IF NOT fq THEN  
    SELECT CASE Message.Question("当前用户没有读写配置文件的权限,是否修改文件权限?", "是", "否")
        CASE 1
           SHELL "cd /etc && xterm -e sudo chmod 666 drcom.conf" WAIT 
           nu = 1
        CASE 2
           Set.Close
           nu = 2
    END SELECT 
  ENDIF 
  IF nu <> 2 THEN 
    dr = OPEN "/etc/drcom.conf" FOR READ 
    WHILE NOT Eof(dr)
      LINE INPUT #dr, nr
      pd = Left$(nr)
      '判断是否为注释语句,否的话继续
      IF pd <> "#" THEN   
        pd = Left$(nr, 8)  '获取用户名与密码
        SELECT CASE pd
          CASE "username"
             user.Text = Right$(nr, -9)
          CASE "password"
             passwd.Text = Right$(nr, -9)
        END SELECT 
        pd = Left$(nr, 6) '获取服务器IP和内网IP
        SELECT CASE pd
          CASE "except"
             netip.Text = Right$(nr, -7)
          CASE "servip"
             sip.Text = Right$(nr, -7)
         END SELECT 
      ENDIF   
    WEND     
    CLOSE #dr  
  ENDIF 
'===============================
'2、窗口显示初始化操作
'===============================
  user.Enabled = FALSE
  passwd.Enabled = FALSE
  passwd.Password = TRUE
  sip.Enabled = FALSE
  netip.ReadOnly = TRUE
'===============================
'选中判断初始化
'===============================
  va1 = FALSE
  va2 = FALSE
  va3 = FALSE
  va4 = FALSE
END

PUBLIC SUB cb1_Click()
'用户名选中
  va1 = NOT va1
  IF va1 THEN 
     user.Enabled = TRUE
  ELSE 
     user.Enabled = FALSE
  ENDIF 
END

PUBLIC SUB cb2_Click()
'密码选中
  va2 = NOT va2
  IF va2 THEN 
     passwd.Enabled = TRUE
     passwd.Password = FALSE
  ELSE 
     passwd.Enabled = FALSE
     passwd.Password = TRUE
  ENDIF 
END

PUBLIC SUB cb3_Click()
'服务器IP选中
  va3 = NOT va3
  IF va3 THEN 
     sip.Enabled = TRUE
  ELSE 
     sip.Enabled = FALSE
  ENDIF 
END

PUBLIC SUB cb4_Click()
'内网IP选中
  va4 = NOT va4
  IF va4 THEN 
     netip.ReadOnly = FALSE
  ELSE 
     netip.ReadOnly = TRUE
  ENDIF 
END

PUBLIC SUB can_Click()
'"取消"按钮代码
  Set.Close
END

PUBLIC SUB rset_Click()
'"重置"按钮代码
  DIM dr AS File
  DIM nr, pd AS String
  dr = OPEN "/etc/drcom.conf" FOR READ 
  WHILE NOT Eof(dr)
    LINE INPUT #dr, nr
    pd = Left$(nr)
    '判断是否为注释语句,否的话继续
    IF pd <> "#" THEN   
      pd = Left$(nr, 8)  '获取用户名与密码
      SELECT CASE pd
        CASE "username"
           user.Text = Right$(nr, -9)
        CASE "password"
           passwd.Text = Right$(nr, -9)
      END SELECT 
      pd = Left$(nr, 6) '获取服务器IP和内网IP
      SELECT CASE pd
        CASE "except"
           netip.Text = Right$(nr, -7)
        CASE "servip"
           sip.Text = Right$(nr, -7)
       END SELECT 
    ENDIF   
  WEND
  CLOSE #dr 
END

PUBLIC SUB enter_Click()
'"确定"菜单代码
'========================================
'nn:读取字符     pd:判断字符
'tt:修改内容暂存  dd:源文件代号   
'========================================
  DIM nn, pd, tt AS String
  DIM dd AS File
'========================================
  tt = ""
  dd = OPEN "/etc/drcom.conf" FOR READ 
  WHILE NOT Eof(dd)
    LINE INPUT #dd, nn
    pd = Left$(nn)
    '判断是否为注释语句,否的话继续
    IF pd <> "#" THEN   
      pd = Left$(nn, 8)  '获取用户名与密码
'++++++++++++++++++++++++++++++++++++++++
'          判断并替换修改内容
'++++++++++++++++++++++++++++++++++++++++
      SELECT CASE pd
        CASE "username"
           nn = "username = " & user.Text
        CASE "password"
           nn = "password = " & passwd.Text
      END SELECT 
      pd = Left$(nn, 6) '获取服务器IP和内网IP
      SELECT CASE pd
        CASE "servip"
           nn = "servip = " & sip.Text
        CASE "except"
           nn = "except = " & netip.Text
       END SELECT 
'++++++++++++++++++++++++++++++++++++++++
    ENDIF   
    tt = tt & nn & Chr(10)  '暂存信息
  WEND 
  CLOSE #dd
'****************************************
'       将修改后的配置保存到配置文件
'****************************************
  File.Save("/etc/drcom.conf", tt)
END
头像
xsoul
帖子: 441
注册时间: 2007-06-05 18:27
送出感谢: 0
接收感谢: 0

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明

#9

帖子 xsoul » 2008-10-26 20:46

高人~还是看不明白怎么用...
ursino
帖子: 33
注册时间: 2008-10-19 9:47
送出感谢: 0
接收感谢: 0

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明

#10

帖子 ursino » 2008-10-27 9:40

意思是已经安装linux版drcom的优化界面吗

无法使用linux版drcom的飘过..
luckyboy8879
帖子: 10
注册时间: 2007-08-18 21:48
送出感谢: 0
接收感谢: 0
联系:

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明

#11

帖子 luckyboy8879 » 2008-11-06 11:33

郁闷,深度在维护呢现在
都不知道什么时候才开启
楼主能不能发个教程什么的
luckyboy8879
帖子: 10
注册时间: 2007-08-18 21:48
送出感谢: 0
接收感谢: 0
联系:

Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明

#12

帖子 luckyboy8879 » 2008-11-06 11:34

急啊``````````
先谢谢了哦
回复

回到 “校园网拨号”