VB程序代码行数计算器

xiayu1993

哇，不愧是西门。
意见（共1条）
1.历史记录的说，很好做的。
算法提供（共1条）
1.Basic打乱顺序：
  1.计算出总行数后，定义一个String数组。
  2.Rnd一下将要打乱的顺序，按照顺序将String数组打乱，将信息放在文件头，这非常重要。不怕麻烦的话，可以将该信息用Ascll加加减减，这就随你了。
  3.大公告成，生成vbp.(如有兴趣，可将*.frm,*.bas,*.cls等也加密一下）
====

新林

不错,简单实用的小工具.支持,功能还可适当的增强一些.

EasternSpirit

很值得思考，虽然还很次，但在努力中！

PlaneV

最好能把 VB.NET 也加上！跟上微软的更新脚步！

superzmy

有本事加上If 控制 打乱顺序用的Goto……
而且判断的变量也不时的变变

西门吹雪

呵.......要加密嘛,就要做得好一点,这是个主意........

superzmy

程序总行数(不包括空行):3531行

类型文件信息:
窗体文件:
  总行数:1054行
  总函数:0个
  总过程:0个
模块文件:
  总行数:471行
  总函数:9个
  总过程:9个
类模块文件:
  总行数:2006行
  总函数:15个
  总过程:15个
用户控件文件:
  总行数:0行
  总函数:0个
  总过程:0个
属性页文件:
  总行数:0行
  总函数:0个
  总过程:0个

文件信息:
Frame.frm:
  总行数:470行
  总函数:0个
  总过程:15个
Sys.bas:
  总行数:144行
  总函数:0个
  总过程:4个
API.bas:
  总行数:174行
  总函数:0个
  总过程:0个
Menu.bas:
  总行数:62行
  总函数:0个
  总过程:4个
MainWindow.frm:
  总行数:321行
  总函数:0个
  总过程:22个
mTree.cls:
  总行数:379行
  总函数:0个
  总过程:12个
mToolBar.cls:
  总行数:128行
  总函数:0个
  总过程:9个
mReadText.cls:
  总行数:367行
  总函数:2个
  总过程:15个
mTreeItem1.cls:
  总行数:30行
  总函数:0个
  总过程:1个
mStateBar.cls:
  总行数:123行
  总函数:0个
  总过程:7个
mTreeNode2.cls:
  总行数:29行
  总函数:0个
  总过程:1个
mTreeNode3.cls:
  总行数:14行
  总函数:0个
  总过程:0个
mFunc.bas:
  总行数:91行
  总函数:9个
  总过程:1个
NoticeWindow.frm:
  总行数:120行
  总函数:0个
  总过程:9个
mSetFile.cls:
  总行数:66行
  总函数:1个
  总过程:1个
mSetSection.cls:
  总行数:4行
  总函数:0个
  总过程:0个
BMP32.cls:
  总行数:263行
  总函数:1个
  总过程:3个
Setup.frm:
  总行数:143行
  总函数:0个
  总过程:11个
mColor.cls:
  总行数:49行
  总函数:0个
  总过程:3个
mFont.cls:
  总行数:55行
  总函数:0个
  总过程:3个
mFile.cls:
  总行数:1行
  总函数:0个
  总过程:0个
mInet.cls:
  总行数:148行
  总函数:0个
  总过程:5个
mMenu.cls:
  总行数:113行
  总函数:0个
  总过程:7个
mOption.cls:
  总行数:237行
  总函数:11个
  总过程:13个

superzmy

那个，加入一个字符数统计吧，还有　语句+函数+方法+关键字+变量名　个数统计

VB爬虫

好,收藏