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
anun1
sábado, 13 de noviembre de 2021
Codigo Metodo de la burbuja en javascript y html
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
sábado, 16 de mayo de 2020
Como Enviar Mensajes Vacíos Por Whatsapp y Facebook Desde El Celular Sin Aplicaciones
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
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
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
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
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