| |
|
123
|
Programación / Programación Visual Basic / Re: Problema con envio archivos por winsock
|
en: 15 Octubre 2011, 03:00 am
|
Utiliza el depurador. en la linea: cambiala a: dim hFile As Integer
hFile = FreeFile()
Open arxivo For Binary Access Write Lock Write As hFile
Put #hFile, 1, arxivo ** si estas recibiendo 1 archivo y te llega otra conexion entonces no podés abrir 2 archivos con un mismo identificador ** Y respecto a tu código, la mejor respuesta que puedo darte es que Depures, linea por línea. Ahí encontrarás en que te equivocaste. Te digo también, que las conexiones wsock son asyncronas por lo que si pones: wsock.connect remoteHost, remotePort
wsock.SendData "Hola Mundo!" no necesariamente se conectará de inmediato y por lo tanto, la linea contigua dará error pues no puede enviar datos si aun sigue conectandose. Te recomiendo hacer una rutina en donde esperes a que se conecte para luego seguir ejecutando código. Ej: wsock.Connect remoteHost, remotePort
If (waitForConnect(wsock, varSecondsToWait) = True) ' se conectó?
'// Codigo a ejecutar ahora que ya se conectó
End If
|
|
|
|
|
124
|
Programación / Programación Visual Basic / Re: vb6 es tonto
|
en: 8 Octubre 2011, 00:27 am
|
No han escuchado por ahí o leído de que VB comprueba desde la izquierda hacia la derecha?? Por ejemplo en: If (A=True) Or (B=False) Then ... Comprueba si B=False y Luego si A=True. Eso lo tengo en mi memoria hace unos años que leí eso. Aunq me da flojera comprobarlo, ahora que salió el tema a la "parrilla"  P.D.: Siempre se ha sabido de las falencias de la Microsoft con Todos sus productos, aunq ya deberían saberlo y da risa cuando sale uno alegando por los defectos =D |
|
|
|
|
125
|
Programación / Programación Visual Basic / Re: Llevar las imagenes en recurso?
|
en: 1 Octubre 2011, 22:50 pm
|
Puedes guardar la imagen en tu Aplicación como parte del Objeto ImageBox o PictureBox o decidir cargarla desde un archivo de recursos añadido a tu ejecutable, muy util si tu aplicación necesita de cambiar las imagenes (publicidad tal vez, o imagenes de pieles y cosas bonitas XD ) y también tienes la posibilidad de cargar imagenes desde el sistema de archivos del S.O. Incluso podés hasta dibujar tu mismo las imagenes mediante los hDC pero eso es muy avanzado  jejeje. Picture1.Image = LoadPicture(App.Path & "\miImage.jpg")
Picture1.Image = LoadResPicture(resID, vbResBitmap)
Todo dependerá del uso que tiene tu aplicación. Para mi guardar la imagen en el Objeto es sencillo y no necesitas codigo por lo que te servirá mucho. |
|
|
|
|
126
|
Programación / Programación Visual Basic / Re: servidor
|
en: 1 Octubre 2011, 22:39 pm
|
Hola, respecto a tus dudas: Si se puede hacer uso de las Apis de windows para no depender del .ocx mas específicamente del MSWINSOCK.OCX, el cual puedes incluir en tus programas si es que decides utilizarlo y no habrá problemas si sabes registrarlo (regsvr32? te suena?) Bueno, y con la aplicación cliente-servidor, podés hacer ambos en un solo ejecutable si es que eres tan pillo  ... Las apis para usar del S.O. son: Public Declare Function accept Lib "wsock32.dll" (ByVal s As Long, addr As sockaddr, addrlen As Long) As Long
Public Declare Function bind Lib "wsock32.dll" (ByVal s As Long, addr As sockaddr, ByVal namelen As Long) As Long
Public Declare Function closesocket Lib "wsock32.dll" (ByVal s As Long) As Long
Public Declare Function htons Lib "wsock32.dll" (ByVal hostshort As Long) As Integer
Public Declare Function inet_addr Lib "wsock32.dll" (ByVal cp As String) As Long
Public Declare Function inet_ntoa Lib "wsock32.dll" (ByVal inn As Long) As Long
Public Declare Function listen Lib "wsock32.dll" (ByVal s As Long, ByVal backlog As Long) As Long
Public Declare Function recv Lib "wsock32.dll" (ByVal s As Long, ByVal buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
Public Declare Function send Lib "wsock32.dll" (ByVal s As Long, buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
Public Declare Function socket Lib "wsock32.dll" (ByVal af As Long, ByVal s_type As Long, ByVal protocol As Long) As Long
Public Declare Function gethostbyname Lib "wsock32.dll" (ByVal host_name As String) As Long
Public Declare Function gethostname Lib "wsock32.dll" (ByVal host_name As String, ByVal namelen As Long) As Long
Public Declare Function WSAStartup Lib "wsock32.dll" (ByVal wVR As Long, lpWSAD As WSADataType) As Long
Public Declare Function WSACleanup Lib "wsock32.dll" () As Long
Public Declare Function WSAAsyncSelect Lib "wsock32.dll" (ByVal s As Long, ByVal hWnd As Long, ByVal wMsg As Long, ByVal lEvent As Long) As Long
y tambien del Api del wininet.dll aunq no las tengo a mano busque y aprenda!! ...o vayase a lo fácil con el MSWINSOCK.OCX que para eso es Visual Basic, sinó, descubra al padre todo poderoso leguaje C |
|
|
|
|
127
|
Programación / Programación Visual Basic / Re: problemas en creacion de un proxy
|
en: 24 Septiembre 2011, 04:00 am
|
Gracias por la ayuda! jajajaja Resolví mi problema por ahí revisando códigos... Dejo la solución para los demás... Encontré 2 formas: #1 ' Poner la propiedad Index del objeto a 0 lo que
' hace es crear un Array() del objeto
' Setearlo en la edicion de la App pues en ejecucion
' el valor Index es de solo lectura.
Objeto WSock.Index = 0
' para crear otro WSock solo hay que ampliar la matriz
Load WSock(0) ' iniciar la matriz!!
' crear un nuevo objeto
Load WSock(WSock.Ubound + 1)
' Cuidado!
' para recibir los eventos de los Objetos en una matriz
' se reciben en la misma funcion. EJ:
Private Sub WSock_Connect(Index As Integer)
' Noten el argumento Index, éste hace mencion al indice en
' nuestra matriz del Objecto que hemos creado.
if WSock(Index).status = sckConected then MsgBox "Conectado!"
' para quitar un Objeto de la matriz
Unload WSock(Index)
'// CODE...
End Sub
#2 ' Crear un modulo de objeto y agregar el objeto WSock a las
' librerias de la aplicacion y poner en en modulo:
Private With Events WSock As Winsock
' y cada vez que se quiera crear un nuevo objeto, en el formulario
' o en en algun modulo solo:
dim varObj() As New nombreDelModuloDeObjeto
redim varObj(0)
' .... // CODIGO:
Ahora tengo otro problema, mi Proxy funciona con el comando GET pero no con los demás comandos tales como el POST, CONECT y con el protocolo HTTPS he buscado info pero no me dicen mucho, RUEGO por ayuda Necesito a algun programador experimentado en Visual Basic 6.0 que me ayude please, dejo mi Skype: ABRAHAMARAON
|
|
|
|
|
130
|
Programación / Programación Visual Basic / [aporte] MIME identificar archivos por su contenido
|
en: 22 Septiembre 2011, 07:37 am
|
Mas de alguno a querido saber el tipo de algun archivo como lo hacen los sistemas basados en UNIX basandose puramente en su contenido, pues he creado un modulo ocupando esa información para que nada se les escape, se llama MIME.
Descripción:
Módulo que intenta detectar el tipo de los archivos basandose en su contenido. Mediante los conocidos Magics. Contiene al menos 317 entradas que identifican archivos, incluyendo texto, musica, imagen, videos y otros.
Ej de que son los magics:
cangrejo_canguroo.pdf --> MAGIC = "%PDF-" --> MIME = "application/pdf" --> EXTENSION = "pdf"
Usos:
Tiene un montón de usos, desde saber si el archivo solicitado es realmente del tipo de archivo requerido, listar todos los archivos de un tipo por ejemplo MSWord, reconocer ejecutables camuflados, organizacion de archivos... etc.
Estaré actualizando el codigo recurrentemente por lo que se aceptan sugerencias y mejoras, claro pueden ir diciendome sus propios magics para añadirlos a la lista o hacer peticiones sobre archivos.
|
|
|
|
|
|
| |
|
Mostrar Mensajes
