Advertisement
Guest User

Untitled

a guest
Feb 4th, 2018
101
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  do
  2. StrText=("Network Error, You have outdated drivers on your computer system Please run a full system anti-virus scan immediately.")
  3. set ObjVoice = CreateObject("SAPI.SpVoice")
  4. ObjVoice.Speak StrText
  5. x =msgbox ("Windows had been infected by backdoor.tdss. Your personal information is being stolen.",1,"Critical Warning")
  6. x =msgbox ("Several Trojans have infected C:\Windows\system32. You must uninstall Windows to remove them.",1,"Critical Warning")
  7. loop
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement