循环文本内容生成器（BUG修正，绿色环保版）
希望能对有需要的人有所帮助，现在正在打包。把图发上来关于很多人不知道具体的作用，在这里解释一下：
如果你要是贴图或者贴种子链接是不是有时候要去一个站点找一堆地址呢？但是，那些地址可能基本都相同，唯一不同的就是后面的比如
http://1.jpg
http://2.jpg
http://3.jpg
http://4.jpg
http://5.jpg
http://6.jpg
http://7.jpg
http://8.jpg
http://9.jpg
http://10.jpg
就是在1-10这些数字上不同，但是比较烦人的就是我们需要一个一个改。10个还不算多，但是20个呢，30个呢。这样往往会浪费很多不必要的时间。所以想到了开发这个下东西。
需要.Net Framework 2.0支持，下载地址如下
http://www.microsoft.com/downloads/details.aspx?displaylang=zh-cn&FamilyID=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5
[ 本帖最后由 john 于 2006-11-2 10:09 编辑 ] 我传在本地了没意见吧
.NET Framework 2.0现在已经是XP升级包的标准内容了 为什么装了以后运行很多EXE软件都变成运行这个生成器了？
还包括控制面板里的 添加和删除程序 。。。
不是单个，是全部的EXE 补充
安装后打开所有exe文件都自动变成打开刚装好的循环生成器，启动windows的加载项也变成这个程序，同时也包括控制面板里的很多程序，打算用系统还原，打开系统还原也直接变成打开循环器。所有exe程序图标丢失，均变成“傲”字图标。
卸载后，大多数exe文件出现丢失，用了瑞星的注册表修复后，才恢复正常。
请楼主检查。 orz
自己刚才测试了一下，安装文件果然存在重大BUG
向中招的朋友表示歉意
其实这个软件本身仅仅是一个EXE，我不理解为什么要做成一个安装程序放上来，还修改了注册表弄出这么大的BUG
我已经把EXE文件本体打包重新放出，只要安装了.Net Framework 2.0就能够使用，绿色环保
另外发布页面连接我已经删除了，避免更多的朋友中招…… 囧， 程序不说质量如何， 带了一个.net framework就令人不爽。
这么如此简单的功能可以用perl来做。只要不到30行代码
#!/usr/bin/perl
use strict;
use warnings;
use Win32::GUI;
my ($main, $url, $begin, $end, $gen, $list);
$main = Win32::GUI::Window->new(-name => \'Main\', -text => \'循环生成器 v0.9\', -size => , -hasmaximize => 0, -sizable => 0);
$main->AddLabel(-text => \'以下输入循环体\', -pos => );
$url = $main->AddTextfield(-name => \'Url\', -text => \'http://(*).jpg\', -size => , -pos => );
$main->AddLabel(-text => \'以下输入循环节\', -pos => );
$main->AddLabel(-text => \'从\', -pos => );
$begin = $main->AddTextfield(-name => \'Begin\', -text => \'1\', -size => , -pos => , -number => 1);
$main->AddLabel(-text => \'到\', -pos => );
$end = $main->AddTextfield(-name => \'End\', -text => \'10\', -size => , -pos => , -number => 1);
$gen = $main->AddButton(-name => \'Gen\', -text => \'生成\', -pos => );
$list = $main->AddTextfield(-name => \'Urllist\', -text => \'\', -size => , -pos => , -multiline => 1, -readonly => 1, -autovscroll => 1, -autohscroll => 1);
$main->Center();
$main->Show();
Win32::GUI::Dialog();
sub Main_Terminate() {
-1;
}
sub Gen_Click() {
$list->Append(join(\'\', map {my $t = $url->Text().\"\\r\\n\"; $t =~ s/\\(\\*\\)/$_/; $t} ($begin->Text()..$end->Text())));
}
以下是打包的可执行文件和打包的源码。
http://www.live-share.com/files/79775/wb.rar.html
[ 本帖最后由 john 于 2006-11-4 07:05 编辑 ] 我无意比较Perl的c#的长短， 花时间写这30行的代码只是佐证我的观点--这种程序本来可以很简单的， 不必又要安装又改注册表 ， 还要加上一个虚拟机。要说明的是， 我写的这个只是一个原型， 比之楼主的程序还颇有不及， 之所以厚脸皮放出来是要显得有破有立， 避免沦为光说不练。
Perl作界面确实勉为其难， tk的API我用的很不舒服， 用的是Win32::GUI这个包。 哈哈，还是我菜鸟啊，承蒙高手指点。
抱歉顶了好老的帖子。
页:
[1]