1ºCODIGO
Msgbox "Não aperte ok"
Msgbox "Falei pra naum apertar"
Msgbox "Não aperta ok"
Msgbox " Se você aperta de novo"
Msgbox "Vai ficar que nem bobo vendo essa mensagem"
modesketch=inputbox("VOCÊ :" + vbnewline + vbnewline +"1-É bobo " + vbnewline + "Ou"+ vbnewline + "2-Quer 1 real")
Msgbox "lammer"
Msgbox "lammer"
Msgbox "lammer"
Msgbox "lammer"
Loop
2ºCODIGO
FOR X = 1 TO 1
msgbox "ALERTA!!!!" + VBNEWLINE + "VIRUS INFECTING THE SISTEM!!!" + VBNEWLINE + VBNEWLINE +"THE SISTEM IS INDETIFICING THE INFECTED VIRUS FILE NAME..",VBCRITICAL,"ALERTA!!!"
NEXT
FOR X = 1 TO 1
MSGBOX "%!@1vírusH=2*==tjn.exe",vbcritical,"ataque de vírus"
next
FOR X = 1 TO 1
MSGBOX "%321vírus%123==wrm.exe",vbcritical,"ataque de vírus"
next
FOR X = 1 TO 1
MSGBOX "%321vírus%123==sywre.exe",vbcritical,"ataque de vírus"
next
FOR X = 1 TO 1
MSGBOX "%321vírus%123==fmtHD.bat",vbcritical,"ataque de vírus"
next
FOR X = 1 TO 20
MSGBOX "Ataque crítico",vbcritical,"ataque de vírus"
next
FOR X = 1 TO 30
MSGBOX "the sistem don't found the aplication kernell32.dll",vbcritical,"ataque de vírus"
next
FOR X = 1 TO 9999999999999999999999999999999999999
MSGBOX "3450 fatal error .windows will format HD!!!",vbcritical,"?!?!?!?!"
next
3º codigo
Msgbox "carregando......."
msgbox "ainda esta carregando.....!!!"
msgbox "espera mais um pouco......."
msgbox "instalando...!!!"
msgbox "ainda esta instalando......."
msgbox "terminando......."
msgbox "precaching resources..."
msgbox "VIRUS INSTALADO COM SUCESSO.....!!!!"
msgbox "agora ja era......"
msgbox "estacom medo?"
msgbox "esta com raiva....?"
msgbox "ker me pegar?"
msgbox "ligue 190...talvez resolva alguma coisa...."
msgbox "melhor 192...SAMU porque essa hora voce ja deve ta passando mal..."
msgbox "... ????"
msgbox "nao adianta voce ligar....eu sei tudo o que voce faz"
msgbox " "
Msgbox "hahahahahahahahahahahahaahahahaha"
você pode mudar as palavras q estão entre aspas e modificar algum numero.
depois basta salvar como .vbs
ex: qualquercoisa.vbs
Nenhum comentário:
Postar um comentário