Postagens
Hoje vou ensinar vocês a fazerem algo errado, rsrs. Isso mesmo, iremos aprender a usar o twitter para divulgação de spam.
O Twitter é uma ferramenta muito legal, pois consiste em eu dizer algo e centenas ou milhares de pessoas verem o que eu postei, ou seja é muito facil disseminar uma informação por ele, principalmente porque se quem ler o seu Tweet gostar do que leu pode retweetar aquilo e mais centenas ou milhares de pessoas irão ler, veja só que incrivel.
Hoje usando um pouco de Twitter, ASP e maldade iremos criar uma ferramenta de SPAM para o Twitter, veja só que legal.
Irei explicar o conceito de forma simples cabe a vocês caros pupilos trabalharem para melhorar isso aqui.
ASP
<%
login = "seu_login_do_twitter" 'substitua isso pelo seu login do twitter não pode ser o email
senha = "sua_senha_do_twitter" 'substitua isso por sua senha do twitter não pode ser o email
seg = "tempo" 'essa variavel representa o tempo em MINUTOS que sua página ira ficar esperando para enviar outro post
On Error Resume Next
Response.Buffer = True
if login <> "" AND senha <> "" then
Randomize
'aqui nós estamos convertendo a variavel seg em segundos e iremos tirar dela um valor randomico de 1 a 30 segundos, para não termos intervalos parecidos entre as postagens
seg = seg * (60-Int(30 * Rnd ))
'um array com as possiveis mensagens coloque quantas quiser
mensagens = Array("Mensagem 1","Mensagem 2","Mensagem 3","Mensagem 4")
Randomize
'sorteamos uma mensagem e guardamos na variavel num
num = mensagens(Int(ubound(mensagens) * Rnd ))
'enviamos agora para o twitter
Dim twitter
Set twitter = Server.CreateObject("Microsoft.XMLHTTP")
mensagem = num
twitter.Open "POST", "http://"&login&":"&senha&"@twitter.com/statuses/update.xml?status=" & server.URLencode(mensagem), False
twitter.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"
twitter.Send
Set twitter = Nothing
%>
<html>
<head>
<meta HTTP-EQUIV="Refresh" CONTENT="<%=seg%>; URL=twitter.asp">
<title>Twitter</title>
</head>
<body>
<%
if err <> 0 then
Response.write "erro"
else
Response.Write "Postado - " & mensagem
end if
%>
</body>
</html>
<%
else
response.Write "Logue novamente"
end if
%>
login = "seu_login_do_twitter" 'substitua isso pelo seu login do twitter não pode ser o email
senha = "sua_senha_do_twitter" 'substitua isso por sua senha do twitter não pode ser o email
seg = "tempo" 'essa variavel representa o tempo em MINUTOS que sua página ira ficar esperando para enviar outro post
On Error Resume Next
Response.Buffer = True
if login <> "" AND senha <> "" then
Randomize
'aqui nós estamos convertendo a variavel seg em segundos e iremos tirar dela um valor randomico de 1 a 30 segundos, para não termos intervalos parecidos entre as postagens
seg = seg * (60-Int(30 * Rnd ))
'um array com as possiveis mensagens coloque quantas quiser
mensagens = Array("Mensagem 1","Mensagem 2","Mensagem 3","Mensagem 4")
Randomize
'sorteamos uma mensagem e guardamos na variavel num
num = mensagens(Int(ubound(mensagens) * Rnd ))
'enviamos agora para o twitter
Dim twitter
Set twitter = Server.CreateObject("Microsoft.XMLHTTP")
mensagem = num
twitter.Open "POST", "http://"&login&":"&senha&"@twitter.com/statuses/update.xml?status=" & server.URLencode(mensagem), False
twitter.setRequestHeader "Content-Type", "content=text/html; charset=iso-8859-1"
twitter.Send
Set twitter = Nothing
%>
<html>
<head>
<meta HTTP-EQUIV="Refresh" CONTENT="<%=seg%>; URL=twitter.asp">
<title>Twitter</title>
</head>
<body>
<%
if err <> 0 then
Response.write "erro"
else
Response.Write "Postado - " & mensagem
end if
%>
</body>
</html>
<%
else
response.Write "Logue novamente"
end if
%>
Prontinho salve como twitter.asp e pode testar.
Valeu galera amanhã tem mais
Nenhum comentário:
Postar um comentário