delphi透明窗口同时任务栏隐藏
03月03号
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

查看全文
seo实习笔记-外链技巧
seo实习笔记-外链技巧

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

查看全文