前面只发布过一个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

seo是个什么东东，最近还真的挺让人伤脑筋的。严格来说seo不能算一门技术，最多是只有几个手段而已。我就是以为做seo的公司会有多NB，所以跑过去实习了。干了四天，每天造成七点钟起来，晚上8点才回去。起早摸黑就罢了，上下班时候的公交啊，真的让人想自杀。用一个比较不夸张的说发BRT站台那里根本就不用脚着地就进去了。如此真的是不明白像广州这样的大城市有什么好的，人多，拥挤不堪。真的想活在二线城市了，那里至少人少，空气好。人这一辈子就那么多日子，何苦要折腾自己呢，舒服的过着永远比什么都重要。

吵吵发布

delphi 使用多线程之间的参数传递能够同时完成多个任务，比如说你需要第一个线程读取第一个记录并执行相应操作，第二个线程读取第二个记录并执行相应的操作，那么你就可以同时建立多个线程，每个线程都在读取不同的记录然后执行相应的操作，这样形成的效率效果是相当显著的。