Mensajes

Prueba utilizando el

FileCopy

la recomendación es que kuando los envies vacies el fichero de texto de la makina local

ok gracias poer vuestras respuestas

Utilliza microsoft CDO de los referencias de visual basic

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/337-enviar-correo-en-vb-con-microsoft-cdo.htm

aqui tienes un ejemplp

Hola pues resulta que tengo un programa i en el modulo tengo unas constantes de configuración, la pregunta es como podria ajustar el valor de esas variables sin tener que recompilarlo con visual basic 

Ante todo gracias por las respuestas

a i una duda visual basic 6 genera codigo binario o es interpretado ?

mirate este chat que hice a ver si te facilita algo

http://rapidshare.com/files/38399083/chat.zip.html

public function esta_conectado() as boolean

dim ip as string

ip = winsock1.LocalIP

if strcomp(ip,"127.0.0.1")=0 then
esta_conectado = false
else
esta_conectado = true
end if



end sub

a ver colega  te explico como lo hago yo a continuación esto sería una función que te delvolvería si exisite la llave

Código [Seleccionar] Expandir


Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
public Const REG_SZ = 1& 'para saber si es alfanumerico


Código [Seleccionar] Expandir



private function is_key_registered()as boolean

Dim buffer as string
Dim lngType as long
Dim lngBuff as long

buffer = Space$(256)

lngBuff = len(buffer)

RegOpenKey HKEY_LOCAL_MACHINE,"SOFTWARE\Microsoft\Windows\CurrentVersion\Run",h

ret = RegqueryValueEx (h,"nombredelvalor",0,lngType,ByVal buffer,lngBuff)

RegCloseKey h

if ret = 0 and lngType = REG_SZ and lngBuff>1 then
is_key_registered = true

else
is_key_registered = false
end if

'puedes acceder al valor haciendo por ejemplo
'un msgbox del buffer y te enseñará el valor

end function



espero que te sirva 

si tienes algun problema dilo 

hasta luego

Hola querria preguntaros en que tipo de variable puedo guardar gran cantidad de texto temporalmente ?


uns string cuanto me aguanta?

gracias

Doy por supuesto que sabeis establecer la conexion entre los dos programas

Código [Seleccionar] Expandir


Codigo para el cliente , avisar al server  con una constante para empezar la transaccion

const COMENZAR = 1 ' para preparar la tranferencia
const OK_TRANSFER = 2 'para comenzar la transferencia
dim preparado as boolean
dim tamaño_total as long
dim bytes_recibidos as long

private sub form_load()
preparado = false
recibido = 0
end sub

private sub comenzar()

winsock1.sendata COMENZAR

end sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

dim file() as byte 'array del alamacen del archivo

if not preparado then 

Winsock1.getdata data , vbstring

tamaño_total = clng(data) 'obtenemos su tamaño

preparado = true 'nos preparamos para recibir
recibido = recibido + bytestotal 'sumamos los bits que hemos recibido
redim file(tamaño_total-1)'redimensionamos el array
open "c:\fichero.jpg" for binary access write as #1
'abrimos el fichero

winsock1.sendata OK_TRANSFER

else
winsock1.getdata archivo 'obtenemos los byte que van llegando

put #1,,archivo 'escribimos
recibido = recibido + bytestotal 'vamos acumulando lo que recibimos

if recibido >= tamaño_total then
close #1 'si recibido es mayor igual cerramos el archivo
MsgBox "Descarga completa",vbokonly,"Cliente"
end if


end if
End Sub






Ahora el codigo del server

Código [Seleccionar] Expandir


const COMENZAR = 1 ' para preparar la tranferencia
const OK_TRANSFER = 2 'para comenzar la transferencia

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim cmd As Integer


Winsock2.GetData cmd, vbInteger

select case(cmd)

case COMENZAR
call enviar_grandaria
case OK_TRANSFER
call enviar_fichero
end select

End Sub

private sub enviar_grandaria()
dim size as string


open "c:\archivo.jpg" for binary access read as #1

size = cstr(lof(1))' su tamaño

close #1

winsock2.sendata size 0enviamos el tamaño
ens sub

private sub enviar_fichero()

dim archivo() as byte 'array almacen

open "c:\archvo.jpg" for binary access read as #1
redim archivo(LOF(1)-1) 'redimensionams el array

get#1,,archivo



close #1

winsock2.sendata archivo 'le enviamos el archivo

end sub