建站不到3个月，薄荷女人网pr从0到6！IP4万以上！

12# 海梦缘




你自己看看我是不是靠DZ论坛要流量？ 别眼红，好好做你的站，明白吗？

你的网站不会长远的，信不信？
我眼红什么？开玩笑。
DZ论坛给你的不只是流量  还有外链，明白？
看看百度只收你一页就知道了
PR而已，买点链接一个月就上去了

流量主要来与弹窗。没多大的意义

VB获得迅雷资讯弹出网页的源代码


迅雷资讯弹出网页采用UTF-8编码，需要编制自定义函数对XMLHTTP对象获得的源代码进行转换：
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8 = 65001
Function Utf8ToUnicode(ByRef Utf() As Byte) As String
    Dim lRet As Long
    Dim lLength As Long
    Dim lBufferSize As Long
    lLength = UBound(Utf) - LBound(Utf) + 1
    If lLength <= 0 Then Exit Function
    lBufferSize = lLength * 2
    Utf8ToUnicode = String$(lBufferSize, Chr(0))
    lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)
    If lRet <> 0 Then
        Utf8ToUnicode = Left(Utf8ToUnicode, lRet)
    End If
End Function


Function SourcecodeofXunleizixun(ByVal menuindex As Long) As String
    Dim b() As Byte, indexurl(5) As String
    If Not menuindex Like "[0-5]" Then Exit Function
    indexurl(0) = "http://recommend.xunlei.com/desknews_v2_game.html"    '0---游戏
    indexurl(1) = "http://recommend.xunlei.com/desknews_v2_ent.html"    '1---娱乐
    indexurl(2) = "http://biz5c.sandai.net/desktopnews/iframe/hot_14.htm"    '2---婚恋
    indexurl(3) = "http://www.eachnet.com/landing/xunlei08_3.html"    '3---网购
    indexurl(4) = "http://biz5c.sandai.net/desktopnews/iframe/hot_2.htm"    '4---财经
    indexurl(5) = "http://biz5c.sandai.net/desktopnews/iframe/hot_3.htm"    '5---IT
    With CreateObject("Msxml2.XMLHTTP")
        .Open "GET", indexurl(menuindex), False
        .Send
        b = .ResponseBody
    End With
    SourcecodeofXunleizixun = Utf8ToUnicode(b)
End Function

Sub Getxunlei()
    Debug.Print SourcecodeofXunleizixun(1)    '娱乐资讯
End Sub

速度太慢。

很厉害噢、、

不可能吧,这么多IP,模版能共享一下不

无语百度不喜欢你的站......

好站漂亮。。

不管怎样，都应是劳动的结晶。

你的网站不会长远的，信不信？
我眼红什么？开玩笑。
DZ论坛给你的不只是流量  还有外链，明白？
看看百度只收你一页就知道了
PR而已，买点链接一个月就上去了
海梦缘 发表于 2009-5-29 14:07

诚心谢谢你的提醒，网站只要挣钱就行了！这个不行了，可以继续重来。

还有，我们不是靠搜索引擎做网站的！  用钱换钱！用钱换流量，再用流量去换钱！