Thiago Gema
-
Total de itens
64 -
Registro em
-
Última visita
Tudo que Thiago Gema postou
-
Pessoal já pesquisei aqui e não achei nada sobre Status do MSN. A unica coisa que encontrei pela net foi esse codigo, mas é .PHP, tem como fazer isso em asp ? <?$MSN[Host] = "207.46.106.175"; //MSN server $MSN[Port] = 1863; // MSN port $MSN[user] = "secondaccount@domain.com"; // Second MSN screenname $MSN[Pass] = "secondaccountpasswordr"; // password $pic[offline] = "../images/msnoff.gif"; // Relative path to msnoff.png $pic[online] = "../images/msnon.gif"; // Relative path to msnon.png // Verander hier onder niet dan blijft hij werken if (!$get){?> <html> <head> </head> <body> <img src="<? echo $pic[offline]; ?>" border="0" name="MSN"> </body> </html> <? exit; } msn_connect(); function msn_connect() { global $debug, $MSN, $nr, $fp; $nr = 0; if($debug) { echo "<p><b>Connecting to MSN $MSN[Host]:$MSN[Port]</b><br>"; } if($fp = fsockopen ($MSN[Host], $MSN[Port], $errno, $errstr, 30)) {msn_send("VER $nr MSNP7 CVRO",$fp); while (!feof($fp)) { usleep(1); if (msn_get(ereg_replace("\r\n", "", fgets($fp,128))) == "1") { die(blieb); }; }} else { die("cannot connect to MSN server"); }} function msn_send($text, $conn) { global $debug; if ($debug) { echo "<font color=\"red\">$text</font><br>\n"; } fputs ($conn, "$text\r\n"); global $nr;$nr++; } function msn_get($msg) { global $fp, $nr, $MSN, $debug, $fp2; if ($debug) { echo "<font color=\"blue\">$msg</font><br>\n"; } $msg = explode(" ", $msg); if (strtolower($msg[0]) == "ver") { msn_send("INF $nr", $fp); } elseif(strtolower($msg[0]) == "inf") { msn_send("USR $nr MD5 I $MSN[user]", $fp); } elseif (strtolower($msg[0]) == "usr" AND strtolower($msg[2]) == "md5") { msn_send("USR $nr MD5 S ".MD5(trim($msg[4].$MSN[Pass])), $fp); } elseif (strtolower($msg[0]) == "usr" AND strtolower($msg[2]) == "ok") { msn_send("CHG $nr BSY", $fp); msn_send("XFR $nr SB", $fp); } elseif (strtolower($msg[0]) == "xfr" AND strtolower($msg[2]) == "ns") { $tmp = explode(":", $msg[3]); $MSN[Host] = $tmp[0]; $MSN[Port] = $tmp[1]; fclose($fp); msn_connect(); } elseif (strtolower($msg[0]) == "xfr" AND strtolower($msg[2]) == "sb") { $tmp = explode(":", $msg[3]); $MSN[sb_host] = $tmp[0]; $MSN[sb_port] = $tmp[1]; $MSN[sb_cki] = $msg[5]; fclose($fp); if($debug) { echo "<p><b>Connecting to sb $MSN[sb_host]:$MSN[sb_port]</b><br>"; } if($fp2 = fsockopen ($MSN[sb_host], $MSN[sb_port], $errno, $errstr, 30)){ $start = time()+5; msn_send("USR $nr $MSN[user] $MSN[sb_cki]",$fp2); while (!feof($fp2)) { if (time() >= $start) { showstatus(0); exit; } usleep(1); msn_sb_get(ereg_replace("\r\n", "", fgets($fp2,128))); } } else { die("cannot connect to sb"); } }} function msn_sb_get($msg) { global $fp2, $nr, $MSN, $debug, $get; if ($debug) { echo "<font color=\"green\">$msg</font><br>\n"; } $msg = explode(" ", $msg); if (strtolower($msg[0]) == "usr" AND strtolower($msg[2]) == "ok") { msn_send("CAL $nr $get",$fp2); } elseif (strtolower($msg[0]) == "217") { showstatus(0); fclose($fp2); exit; } elseif (strtolower($msg[0]) == "joi") { showstatus(1); fclose($fp2); exit; } } function showstatus($status) { global $pic; if ($status) { @header("Location: $pic[online]"); } else { @header("Location: $pic[offline]"); }}?>
-
Pessoal peguei um contador do Dark, mas não consigo fazer funcionar nem a pau ! Erro no localhost ! HTTP 500.100 - Servidor interno Erro - erro do ASP Internet Information Services Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável. Erro no servidor ! [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. Contador.asp <% 'Contador de acesso by dark -> icq: 94860771 'liga ao banco de dados url_conexao = Server.MapPath("banco_contador.mdb") set conexao = Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 'le o numero de acesso que tem no banco sql_le = "select * from contador" set rs_le = conexao.execute(sql_le) 'pega o numero de vistas, e soma +1 visitas = rs_le("visita") + 1 session("visitas") = visitas 'a cada novo acesso, ou reload na pagina, ele atualiza o banco sql = "update contador set visita="&visitas&" where id=1" set rs = conexao.execute(sql) %> <%=session("visitas")%><% 'sempre que quiser mostrar o numero de acessos, é só usar o comando que tem depois de visitas.. vai bufa 'falows... dark %>
-
Pessoal alguém aqui sabe onde posso ver algum exemplo de asp tipo Fotolog?
-
Não funcionou.... Ele dá "Mensagem enviada" , mas não recebo nada.
-
Pessoal como faço para puxar os campos digitados no meu formulario, exemplo Request.Form , e inserir uma pagina como, "Sua mensagem foi enviada" nesse codigo abaixo ? Não estou conseguindo fazer o codigo puxar os campos da pagina do formulario. --------------------------------------------------------------------- sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "localhost" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "remetente@seudominio.com.br" .To = "destinatario@seudominio.com.br" .Subject = "Assuntod o email" .TextBody = "Conteudo do email" .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing ---------------------------------------------------------------------
-
Pessoal não estou conseguindo inserir o REMOTE_ADDR dentro do CDOSYS. Quero receber o IP atraves do email. Analise o codigo abaixo. <% sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "localhost" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "email@meusite.com" .To = "email@meusite.com" .Subject = "IP" .TextBody = "REMOTE_ADDR" .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing %>
-
alguém conhece algum codigo de links entre tabelas, ou seja, tenho uma tabela de duas colunas e quero que um determinada pagina seja carrega dentro de uma coluna.
-
Amigos alguém conhece algum codigo com Thumb e galeria de imagens?
-
Victor valeu mesmo. Fico no aguardo. Abraços, Thiago Gema
-
Na verdade esse "codigo" não é pra fins lucrativos, é um projeto que estou desenvolvimento sobre monitoramento, quanto ao formulario, não havera nenhum formulario, ou seja, todos os dados que deveriam ser digitados já estarão inseridos no codigo, então quando a pagina for carregada sera enviado "automaticamente" o SMS. Abraços, Thiago Gema
-
Amigos pra mim essa é a senhora "Bucha", tenho que desenvolver um codigo de envio de SMS para Tim, vou ser humilde, não sei nem por onde começar e tenho certeza que poderei contar com os profissionais daqui. Finalidade do codigo: ------------------------ Na pagina não haverá nenhum tipo de formulário, todos os dados dos campos já estarão inseridos, ou seja, quando a pagina for visitada automaticamente será enviado um SMS. Por exemplo: ---------------------------------------------------------------- Nome: Site do Zé Assunto: Alerta Mensagem: A área de administração esta sendo usada ---------------------------------------------------------------- Já vi de tudo, mais preciso disso em "ASP". Abraços, Thiago Gema
-
Amigos tenho certeza que alguém aqui podera me ajudar, tenho criar uma pagina que envie um SMS da operadora Tim usando ASP, detalhe, vou ser bem humilde, não sei nem por onde começar. Obs: Não havera formulario, ele sera automatico, todos os campos já estarão definidos, como, nome, assunto e mensagem, o cara não vai ter que digitar nada, todos os dados já estarão no codigo. Não sei pra vocês, mais pra mim isso é uma bucha das grandes ! Abraços, Thiago Gema.
-
Estou testando nesse aqui, ele é gratuito, não sei é por causa disso. smtp.websamba.com
-
No server