Script sin verificación de credenciales

------------------------------
Send-MailMessage -From "Jason Igneel <jasonigneel@ejemplo.com>" -To "user@ejemplo.com.ec" -Subject "Sending the Attachment" -Body "Forgot to send the attachment. Sending now." -dno onSuccess, onFailure -SmtpServer "11.110.190.78" -Port "587"
------------------------------

Podemos guiarnos como referencia al primer script  Aqui.



Script send messages Anonimus

Posted by : Jason
lunes, 13 de noviembre de 2017
0 Comments
Script con validación de credenciales

creamos un block de notas con estos parámetros
-----------------------------
Nombre, Email, Mensaje
Jason Igneel, jasonpruba@ejemplo.com.ec, Hello everyone
----------------------------
guardamos el archivo de bloc de notas con la extensión .cvs  

en el siguiente archivo creamos un bloc de notas nuevo y copiamos el código de abajo y guardamos con la extensión .ps1 

Código:
------------------------------
$Listado = Import-Csv C:\Users\desktop\Listado.csv

$SMTPServer = "smtp.gmail.com"
$SMTPPort = "587"

$Username = "email@gmail.com"
$Password = "password email"

foreach ( $persona  in  $Listado)
{
    $iName =$persona.Nombre
    $iEmail =$persona.Email
    $iMensaje =$persona.Mensaje
     
    $to = $persona.Email
    $subject ="email@gmail.com"
    $body = @"
    Hola $iName,
     $iMensaje
"@                       

    $mensaje = New-Object System.Net.Mail.MailMessage
    $mensaje.subject = $subject
    $mensaje.body = $body
    $mensaje.to.add($to)
    $mensaje.From = $Username

    $smtp = New-Object System.Net.Mail.SmtpClient ( $SMTPServer , $SMTPPort ) ;
    $smtp.EnableSSL = $true
    $smtp.Credentials = New-Object System.Net.NetworkCredential ( $Username , $Password ) ;
    $smtp.send($mensaje)
    Write-Host  de escritura de correo enviado a $iName
}

Script con credenciales (bulk send messages)

Posted by : Jason 0 Comments


Click to here imagen for download
 Download PS CS6

Photoshop cs6 free

Posted by : Jason
jueves, 24 de agosto de 2017
0 Comments

MODULO DE FACTURACIÓN

En esta factura realizaremos un descuento de 5 productos ya existentes por código y solo la cantidad sera ingresada y al ir al botón calcular nos saldrá 
1.-) El valor total a pagar 
2.-) El descuento de cuanto es 
3.-) El Subtotal.



Código:
Dim DES, ST As Integer
Dim T As Double
Dim COD1, COD2, COD3, COD4, COD5 As Integer
Dim D1, D2, D3, D4, D5 As String
Dim VU1, VU2, VU3, VU4, VU5 As Integer
Dim VT1, VT2, VT3, VT4, VT5 As Integer


Private Sub Command1_Click()
'--------------
'PRIMER CODIGO DE INGRESO
    Label10 = InputBox(" INGRESE EL CODIGO: ", Label12)
    Label10.Visible = Not Label10.Visible
    Label33.Visible = Not Label33.Visible
    Label11.Visible = Not Label11.Visible
    Label11 = 20
    Text1.Visible = Not Text1.Visible
    Label13.Visible = Not Label13.Visible

'SEGUNDO CODIGO DE INGRESO
    Label14 = InputBox(" INGRESE EL CODIGO: ", Label16)
    Label14.Visible = Not Label14.Visible
    Label15.Visible = Not Label15.Visible
    Label16.Visible = Not Label16.Visible
    Label16 = 70
    Text2.Visible = Not Text2.Visible
    Label17.Visible = Not Label17.Visible

'TERCER CODIGO DE INGRESO
    Label18 = InputBox(" INGRESE EL CODIGO: ", Label20)
    Label18.Visible = Not Label18.Visible
    Label19.Visible = Not Label19.Visible
    Label20.Visible = Not Label20.Visible
    Label20 = 15
    Text3.Visible = Not Text3.Visible
    Label21.Visible = Not Label21.Visible
    
'CUARTO CODIGO DE INGRESO
    Label22 = InputBox(" INGRESE EL CODIGO: ", Label24)
    Label22.Visible = Not Label22.Visible
    Label23.Visible = Not Label23.Visible
    Label24.Visible = Not Label24.Visible
    Label24 = 8
    Text4.Visible = Not Text4.Visible
    Label25.Visible = Not Label25.Visible
    
'QUINTO CODIGO DE INGRESO
    Label26 = InputBox(" INGRESE EL CODIGO: ", Label28)
    Label26.Visible = Not Label26.Visible
    Label27.Visible = Not Label27.Visible
    Label28.Visible = Not Label28.Visible
    Label28 = 12
    Text5.Visible = Not Text5.Visible
    Label29.Visible = Not Label29.Visible


End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""

Label10 = ""
Label11 = ""
Label12 = ""
Label13 = ""
Label14 = ""
Label15 = ""
Label16 = ""
Label17 = ""
Label18 = ""
Label19 = ""
Label20 = ""
Label21 = ""
Label22 = ""
Label23 = ""
Label24 = ""
Label25 = ""
Label26 = ""
Label27 = ""
Label28 = ""
Label29 = ""
Label30 = ""
Label31 = ""
Label32 = ""
Label33 = ""



End Sub

' OPERCACIONES DEL BOTON CALCULAR
Private Sub Command3_Click()

VT1 = (Text1.Text * Label11)
Label13 = VT1

VT2 = (Text2.Text * Label16)
Label17 = VT2

VT3 = (Text3.Text * Label20)
Label21 = VT3

VT4 = (Text4.Text * Label24)
Label25 = VT4

VT5 = (Text5.Text * Label28)
Label29 = VT5

ST = VT1 + VT2 + VT3 + VT4 + VT5

If ST < 100 Then
Label12 = "% 5"
DES = (ST * 5) / 100
Else
        If ST >= 100 And ST <= 200 Then
        Label12 = "% 10"
        DES = (ST * 10) / 100
        Else
                If ST > 200 Then
                Label12 = " %15"
                DES = (ST * 15) / 100
                End If
       End If
       
 End If
 T = (ST - DES)

 Label32 = T
 Label30 = ST
 Label31 = DES

MSBOX = ("SU TOTAL A PAGAR ES DE : " & T)
End Sub

' SALTOS DE LINEAS PRECIONANDO LA TECLA ENTER
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub
Private Sub Command4_Click()
End
End Sub



FACTURACION EN VISUAL BASIC

Posted by : Jason
lunes, 31 de julio de 2017
1 Comment

MegaDownloader v1.7 Multilenguaje


Descripción

     MegaDownloader, es un Gestor/Acelerador de descargas desde el Servidor MEGA (mega.co.nz); que nos permite descargar a máxima velocidad, gestionar nuestros archivos de forma facil y rápida ademas que es totalmente seguro y sin limites, este programa esta disponible para Descargar en versión instalable como en Portable.

Datos técnicos

     Nombre: Megadownloader 1.7
     Idioma: Español, Multilenguaje
     Arquitectura: 32-bit & 64-bit
     Tamaño: 2.0 MB
     Tipo de Archivo: RAR


REQUERIMIENTOS DEL SISTEMA

     Debes usar Windows XP SP3 o superior (Vista, Windows 7, Windows 8, etc) y tener instalado .NET 3.5 o superior.
También funciona en MAC con Parallels, teniendo en cuenta que debes instalar .NET 3.5 o superior.


Link de Descarga:

     Descargar Megadownloader 1.7 Portable (Click HERE)

MegaDownloader v1.7

Posted by : Jason
sábado, 24 de junio de 2017
0 Comments
Metodo SHAKER o Sacudida

codigo:

#include<iostream>
#include <stdio.h>
#include <stdio.h>
#include <stdlib.h>
using namespace std;
//****************************** INSERTAR ************************************//

int *Insertar(int *A ,int N)
{
 for( int i = 0 ; i < N ; i++ )
    {
        cout<<endl<<"    - Ingrese el valor ["<<i + 1<<"] = ";
        cin>>A[i];
   
    }
 return A;  
}
//******************************* MOSTRAR ************************************//
void Mostrar(int *A ,int N)
{

 for( int i = 0 ; i < N ; i++ )
    {
   
    cout<<endl<<"      - Valor ["<<i + 1<<"] = "<<A[i]<<endl;
   
    }    
}

/****************************************************************************
el método de la sacudida (shaker sort).
Es la operación de arreglar los registros de una tabla en algún orden secuencial de acuerdo a cierto criterio de orden,
con el propósito principal de facilitar las búsqueda de los miembros del conjunto ordenado.
//****************************** SHAKER o sacudida**************************************/

int *Shaker(int *A, int N)
{
 int i = 0 , izq = 1 , der = N-1 , k = N-1 , aux = 0;
 while( der >= izq )
      {
      for( i = der ; i>= izq ; i-- )  
            if( A[i-1] > A[i])
              {
                aux = A[i-1];
                       
                A[i-1]=A[i];
                       
                A[i]=aux;
                       
                k=i;                    
              }            
      izq = k + 1;    
      for( i = izq ; i <= der ; i++)
             
            if( A[i-1] > A[i] )
                 
              {
                   
                aux = A[i-1];
                       
                A[i-1]=A[i];
                       
                A[i]=aux;
                       
                k=i;
              }
     
      der = k-1;

    }
 return A;
}

int main()
{
  system("COLOR F3");
   
  int *A = NULL;

  A = (int*)malloc(sizeof(int));

  int N;

  int opcion;
     
  cout<<endl<<"  >> INGRESE LOS VALORES :  ";
  cout<<endl<<"      --------------------------------> ";
  cin>>N;
 
  A = Insertar( A , N );
  A = Shaker( A , N );
               
                cout<<endl<<"  - [ METODO MEDIANTE SHAKER (SACUDIDA) ] - "<<endl;
               
                Mostrar(A , N);
    cout<<endl<<endl;
 system("pause");

}

---------------------------------------------------------------------------------------------------------------------

Metodo Shell


codigo:

//metodo de Shell
#include<iostream>
#include <stdio.h>
#include <stdio.h>
#include <stdlib.h>
using namespace std;
//****************************** INSERTAR ************************************//

int *Insertar(int *A ,int N)
{
 for( int i = 0 ; i < N ; i++ )
    {
        cout<<endl<<"    - Ingrese el valor ["<<i + 1<<"] = ";
        cin>>A[i];
   
    }
 return A;  
}
//******************************* MOSTRAR ************************************//
void Mostrar(int *A ,int N)
{

 for( int i = 0 ; i < N ; i++ )
    {
   
    cout<<endl<<"      - Valor ["<<i + 1<<"] = "<<A[i]<<endl;
   
    }    
}

/****************************************************************************
El ordenamiento Shell (Shell sort en inglés) es un algoritmo de ordenamiento. El método se denomina Shell en honor de su inventor Donald Shell.
Su implementación original, requiere O(n2) comparaciones e intercambios en el peor caso. Un cambio menor presentado en el libro de V.
Pratt produce una implementación con un rendimiento de O(n log2 n) en el peor caso.
Esto es mejor que las O(n2) comparaciones requeridas por algoritmos simples pero peor que el óptimo O(n log n).
Aunque es fácil desarrollar un sentido intuitivo de cómo funciona este algoritmo, es muy difícil analizar su tiempo de ejecución.
//****************************** SHELL ***************************************/
int *Shell(int *A , int N)
{

 int i,j,bandera,aux;


 for( j = N/2 ; j > 0 ; j = j/2)
   
    {

    do
     {
   
        bandera=0;

       for( i = 0 ; i < N - j ; i++)
            {
           
          if( A[i] > A[i+j] )
            {
           
                aux = A[i];
             
                A[i] = A[i+j];
             
                A[i+j] = aux;
             
                bandera=1;
               
            }
     
            }
        }    
   
    while(bandera);

  }
 
 return A;
     
}

int main()
{
  system("COLOR F9");
   
  int *A = NULL;

  A = (int*)malloc(sizeof(int));

  int N;

  int opcion;
     
  cout<<endl<<"  >> INGRESE LOS VALORES :  ";
  cout<<endl<<"      --------------------------------> ";
  cin>>N;
 
  A = Insertar( A , N );
  A = Shell( A , N );
         cout<<endl<<"  - [ METODO MEDIANTE SHELL ] - "<<endl;
               
                Mostrar(A , N);
    cout<<endl<<endl;
 system("pause");

}

---------------------------------------------------------------------------------------------------------------------

Metodo QuitShort


Codigo:

#include<iostream>
 #include <algorithm> //para la función sort
 #define LIM 50
 using namespace std;
 /****************************************************************************
El ordenamiento rápido (quicksort en inglés) es un algoritmo basado en la técnica de divide y vencerás, que permite, en promedio,
ordenar n elementos en un tiempo proporcional a n log n.
//****************************** Quitshort **************************************/

 void LeerArray(int n,int x[]);
 void MostrarArray(int n,int x[]);

 int main()
 {
  int n;
  int x[LIM];
  cout<<" -> Ingrese el numero de elementos :";cin>>n;
  LeerArray(n,x);
  sort(x,x+n);//sort(array,array+numeroelementos);
  cout<<"\t\t\t *** MEtodo Quic sort *** "<<endl<<endl;
  cout<<"\t";MostrarArray(n,x);
  system("pause>>null");
  return 0;
 }

 void MostrarArray(int n,int x[])
 {
     for(int i=0;i<n;i++)
     {
         cout<<x[i]<<" ";
     }
 }
 void LeerArray(int n,int x[])
 {
     for(int i=0;i<n;i++)
     {
         cout<<" Elemento ["<<i<<"]:";cin>>x[i];
     }
}

Metodos De Quitshort - Shell - Shaker(Sacudida)

Posted by : Jason
miércoles, 1 de marzo de 2017
0 Comments
Activaciones  de Windows y Office  de todas las versiones en uno solo Link
subido el  programa por MEGA .

Activación de Windows 7/ 8/ 8.1/ 10
 Activación de Office 2010/2013/2016


Link del Programa: << Download Here >>

Activación de Windows y Office en uno solo Todas las versiones

Posted by : Jason
domingo, 29 de enero de 2017
0 Comments

- Copyright © Jason Igneel -