<![CDATA[赚钱我该怎么做]]> http://hi.baidu.com http://hi.baidu.com http://img.baidu.com/img/logo-hi.gif http://hi.baidu.com/payself zh-cn www.baidu.com 5 <![CDATA[最近整理更新了站点]]> 2009.8.1

免费赚钱资讯 payself.com

QQ集中营HTTP://808818.CN


类别：其他赚钱 查看评论]]> 2009-08-02 15:11 http://hi.baidu.com/payself/blog/item/f8ffdf1806ee54bd4bedbce0.html <![CDATA[VB写一个IE插件]]> 就类似于3721的插件一样,当用户浏览我的网站的时候,提示下载运行插件?

A:
实现方法如下：
首先需要获得IObjectWithSite接口的定义，你下载个olelib.tlb,包含了接口定义。然后创建一个ActiveX DLL工程，
在工程中引用这个tlb文件，并且引用Microsoft HTML Object Library（MSHTML.DLL）和mcrosoft Internet Controls（Shdocvw.dll）。

然后在工程的class1中写入如下代码：
‘Class1.bas
Option Explicit

' 实现IObjectWithSite接口来获得IE对象
Implements olelib.IObjectWithSite

Private WithEvents m_objIE As InternetExplorer

Private Sub IObjectWithSite_GetSite(riid As UUID, ppvSite As IUnknown)
Dim objUnk As olelib.IUnknown

'获得m_objIE IUnkown接口
Set objUnk = m_objIE

'返回所需要的接口
objUnk.QueryInterface riid, ppvSite
End Sub

Private Sub IObjectWithSite_SetSite(ByVal pUnkSite As IUnknown)
'获得IE接口
Set m_objIE = pUnkSite
End Sub

'编写m_objIE事件处理程式
' .
' .
' .
' .

将这个工程编译为：prjBHO.dll。编译工程后，可以通过调用regsvr32 prjBHO.dll注册这个组件，组件注册了以后，就会在注册表HKEY_CLASSES_ROOT\CLSID中注册组件的GUID。在注册表中用prjBHO.dll做关键字就可以查找到prjBHO.dll注册的GUID，然后将这个GUID拷贝下来，然后在注册表HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects下创建一个新项，项的名称就是这个GUID。

搜索关键字并突出显示：
Private Sub m_objIE_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
Dim webdoc As HTMLDocument
Dim texbody As HTMLBody
Dim Rng As IHTMLTxtRange
Dim I As Byte
On Error Resume Next
Set webdoc = m_objIE.document
Set texbody = webdoc.body
Set Rng = texbody.createTextRange()
Do
If Rng.findText("言情") = False Then Exit Do
Rng.Select

'用IHTMLTxtRange的execCommand方法可以实现加粗等功能，如：
Rng.execCommand "bold"
Rng.execCommand "BackColor", True, "#FFbbDD"
Rng.collapse False
Loop
Rng.collapse True
End Sub
能搜索到并加背景色。但搜索总是无休止，到尾又从头再搜索。。。
如果判断是否搜索到页尾了吗？
有心请有这个页面测试： http://payself.com 阅读全文
类别：vb编程 查看评论]]> 2009-08-02 15:04 http://hi.baidu.com/payself/blog/item/fb14eb111b9c3e77cb80c41b.html <![CDATA[用VB做IE插件(BHO) [转]PAYSELF.COM]]> 以前一直不知道有BHO这个名字,但一直对IE中的"加载项"编程念念不忘. 前不久一网友让我做一个小程序,功能就是替换网页中指定的内容,但是不启动软件,直接用IE看的话就是原文.感觉有点意思的,因为不知道原理,网上找了一下BHO这个名词自然就落入眼底了.

BHO(浏 览器辅助对象)用于IE的加载项中,可以对IE的事件进行拦截编程(可以是IE上的工具条,或者按钮或者不可见插件).BHO的定义位于注册 表"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\" 下,当IE启动时就加载了该项下所有子项.通过IObjectWithSite接口同前面的工具条扩展一样可以用来获得浏览器的接口，而 IDispatch接口，则被用来监听浏览器的事件。

在VB中IObjectWithSite需要用工具生成然后再VB工程中引用,还要添加MSHTML及SHDOCWV两个库,最后代码如下,替换一个网页中第一个链接的内容

Implements IObjectWithSiteTLB.IObjectWithSite
Dim WithEvents m_ie As InternetExplorer
Attribute m_ie.VB_VarHelpID = -1
Dim m_Site As IUnknownVB

Private Sub IObjectWithSite_GetSite(ByVal priid As IObjectWithSiteTLB.GUIDPtr, ppvObj As IObjectWithSiteTLB.VOIDPtr)
     m_Site.QueryInterface priid, ppvObj
End Sub

Private Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)
     Set m_Site = pSite
     Set m_ie = pSite
End Sub

Private Sub m_ie_DocumentComplete(ByVal pDisp As Object, URL As Variant)
     On Error Resume Next
  
     'Dim HTMLDoc As MSHTML.HTMLDocument
     If m_ie.LocationURL = URL Then
      
         m_ie.document.links(0).innerHTML = "这里是要替换的内容"
      
      
         MsgBox "替换完成" & URL
  
     End If
  
End Sub

这样一个BHO就做了,编译成DLL,然后注册,把注册后的CLSD编号插入到前面说的IE启动时BHO的子项中.新开一个新的窗口,当页面加载完之后这个程序就会替换页面中的指定内容了.

有时间就到（http://payself.com）研究下

阅读全文
类别：vb编程 查看评论]]> 2009-08-02 15:01 http://hi.baidu.com/payself/blog/item/5e39d4b1099ec75d08230219.html <![CDATA[由贾君鹏你妈妈喊你回家吃饭想到的]]>         号称“当今网络第一神帖”：的“贾君鹏你妈妈喊你回家吃饭”不管是真是假，都让人联想到一种特别有效的炒作方式：

        1、恶搞：用一些或者是近乎搞笑的语言引起网友的评论！

        2、平常：这句话几乎是平常的事，平常的一句话，却引起了成千上万网友的搜索和追捧，说明了什么？

更多请访问：www.payself.com

 阅读全文
类别：默认分类 查看评论]]> 2009-07-17 21:37 http://hi.baidu.com/payself/blog/item/b3fade01c767d8df267fb5b8.html <![CDATA[斗罗大陆]]> 斗罗大陆是异世大陆小说？

更多请访问：www.payself.com


类别：默认分类 查看评论]]> 2009-07-16 21:41 http://hi.baidu.com/payself/blog/item/9c64885832553088810a18be.html <![CDATA[张筱雨]]> 张筱雨

更多请访问：www.payself.com


类别：默认分类 查看评论]]> 2009-07-16 21:36 http://hi.baidu.com/payself/blog/item/d5dfef008b15668ee850cdb2.html <![CDATA[创业板开户遇冷的原因分析]]> 根据创业板开户的情况分析，开户还是遇冷了！

究其原因：

1、券商不熟悉规则和操作程序，导致还是速度太慢！

2、券商不原因开户！

3、投资人不熟悉，有些担心吧！

更多请访问：www.payself.com


类别：默认分类 查看评论]]> 2009-07-16 21:31 http://hi.baidu.com/payself/blog/item/d12efe86d9f4233766096eb6.html <![CDATA[人生哲理]]> 今日与人吃酒，一者讲一事曰：

       同桌四人玩麻将，有人出一牌，第三人大呼“胡了”，而此时，第二人恰也胡此牌，但掩牌而重开！旁观者先叹而后翘指赞曰：“聪明也”。

       究其因：第三人乃一领导，而第二人有求与他，故而让牌也！

       有求于人，必予人兴也！


类别：心情故事 查看评论]]> 2009-07-16 20:56 http://hi.baidu.com/payself/blog/item/4fac79a4d6e455fe9152eed3.html <![CDATA[ePanel 益派调查注册详解]]>

核心提示：益派调查赚钱网是由北京益派市场咨询有限公司建立并运营的在线市场调查平台。 实力雄厚，CCTV、旅游卫视、中国青年报等大企业合作伙伴。可通过多种方式获得积分，积分可兑换礼品或现金。

ePanel益派调查网

        益派调查赚钱网是由北京益派市场咨询有限公司建立并运营的在线市场调查平台。 实力雄厚，CCTV、旅游卫视、中国青年报等大企业合作伙伴。可通过多种方式获得积分，积分可兑换礼品或现金。做ePanel 时，可同时做更多
【 调查赚钱 】项目，获取更多收益。

一. 起付金额： 30 ￥
二. 支付方式： 支付宝 （ 申请地址 ）
三. 奖励： 推荐一人奖励0.5 ￥

四. 项目介绍：

ePanel 益派调查注册后，马上登录邮箱激活帐户，就能获得50积分奖励，完成背景资料后再奖励150积分（100积分=1元）。 获得积分的方式很多，商业调查、幸运登录奖、DIY自助调查、ePanel之声、网赚热点调查、携友入会都可以获得积分。而且推荐奖励也不错：推荐一名合格会员，奖励50积分，即0.5元哟。只要有3000积分，就能兑换礼品或现金了！

温馨提醒：

① 请用真实资料注册，不然会影响到收款，大家注册后，不要忘记完成“背景资料”的填写，只要填写了，就有150积分的奖励哟！

② 每份调查都有调查期限，时间过了调查期限则无法参与了，所以要经常登陆邮箱或网站查看一下是否有调查。


>>立 即 加 入                                                                                  更多请访问：www.payself.com

阅读全文
类别：注册赚钱 查看评论]]> 2009-07-16 20:42 http://hi.baidu.com/payself/blog/item/02ee22f4736c3ed0f3d385c9.html <![CDATA[新秦调查注册详解]]>

核心提示：新秦调查赚钱是日本新秦株式会社在上海创立的一家专业化市场研究咨询公司。调查活动很多，每介绍一个朋友成为新秦的有效会员，您将会获得20积分。累积介绍60个会员，将赠送一份价值30元的精美奖品。100积分＝￥1元，10元起付。

新秦调查赚钱注册详解


加入新秦调查赢取大奖!
    新秦调查赚钱是日本新秦株式会社在上海创立的一家专业化市场研究咨询公司。调查活动很多，每介绍一个朋友成为新秦的有效会员，您将会获得20积分。累积介绍60个会员，将赠送一份价值30元的精美奖品。100积分＝￥1元，10元起付。做新秦调查时，可同时做更多【 调查赚钱 】项目，获取更多的收益。

一. 起付金额： 10 ￥
二. 支付方式： 各大银行
三. 推荐奖励： 推荐一人奖励0.2 或 1￥

四. 项目介绍：

        新秦调查赚钱有一个网站加盟计划，网站加链接介绍朋友注册会员赢取现金，1人＝￥1元，满100元汇款，前提是所推荐的会员必须全部符合要求，网络赚钱并且参与过两个调查才算是推荐成功。

五. 温馨提醒：

        有网站的朋友不妨加入新秦网站联盟，这样收益会更高！需要加入的朋友赶快加入吧！


>>立 即 加 入                                                                          更多请访问：www.payself.com

阅读全文
类别：注册赚钱 查看评论]]> 2009-07-16 20:42 http://hi.baidu.com/payself/blog/item/2fc8e03842ec13cbd46225c8.html