征求意见，我有一个ADSL上网计时程序，我想公开源代码并且遵循GNU规则！觉得支持的请进来说一下！

Question

征求意见，我有一个ADSL上网计时程序，我想公开源代码并且遵循GNU规则！觉得支持的请进来说一下！
因为我不太想再维护这个程序，所以有这个打算，如果大家支持，请说一下什么方法比较好，因为我不想看见这个程序被用户乱改，或者在程序里面加入木马、病毒用于传播。我只希望大家根据自己的能力尽可能的修改本程序，但是所有修改后的版本发布一份给我，或者找一个比较有责任心的人进行维护，就是大家都修改了或者添加了一部分功能后由负责人统一添加到一个程序中，然后重新分发源代码。希望大家可以支持。但是请大家不要更改原作者的名字。

Answer 1

看来大家对这个软件没有什么兴趣啊，如果这样那我也只能不公开了
软件下载链接是http://www.csdn.net/cnshare/soft/16/16442.shtm

Answer 2

有人公开源代码都没有人关心的啊！我支持，楼主请放到CSDN下载页面下载吧，我看一看，改进了一定给你发改进后的源代码

Answer 3

强烈UP啊!
源代码在哪啊????
想看啊!
huangfei_person2163.com

Answer 4

我做广告，让我不得好死，怎么样，这样的毒咒都发了你们还不相信吗？我现在想知道的是参与有多少人，并且把源代码放到什么地方，我先说我不会发E-Mail的方法放源代码，太烦了！

Answer 5

如果大家没有兴趣，那我就发源代码给这里留了E-Mail的几位吧

Answer 6

我很感兴趣，装了ADSL后，计费真是个问题，下了一个计时软件，还要注册，烦！
做得不怎么样，还想挣钱！我想自己做一个，免费发布，但是不了解技术核心。
我很想了解你的代码！！强烈支持！

Answer 7

支持你！希望看看源码，谢谢！
至与有没有能力修改就不好说了！ :)[email protected]

Answer 8

支持,能不能发给我呢,
我的E-MAIL: [email protected]

Answer 9

你的软件看了，公开源代码可以，但是可能不能完全遵循GNU规则，因为你可能用了一些不符合GNU规则的控件，

Answer 10

支持,能不能发给我呢,
我的E-MAIL:[email protected]

Answer 11

[email protected]
我学习一下，看看

Answer 12

这样吧，我把源代码上传到CSDN上面，等CSDN发布了，我在这个帖子里面给出下载链接给大家看看。这个程序我用了两组控件，一个是免费的XPMenu一个是Rz控件组，我的下载文件里面有详细的说明，大家可以看一看

Answer 13

这样吧，我把源代码上传到CSDN上面，等CSDN发布了，我在这个帖子里面给出下载链接给大家看看。这个程序我用了两组控件，一个是免费的XPMenu一个是Rz控件组，我的下载文件里面有详细的说明，大家可以看一看

Answer 14

我要，[email protected]，而且我还想认识你，我的QQ：175322659

Answer 15

我也要，[email protected],我相信你。

Answer 16

我一般不喜欢用控件，由于这个软件是免费的所以才使用了两组控件，一般大家都有这两个控件，大家也可以把他们删除掉，换成标准的。我已经提交到CSDN，但是暂时还没有发布

Answer 17

支持楼主，Email: [email protected]

Answer 18

互联网时代就是信息和资源共享的，代码的公开并且应该是完全free!

Answer 19

我的软件源代码已经发给一个仁兄了，他说他放到他的主页上面
他的主页是http://yayx.fykj.com/这里，大家可以暂时关注一下。等CSDN放了我的源代码，我立刻公布下载地址，多谢这里这些爱好者的关心，谢谢了

Answer 20

呵呵，楼主，支持，你可以叫斑竹把你的帖子提到前面啊你把你的那 个 程序放在网站上，我们自己去下吧
[email protected]

Answer 21

去下载吧
http://yayx.fykj.com/soft/adsl上网计时器(OpenSource).rar

Answer 22

我支持你,我也想了解核心技术,但我们这里的adsl 都是包月的,我用不上你的软件,很对不起,不过,我想看一下你的源代码.

Answer 23

强烈支持，给我一份！
[email protected]

Answer 24

[email protected]
我也想看看

Answer 25

//我现在开始分析你的程序拉，见笑了  
XSTimeMonth, XSTimeDay, JSDay: Byte; //每天限时的时间    MonthDate: string; //本月用时,这个应该是一个累加的字符串变量，因为
    //Delphi里面的时间变量的小时数无法超过24.只能用字符串来代替
    CurrentDate, EndTime: TTime;    MonthStart: TDateTime; //本月开始的时间和日期    szCallSound: string; //报警声音的路径
    IsCallSound: Boolean; //是否报警
    IsDefaultSound: Boolean; //是否使用默认声音报警
    IsSetupDay: Boolean; //每个月重新计时那天是否已经重新计时

Answer 26

procedure TFrmADSLMain.FormCreate(Sender: TObject);
begin
  InitDateProc;  lblMonthStr.Caption := Str1 + MonthDate;
  lblCurStr.Caption := Str2 + FormatDateTime('hh:mm:ss', CurrentDate);
  lblStartStr.Caption := Str3 + DateTimeToStr(MonthStart);
  case GetOSVersion of //
    osUnknown..osWinme:
      begin
        MenuFrmTrans.Enabled := False;
        MenuFrmTrans.Checked := False;
      end;
  end; // case
end;

Answer 27

procedure TFrmADSLMain.InitDateProc;
var
  INI: TINIFile;
  Reg: TRegistry;
begin
  Path := ExtractFilePath(ParamStr(0));  Reg := TRegistry.Create;//判断是否能够自启动程序如不行则写注册表使自启动
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', False) then
      if Reg.ReadString('ADSL') = '' then
        Reg.WriteString('ADSL', Application.ExeName);
  finally
    FreeAndNil(Reg);
  end;  INI := TINIFile.Create(Path + 'ADSL.ini');//初始化一些全局变量
  try
      IsSetupDay := INI.ReadBool('Setup', 'SetupBool', False);
      XSTimeMonth := StrToInt(INI.ReadString('Setup', 'MonthDate', '120'));
      //每月的限时小时
      XSTimeDay := StrToInt(INI.ReadString('Setup', 'Date', '5'));
      //每天的限时小时
      JSDay := StrToInt(INI.ReadString('Setup', 'Start', '21')); //计时开始日期      //是否使用声音报警
      IsCallSound := INI.ReadBool('Setup', 'Sound', False);
      IsDefaultSound := INI.ReadBool('Setup', 'DefaultSound', True);      if (JSDay = DayOf(Now)) and (IsSetupDay = False) then
//这样判断容易出问题比如：
//一个月有28天也有31天的这样容易有臭虫出现
        //如果到了每个月的计时日期
      begin
        //每个月重新计时 
        MonthDate := '00:00:00';
        INI.WriteBool('Setup', 'SetupBool', IsSetupDay);
      end
      else
      begin
       //每个月不重新记时  
        MonthDate := INI.ReadString('Date', 'SumTime', '00:00:00');
        INI.WriteBool('Setup', 'SetupBool', IsSetupDay);
      end;      MonthStart := INI.ReadDateTime('Date', 'Start', Now);      szCallSound := INI.ReadString('Setup', 'SoundPath', '');
  finally
    INI.Free;
  end;
  ReadFileToListView(Path + 'ADSL.trv');
  DateTimePicker1.Date := Now;
  AddNameToTreeNode;
  AddIPToListView;
end;

Answer 28

procedure TFrmADSLMain.ReadFileToListView(FileName: string);
var
  Item: TListItem;
  tmp, tmp1: string;
  Str: TStrings;
  fText: TextFile;
  i: integer;
begin
  Str := TStringList.Create;
  if FileExists(FileName) then
  begin
    AssignFile(fText, FileName);
    Reset(fText);
    try
      while not EOF(fText) do
      begin
        Readln(fText, tmp);
       //这一段代码就是读出原来保存在'ADSL.trv'文件里面的一些记录
      //我人为太繁琐了可以这样
      //str.Delimiter:=#7;
     //  str.DelimitedText:=tmp; 这样后面的WHILE循环可以不要了       while Pos(#7, tmp) <> 0 do
        begin
          tmp1 := Copy(tmp, 1, Pos(#7, tmp) - 1);
          tmp := Copy(tmp, Pos(#7, tmp) + 1, Length(tmp));
          Str.Add(tmp1);
        end; //while
        if tmp <> '' then
          Str.Add(tmp);
  
        if Str.Count <> 0 then
        begin
          //开始往ListView1里面装从文件中读取出来的东西
          Item := ListView1.Items.Add;
          Item.Caption := Str.Strings[0];
          for i := 1 to Str.Count - 1 do // Iterate
          begin
            Item.SubItems.Add(Str.Strings[i]);
          end; // for
          Str.Clear;
        end;
      end; // while
    finally
      CloseFile(fText);
    end;
  end;
end;

Answer 29

有个问题。
ADSL上网难道你们那里不时包月的？？？我们这里是包月的。所以我没有考虑过要用计时软件，也觉得没有必要用

Answer 30

我想要源代码，也想和你一们买笔记本
很支持你的开发行为
[email protected]

Answer 31

支持你！希望看看源码，谢谢！
[email protected]

Answer 32

我是菜鸟，也想要一份学习学习啊！ 谢谢！
Email:[email protected]

Answer 33

http://yayx.fykj.com/soft/adsl上网计时器(OpenSource).rar
大家暂时到这里下载!
to：楼上某些人，我十分知道这个程序确实没有技术含量，我在开始的时候就说明了，而且程序的ReadMe里面也注明本程序没有技术含量，我在这里公布程序源代码只是为了让有心人来共同维护这个程序，希望可以把这个程序做好，发布成免费软件让大家使用，难道仅仅因为没有技术含量，我们就不去写了吗？

Answer 34

强烈支持 !!
向你学习！！！[email protected]

Answer 35

我可以写一下帮助文档[email protected]

Answer 36

[email protected]
支持+顶

Answer 37

我可以做用户界面部分和数据库部分。因为太忙，没有时间。我Down义愤研究一下。

Answer 38

学习
我还没有做过那方面的。
[email protected]

Answer 39

我支持你呀！楼主。如果可以的话，我把它放到我的主页中，不知可否？
[Delphi编程驿站]http://yckxzjj.vip.sina.com。本主页网友作品栏正在征集网友作品，希望你也能参与进来，支持我的个人主页建设！谢了！

Answer 40

我没有adsl。所以来说呢没有什么兴趣。(我在公司上网)

Answer 41

源代码在什么地方呀！我可能看看吗！放心！我如果修改了你的源代码一定给你发一份！E_Mail:[email protected]

Answer 42

如果不支持就不是CSDN的老人。

Answer 43

支持。
麻烦您发一份到[email protected]，我非常感兴趣。

Answer 44

http://yayx.fykj.com/soft/adsl上网计时器(OpenSource).rar

Answer 45

置顶啊...........
[email protected]
谢谢.........

Answer 46

我觉得应该加上对在线状态的检测，如果没有拨号或断线了，应该能停止计时。可以使用ICMP,仅供参考

Answer 47

和你一样
想买台手提电脑
和你一样
想提高自己的技能水平
和很多的朋友一样
想看看你的源码
和很多的朋友一样
祝你成功！给我来份源码吧：
[email protected]

Answer 48

完全支持楼主公开原代码的做法，这样让你的程序有更好的发展，让更多人
来参与完善它，试想当初unix的主人不公布他的原代码，unix的发展有这么
快吗？尽管有它不好的一面，但终利大于弊，希望以后有更多得人能够
向楼主一样的想法，能公布其代码。我也要一分了。谢谢！！！
[email protected]

Answer 49

我一个月前也装了ADSL。也想自己开发一个。
现在好了。
请给我一分。谢谢！
[email protected]