anun1

sábado, 13 de noviembre de 2021

Codigo Metodo de la burbuja en javascript y html

 Hoy veremos el metodo de la burbuja escrito en html y javascript lo esplicare lo mas sensillo posible, el metodo de la burbuja consiste en intercambiar los valores de 2 variables, asi que primero creamos el siguiente formulario en html



el codigo para crear el formulario es el siguiente

<html>
<head><title>Metodo de la Burbuja</title>
</head>
<body>
<center>
<br><br><br><br>
Numero 1:<input type="text" id="num1" value="5"><br><br>
Numero 1:<input type="text" id="num2" value="4"><br><br>
<input type="button" value="Cambiar 1" onclick="burbuja1()"><input type="button" value="Cambiar 2" onclick="burbuja2()">
<br>
</center>
</body>
</html>

 
yo para el ejemplo al cuadro de texto1 y texto2 les asigne valores el 5 y 4, asi que la mision aqui es hacer que el cuadro de texto1 sea igual al cuadro de texto 2 y el 2 al cuadro de texto 1, hay 2 formas de hacerlo la mas facil es usando una variable axiliar y la otra la mas dificil es sin usar la variable, asi que para cada diferente metodo usaremos una funcion para eso agregamos la etiqueta <script> y agregamos la primera funcion

function burbuja1()//metodo con variable
{
   var nv;
   var n1 = document.getElementById("num1").value;
   var n2 = document.getElementById("num2").value;
   
   nv=n1;
   n1=n2;
   n2=nv;
   
   document.getElementById("num1").value=n1;
   document.getElementById("num2").value=n2;
   
}

si se fijan uso una variable nv para intercambiar los valores, a nv le paso el valor de n1 y linea siguiente digo que n1 sea igual a n2 despues de esto n2 sera igual a nv que es la variable auxiliar.

ahora veremos la funcion sin variable axiliar

function burbuja2()//metodo sin variable
{
   var n1 = parseInt(document.getElementById("num1").value);
   var n2 = parseInt(document.getElementById("num2").value);
   
   n1=n1-n2
   n2=n1+n2
   n1=n2-n1
   
   document.getElementById("num1").value=n1;
   document.getElementById("num2").value=n2;
}


como ven tomo los valores de n1 y n2 y realiso las siguientes operaciones aritmeticas de suma y resta y obtenemos el mismo resultado.

Ahora les dejo el codigo completo

<html>
<head><title>Metodo de la Burbuja</title>
</head>
<body>
<center>
<br><br><br><br>
Numero 1:<input type="text" id="num1" value="5"><br><br>
Numero 1:<input type="text" id="num2" value="4"><br><br>
<input type="button" value="Cambiar 1" onclick="burbuja1()"><input type="button" value="Cambiar 2" onclick="burbuja2()">
<br>
</center>
<script>
function burbuja1()//metodo con variable
{
   var nv;
   var n1 = document.getElementById("num1").value;
   var n2 = document.getElementById("num2").value;
   
   nv=n1;
   n1=n2;
   n2=nv;
   
   document.getElementById("num1").value=n1;
   document.getElementById("num2").value=n2;
   
}
function burbuja2()//metodo sin variable
{
   var n1 = parseInt(document.getElementById("num1").value);
   var n2 = parseInt(document.getElementById("num2").value);
   
   n1=n1-n2
   n2=n1+n2
   n1=n2-n1
   
   document.getElementById("num1").value=n1;
   document.getElementById("num2").value=n2;
}
</script>

</body>
</html>

bueno creo que eso es todo espero sea de utilidad para alguien saludos Flamer


sábado, 1 de mayo de 2021

Comprimir Archivos En Formato Zip Con Javascript y Html

Este tema es similar al que escribí tiempo atrás este

https://elblogdeflamer.blogspot.com/2019/08/codigo-crear-un-archivo-zip-usando.html

pero ahora será un poco mas grafico para eso solo ocuparemos en el bloc de notas y el siguiente código

<html>

<head><title>Compresor de archivos Zip</title>

</head>

<body>

<marquee>Compresor de archivos Zip</marquee>

<center>

<br><br><br><br><br>

Archivo a Comprimir:<input type="file" size="70" id="ruta1"><br><br>

Nombre Del archivo Comprimido:<input type="text" id="ruta2" style="text-align:center;"><br><br>

<input type="button" value="COMPRIMIR" onclick="compress()">

<script>

function compress()

{

   var fso = new ActiveXObject("Scripting.filesystemobject");

   var app = new ActiveXObject("shell.application");

   var path1 = document.getElementById("ruta1").value;

   var path2 = document.getElementById("ruta2").value;

   

   if(path1=="" || path2=="")

   {

      alert("Se Encontraron campos vacios");

   }

   else

   {

       path2+=".zip";

       var bin = "PK" + String.fromCharCode(5) + String.fromCharCode(6) + Array(19).join(String.fromCharCode(0)); 

       var file = fso.createtextfile(path2);

       file.write(bin);

       file.close();

       app.namespace(path2).copyhere(path1);

       alert("Listo Archivo Comprimido Con Exito");

   }

}

</script>

</center>

</body>

</html>


después le ponemos cualquier nombre y lo aguardamos con la extensión .hta

nos quedara un formulario como este




bueno saludos Flamer

 

viernes, 12 de marzo de 2021

Creando Archivo Que Cambia De Nombre En Jscript

Ahora crearemos un pequeño programa en Jscript el cual cambiara de nombre al ejecutarlo, bueno empecemos  declarando las siguientes variables


var fso,nom="",x;

Después pasaremos a crear un objeto "Scripting.FileSystemObject"


fso = new ActiveXObject("Scripting.FileSystemObject");

En la siguiente línea pasaremos a leer el nombre de nuestro archivo JS con el comando GetFile y usaremos el objeto global  Wscript con la canción ScriptFullName para obtener el nombre de nuestro script y será referenciado con la variable f

También inicializaremos la variable nom


f=fso.GetFile(WScript.ScriptFullName);
nom="";


En la siguiente línea  usaremos el comando Math.random() para obtener un numero aleatorio del 5 al 50 y pasarlo a entero con el comando parseInt y aguardarlo en la variable l


l = parseInt((50-5)*Math.random()+5);


Después pasaremos a crear un ciclo el for el cual usaremos para crear el nombre aleatorio


for(x=0;x<l;x++)
{


Dentro de este ciclo se encuentra la primera línea, donde obtendremos  un numero aleatoria del 1 al 3, donde será aguardado en la variable ran1 


ran1=parseInt((3-1)*Math.random()+1);


Donde la variable ran1 pasara por una función switch para elegir si el nuevo nombre llevara números, mayúsculas o minúsculas


switch (ran1)
 {


En el primer case de la función switch preguntara si ran1 es igual a 1 y si es así  generara un numero aleatorio del 97 al 122 donde después será convertido a carácter con la función String.fromCharCode  la cual arrojara un letra minúscula donde será almacenada en la variable nom.

case 1:
nom= nom + String.fromCharCode(parseInt((122-97)*Math.random() + 97));
break;

Después las siguientes líneas que es el case 2 haremos lo mismo pero esta ves obtendremos letras mayúsculas y case 3 dígitos numéricos.


case 2:
   nom= nom + String.fromCharCode(parseInt((90-65)*Math.random() + 65));
   break;
case 3:
   nom= nom + String.fromCharCode(parseInt((57-48)*Math.random() + 48));
   break;
  }
}

En la ultima línea renombraremos el archivo con el método name

f.name=nom + ".js";




Ahora el código completo


var fso,nom,x,l,ran1;

fso = new ActiveXObject("Scripting.FileSystemObject");

f=fso.GetFile(WScript.ScriptFullName);
nom="";
l = parseInt((50-5)*Math.random()+5);

for(x=0;x<l;x++)
{
ran1=parseInt((3-1)*Math.random()+1);
switch (ran1)
    {
case 1:
   nom= nom + String.fromCharCode(parseInt((122-97)*Math.random() + 97));
   break;
case 2:
   nom= nom + String.fromCharCode(parseInt((90-65)*Math.random() + 65));
   break;
case 3:
nom= nom + String.fromCharCode(parseInt((57-48)*Math.random() + 48));
break;
}
}
f.name=nom + ".js";



Lo pueden copiar y pegar en el bloc de nostas y guardarlo con la extencion .js por si lo quieren probar





Saludos Flamer

sábado, 16 de mayo de 2020

Como Enviar Mensajes Vacíos Por Whatsapp y Facebook Desde El Celular Sin Aplicaciones

Hola amigo como están soy Flamer de nuevo y como tengo rato que no escribía algo y no hacia vídeos ya que tengo otros pasatiempos, se me ocurrió hacer algo y aquí me tienen......bueno he aquí con otro tema haber si hago vídeo de esto bueno a lo que te truje chencha así que empecemos.

Hace tiempo ya como 2 años mas o menos me enviaron un mensaje vació y hoy me acorde de eso y me di a la tarea de investigar y me encontré que lo hacían con una aplicación pues bueno dije yo lo puedo hacer y sin aplicación.

Así que si estamos en el celular nos dirigimos a nuestro navegador en el móvil y escribimos lo siguiente

javascript:document.write(String.fromCodePoint(4447))





ahora solo presionamos enter y nos quedara algo así



después de eso seleccionamos el carácter invisible por decirlo así y nos dirigimos a facebook o whatsapp donde lo quieran enviar



y estando en la aplicación de facebook o whatsapp nada mas lo pegan y lo envían.......


Esto también funciona en las computadoras solo se tienen que ir al navegador y teclear lo mismo y quedara así





bueno el resto creo que ya se la saben......bueno amigos creo que eso es todo saludos Flamer y hasta la próxima










 

miércoles, 28 de agosto de 2019

Codigo Crear Un Archivo Zip Usando VBScript

Hola amigos aquí les dejare el código que utilice en el vídeo para crear un archivo zip usando puro código vbscript.

otra como yo tengo windows 10 al parecer solo me funciona en el escritorio, ya lo intente dentro de carpetas y me marca error, desconozco que sera bueno si alguno tiene la solución que la comparta



.......:::::CODIGO:::::.......


dim fso,app,nombre,file,ruta,pross

set fso   = createobject("scripting.filesystemobject")
set app   = createobject("shell.application")
set shell = createobject("wscript.shell")

nombre = inputbox("Nombre del archivo ZIP","Nombrar") & ".zip"

set pross = shell.exec("mshta.exe ""about:<input type='file' id='file'><script language=""vbscript"">file.click():createobject(""scripting.filesystemobject"").getstandardstream(1).writeline(file.value):close()</script>""")

ruta = pross.stdout.readline

set file = fso.createtextfile(nombre)
file.write("PK" & chr(5) & chr(6) & string(18,chr(0)))
file.close

app.namespace(nombre).copyhere ruta

wscript.sleep 2000

msgbox "Archivo comprimido con Exito",0,"Terminamos"





creo que ya se saben el prosedimiento, solo lo copean lo pegan en el bloc de notas y lo aguardan con la extencion .vbs


bueno saludos Flamer






domingo, 15 de julio de 2018

Codigos Enviar Mail Con Powershell y VBScript

Hola amigos soy flamer de nuevo aquí les dejare los códigos para enviar un mail por powershell y el código para adaptarlo a vbscript el cual es el único mio los demás los encontré navegando por Internet y los traigo para compartirlo con ustedes.


CODIGO 1

$From = "TU_CORREO@CORREO.com"

$To = "VICTIMA@CORREO.com"

$Subject = "Esto es una prueba fake mail"

$Body = "mensaje de prueba fake mail"

$SMTPServer = "smtp.live.com"

$SMTPClient = New-Object Net.Mail.SmtpClient($SMTPServer,587)

$SMTPClient.EnableSsl = $true

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("TU_CORREO@hotmail.com","TU_CONTRASEÑA")

$SMTPClient.Send($From,$To,$Subject,$Body)



CODIGO 2

$From = "TU_CORREO@CORREO.com"

$To = "VICTIMA@CORREO.com"

$Cc = "VICTIMA@CORREO.com"

$Attachment = "C:\archivo.txt"

$Subject = "pruebas mail"

$Body = "esto es una prueba mail fake"

$SMTPServer = "smtp.live.com"

$SMTPPort = "587"

Send-MailMessage -From $From -to $To -Cc $Cc -Subject $Subject -Body $Body -SmtpServer $SMTPServer -port $SMTPPort -UseSsl -Credential (Get-Credential) -Attachments $Attachment –DeliveryNotificationOption OnSuccess



CODIGO 3

$EmailTo = "VICTIMA@CORREO.com"

$EmailFrom = "TU_CORREO@CORREO.com"

$Subject = "Pruebas Mail" 

$Body = "Esto es una prueba send mail con powershell" 

$SMTPServer = "smtp.live.com" 

$filenameAndPath = "C:\archivo.txt"

$SMTPMessage = New-Object System.Net.Mail.MailMessage($EmailFrom,$EmailTo,$Subject,$Body)

$attachment = New-Object System.Net.Mail.Attachment($filenameAndPath)

$SMTPMessage.Attachments.Add($attachment)

$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587) 

$SMTPClient.EnableSsl = $true 

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("TU_CORREO@CORREO.com", "TU_CONTRASEÑA")

$SMTPClient.Send($SMTPMessage)




CODIGO MIO

option explicit
dim shell,cmd

set shell=createobject("wscript.shell")

cmd="C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -command "

shell.run cmd & "$EmailTo = 'VICTIMA@CORREO.com';$EmailFrom = 'TU_CORREO@CORREO.com';$Subject = 'Pruebas Mail';$Body = 'Esto es una prueba send mail con powershell';$SMTPServer = 'smtp.live.com';$filenameAndPath = 'C:\archivo.txt';$SMTPMessage = New-Object System.Net.Mail.MailMessage($EmailFrom,$EmailTo,$Subject,$Body);$attachment = New-Object System.Net.Mail.Attachment($filenameAndPath);$SMTPMessage.Attachments.Add($attachment);$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587);$SMTPClient.EnableSsl = $true;$SMTPClient.Credentials = New-Object System.Net.NetworkCredential('TU_CORREO@CORREO.com', 'TU_CONTRASEÑA');$SMTPClient.Send($SMTPMessage)",0

msgbox "terminamos"



Nota: recuerden poner su correo en donde dice TU_CORREO@CORREO.com y poner su contraseña donde seles pida o donde dise TU_CONTRASEÑA.

Otra cosa yo les puse como servidor smtp.live.com que es de hotmail si usan gmail tendrán que usar el servidor smtp.gmail.com y habilitar lo para aplicaciones desconocidas en https://myaccount.google.com/lesssecureapps


Aquí les dejo el vídeo donde se  muestra como usarse: https://www.youtube.com/watch?v=ZrJL0ZEq-Q8&t=17s

Bueno creo que eso es todo saludos Flamer y hasta la proxima



martes, 29 de mayo de 2018

Codigo Para Copiar o Capturar Pantalla Con Vbscript

Ahora vengo con algo nuevo algo que creía que no se podía y que mucho creo que pensaban lo mismo, pero de tanto buscar y buscar por fin di con el clavo.

Se trata de copiar o capturar la pantalla de nuestro escritorio utilizando vbscript cosa que creía imposible, para después aguardarla en un archivo de word.

Sin mas que decir les dejare el código y al final el link de mi vídeo donde demuestro el uso de el.


option explicit
dim excel,word,doc   ''declaramos las variables

set excel=createobject("excel.application")  '' creamos el objecto excel
set word=createobject("word.application")    ''creamos el objecto word

excel.Application.SendKeys ("%{1068}") ''se pulsa la tecla para capturar pantalla y se copea al porta papeles
msgbox "pantalla capturada"  '' mensaje de pantalla capturada

Set doc = word.Documents.Add() '' se crea el documento de word
word.Selection.Paste  '' pega lo que se encuentra en el porta papeles
doc.saveas "C:\Users\Flamer\Desktop\img.doc" '' guarda el documento de word creado
word.quit '' cierra el objecto word

Saludos Flamer y creo que vbscript cada día me sorprende mas