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.
------------------------------
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
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
}
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)
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
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
Metodo SHAKER o Sacudida
codigo:
#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:
#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 <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)
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 >>