fabioadrianosoares

Attribute VB_Name = "Anexos"
Option Explicit

Public Sub TratarAnexos()

    Dim Item As MailItem

    If Not Application.ActiveWindow Is Nothing Then
        If TypeName(Application.ActiveWindow) = "Inspector" Then
            If Not Application.ActiveWindow.CurrentItem Is Nothing Then

fabioadrianosoares

*/5 * * * * /home/ZZZZZ/track-directlog/tracking-directlog.sh 99999999 8888888 Produto > /dev/null 2>&1

onde http://www.directlog.com.br/tracking/index.asp?tipo=2&valor=99999999&cod=8888888

fabioadrianosoares

option explicit

dim fs

Set fs = CreateObject("Scripting.FileSystemObject")

main

sub main ()

fabioadrianosoares

use Mojolicious::Lite;
use Mojolicious::Static;
use Cwd;

my $static = Mojolicious::Static->new;
$static->paths([getcwd]);

app->static($static);

app->start('daemon');

fabioadrianosoares

#! /bin/bash

TIPO=$1;
PROC=`ps -Af | grep /home/fabio/sites/compras/script/compras | grep -v grep | awk '{print $2}'`;

if [ "$TIPO" == "parar" ] ; then
	if [ "$PROC" != "" ] ; then
		kill -9 $PROC;
	fi;
else

fabioadrianosoares

/* criar programa para ler arquivo entrada.txt com as informações: "estado;cidade"
e gravar saida.txt com "estado;qtd_cidade" ordeando do estado com mais cidades para 
o com menos cidades */

import java.io.BufferedReader;
import java.io.BufferedWriter;
import java.io.FileNotFoundException;
import java.io.FileReader;
import java.io.FileWriter;
import java.io.IOException;

fabioadrianosoares

#! /usr/bin/bash
 
#echo 'Obtendo senha do ddg...';
#senha=`wget -q --no-check-certificate -O - \
#       https://duckduckgo.com/?q=password+10 | \
#       sed -e 's/.*class="zero_click_answer">//' -e 's/ .*//'`;
 
echo 'Obtendo senha do /dev/urandom';
senha=`cat /dev/urandom | tr -dc A-Za-z0-9 | head -c 10`;
 

fabioadrianosoares

/* eject.c
** Copyright Paul Dwerryhouse, 1997-2004
*/
#include <stdio.h>
#include <stdlib.h>
#include <errno.h>
#include <string.h>
#include <unistd.h>
#include <fcntl.h>
#include <limits.h>

fabioadrianosoares

#! /bin/bash

BASE_DIR=/root/dns
DADOS=$BASE_DIR/tmp/retorno.html
ATUAL=$BASE_DIR/atual.txt
LOG=$BASE_DIR/log/atualizacao-`date +%F`.log
SITES=$BASE_DIR/sites.txt
AFRAID='http://freedns.afraid.org/dynamic/update.php?<%---- hash here ------%>'

function buscar()

fabioadrianosoares

#! /urs/bin/perl 

use strict;
use warnings;
use feature 'say';
use DateTime;

open my $arquivo, '<', 'C:/Documents and Settings/fabio.soares/Desktop/Observações.txt' 
  or die 'Erro ao abrir o arquivo de dados: $!';