花了一晚上的时间把原来3g的流量查询算法改写成5g版本的。同样，我所写的算法是把802.1x和网关流量加起来的，所有的流量都是按照1g=1024m算的。所以各位童鞋如果发现超了5G了，即是已经超了，不要妄想是5.3G的。

使用的方法很简单的。把账号和密码放到user.ini文件中去（有人说这个有风险，不过我觉得目前还没有木马针对我这个程序吧，它还没这么出名了，当然如果有时间我会写加密算法，若是各位有怀疑的可以到我博客找源码自己改写编译；对丢失账号和密码的本人概不负责）。如果还有什么问题或者好的建议请留言或和我联系。

<a href=”http://www.chaochaoblog.com/myupload/liuliang.rar“>吵吵流量监控</a>

今天用delphi写一个小程序的时候想使我的窗口在任务栏影藏，同时有渐变的效果从透明变过来。在fromcreate中写了一个api使窗口能够在任务栏隐藏的：

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW );

前面只发布过一个js的代码,那是无聊时弄的，不过这个js代码还是挺有用的。这次把以前写的一个vb程序也弄下来吧。这个vb的适合下载电视剧或者多个电影地址的页面，程序会自动下载并且保存好名称，这个还是比较方便的。提醒大家的是要先ie下登录了才能探测到地址：

vb校园批量下载程序

js校园网电影地址探测

看着博客左边栏的数字滚动，那就是我的一天天的生活，时间就是这样一天一天在我的人生中流过，仿佛这生命就不是我的一样。每天早晨睡到11点多起来，吃完午饭后又睡一觉，下午浏览网页、看个电影。到了五点多去下面游个泳，晚上聊聊天，之后就是照看ebay的店铺了。说实话，这些天的天天英文的网站看着我都心烦了，恨不得以后都再也不学英语了。哎，却明明知道英语是多么重要的一个东西。

这个是用delphi写的我们学校的流量监控的软件，每隔五分钟，上校园网去读取一次流量信息，然后通过整合计算，得到最终的数据。这个可以一直开着，看看流量会不会有异常情况，碰到学校不计算流量的时候，嘿嘿，就拼命下东西吧。

用javascript写的一个客服弹窗的代码。很漂亮的哦：

<!–CTYPE html PUBLIC “-//W3C//DTD XHTML 1.0 Transitional//EN” “http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dt–>

<title>js客服弹窗代码（www.chaochaoblog.com）吵吵的博客</title>

写这个函数真的有点费脑筋的，用delphi试验过了好久才写出来，由于有自身调用的问题，刚开始还会出现找出重复文件的问题，还好在我的耐心下一一解决了这个函数如下：
顶部
//delphi文件查找函数，by吵吵。
var
StrList:tstringlist;//在顶部定义

如果学校的论坛还有人问这个问题那么我就只好写一下吧。目前支持802.1x+动态ip 认证的路由器已经试过的有tplink 541G+ ,TPLINK 340g+。看这个命名的规则，估计是有g+的应该都行的。腾达的试过了，即使是802.1x+动态ip 也不行。从我抓包的结果分析，我们学校的802.1x认证是完全标准的认证，故tp link还可以。腾达就不知道搞什么鬼了。估计去做华为、锐捷的去了。废话不说了。写一下步骤吧。

吵吵发布：www.chaochaoblog.com
这段时间一直在研究zen cart商城，昨天老板给了一个nextag的代码，让我把这段代码插到购买商品的确认页去，于是就循着蛛丝马迹慢慢的找它本身的那个函数。还好是php做的东西，找了好久，终于找到了。原来在zen cart中有这么一个类：
class order extends base {
  var $info, $totals, $products, $customer, $delivery, $content_type, $email_low_stock, $products_ordered_attributes,
  $products_ordered, $products_ordered_email, $attachArray;//吵吵发布。
<!–more–>
这个类定义了order也就是客户拍下来商品的一些信息,其中就包括了：
$this->products[$index] = array(‘qty’ => $new_qty,
                                      ‘id’ => $orders_products->fields[‘products_id’],
                                      ‘name’ => $orders_products->fields[‘products_name’],
                                      ‘model’ => $orders_products->fields[‘products_model’],
                                      ‘tax’ => $orders_products->fields[‘products_tax’],
                                      ‘price’ => $orders_products->fields[‘products_price’],
                                      ‘final_price’ => $orders_products->fields[‘final_price’],
                                      ‘onetime_charges’ => $orders_products->fields[‘onetime_charges’],
                                      ‘products_priced_by_attribute’ => $orders_products->fields[‘products_priced_by_attribute’],
                                      ‘product_is_free’ => $orders_products->fields[‘product_is_free’],
                                      ‘products_discount_type’ => $orders_products->fields[‘products_discount_type’],
                                      ‘products_discount_type_from’ => $orders_products->fields[‘products_discount_type_from’]);
可以看到，在products中我们清楚的知道了商品的价格、名称等等信息。那么只需要吧这个值再交给js代码，让js把它传递给NexTag就ok了。

delphi今天写了一个递归的文件查找的函数，结果发现没有返回值，研究了好久原来是函数的自身调用引出的问题：
function GetDirFile(TypeName: String; DirName: String):tstringlist;
var
StrList:tstringlist;
上面这个函数会在里面调用一下自身，结果在函数中定义的strlist在下一次调用中已经无效了。
故这个函数没有返回值了
解决的办法就是strlist在全局定义，暂时没找到更好的办法，只好先这么做，不过老是觉得挺别扭的。

www.chaochaoblog.com