canrry的博客

由于本人在用Nod32，经常要上网页复制升级ID和密码。非常麻烦。 所以自己用Delphi写了这个小东西。 自己用的，没进行美化。 关键是超级简单，易用！ 原理就是截取这个网址里面的代码：http://www.126185.com/killsoftware/sdsoft/NOD32/nod32_id.htm 也就是说只有这个网址还有用，这个工具就可以继续使用。 源码太简单了！！就只有几行！直接贴在这里！ var xml: OleVariant; r: string; p1, p2: Integer; begin xml := CreateOleObject('Microsoft.XMLHTTP'); xml.Open('GET', 'http://www.126185.com/killsoftware/sdsoft/NOD32/nod32_id.htm', False); xml.Send; r := xml.responseText; p1 := Pos('<p>', r); // 找到开始标签 p2 := Pos('</p>', r); // 找到结束标签 Edit1.Text := Copy(r, p1 + 10, 14); //获取用户名 r := Copy(r, p1 + 28, p2 - p1 - 28); //截取余下有用部分 p1 := Pos('<br>', r); // 找到密码后面的换行 Edit2.Text := Copy(r, p1 - 10, 10); //获取密码 end;

将.svg图标转换为.mif图标的小工具... 命令格式: mifconv 目标文件名.mif 源文件名.svg

在Google搜了一下,好像没有moBlue v2.1的汉化版,所以自己给汉化了一下.顺便做了点修改: 1.把快捷方式移到附件里. 2.把默认目录改为/My Documents/.(原版是在内存卡上,如果没装内存卡的情况,软件就会出错) 3.修改为默认打开程序自动进入"可被查找"状态. PS.本人第一次发布汉化软件.请大家多支持哈~~ 软件说明：蓝牙接收文件的软件，可以自定义保存资料的文件夹，存储位置和文件分类，并且可以分类自己定义规则，接收文件的时候省去了选来选去的麻烦。

演示地址：http://www.porkling.net/ 个人小小博客... 全站使用Ajax无刷新技术. 主要功能： 日志发布与评论 图片发布与评论 留言板 附件管理 喜欢蓝色的朋友应该会喜欢的...