Imprimir Página - Como enviar datos por visual basic

Título: Como enviar datos por visual basic
Publicado por: Banker25 en 7 Abril 2008, 17:37 pm

Hola a todos

Tengo una Duda ENORME, como puedo manipular datos por el puerto paralelo de la computadora, yo tengo el visual basic 6.0 , necesito algun accesirio accesoria si me pueden ayudar se los agradezco....

GRACIAS

Título: Re: Como enviar datos por visual basic
Publicado por: EsTeBaN~ en 7 Abril 2008, 19:25 pm

Cita de: Banker25 en 7 Abril 2008, 17:37 pm

Hola a todos

Tengo una Duda ENORME, como puedo manipular datos por el puerto paralelo de la computadora, yo tengo el visual basic 0.6 , necesito algun accesirio accesoria si me pueden ayudar se los agradezco....

GRACIAS

No creo que tengas la versión 0.6 del Visual Basic, yo creo que tenés la versión 6.0

Ahora vamos con lo del puerto paralelo, si estas hablando de manejar la impresora (ya que en la mayoría de las veces la impresora es la que está conectada al puertos paralelo) sería mas fácil, pero si estás hablando completamente del puerto paralelo, osea que si conectas otro dispositivo mande los bytes que vos quieras, creo que se complica más, no voy a explicar toda la teoría ya que no creo que tengas los conocimientos necesarios, y si los tenes, perdón y tampoco voy a explicar xD

Si buscas en google yo creo que te va a aparecer bastante información.

;)

Título: Re: Como enviar datos por visual basic
Publicado por: Sancho.Mazorka en 8 Abril 2008, 05:50 am

Busca informacion sobre la IO.DLL, descargala y buscate las APIS correspondiente creo que son 9 o 10, maneja desde lectura y escritura hasta captar en forma ordenada por MSB y LSB:

Ahi tienes la lista de APIs con una corta descripcion de cada una y la DLL para descargar!

http://www.pablin.com.ar/computer/programa/vb/iodll.htm (http://www.pablin.com.ar/computer/programa/vb/iodll.htm)

Webs con codigo de como usar esta API y varios proyectos:

http://www.yoreparo.com/foros/software/157617.html (http://www.yoreparo.com/foros/software/157617.html)
http://www.mygnet.net/codigos/vb/varios/manejo_del_puerto_paralelo_lpt_en_vb_6.1387 (http://www.mygnet.net/codigos/vb/varios/manejo_del_puerto_paralelo_lpt_en_vb_6.1387)
http://www.ucontrol.com.ar/Articulos/adcpp/adcpp.htm (http://www.ucontrol.com.ar/Articulos/adcpp/adcpp.htm)
http://japerfer.wordpress.com/2007/08/01/programacion-del-puerto-paralelo-con-vb-ampliacion-ii/ (http://japerfer.wordpress.com/2007/08/01/programacion-del-puerto-paralelo-con-vb-ampliacion-ii/)

Te dejo un dato importante x si no sabes:
* LPT1 = &H378 (Solo escritura del puerto paralelo y verificar estados)
* LPT2 = &H278 (Creo que era 278, permite leer datos del puerto paralelo)

Y Tambien usa el buscador, se hablo 3 o 5 veces de esto y en el sub-foro de electronica tambien se ha hablado esto sino me equivoco!

Sancho.Mazorka :¬¬

Título: Re: Como enviar datos por visual basic
Publicado por: jferri en 8 Abril 2009, 17:16 pm

Hola, necesito un poco de ayuda.
tengo que enviar un contenido de un textbox al puerto 5254 alguien puede decirme como tengo que conectarme a el y despues enviar el contenido del textbox, si puediera poner agun fragmento de codigo lo agradeceria mogollon, muchas gracias.

mi direccion de correo esta visile, porfavor contesten lo antes posible, muchisimas gracias

Título: Re: Como enviar datos por visual basic
Publicado por: MxCGen(); en 8 Abril 2009, 17:51 pm

Aquí te dejo el código que hace lo que pides pero con AutoIT.

Código:


#include <GUIConstants.au3>

; Iniciar los servicios TCP
;==============================================
TCPStartUp()



Dim $szIPADDRESS = "127.0.0.1"
Dim $nPORT = 5254


; Iniciar la variable que representa la conexión
;==============================================
Dim $ConnectedSocket = -1


;Intenta conectarse al puerto 5254 con la ip 127.0.0.1 (loopback)
;=======================================================
$ConnectedSocket = TCPConnect($szIPADDRESS,$nPORT)


Dim $szData

; Si hay error al tratar de conectarse
If @error Then
    MsgBox(4112,"Error","Conexión fallida con el msg: " & @error)
; Si todo va bien
;   
Else
;Loop infinito que pide datos en el input box 
    While 1
    ; InputBox for data to transmit
        $szData = InputBox("Datos a enviar",@LF & @LF & "Ingrese los datos que se enviaran al puerto:")
        
    ; Si se le da cancel al inputobox se cierra el script
        If @error Or $szData = "" Then ExitLoop
        
    ; Enviemos los datos al socket
        TCPSend($ConnectedSocket,$szData)
        
    ; Si no se puede enviar termina script
    ;----------------------------------------------------------------
        If @error Then ExitLoop
    WEnd
EndIf

Aquí puedes conseguir AutoIT, es un lenguaje muy fácil....
Puedes compilarlo y hacer un .exe y comprimir con UPX, ofuscar el código etc. etc.

http://www.autoitscript.com/autoit3/downloads.shtml (http://www.autoitscript.com/autoit3/downloads.shtml)

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Banker25 en 7 Abril 2008, 17:37 pm