校园流量查询监控工具(5G版)
03月03号
校园流量查询监控工具(5G版)

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

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

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

查看全文
delphi透明窗口同时任务栏隐藏
delphi透明窗口同时任务栏隐藏

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

SetWindowLong(Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW );

查看全文
校园网电影的地址的探测和下载程序(js和vb)
校园网电影的地址的探测和下载程序(js和vb)

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

vb校园批量下载程序

js校园网电影地址探测

查看全文
今天终于接手ebay店铺了,发了第一个listing
今天终于接手ebay店铺了,发了第一个listing

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

查看全文
delphi校园网流量查询监控程序
delphi校园网流量查询监控程序

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

查看全文
js客服弹窗代码
js客服弹窗代码

用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 遍历查找同类型的文件

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

查看全文
港湾认证使用路由器教程
港湾认证使用路由器教程

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

查看全文
zen cart商城获取确认页面的商品信息
zen cart商城获取确认页面的商品信息

吵吵发布: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函数无法返回值
delphi函数无法返回值

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

www.chaochaoblog.com

查看全文