Air com VBScript - AIR-Brasil

Mensagem sobre o tópico Air com VBScript
Visualizar analisado - Mostrar apenas o texto da mensagem ??
Received-SPF: pass (google.com: domain of jay.net...@gmail.com designates 74.125.92.27 as permitted sender) client-ip=74.125.92.27;
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=gamma;
        h=mime-version:in-reply-to:references:from:date:message-id:subject:to
         :content-type;
        b=e7qnz55baDE//dthWqf/JyoYP8xBGInmQni+qqAI7v7TI0MNi9BpT1AWHG3ZhnanaK
         Yj0Gj6L7DCnyXnGYg4/wIJjpsCOIJuROVhByBwATm9pyOnjWWttM8cGyd++jNqYPVLjG
         9/jTQ/PLpwRsDNtlkySFhujTaKErnodQXfZfg=
Mime-Version: 1.0
Content-Type: multipart/alternative;
	boundary="0015175cba549f2de6046d37ed52"
In-Reply-To: <COL119-DS2487D2E70805695724D6EA89340@phx.gbl>
References: <7ec78136-37bb-4781-9114-31e6231da4c2@y38g2000vbl.googlegroups.com> 
	<COL119-DS2487D2E70805695724D6EA89...@phx.gbl>
From: Jay <jay.net...@gmail.com>
Date: Fri, 26 Jun 2009 00:27:44 -0300
Message-ID: <a81232010906252027t3bcbc76ft2af288920d7e...@mail.gmail.com>
Subject: Re: [AIR-Brasil] Re: Air com VBScript
To: air-brasil@googlegroups.com

--0015175cba549f2de6046d37ed52
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Valeu Armando, por=E9m o que preciso =E9 uma ponte entre o Air e o VB ou
VBScript ou Java para
executar uma conex=E3o OLE como essa abaixo, se for poss=EDvel em Java, ass=
im
utilizo o Merapi no projeto.

Dim sys As EXTRA.ExtraSystem
    Dim sss As EXTRA.ExtraSessions
    Dim ses As EXTRA.ExtraSession
    Dim scr As EXTRA.ExtraScreen
    Dim Row, Rows, Cols, rc As Integer

    Private Sub OLE32VBN_Load(ByVal eventSender As System.Object, ByVal
eventArgs As System.EventArgs) Handles MyBase.Load
        Dim fname As String

        tbxFunction.Text =3D "CreateObject"
        ' create system object
        sys =3D CreateObject("EXTRA.System")
        If sys Is Nothing Then
            MsgBox("Unable to create system object", , "Error")
            End
        End If
        sss =3D sys.Sessions
        ' locate session files
        fname =3D Dir(sys.DefaultFilePath & "\*.EDP")
        ' build list of available sessions
        While fname <> ""
            lbxSessionList.Items.Add(fname)
            fname =3D Dir()
        End While

    End Sub

 Atenciosamente,

*Junior*

 "Um problema s=F3 existe, quando est=E3o presentes todas as condi=E7=F5es =
para
solucion=E1-lo"



2009/6/25 Armando Leopoldo Keller <alk...@hotmail.com>

>
> Ol=E1, provavelmente n=E3o vais poder executar nada externo por quest=E3o=
 de
> seguran=E7a (ja vi gambiarra de abrir como link mas dai abre o browser :P=
,
> logo n=E3o =E9 muito recomendado).
> Porem tem algumas coisas que podem ser feitas, como por exemplo a
> comunica=E7=E3o por socket, pode deixar um programa "escutando" o AIR (po=
de ser
> um servi=E7o tambem) e ele se comunica com o terminal.
> Vamos supor que voc=EA criou um instalador personalizado para a sua
> aplica=E7=E3o,
> no meio dele =E9 instalado a aplica=E7=E3o em AIR, e ja guarda o caminho =
onde vai
> ser instalado, depois disso, troque o executavel por um outro programa qu=
e
> chame o executavel original e o seu programa "ouvinte" assim os dois
> iniciar=E3o ao mesmo tempo, e n=E3o esque=E7a de fechar o ouvinte ao fech=
ar a
> aplica=E7=E3o.
> Tem um exemplo de comunica=E7=E3o desse tipo em
> http://armandokeller.com/blog/?p=3D41 que utiliza python como linguagem
> externa, mas a logica =E9 a mesma para qualquer outra linguagem.
> Qualquer duvida =E9 s=F3 entrar em contato.
>
>
> Att.
> Armando Leopoldo Keller
>
> --------------------------------------------------
> From: "Jayarruda" <jay.net...@gmail.com>
> Sent: Wednesday, June 24, 2009 11:45 PM
> To: "AIR-Brasil" <air-brasil@googlegroups.com>
> Subject: [AIR-Brasil] Air com VBScript
>
> >
> > Tudo bem pessoal,
> >
> > Algu=E9m pode me informar se =E9 possivel executar VBScript dentro de u=
ma
> > aplica=E7=E3o Air ???
> > Preciso conectar essa aplica=E7=E3o com um emulador de terminal IBM, e =
as
> > linguagens dispon=EDveis
> > para conex=E3o s=E3o C, VB, VBScript e Delphi.
> >
> > Agrade=E7o qualquer ajuda.
> >
> > Sem mais,
> >
> > Junior
> >
> > >
> >
>
> >
>

--0015175cba549f2de6046d37ed52
Content-Type: text/html; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable

Valeu Armando, por=E9m o que preciso =E9 uma ponte entre o Air e o VB ou VB=
Script ou Java para<br>executar uma conex=E3o OLE como essa abaixo, se for =
poss=EDvel em Java, assim utilizo o Merapi no projeto.<br><br>Dim sys As EX=
TRA.ExtraSystem<br>

=A0=A0=A0 Dim sss As EXTRA.ExtraSessions<br>=A0=A0=A0 Dim ses As EXTRA.Extr=
aSession<br>=A0=A0=A0 Dim scr As EXTRA.ExtraScreen<br>=A0=A0=A0 Dim Row, Ro=
ws, Cols, rc As Integer<br><br>=A0=A0=A0 Private Sub OLE32VBN_Load(ByVal ev=
entSender As System.Object, ByVal eventArgs As System.EventArgs) Handles My=
Base.Load<br>

=A0=A0=A0=A0=A0=A0=A0 Dim fname As String<br><br>=A0=A0=A0=A0=A0=A0=A0 tbxF=
unction.Text =3D &quot;CreateObject&quot;<br>=A0=A0=A0=A0=A0=A0=A0 &#39; cr=
eate system object<br>=A0=A0=A0=A0=A0=A0=A0 sys =3D CreateObject(&quot;EXTR=
A.System&quot;)<br>=A0=A0=A0=A0=A0=A0=A0 If sys Is Nothing Then<br>=A0=A0=
=A0=A0=A0=A0=A0=A0=A0=A0=A0 MsgBox(&quot;Unable to create system object&quo=
t;, , &quot;Error&quot;)<br>

=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 End<br>=A0=A0=A0=A0=A0=A0=A0 End If<br>=
=A0=A0=A0=A0=A0=A0=A0 sss =3D sys.Sessions<br>=A0=A0=A0=A0=A0=A0=A0 &#39; l=
ocate session files<br>=A0=A0=A0=A0=A0=A0=A0 fname =3D Dir(sys.DefaultFileP=
ath &amp; &quot;\*.EDP&quot;)<br>=A0=A0=A0=A0=A0=A0=A0 &#39; build list of =
available sessions<br>

=A0=A0=A0=A0=A0=A0=A0 While fname &lt;&gt; &quot;&quot;<br>=A0=A0=A0=A0=A0=
=A0=A0=A0=A0=A0=A0 lbxSessionList.Items.Add(fname)<br>=A0=A0=A0=A0=A0=A0=A0=
=A0=A0=A0=A0 fname =3D Dir()<br>=A0=A0=A0=A0=A0=A0=A0 End While<br><br>=A0=
=A0=A0 End Sub<br><blockquote style=3D"margin: 1.5em 0pt;">

 =20
    <meta name=3D"Generator" content=3D"FreshHTML v1.00">
 =20
    <p class=3D"MsoNoSpacing"><font size=3D"2" face=3D"Verdana">Atenciosame=
nte,</font></p>
    <p class=3D"MsoNoSpacing"><b><font size=3D"2" face=3D"Verdana"><em>Juni=
or</em></font></b></p><p class=3D"MsoNoSpacing"></p>
    <p class=3D"MsoNoSpacing"><span class=3D"MsoSubtleEmphasis"><span style=
=3D""></span></span></p>
    <p class=3D"MsoNoSpacing"><font face=3D"Verdana"><font size=3D"2"><span=
 class=3D"MsoSubtleEmphasis"><span style=3D"">&quot;</span>Um
    problema s=F3 existe, quando est=E3o presentes todas as condi=E7=F5es
    para solucion=E1-lo</span><span class=3D"MsoSubtleEmphasis"><span style=
=3D"">&quot;</span></span></font></font></p>
  </blockquote><br><br><div class=3D"gmail_quote">2009/6/25 Armando Leopold=
o Keller <span dir=3D"ltr">&lt;<a href=3D"mailto:alk...@hotmail.com">alksk8=
@hotmail.com</a>&gt;</span><br><blockquote class=3D"gmail_quote" style=3D"b=
order-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; paddin=
g-left: 1ex;">

<br>
Ol=E1, provavelmente n=E3o vais poder executar nada externo por quest=E3o d=
e<br>
seguran=E7a (ja vi gambiarra de abrir como link mas dai abre o browser :P,<=
br>
logo n=E3o =E9 muito recomendado).<br>
Porem tem algumas coisas que podem ser feitas, como por exemplo a<br>
comunica=E7=E3o por socket, pode deixar um programa &quot;escutando&quot; o=
 AIR (pode ser<br>
um servi=E7o tambem) e ele se comunica com o terminal.<br>
Vamos supor que voc=EA criou um instalador personalizado para a sua aplica=
=E7=E3o,<br>
no meio dele =E9 instalado a aplica=E7=E3o em AIR, e ja guarda o caminho on=
de vai<br>
ser instalado, depois disso, troque o executavel por um outro programa que<=
br>
chame o executavel original e o seu programa &quot;ouvinte&quot; assim os d=
ois<br>
iniciar=E3o ao mesmo tempo, e n=E3o esque=E7a de fechar o ouvinte ao fechar=
 a<br>
aplica=E7=E3o.<br>
Tem um exemplo de comunica=E7=E3o desse tipo em<br>
<a href=3D"http://armandokeller.com/blog/?p=3D41" target=3D"_blank">http://=
armandokeller.com/blog/?p=3D41</a> que utiliza python como linguagem<br>
externa, mas a logica =E9 a mesma para qualquer outra linguagem.<br>
Qualquer duvida =E9 s=F3 entrar em contato.<br>
<br>
<br>
Att.<br>
Armando Leopoldo Keller<br>
<br>
--------------------------------------------------<br>
From: &quot;Jayarruda&quot; &lt;<a href=3D"mailto:jay.net...@gmail.com">jay=
.net...@gmail.com</a>&gt;<br>
Sent: Wednesday, June 24, 2009 11:45 PM<br>
To: &quot;AIR-Brasil&quot; &lt;<a href=3D"mailto:air-bra...@googlegroups.co=
m">air-brasil@googlegroups.com</a>&gt;<br>
Subject: [AIR-Brasil] Air com VBScript<br>
<div><div></div><div class=3D"h5"><br>
&gt;<br>
&gt; Tudo bem pessoal,<br>
&gt;<br>
&gt; Algu=E9m pode me informar se =E9 possivel executar VBScript dentro de =
uma<br>
&gt; aplica=E7=E3o Air ???<br>
&gt; Preciso conectar essa aplica=E7=E3o com um emulador de terminal IBM, e=
 as<br>
&gt; linguagens dispon=EDveis<br>
&gt; para conex=E3o s=E3o C, VB, VBScript e Delphi.<br>
&gt;<br>
&gt; Agrade=E7o qualquer ajuda.<br>
&gt;<br>
&gt; Sem mais,<br>
&gt;<br>
&gt; Junior<br>
&gt;<br>
&gt; &gt;<br>
&gt;<br>
<br>
</div></div><br>
</blockquote></div><br>

--0015175cba549f2de6046d37ed52--