2011-09-01 00:05:33

是那个人，不说他也懂；不是那个人，说了也没用。是那个人，不解释也没关系；不是那个人，解释也多余。是那个人，不留他也不走；不是那个人，留也留不住。是那个人，不等自然会遇到；不是那个人，原地也会走丢.


View Mode: Normal | Article List
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | >

vb+Webbrowser控件技巧大全

[ 2011-11-28 14:46:22 | Author: adobo ]
1、获得浏览器信息：
Private Sub Command1_Click()
WebBrowser1.Navigate "http://www.applevb.com"
End Sub
Private Sub Command2_Click()
Dim oWindow
Dim oNav
Set oWindow = WebBrowser1.Document.parentWindow
Set oNav = oWindow.navigator
Debug.Print oNav.userAgent
Set oWindow = Nothing
Set oNav = Nothing
End Sub
点击Command1浏览网页，点击Command2在立即窗口中输出浏览器信息。

2、弹出Webbrowser消息窗口

Dim oWindow
Set oWindow = WebBrowser1.Document.parentWindow
...

Read More...


Category: Man's NetWord | Permalink | Comments: 1 | Trackbacks: 0 | Views: 314

cnolnic的域名注册接口域名注册查询API

[ 2011-11-17 14:17:05 | Author: adobo ]
新找到一个cnolnic的域名注册接口域名注册查询API
测试了下速度还可以
GET方式
返回值中1为可注册0为已注册
要升级咯，哈哈~
把前面的网址去掉
http://www.beyourman.com/?http://www.cnolnic.com/cgi-bin/domainquery.cgi?flag=1&domainname=baidu11111&com=on


Category: Man's Work | Permalink | Comments: 0 | Trackbacks: 0 | Views: 315

已备案未注册域名免费发放-服务器后台自动更新发布

[ 2011-11-16 20:17:26 | Author: adobo ]
免费啦免费啦

此处将用来发布已备案未注册域名，后台由【已备案未注册域名批量扫描系统】自动扫描并自动加入本页面
点击这里下载该软件：已备案未注册域名批量扫描系统 如果发现域名被注册了，可能是已经被别人抢注了，我不负责的哦！至少入库的时候还没有被注册呢！
此处不定时更新，建议您下载软件自己去扫描，这样就可以扫到自己中意的域名了！加油哦~
备案号 域名 主办单位
...

Read More...


Category: Man's Work | Permalink | Comments: 0 | Trackbacks: 0 | Views: 678

全球whois服务器列表，批量查询就靠它了

[ 2011-11-10 11:41:20 | Author: adobo ]
为新版本的WHOIS批量查询做准备
记得WHOIS服务端口是43哦！
测试可用TELNET 服务器名后直接敲入域名就可以了！
.br.com whois.centralnic.com
.cn.com whois.centralnic.com
.de.com whois.centralnic.com
.eu.com whois.centralnic.com
.gb.com whois.centralnic.com
.gb.net whois.centralnic.com
.hu.com whois.centralnic.com
.no.com whois.centralnic.com
.qc.com whois.centralnic.com
...

Read More...


Category: Man's Work | Permalink | Comments: 0 | Trackbacks: 0 | Views: 310

立体声测试音频MP3，效果超逼真呀

[ 2011-10-28 16:31:09 | Author: adobo ]
我找来是为了测试我新买的RAPOO H6000蓝牙耳机的！
很明显通过这个测试，H6000的立体声表现还阔以~
记得用耳机听 那飞机流水声真的太真实了.
点这里直接试听最强最震撼的3D环绕立体声测试音乐，记得戴上耳机听,耳机比耳塞效果还要好。


点下面直接试听
理发师
Media Click Here to Show/Hide Media

自然的声音
Media Click Here to Show/Hide Media


Category: Man's Place | Permalink | Comments: 1 | Trackbacks: 0 | Views: 408

VBS 利用QQMusic歌词LRC接口获取歌词文件

[ 2011-10-28 11:51:44 | Author: adobo ]
'蛋疼，好多歌词呀！这里只是做了显示，大家可以根据自己需要，自己写播放器来获取歌词文件，其实还有搜索接口，没时间了不研究了，感兴趣的自己研究下咯！
'将下面文件存为GetLrc.vbs吧~
Public WinSocket,host,port,checkpage
public sSendData
public sRevData
public sRevState
public M,N
public Id
host ="music.qq.com"
port =80
Set WinSocket=WScript.CreateObject("MSWinsock.Winsock")
WinSocket.Protocol=0
WinSocket.RemotePort=port
WinSocket.RemoteHost=host

for Id=1 to 10000000
checkpage="/miniportal/static/lyric/" ...

Read More...


Category: Man's NetWord | Permalink | Comments: 0 | Trackbacks: 0 | Views: 355

VB 保存webbrowser中的图片

[ 2011-10-23 00:14:01 | Author: adobo ]
Dim WX, CtrlRange
For Each WX In WebMain.Document.All '遍历HTML
If WX.tagName = "IMG" Then '找到IMG标签
If InStr(1, LCase(WX.src), "http://vip.qidian.com/bookreader/chapterimage.aspx") > 0 Then ‘根据地址判断是否是要找的图片
Set CtrlRange = WebMain.Document.body.createControlRange() '创建控件
CtrlRange.Add (WX)
CtrlRange.execCommand ("Copy") '执行复制命令

SavePicture Clipboard.GetData, App.Path & "\Img.gif" ’从剪贴板保存图片
DoEvents
...

Read More...


Category: Man's Work | Permalink | Comments: 0 | Trackbacks: 0 | Views: 324

VB winIO 模拟 键盘 外挂

[ 2011-10-13 13:31:36 | Author: adobo ]
键盘是我们使用计算机的一个很重要的输入设备了，即使在鼠标大行其道的今天，很多程序依然离不开键盘来操作。但是有时候，一些重复性的，很繁琐的键盘操作总会让人疲惫，于是就有了用程序来代替人们按键的方法，这样可以把很多重复性的键盘操作交给程序来模拟，省了很多精力，按键精灵就是这样的一个软件。那么我们怎样才能用VB来写一个程序，达到与按键精灵类似的功能呢？那就让我们来先了解一下windows中响应键盘事件的机制。

当用户按下键盘上的一个键时，键盘内的芯片会检测到这个动作，并把这个信号传送到计算机。如何区别是哪一个键被按下了呢？键盘上的所有按键都有一个编码，称作键盘扫描码。当你按下一个键时，这个键的扫描码就被传给系统。扫描码是跟具体的硬件相关的，同一个键，在不同键盘上的扫描码有可能不同。键盘控制器就是将这个扫描码传给计算机，然后交给键盘驱动程序。键盘驱动程序会完成相关的工作，并把这个扫描码...

Read More...


Category: Man's NetWord | Permalink | Comments: 0 | Trackbacks: 0 | Views: 315
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | >