QR

source("/sdcard/com.googlecode.bshforandroid/extras/bsh/android.bsh");
droid = Android();
String action = "com.google.zxing.client.android.ENCODE";
JSONObject extras = new JSONObject();
extras.put("ENCODE_TYPE","TEXT_TYPE");
extras.put("ENCODE_DATA","BeanShell");
JSONObject intent = droid.call("makeIntent",action,null,null,extras).get("result");
droid.call("startActivityIntent",intent);

Bex

import("org::json")
include("/sdcard/com.googlecode.bexforandroid/extras/bex/android.bex")
droid = Android()
action = "com.google.zxing.client.android.ENCODE"
extras = JSONObject.new()
extras.put("ENCODE_TYPE","TEXT_TYPE")
extras.put("ENCODE_DATA","Bex")
intent = droid.call("makeIntent",action,null,null,extras).get("result")
droid.call("startActivityIntent",intent)

Erlang

-module(qR_Erlang).
-export([main/0]).
main()->
  Action = "com.google.zxing.client.android.ENCODE",
  Extras = {struct,[{"ENCODE_TYPE","TEXT_TYPE"},{"ENCODE_DATA","Erlang"}]},
  Intent = android:makeIntent(Action,null,null,Extras),
  android:startActivityIntent(Intent)
.

Html and JavaScript

<HTML><HEAD><SCRIPT>
var droid = new Android();
var action = "com.google.zxing.client.android.ENCODE";
var extras = {'ENCODE_TYPE':'TEXT_TYPE', 'ENCODE_DATA':'HTML and JavaScript'};
var intent = droid.makeIntent(action,null,null,extras);
droid.startActivityIntent(intent.result);
</SCRIPT></HEAD><BODY></BODY></HTML>

JRuby

droid = Android.new
action = "com.google.zxing.client.android.ENCODE"
extras = {'ENCODE_TYPE' => 'TEXT_TYPE', 'ENCODE_DATA' => 'JRuby'}
intent = droid.makeIntent action,nil,nil,extras
droid.startActivityIntent intent['result']

JScheme

(import "com.googlecode.rpc.*")
(import "org.json.*")
(define droid (com.googlecode.rpc.Android.))
(define action "com.google.zxing.client.android.ENCODE")
(define extras (JSONObject.))
(.put extras "ENCODE_TYPE" "TEXT_TYPE")
(.put extras "ENCODE_DATA" "JScheme")
(define intent (.get (.call droid "makeIntent" action null null extras) "result"))
(.call droid "startActivityIntent" intent)
(exit)

Jawk

import com.googlecode.rpc.*;
import org.json.*;
BEGIN{
  droid = new Android();
  action = "com.google.zxing.client.android.ENCODE";
  extras = new JSONObject();
  extras.put("ENCODE_TYPE","TEXT_TYPE");
  extras.put("ENCODE_DATA","Jawk");
  intent = droid.call("makeIntent",action,null,null,extras).get("result");
  droid.call("startActivityIntent",intent);
}

Lua

require "android"
action = "com.google.zxing.client.android.ENCODE"
extras = {}
extras["ENCODE_TYPE"]="TEXT_TYPE"
extras["ENCODE_DATA"]="Lua"
intent = android.makeIntent(action,nil,nil,extras).result
android.startActivityIntent(intent)

PHP

<?php 
require_once("Android.php");
$droid = new Android();
$action = "com.google.zxing.client.android.ENCODE";
$extras = array('ENCODE_TYPE'=>"TEXT_TYPE",'ENCODE_DATA'=>"PHP");
$intent = $droid->makeIntent($action,null,null,$extras);
$droid->startActivityIntent($intent["result"]);
?>

Perl

use Android;
my $droid = Android->new();
my $null;
my $action = "com.google.zxing.client.android.ENCODE";
my $extras = { 'ENCODE_TYPE' => "TEXT_TYPE",'ENCODE_DATA' => "Perl" };
my $intent = $droid->makeIntent($action,$null,$null,$extras);
$droid->startActivityIntent($intent->{'result'});

Python

import android

droid = android.Android()
extras = {}
extras['ENCODE_TYPE'] = 'TEXT_TYPE'
extras['ENCODE_DATA'] = 'Python'
intent = droid.makeIntent('com.google.zxing.client.android.ENCODE', None, None, extras).result
droid.startActivityIntent(intent)

Rhino

load("/sdcard/com.googlecode.rhinoforandroid/extras/rhino/android.js");
var droid = new Android();
var action = "com.google.zxing.client.android.ENCODE";
var extras = {'ENCODE_TYPE':'TEXT_TYPE', 'ENCODE_DATA':'Rhino'};
var intent = droid.makeIntent(action,null,null,extras);
droid.startActivityIntent(intent);

Shell

am start -a com.google.zxing.client.android.ENCODE --es ENCODE_TYPE TEXT_TYPE --es ENCODE_DATA 'Shell'

Sleep

import com.googlecode.rpc.*;
import org.json.*;
$droid = [new Android];
$action = "com.google.zxing.client.android.ENCODE";
$extras = [new JSONObject];
[$extras put : "ENCODE_TYPE","TEXT_TYPE"];
[$extras put : "ENCODE_DATA","Sleep"];
$result = [$droid call : "makeIntent",$action,$null,$null,$extras];
$intent = [$result get : "result"];
[$droid call : "startActivityIntent",$intent];

Squirrel

android <- Android();
local action = "com.google.zxing.client.android.ENCODE";
local extras = {"ENCODE_TYPE" : "TEXT_TYPE","ENCODE_DATA" : "Squirrel"};
local intent = android.makeIntent(action,null,null,extras).result;
android.startActivityIntent(intent);

Tcl

Not solved. Please send me answers if you have.