当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 12 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明
帖子发表于 : 2008-10-11 22:33 
头像

注册: 2007-05-12 23:50
帖子: 69
送出感谢: 0 次
接收感谢: 0 次
EasyDrcom ── Ubuntu下Drcom图形界面登录设置软件
经过几天的努力,终于把基本功能都实现了。
本测试版的功能包括登录/注销、直接使用gedit修改配置文件和使用图形界面修改配置文件。
附件:
文件注释: 截图
drcom.jpg
drcom.jpg [ 155.88 KiB | 被浏览 2018 次 ]


[更新日志 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]
被下载 154 次
文件注释: 软件 使用时将后缀中的.rar去掉,然后解压即可
EasyDrcom.gambas.7z.rar [200.29 KiB]
被下载 264 次


最后由 天涯海客 编辑于 2008-10-15 0:15,总共编辑了 2 次
页首
 用户资料  
 
2 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件
帖子发表于 : 2008-10-12 11:00 
头像

注册: 2005-10-29 9:16
帖子: 233
送出感谢: 0 次
接收感谢: 0 次
支持一下,虽然不懂dr。com


_________________
Linux就是Linux,了无痕迹,却无处不在。


页首
 用户资料  
 
3 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件
帖子发表于 : 2008-10-12 12:12 

注册: 2007-05-06 10:12
帖子: 1994
送出感谢: 0 次
接收感谢: 0 次
支持 :em11


页首
 用户资料  
 
4 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件
帖子发表于 : 2008-10-12 12:17 
头像

注册: 2007-04-30 2:25
帖子: 429
地址: 湖南湘潭
送出感谢: 0 次
接收感谢: 0 次
创建版怎么跑深度去了?


_________________
孰能浊静之以徐清,孰能安动之以馀生!
gcell -- http://gcell.blog.163.com/


页首
 用户资料  
 
5 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件
帖子发表于 : 2008-10-12 12:45 

注册: 2008-05-16 19:18
帖子: 26
地址: 中国
送出感谢: 0 次
接收感谢: 0 次
大虾呀,怎么装的阿?好东西不会用哎,痛苦中。。。。。。


页首
 用户资料  
 
6 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件
帖子发表于 : 2008-10-12 13:08 
头像

注册: 2008-05-06 11:02
帖子: 73
地址: 野猪帝国
送出感谢: 0 次
接收感谢: 0 次
gcell 写道:
创建版怎么跑深度去了?

弱弱地同疑问一句 :em06


页首
 用户资料  
 
7 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件
帖子发表于 : 2008-10-14 11:17 
头像

注册: 2008-10-12 12:58
帖子: 557
地址: 天津
送出感谢: 0 次
接收感谢: 0 次
请问楼主能不能发个详细教程上来,现在深度论坛不开放注册,楼主的贴也看不了啊


页首
 用户资料  
 
8 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件
帖子发表于 : 2008-10-15 0:09 
头像

注册: 2007-05-12 23:50
帖子: 69
送出感谢: 0 次
接收感谢: 0 次
简易教程
下面我以本软件中的设置界面为例简单介绍一下Gambas的使用
其简要框图如下
附件:
文件注释: Gambas功能区简介
EasyDrcom - Gambas 2.png
EasyDrcom - Gambas 2.png [ 142.08 KiB | 被浏览 1940 次 ]


首先在左面的软件结构区中的“窗口”这一项上点击右键选择新建窗口。
然后大致调解窗口大小,在参数设置区中根据自己的需要设置好默认参数。
三、从组件区将需要的组件拖到窗口中,同窗口设置参数一样设置好参数,大小与位置可直接使用鼠标拖动调节。
四、双击组件进入代码窗口,写代码。(当默认事件不是自己要使用的时候,可在目标组件上使用右键,在事件菜单下选择自己使用的事件)
五、保存、使用软件自带的编译调试功能测试软件。
示例
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



页首
 用户资料  
 
9 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明
帖子发表于 : 2008-10-26 20:46 
头像

注册: 2007-06-05 18:27
帖子: 441
送出感谢: 0 次
接收感谢: 0 次
高人~还是看不明白怎么用...


页首
 用户资料  
 
10 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明
帖子发表于 : 2008-10-27 9:40 

注册: 2008-10-19 9:47
帖子: 33
送出感谢: 0 次
接收感谢: 0 次
意思是已经安装linux版drcom的优化界面吗

无法使用linux版drcom的飘过..


页首
 用户资料  
 
11 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明
帖子发表于 : 2008-11-06 11:33 

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


页首
 用户资料  
 
12 楼 
 文章标题 : Re: EasyDrcom(测试版) ── Ubuntu下Drcom图形界面登录设置软件 8楼附简易编程说明
帖子发表于 : 2008-11-06 11:34 

注册: 2007-08-18 21:48
帖子: 10
送出感谢: 0 次
接收感谢: 0 次
急啊``````````
先谢谢了哦


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 12 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 1 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译