查询手机: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
...
查询手机: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
...
今天因为要做个东西要用到md5算法。就在网上找vb版的md5加密代码。结果出来的都是一大串一大串的代码,基本上都是用vb代码去实现md5算法。
由于代码过长于长,看到就心烦(其实不用看,复制过去就可以用)。由于本身过于追求简洁代码,所以决定放弃这些超长代码。
记得曾经听说windows有未公开的md5算法的API。于是又在网上搜了一下。结果还真找到了这些API:MD5Init,MD5Update,MD5Final。可惜找了很久都没见有VB的版的代码,都是VC的代码。只好自己抄他们的版,改成VB版就OK了。哈哈,省心啊~~~
...
今天在拍拍网上闲逛,无意中发现可以获取任何一家卖家的基本资料。包括,姓名,电话,手机,邮箱。虽然这些信息对于他们卖家来说不是算什么隐私。但是如果把这些资料收信起来……想想都怕了。
曾经在网上看到win7 是可以3D形式进行窗口切换的,但是自己用了大半年的win7,却从未见到过这个效果。今天无意中按错键,让我见识了这个3D效果。特此标记一下。3D效果切换键是 Win+Tab组合。和Alt+Tab 一样,只是表示形式不同。
用webbrowse做界面是少不了生成临时的html文件。而现在有了未公开的IPersistStreamInit 接口,这一切就将改变。因为它可以让你直接从内存中加载html文件。
IPersistStreamInit 接代码:
[ComVisible(true), ComImport(), Guid("7FD52380-4E07-101B-AE2D-08002B2EC713"),
InterfaceTypeAttribute(ComInterfaceType.InterfaceIsIUnknown)]
...
经常不完全测试,用使用XMLHttp对象抓取gb2312的页面时,中文会变成乱码。解方法有很多。
这里介绍一个比较简便的方法。用vb内置函数:StrConv直接转换
参考代码:
Dim bytes() As Byte
bytes = web.responseBody 'web是xmlhttp对象
Html = StrConv(bytes, vbUnicode)
...