============================
深圳二手
http://www.2shou.de

只要 PR>=1 就换

中文站（如果一点英文也不懂就看这个吧）：http://cn.ziddu.com

英文站：http://www.ziddu.com

Ziddu中文版是香港Globe7旗下的免费网络硬盘，无限存储空间，一次上传文件限制200M以内，Web方式上传（无需安装插件、软件），速度飞快，我这里（电信2M速率ADSL）可达到上传速度的极限：60K+！文件类型没有限制，图片、音乐、视频、压缩、文档、.exe等文件都可上传。

Ziddu中文版的赚钱方式有两种：一种是你上传的文件被下载1次，可获0.001HKD佣金；另一种是介绍朋友注册Ziddu中文版并上传文件，可获0.1HKD佣金。佣金满10HKD就会通过PayPal或Moneybookers支付给你。我已在2008年7月19日收到了佣金！

点击注册>> (这里注册赚的是港币)

点击注册>> (这里注册的赚的美金，如果英文不是很烂，推荐注册英文)

Ziddu中文版使用中的常见问题：
1、Ziddu的宗旨是：上传、分享、赚钱，故此Ziddu并不适合想要备份文件的朋友（备份文件请使用Diino或MyVirtualDisk）。
2、虽然免费吧没在Ziddu上看到保存时间限制的说明，但据网友说你传到Ziddu的文件如果没人下载最多保存90天。
3、你要上传的文件不要用中文做文件名，改成英文，否则文件名不能正常显示。
4、Ziddu的网页不像其它免费网盘那样简洁，Ziddu中的广告比较多，尤其是弹窗广告，故此你该理解Ziddu为什么会倒贴钱让你用网络硬盘了吧？
5、Ziddu会在你的佣金达到10港币后的下个月20日左右通过PayPal或Moneybookers支付给你。

free8的Ziddu中文版佣金收入报告截图：

free8收到Ziddu通过PayPal付的2008年6月份佣金截图：
（注：Globe7为Ziddu母公司，Ziddu的佣金都是由Globe7支付的。）

Ziddu通过PayPal给free8付款详情截图：

淘宝店：维克苗杂货铺 http://taobao.vicmiao.com

拍拍店：维克苗杂货铺  http://paipai.vicmiao.com

百度空间：維克苗藏經閣 http://hi.vicmiao.com

欢迎访问

=========================
= 视信誉为生命，重服务为根本=
=========================

查看域名是否注册：www.cndns.com

独立管理入口：http://www.idccenter.net

技术服务中心 (7 × 24小时)：021-51873707

>>这里查看所部产品价格列表

QQ：22670091

百度hi:vicmiao

1. 给Hier的百度空间溜言或给Hier发消息，需输入验证码。好友无需输入验证码
2. 自动注册ID（需要输入验证码）
3. 自动切换登录ID
4. 批量修改自己多个ID的密码
5. 按条件查找Hier
6. 自动批量加好友，自动批量删除好友
7. 所留过言的用户都会保存在本地数据库，下次可以根据某些条件在本地读取并分析用户数据
8. 自动踩空间
9. 管理溜言和信息内容

这是初步想法，大家有什么想法请溜言。

一.在VB中使用WebBroswer控件
1.在VB中使用Microsoft Internet Controls做浏览器最方便,但远不能尽WebBrowser之所能. VB能够实现的一些功能如下:
   >掌管WebBrowser控件实现浏览功能
   >自动化IE
   >捕捉IE事件
   >访问DHTML对象模型
但VB不能使用高级掌管接口实现例如关闭Context Menu和控制下载内容等一些功能.有关用VB对IE编程的知识可以参考微软图书<<Microsoft Internet Exploer 5 程序设计(Programmning Internet Explorer 5)>>的相应部分.

2.调用WebBrowser的ExecWB方法能实现一些额外的功能比如CUT,PASTE和SAVEAS等,包含在OLEMDID枚举表中,可以在对象浏览器中看到. 这样我们就可以使WebBrowser具有一些编辑功能,如:
      WebBrowser1.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT
可以把HTML格式的内容粘贴进WebBroser中, 这样就可以方便的实现一个HTML剪贴工具,既拷贝字符,又保留格式,NotePad靠边站吧.

二.访问MSHTML成员

1.用VB访问DHTML模型,实现对HTML元素的操作非常简单易行.引用Micsoft HTML Object Library之后就可以在对象浏览器看到包含的类及其属性方法.其中主要包含以HTML和IHTML为类名前缀的类,这些类给HTML, DHTML以及脚本(VBSCRIPT, JAVASCRIPT)对象提供定义与接口. 在VB中我们可以用这些类来创建用于访问网页元素的对象实例.而且程序编制与写网页脚本一样简单且相似,所以可以用VBSCRIPT和JAVASCRIPT的资料作参考(本人在学习VB的这一应用时学通了DHTML),例如:微软图书<<动态超文本标识语言从入门到精通(Inside Dynamic HTML)>>(一本翻译的很烂的书!). 如果掌握了VC++ 和MFC, MSDN自然也是个好去处, 那儿有关于MSHTML的丰富资料(虽然不能往VB里照搬,我们可以试验VB在许多方面的可行性.)

2.MSHTML类库[Micsoft HTML Object Library]
    访问MSHTML要引用MSHTML组件库.在IE5以前,这个库包含在mshtml.dll中,对IE5来说这个类型库被转移到mshtml.tlb中. 出于某种原因,也许在引用列表里看不到Micsoft HTML Object Library, 不过可以在文件对话框里键入类型库文件名添加引用.

3.一个例子: 在使用搜索引擎(例如MSN)搜索英文网页时, 希望关键字在搜到的条目中高亮或加重显示. 我让WebBrowser导航到搜索页面,然后给所有的关键字都加上了<SPAN>,另外把网页上的超链接都塞进一个列表框. 其中的查找关键字使用IHTMLTEXTRANGE, 它用于对网页上文本的访问.

部件: Microsoft Internet Controls
引用: Micsoft HTML Object Library --- 参看"MSHTML类库"
控件: WebBrowser1; List1; Label1; Command1
属性: Command1.Caption="FIND"

CODE:

Dim webdoc As HTMLDocument
Dim texbody As HTMLBody
Dim Rng As IHTMLTxtRange
' ----------------------------------------------------------------------------------------
Private Sub Command1_Click()
'查找关键字
On Error Resume Next
Set texbody = webdoc.body
Set Rng = texbody.createTextRange()
Do While Rng.findText(Text1.Text) <> False
Rng.Select
Rng.pasteHTML "<span style='background:SILVER'>" + Text1.Text + "</span>"
'
'用IHTMLTxtRange的execCommand方法可以实现加粗等功能，如：
'Rng.execCommand "bold"
'Rng.execCommand "underline"
'Rng.execCommand "italic"
'参看MSDN>DHTML Reference>Command Identifers
'
Rng.collapse False
Loop
Rng.collapse True
End Sub
'---------------------------------------------------------------------------------------------
Private Sub Form_Load()
WebBrowser1.navigate "http://search.msn.com/results.asp?q=wordlist"
Text1.Text = ""
End Sub
'---------------------------------------------------------------------------------------------
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'将webdoc设置到被WebBrowser的Document属性返回的文挡对象中
Set webdoc = WebBrowser1.document
'提取超链接
''定义元素集
Dim Acollection As IHTMLElementCollection
''设置元素集为所有的Anchor元素,用tags方法引用元素
Set Acollection = webdoc.All.tags("a")
''把Anchor元素转换为相应的字符串表示,用items方法引用元素
For i = 0 To Acollection.length - 1
    List1.AddItem Acollection.Item(i).toString
Next
'length属性返回元素集中元素的个数
Label1.Caption = "Number of links: " + Str$(Acollection.length)
End Sub