' ElencanteVBS v 3.0 Set oggetti = WScript.Arguments Dim conta, inizio, serie, pois, a, z, msg conta = oggetti.Count If conta = 0 Then     MsgBox "Devi trascinare qui, col mouse, i files da rinominare!",0,"Uso sbagliato"     WScript.Quit ElseIf conta = 1 Then     MsgBox "Richiesto un numero minimo di 2 files…

Dim list, flist, listArr, listItem, oShell, oItem, jobFolder, objFsoDim oDir, oFolder, oFolders, oFile, oFiles, a, path list = "" flist = "" Set oShell = CreateObject("Shell.Application") Set oItem = oShell.BrowseForFolder(0, "Scegli la cartella di lavoro:", 0, "") If oItem Is Nothing Then     Wscript.Quit End If jobFolder = oItem.Self.Path & "" Set oShell =…

Public Class Form1     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load         Dim sFso = CreateObject("Scripting.FileSystemObject")         For i As Integer = 0 To 4             If sFso.FileExists("slot" & i & ".sav") Then              …

Piccolo Script in VB che legge il savegeme del gioco Beyond Good & Evil per scovare il famigerato codice per avere il disco 13 col gioco di Francis. E praticamente ti evita di doverti iscriverti alla Darkroom.Aprite Notepad e incollate questo Script in un nuovo documento. Salvate il tutto con estensione .vbs, e avrete così il…

Javascript: Convertire una stringa base64 in decimale function base64toDEC (str) {     var octArr = {"A":"00","B":"01","C":"02","D":"03","E":"04","F":"05","G":"06","H":"07",                     "I":"10","J":"11","K":"12","L":"13","M":"14","N":"15","O":"16","P":"17",                     "Q":"20","R":"21","S":"22","T":"23","U":"24","V":"25","W":"26","X":"27",                     "Y":"30","Z":"31","a":"32","b":"33","c":"34","d":"35","e":"36","f":"37",            …

Una semplicissima Area Editabile in formato HTMLDEMO - SORGENTE

JAVASCRIPT:var tg,making = new XMLSerializer(); tg = document.createElement('p');tg.innerText = making.serializeToString(document);document.write('<style>body{font-family:monospace;white-space:pre;}</style>'+tg.innerHTML);Si può anche racchiuderla in una sola stringa per creare un segnalibro di browser che esegua lo scriptBrowser Bookmark:javascript:var%20tg,making=new%20XMLSerializer();tg=document.createElement('p');tg.innerText=making.serializeToString(document);document.write('<style>body{font-family:monospace;white-space:pre;}</style>'+tg.innerHTML);

Esercizi su come creare immagini Jpeg o Png, disegnando forme (cerchi, triangoli, ecc..) usando il linguaggo PHP. <?php     // creo un immagine     $image = imagecreatetruecolor(600, 400);     // stampo il colore di sfondo     imagefill($image, 0, 0, 0x808080);     // disegno un cerchio rosso     imagefilledellipse($image, 300, 200,…

<?php $base64 = "iVBORw0KGgoAAAANSUhEUgAAABw"   . "AAAASAQMAAAByySynAAAABlBMVEUAAAD///+l2Z/dAAAAP0lEQVQImWN"   . "gPm9gwAAmbM4bH4AQzAdAYiDC/rzxByTi/+f/cIL5AwPnZGYGIGHMwGA"   . "5mdkASNgbMNgJ80AIAMCSHqNvm2VtAAAAAElFTkSuQmCC"; function get_img_type($data) {   $n = array(1,1,2,3);   $e = array("474946383761","474946383961","ffd8ff","89504e470d0a1a0a");   for ($i=0; $i<4; $i++) {     if (strtolower(bin2hex(substr($data,0,strlen($e[$i])/2)))==$e[$i]) return $n[$i];   }   return NULL; } $data = base64_decode($base64); $tp = get_img_type($data); if ($tp) {   $img = imagecreatefromstring($data);…

<form method="POST" enctype="multipart/form-data" action=""> <label>Caricare una immagine GIF, JPEG, PNG o ICO</label> <input type="file" name="image"> <input type="submit" name="action" value="Invia"> </form> <?php if (isset($_POST["action"])) {   if ($_FILES["image"]['name'] != "") {     $fileup = $_FILES["image"]["tmp_name"];     $tp = $_FILES['image']['type'];     if (($tp!="image/gif") && ($tp!="image/jpeg") && ($tp!="image/png") && ($tp!="image/x-icon")) {       echo "<em>Formato…