这个神奇的美女图片是由弟弟&妹妹论坛原创,后来不断被网友转载到各大论坛和网站,现在已经超过3000000人看过这个美女图了,还有不少论坛和博客和QQ空间因为转载这个图片后,网站的浏览量迅速翻了几倍,可想而知这个美女图片有多神奇了,大家只要点击网页鼠标右键然后选择“刷新”,或者直接按"F5",图片就会变成另一位美女了,越看越精彩!!

弟弟&妹妹
http://www.DDRMM.com
中文域名：弟弟妹妹.com

PR>=3 Alexa<50 加我QQ:22670091

============================
深圳二手
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://vicmiao.com

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

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

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

欢迎访问

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

全国统一售前咨询电话：400-8200957

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

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

QQ：22670091

百度hi:vicmiao

经过几个版本的百度空间溜助手，现在已经酝酿成熟，将在其基础上用Access数据库，然后不断加功能，改名为百度助手。百度助手目前功能大致如下：

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

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

>>详细内容请看这里

记录时间：2008-05-15 09:03
百度注册用户数量为：75351199
最后一位注册用户为：ytliuzhongke
我所收集百度注册用户数量：10868138
-----------------------------------------------------------------------------------
-----------------------------------------------------------------------------------

VB掌管WebBrowser访问MSHTML成员虽然较VC++有限,但对大多数的应用问题不大,而且实现过程也很简单.

一.在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

Option Explicit


Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Const GWL_STYLE = (-16)

Enum TextInputStyles
ES_UPPERCASE = &H8&
ES_LOWERCASE = &H10&
ES_NUMBER = &H2000&
End Enum

Public Sub SetTextInputStyle(hWndTextControl As Long, InputStyle As TextInputStyles)
Dim Style As Long
Style = GetWindowLong(hWndTextControl, GWL_STYLE)
Style = Style Or InputStyle
SetWindowLong hWndTextControl, GWL_STYLE, Style
End Sub

Private Sub optStyle_Click(Index As Integer)
Select Case Index
Case 0: SetTextInputStyle txtTest.hWnd, ES_UPPERCASE
Case 1: SetTextInputStyle txtTest.hWnd, ES_LOWERCASE
Case 2: SetTextInputStyle txtTest.hWnd, ES_NUMBER
End Select
End Sub