Shotgun' blog

欢迎进入Shogtun的blog。

IP地址、手机归属和身份证查询接口

查询手机:http://www.yodao.com/smartresult-xml/search.s?type=mobile&q=13564370000

本询IP:http://www.yodao.com/smartresult-xml/search.s?type=ip&q=221.123.123.123

...

无题

一个医院院长电视机坏了,拿到一个大修理店去修。修理店接待人员问: “你好,请问你的电视机出了什么问题?” “就是没有反应了,声音图像都没了。” “OK,看来你的电视是内部出了问题,那你要看内科,请问你要看工程师还是高级工程师,修理费工程师收20元,高级工程师要收30元。” “不就是修电视机吗?修好就可以了,我管他什么工程师还是高级工程师?” “不一样的,高级工程师水平高,什么疑难问题的电视都能修理好,修好的返修率也明显低于工程师,但是修理费相对高一点,所以这个由顾客您自己选择。” “我的电视应该不算疑难杂症,就一般工程师就好了。” “那好,请你先交20元修理费。” “为什么还没修理就要先交费?” “我们修理店的制度就是这样,一般医院的挂号费,也不是没看病之前就要交吗?” 医院院长无话可说,只好交了20元,将电视机捧进修理店,来到了工程师的工作台。 工程师问了一下电视机的情况,先开了三个付费单请医院院长交费,一个万用表测量费20元,一个示波器测量费50元,一个扫频仪费80元。 “为什么要顾客出这个测试费,这不是方便你们修理工程师的吗?” “没错,我们的工程师以前也是靠望闻问切听,凭经验修理,可是现在科学发达了,什么仪器都有了,修理时做了测试会比较准确,也能测试出目前暂时还没有显现的故障出来。我们买这些仪器仪表要花费大量资金,所以我们要收一些合理的费用。你的还好,没有用到更多仪器,上次一个客户送一个电器,我们用了网络分析仪测试天线阻抗,测试费就是150元,人家也是测了。我们会尽量替顾客着想,尽量少一些测试,为顾客省钱。当然你也可以坚持不测试,但我们修理时,可能会判断错误将好的零件换掉,给顾客造成不必要的费用。也可能修不好你的电器,最后耽误你的时间。” 医院院长只好先交了150元测试费。 工程师经过半个小时测试,用打印机打出一张线路图,发现时一个三极管烧了,他花几分钟,换了个一毛钱左右的三极管就修好了电视机。
...

vb6最简单的MD5加密运算

今天因为要做个东西要用到md5算法。就在网上找vb版的md5加密代码。结果出来的都是一大串一大串的代码,基本上都是用vb代码去实现md5算法。

由于代码过长于长,看到就心烦(其实不用看,复制过去就可以用)。由于本身过于追求简洁代码,所以决定放弃这些超长代码。

记得曾经听说windows有未公开的md5算法的API。于是又在网上搜了一下。结果还真找到了这些API:MD5Init,MD5Update,MD5Final。可惜找了很久都没见有VB的版的代码,都是VC的代码。只好自己抄他们的版,改成VB版就OK了。哈哈,省心啊~~~

...

无意中的发现

今天在拍拍网上闲逛,无意中发现可以获取任何一家卖家的基本资料。包括,姓名,电话,手机,邮箱。虽然这些信息对于他们卖家来说不是算什么隐私。但是如果把这些资料收信起来……想想都怕了。

win7 3d窗口切换快捷

曾经在网上看到win7 是可以3D形式进行窗口切换的,但是自己用了大半年的win7,却从未见到过这个效果。今天无意中按错键,让我见识了这个3D效果。特此标记一下。3D效果切换键是 Win+Tab组合。和Alt+Tab 一样,只是表示形式不同。

Webbrowse编程必备接口IPersistStreamInit

用webbrowse做界面是少不了生成临时的html文件。而现在有了未公开的IPersistStreamInit 接口,这一切就将改变。因为它可以让你直接从内存中加载html文件。

IPersistStreamInit 接代码:

    [ComVisible(true), ComImport(), Guid("7FD52380-4E07-101B-AE2D-08002B2EC713"),
      InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
...

vb6,xmlHttp 乱码解决方法

经常不完全测试,用使用XMLHttp对象抓取gb2312的页面时,中文会变成乱码。解方法有很多。

这里介绍一个比较简便的方法。用vb内置函数:StrConv直接转换
参考代码:
    Dim bytes() As Byte
    bytes = web.responseBody 'web是xmlhttp对象
    Html = StrConv(bytes, vbUnicode)
...

开博了

Nohing!

分页:[«]1[»]

日历

<< 2011-12 >>

Sun

Mon

Tue

Wed

Thu

Fri

Sat

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

控制面板

最新评论及回复

最近留言

Search

站点统计

  • 文章总数:8
  • 评论总数:0
  • 引用总数:0
  • 浏览总数:89
  • 留言总数:0
  • 当前主题:Default主题
  • 当前样式:default

网站收藏

友情链接

图标汇集

  • RainbowSoft Studio Z-Blog
  • RainbowSoft Studio Z-Blog
  • 本站支持WAP访问
  • 订阅本站的 RSS 2.0 新闻聚合

Powered By Z-Blog 1.8 Walle Build 100427

Copyright 2010 www.yangtuotuo.com . All Rights Reserved.