http://www.youtube.com/watch?v=i7tnKk3l72k

jajaja, sin comentarios …

Const adOpenStatic = 3
Const adLockOptimistic = 3

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

objConnection.Open _
    "Provider = Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source = bd1.mdb" 

objRecordSet.Open "SELECT * FROM devices" , _
    objConnection, adOpenStatic, adLockOptimistic

objRecordSet.MoveFirst

Do Until objRecordset.EOF
    Wscript.Echo objRecordset.Fields.Item("id") & _
        vbTab & objRecordset.Fields.Item("dispositivo")
    objRecordset.MoveNext
Loop

objRecordSet.AddNew
objRecordSet("dispositivo") = "Switch"
objRecordSet("ip") = "4.4.4.4"
objRecordSet("coordenadas") = "7,7,70,70"
objRecordSet.Update

objRecordSet.Close
objConnection.Close

msgbox "finito"

Referencia: http://www.vbsedit.com

o Desktop Access-StandAlone Application:

referencias:

- Runtime Access 2007

- Download the Access 2007 Developer Extensions

Es bastante util y rápido (productivo) implementar aplicaciones de escritorio en windows con Access.

Personalmente uso access en windows,  para implementar los formularios de usuario (el gui o frontend), y que ataquen (consulten, inserten, actualicen, borren, … registros en una bbdd) a una bbdd en red (SQL Server, MySQL o el propio Access si es una bbdd pequeña y para pocos usuarios y con necesidades de seguridad mínimas).

Lo que ocurre es que si cada usuario debe de tener una licencia de access, sale costoso.

Pero hay una solución. El desarrollador tendría access instalado y podría distribuir su aplicación a los usuarios, sin que tengan acces instalado gracias al Runtime distribuible de Access y al Microsoft Office Access Developer extensions. Y a parte de rápido y barato, tienes la seguridad de que ningún manitas manipulará el código de la aplicación/bbdd …

* Procedimiento:

- Una vez diseñada y abierta la aplicación/bbdd en Access, y habiendo instalado previamente el Access Developer extensions, desde el menú principal > Programador > Paquete de soluciones

- 2º Seguimos el asistente para paquetes de soluciones

- Carpeta de destino

- Entre otras opciones (icono, carpetas de instalacion, …) elijo la opción de descargar Runtime de access, si no tiene el cliente access instalado.

- podriamos añadir ficheros adicionales (imágenes, aplicaciones complemetarias, …) y claves de registro

- Nombre, título, licencia, información, imagen del instalador … Una vez finalizado el proceso …

- Nos crea un setup.exe (el instalador) con los ficheros necesarios para la instalación.

- Ejecuto el instalador (puede estar en un recurso compartido de red)

- La instalación crea un acceso directo en el menú y en el escritorio (configurable). Y una vez el usuario ejecute su instalación, si no dispone del runtime de access, se descargaria y se instalaria (solo una vez haria falta este proceso) y se habriria su Desktop Access-StandAlone Application .

Y voilá …

Una IPv4,  es una dirección de 32 bits, que sirve para identificar de forma lógica una interfaz de red de un host o dispositivo, expresada en cuatro octetos: a.b.c.d , donde a,b,c,d son enteros comprendidos entre 0 y 255

Uno de los  DNS (URL <—> IPv4 en decimal) de www.google.es, es:

www.google.es <—>  66.249.92.104

Pero si expresamos esta IP en distintos formatos, ya sea calculandolo a mano o usando un conversor:

• Octal:  000000102.000000371.000000134.000000150

• Hexadecimal:  0x42f95c68

• Entero:  1123638376

• Decimal: 66.249.92.104

Todos los formatos serán interpretados por tu sistema y/o tu navegador como válidos:

Ejemplo, si efectuo un ping a la ip 66.249.92.104, en distintos formatos:

Todos funcionan sin problema. Una de las hipotéticas utilidades que a voz de pronto puede tener el usar la IPv4 en otro formato es evadir una lista negra de DNS de un firewall o proxy. Pero, claro, seria un firewall o proxy muy ingenuo …

Se puede ver en:  http://www.javcasta.com/utiles/utube/bajar/

Una demo o prueba de concepto de como descargar videos de youtube y convertirlos a distintos formatos:

Lado del cliente:

• index.html

código a resaltar de index.html

<div style="text-align:center;border:medium blue double; width:100%; height:100%; overflow:scroll">
	<form name="elf1" method="get" action="http://tuservidor-con-php-sh-py/camino/logica.php">
		<fieldset name="idGroup">
			<legend>1-<strong> Video ID</strong></legend>
			Ejemplo:
			<a href="http://www.youtube.com/watch?v=Q7e0rWEnE74">http://www.youtube.com/watch?v=kvFokICvrfQ</a>
			<br />
			<input name="video" type="text" value="kvFokICvrfQ" />
		</fieldset>
		<fieldset name="formatGroup">
			<legend>2-<strong>Format</strong><</legend>
			<select name="formato">
				<option selected="selected" value="13">Descargar y vonvertir a 3GP</option>
				<option value="18">Descargar y convertir a MP4</option>
				<option value="17">Descargar y conveertir a FLV</option>
			</select>
		</fieldset>
		<fieldset name="downloadGroup">
			<legend>3-<strong>Download</strong></legend>
			<input name="hazlo" type="button" value="... OK..." onclick="submit()" /><br />

		</fieldset>
		<br />
		Powered by Javier Castañón - 2.010
	</form>
</div>

Lógica de Lado del servidor:

• Script en Python: youtube-dl2.py cortesia de http://bitbucket.org/rg3/youtube-dl/wiki/Home
• Script PhP: logica.php cortesia mia

el código a resaltar de logica.php

function PsExecute($command, $timeout = 60, $sleep = 2) {
        // First, execute the process, get the process ID

        $pid = PsExec($command);

        if( $pid === false )
            return false;

        $cur = 0;
        // Second, loop for $timeout seconds checking if process is running
        while( $cur < $timeout ) {
            sleep($sleep);
            $cur += $sleep;
            // If process is no longer running, return true;

           //echo "\n ---- $cur ------ \n";

            if( !PsExists($pid) )
                return true; // Process must have exited, success!
        }

        // If process is still running after timeout, kill the process and return false
        PsKill($pid);
        return false;
    }

    function PsExec($commandJob) {

        $command = $commandJob.' > /dev/null 2>&1 & echo $!';
        exec($command ,$op);
        $pid = (int)$op[0];

        if($pid!="") return $pid;

        return false;
    }

    function PsExists($pid) {

        exec("ps ax | grep $pid 2>&1", $output);

        while( list(,$row) = each($output) ) {

                $row_array = explode(" ", $row);
                $check_pid = $row_array[0];

                if($pid == $check_pid) {
                        return true;
                }

        }

        return false;
    }

    function PsKill($pid) {
        exec("kill -9 $pid", $output);
    }

$alea=rand(1,10);
$video = $_GET["video"];
$formato = $_GET["formato"];

if ($formato==13 || $formato==17 || $formato==18) {
	if ($formato==13) $ext=".3gp";
	if ($formato==17) $ext=".flv";
	if ($formato==18) $ext=".mp4";
}

$command="/camino/youtube-dl2.sh ".$video." ".$formato." ".$alea;
$output = PsExecute($command);

if (file_exists("$video$ext")){
   echo "<h1>El fichero a descargar</h1>: <a href='"."http://servidor/camino/$video$ext'>$video$ext</a>";
}else{
   echo "<h3>ha habido un error - El fichero no existe</h3>";
}

• Script en bash shell:  youtube-dl2.sh cortesia mia.

el código a resaltar de youtube-dl2.sh

#!/bin/bash
# youtube to flv to mp4 to 3gp
# by javcasta 2.010 - http://javcasta.com
#echo "Las urls de youtube son del tipo: http://www.youtube.com/watch?v=kvFokICvrfQ"

if ! [ $# -eq 2 ]; then
   echo "Necesitas pasar 2 parámetro: id_video formato"
   exit
fi

laurl=http://www.youtube.com/watch?v=$1
#formatos 17=flv, 13=3gp, 18=mp4
formato=$2

lon=$((`expr length $laurl`-31))
video=`expr substr $laurl 32 $lon`

case $formato in
	5)
		exte=.flv;;
	17) #mobile *************
		exte=.flv;;
	13) #3gp ****************
		exte=.3gp;;
	18) #480x360 mp4 ********
		exte=.mp4;;
	22) #1280x720 mp4
		exte=.mp4;;
	34) #640x360 flv
		exte=.flv;;
	*)
		exte="";;
esac

if ! [ -f $video$exte ]; then
	valea=estado$3.txt
	echo $valea
	wget -O $valea http://www.youtube.com/get_video_info?video_id=$video
else
	echo ya existe $video$exte
	exit
fi
vconversion=
vestado=$(cat $valea | grep "status=fail&errorcode=150")

if [ -z "$vestado" ]; then
./youtube-dl2.py -f $formato $laurl

 if [ -f $video$ext ]; then
 	echo no hay error o ya existe
	rm $valea
	exit
 else
	if ! [ -f $video.flv ]; then
		echo "formato no disponible para este video, lo bajamos en flv"
		./youtube-dl2.py $laurl
		vconversion=$formato
	else
		echo ya existe, se intenta conversión ...
		vconversion=$formato
 fi	fi
else
echo "error - video restringido por copyright"
fi

if ! [ -z "$vconversion" ]; then

# CASE CON FORMATOS

case $formato in
      13)
	  #3gp
	if ! [ -f $video.3gp ]; then
		echo convirtiendo a 3gp
		ffmpeg -i $video.flv -s qcif  -vcodec libx264 -r 25 -b 200 -acodec libfaac -ab 64 -ac 1 -ar 8000 $video.3gp
	fi
	;;

      18)
	  #mp4
	if ! [ -f $video.mp4 ]; then
		echo convirtiendo a mp4
		ffmpeg -i $video.flv -ar 22050 $video.mp4
	fi
	;;
      17)
	  #flv
	  # nada que hacer
	;;
	*)
	  #echo "no es un formato conocido"
	;;
  esac

#
fi
rm $valea

youtube-dl es un script en python para descargar vídeos de youtube, debido a los cambios en al API de youtube, el script se ha actualizado: descragar nueva versión en: https://launchpad.net/ubuntu/maverick/+source/youtube-dl/2010.07.22-1/+files/youtube-dl_2010.07.22.orig.tar.gz

Si usas Ubuntu 10.04  Lucid Lynx o 9.10 Karmic Koala, otras formas de instalaro actualizar el script:

$ sudo add-apt-repository ppa:nilarimogard/webupd8
$ sudo apt-get update
$ sudo apt-get install youtube-dl

o  ejecutando el paquete .deb, bajandolo de: manually download the .deb files

Vía: http://www.wirelesspowerconsortium.com/news/announcements/low-power-standard-ready.html

July 23, 2010 – The Qi low power standard is ready

The Qi low power standard, delivering up to 5 Watt into wireless power receivers, was finalized today.

Mi comentario: Otra idea de la ciencia ficción o tecnología ficción hecha realidad. La transmisión de energía sin cables (wireless). Incluso, imagino, que se ha debido de implementar un protocolo de “diálogo” entre el emisor de la energía y los receptores , algo así como un icmp en plan broadcast con sus echo request y echo reply, por motivos obvios y de seguridad

( emisor: ¿Esta alguien On?¿Algún problema algún receptor? ,

receptorX: Ninguno,

emisor:  OK,  transmito energía,

pasa tiempo …,

Receptor: Me voy a dormir (Off or standby) ,

emisor: OK, (comprueba si quda alguién recibiendo), eras elúltimo receptor, dejo de transmitor energía. Buenas noches.

El lenguaje político esta diseñado para hacer que las mentiras suenen como repletas de verdad y el asesinato respetable, y para dar la apariencia de solidez al puro viento.

George Orwell

Referencias:

• http://www.elpais.com/articulo/internacional/Wikileaks/destapar/escandalos/Internet/elpepuint/20100726elpepuint_6/Tes
• http://www.elpais.com/articulo/internacional/fundador/Wikileaks/asegura/informacion/filtrada/muestra/autentica/naturaleza/guerra/Afganistan/elpepuint/20100726elpepuint_8/Tes

1.972 . Niños huyendo de un bombardeo de napalm  en la guerra de Vietnam

La verdadera cara de la guerra es esa foto de vietnam. El horror del napalm sobre la población civil, la indiferencia de los soldados americanos. Y dios, papa noel y los tres reyes magos muertos en alguna cuneta, con un tiro en la nuca …

Mmientras tanto por esos años, Janis Joplin desgarraba su alma con blues, alcohol y heroina hasta la autodestrucción . Y gracias al filtro de nuestras mentes, que prefiere lo bello a lo horrible, mil millones de veces seguirá siendo un referente esta cantante en el inconsciente colectivo de la humanidad que toda esta manada de salvajes asesinos en que nos hemos convertido el primer mundo y sus putos aliados, para gloria y honor de las cuentas numeradas en paraisos fiscales … asco infinito.

La verdadera cara de la guerra es cinismo en estado puro, maldad en estado puro y victimas inocentes masacradas. Es olor a tripas, a miedo y a mierda,hedores de  hambre, saqueo, violación, sufrimiento y bestialismo. Y de esto los americanos  saben bastante. Antes de tocar a deguello, las tropas en combate se encomiendan a San Enola Gay.

En la página de Caricatos (programador & webmaster). Hay un Citador, que no un citólogo … ,
o un script para mostrar una cita aleatoria.

Tiene una bbdd de más de 1000 citas (1133 creo).

* El código:

- Php

<?php $script = "Fieldset"; include("http://www.caricatos.net/citas/frasephp.php"); ?>

-JavaScript

<script type="text/javascript" charset="iso-8859-1" src="http://www.caricatos.net/citas/frasejs.php?script=Fieldset"></script>

“

Según: http://msdn.microsoft.com/es-es/library/ms247233.aspx

Para establecer conexión con una base de datos de Microsoft Access mediante el control AccessDataSource, que admite una propiedad DataFile  para especificar el nombre del archivo .mdb con el que se va a establecer la conexión. Sin embargo, si establece conexión con una base de datos de Microsoft Access utilizando el control SqlDataSource, podrá especificar propiedades de conexión adicionales, como las credenciales de autenticación. Por lo general, si la base de datos de Microsoft Access a la que se va a conectar requiere una contraseña, debe establecer la conexión con el control SqlDataSource, almacenar las credenciales de autenticación en una cadena de conexión en el archivo Web.config y cifrar la cadena de conexión como medida de protección.

<body bgcolor="#333333" style="filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#FFFF99', EndColorStr='#FFCC66')">

style=”filter:progid:DXImageTransform.Microsoft.Gradient (GradientType=0, StartColorStr=’#FFFF99′, EndColorStr=’#FFCC66′)”

Type define el tipo, vertical, horizontal, StartColor y EndColor el color inicial y final del gradiente

En los eventos “ratón sobre” (onmouseover) y ·”ratón fuera” (onmouseout) de un botón, por ejemplo, llamamos a una función grises:

<input name="cerrarButton" onclick="cerrar()" onmouseover="grises(true)" onmouseout="grises(false)" type="button" value=".   Cerrar   ."
 style="filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#FFFF99', EndColorStr='#FFCC66')">

Definimos una funcion en JScript (el javascript de Microsoft) tal que:

function grises(op){
 ht = document.getElementsByTagName("html");
 if (op) {
 ht[0].style.filter = "progid:DXImageTransform.Microsoft.BasicImage(grayscale=1)";
 }
 if (!op) {
  ht[0].style.filter = "";
 }
}

Y voilá …
Descargar ejemplo:
ejemplo
Referencia: Página de Caricatos sobre gradientes con PhP+javascript (muy recomendable)

<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False"
                    DataKeyNames="Codigo" DataSourceID="SqlDataSource1">
                    <Columns>
                        <asp:BoundField DataField="Codigo" HeaderText="Codigo" InsertVisible="False"
                            ReadOnly="True" SortExpression="Codigo" />
                        <asp:BoundField DataField="Fecha_de_matricula" HeaderText="Fecha_de_matricula"
                            SortExpression="Fecha_de_matricula" />
                        <asp:BoundField DataField="Nombre" HeaderText="Nombre"
                            SortExpression="Nombre" />
                        <asp:BoundField DataField="Curso" HeaderText="Curso" SortExpression="Curso" />
                        <asp:CheckBoxField DataField="matriculado" HeaderText="matriculado"
                            SortExpression="matriculado" />
                    </Columns>
        </asp:GridView>

Evento click del boton en Default.aspx.vb

Protected Sub ConsultarButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles ConsultarButton.Click
        Try
            REM clase Alumno --> objeto Alumno1 de la clase Alumno
            Dim Alumno1 = New alumno(GridView1.SelectedValue, GridView1.Rows(0).Cells(2).Text)
            NombreTextBox.Text = Alumno1.Nombre

            If (GridView1.Rows(0).Cells(3).Text <> "&nbsp;") Then
                CursoTextBox.Text = GridView1.Rows(0).Cells(3).Text
            Else : CursoTextBox.Text = ""
            End If
            Calendar1.SelectedDate = GridView1.Rows(0).Cells(1).Text
            REM No encuentro manera de obtener datos boolean del gridview1 ...
            REM Dim resultado As Boolean = Boolean.TryParse(GridView1.SelectedRow.Cells(4).Text)
            REM If resultado Then
            REM MatriculadoCheckBox.Checked = True
            REM End If

        Catch exc As Exception
        End Try
    End Sub

Simplifico el script de la referencia:

PagInicioIE.vbs

On Error Resume Next

Const HKEY_CURRENT_USER = &H80000001

str_Equipo = "."
str_PaginaInicio = "http://javcasta.com"

Set obj_Registro = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}\\" & str_Equipo & _
"\root\default:StdRegProv")

str_Clave= "Software\Microsoft\Internet Explorer\Main"
obj_Registro.SetStringValue HKEY_CURRENT_USER, str_Clave, _
"Start Page",str_PaginaInicio

Referencias:

• VB.Net : Conectar con Base de datos desde IDE Visual Web developer 2008 Express

• VB.Net : Cargar Lista desplegable dinamicamente con origen de datos fichero de texto

Elegir origen de datos

La conexión de datos se definión en  Conectar con Base de datos desde IDE Visual Web developer 2008 Express

<div style="text-align: center">
    Lista desplegable:
    <asp:DropDownList ID="DropDownList1" runat="server"
    DataSourceID="SqlDataSource1" DataTextField="Nombre" DataValueField="Nombre">
    </asp:DropDownList>
    <asp:SqlDataSource ID="SqlDataSource1" runat="server"
    ConnectionString="<%$ ConnectionStrings:bbddsql2008ConnectionString %>"
    SelectCommand="SELECT DISTINCT [Nombre] FROM [Provincia] ORDER BY [Nombre]">
   </asp:SqlDataSource>
</div>

El origen de datos, en este caso, es una bbdd MS SQL server 2008, en un servidor remoto en Inet

Parametrizamos

Y voilá, ya tenemos una bbdd para poder trabajar con el visual web developer.