vbsample.vb
1.74 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
'
' "Software pw3270, desenvolvido com base nos códigos fontes do WC3270 e X3270
' (Paul Mattes Paul.Mattes@usa.net), de emulação de terminal 3270 para acesso a
' aplicativos mainframe. Registro no INPI sob o nome G3270.
'
' Copyright (C) <2008> <Banco do Brasil S.A.>
'
' Este programa é software livre. Você pode redistribuí-lo e/ou modificá-lo sob
' os termos da GPL v.2 - Licença Pública Geral GNU, conforme publicado pela
' Free Software Foundation.
'
' Este programa é distribuído na expectativa de ser útil, mas SEM QUALQUER
' GARANTIA; sem mesmo a garantia implícita de COMERCIALIZAÇÃO ou de ADEQUAÇÃO
' A QUALQUER PROPÓSITO EM PARTICULAR. Consulte a Licença Pública Geral GNU para
' obter mais detalhes.
'
' Você deve ter recebido uma cópia da Licença Pública Geral GNU junto com este
' programa; se não, escreva para a Free Software Foundation, Inc., 51 Franklin
' St, Fifth Floor, Boston, MA 02110-1301 USA
'
' Este programa está nomeado como vbsample.vb e possui - linhas de código.
'
' Contatos:
'
' perry.werneck@gmail.com (Alexandre Perry de Souza Werneck)
' erico.mendonca@gmail.com (Erico Mascarenhas Mendonça)
'
Imports System
' This module houses the application's entry point.
Public Module modmain
' Application's entry point.
Sub Main()
dim host as new pw3270.Session("")
Console.WriteLine("Using pw3270 version " + host.getVersion() + " revision " + host.GetRevision())
Console.WriteLine("Screen size is " + host.GetWidth() + "x" + host.GetHeigth())
host.Connect("tn3270://zos.efglobe.com:telnet",10)
if host.IsConnected() then
Console.WriteLine("Connected to host")
Console.WriteLine(host.GetStringAt(14,19,38))
host.Disconnect()
End If
End Sub
End Module