Mensajes

[Bueno esto es todo....]

Hola a todos amigos de El HACKER bueno tiempo sin publicar nada pero aqui estoy , bueno a lo que vine...

Bueno para empezar mi duda es como ago para cambiar Un Texto por una serie de 5 digitos al azar .

Bueno talves esto suena un poco confuso pero ahora se los aclaro.

Es lo siguiente estoy creando una pequeña pagina de descara y pues bueno esto es lo que tengo este es el Upload.php

Código [Seleccionar] Expandir


<?php
// Simple Script Para Subir Archivos Por :  Por Brian1511

$uploadpath = 'apk/';      // directory to store the uploaded files
$max_size = 15000;          // maximum file size, in KiloBytes
$alwidth = 1200;            // maximum allowed width, in pixels
$alheight = 900;           // maximum allowed height, in pixels
$allowtype = array('bmp', 'gif', 'jpg', 'jpe', 'png', 'apk', 'exe', 'jar', 'zip', 'rar', 'jdk', 'tar');        // allowed extensions

if(isset($_FILES['fileup']) && strlen($_FILES['fileup']['name']) > 1) {
  $uploadpath = $uploadpath . basename( $_FILES['fileup']['name']);       // gets the file name
  $sepext = explode('.', strtolower($_FILES['fileup']['name']));
  $type = end($sepext);       // gets extension
  list($width, $height) = getimagesize($_FILES['fileup']['tmp_name']);     // gets image width and height
  $err = '';         // to store the errors

  // Checks if the file has allowed type, size, width and height (for images)
  if(!in_array($type, $allowtype)) $err .= 'El Archivo: <b>'. $_FILES['fileup']['name']. '</b> not has the allowed extension type.';
  if($_FILES['fileup']['size'] > $max_size*1000) $err .= '<br/>Maximum file size must be: '. $max_size. ' KB.';
  if(isset($width) && isset($height) && ($width >= $alwidth || $height >= $alheight)) $err .= '<br/>The maximum Width x Height must be: '. $alwidth. ' x '. $alheight;

  // If no errors, upload the image, else, output the errors
  if($err == '') {
    if(move_uploaded_file($_FILES['fileup']['tmp_name'], $uploadpath)) { 
      echo 'File: <b>'. basename( $_FILES['fileup']['name']). '</b> Carga Completa:';
      echo '<br/>Tipo de Archivo: <b>'. $_FILES['fileup']['type'] .'</b>';
      echo '<br />Tamaño: <b>'. number_format($_FILES['fileup']['size']/1024, 3, '.', '') .'</b> KB';
      if(isset($width) && isset($height)) echo '<br/>Image Width x Height: '. $width. ' x '. $height;
      echo '<br/><br/>Direccion del Archivo: <b>http://'.$_SERVER['HTTP_HOST'].rtrim(dirname($_SERVER['REQUEST_URI']), '\\/').'/'.$uploadpath.'</b>';




?>


<?



}
    else echo '<b>Imposible cargar el archivo.</b>';
  }
  else echo $err;
}
?>
<div style="margin:1em auto; width:333px; text-align:center;">
<form action="<?php echo $_SERVER['PHP_SELF']; ?>" method="POST" enctype="multipart/form-data">
  Subir Archivo: <input type="file" name="fileup" /><br/>
  <input type="submit" name='submit' value="Subir Archivo" />
</form>
</div>

Y bueno lo que quiero es que a la hora de darme el Link de descarga el Nombre del Archivo se Reemplaze con 5 digitos que se generen aleatorio .

Esta es la Parte que me da la Info y el Link de Ultimo...

// If no errors, upload the image, else, output the errors
  if($err == '') {
    if(move_uploaded_file($_FILES['fileup']['tmp_name'], $uploadpath)) {
      echo 'File: <b>'. basename( $_FILES['fileup']['name']). '</b> Carga Completa:';
      echo '<br/>Tipo de Archivo: <b>'. $_FILES['fileup']['type'] .'</b>';
      echo '<br />Tamaño: <b>'. number_format($_FILES['fileup']['size']/1024, 3, '.', '') .'</b> KB';
      if(isset($width) && isset($height)) echo '<br/>Image Width x Height: '. $width. ' x '. $height;
      echo '<br/><br/>Direccion del Archivo: <b>http://'.$_SERVER['HTTP_HOST'].rtrim(dirname($_SERVER['REQUEST_URI']),

'\\/').'/'.$uploadpath.'</b>';

Bueno esto es todo.... espero que me puedan ayudar , gracias de antemano.

Muchas gracias amigo ya lo pruebo y te digo si me sirvio ,

Gracias..

Saludos

Hola amigo , bueno como ya dice en el titulo pues necesito saber como hacer eso y no necesito el manuel por que ya lo lei y no me ayudo en nada

Loq ue quiero sabes es como agregar imagenes en un item del listview ya se como agregar y borrar un item .

Este es el code que uso para agregar en item!:

Código [Seleccionar] Expandir

 

'Crea las Columnas

'Variable para el Item del ListView
   Dim Item As ListItem
   
   With ListView1
       ' Agrega dos columnas
     
       .ColumnHeaders.Add , , " NOMBRE "
       .ColumnHeaders.Add , , "APELLIDO"
         .ColumnHeaders.Add , , "# DE TEL"
       ' Vista de reporte
       .View = lvwReport
       .GridLines = True
       
       
       '********************************************
'Crea los Items
Set Item = .ListItems.Add(, , "Carlos")
           
           
           'SubITem (Apellido)
           Item.SubItems(1) = "Quezada"

'SubITem (Apellido)
           Item.SubItems(2) = "0654134496"



y este es para borrarlo:

Código [Seleccionar] Expandir



'Borra un item de la lista

ListView1.ListItems.Remove (1)




Ahora bien tengo un ImageList y quisiera saber como agregar esa imagen a un cosatado del list view :

Ejemplo:

Tengo esta imagen :

http://imageshack.us/photo/my-images/593/packageinstalled.gif/

significa online


y esta :

http://imageshack.us/photo/my-images/254/packageold.gif/

significa offline..

como ago esto espero que me ayuden ..

PD: es mas o menos como lo que hace el juego de DarkOnMatix cuando alguien se conecta y aparece una imagen - significando que esta en linea y su nombre ..

Ayuda pofa !!!!!

Gracias amigo muchas gracias , Eres mi heroe tambien !! tu y Dark son lo maximo! y si tomate todo tu tiempo!

Hola a todos como estan bueno aqui les bengo con una peticion que se que es semcilla pero dificil de encontrar .

Mi siguinte duda es que estoy realizando un proyecto conexión winsock , esta pide el estado del servidor si esta - Online / o / - Offline

Ya cree un post pero nadie me di realmente lo que queria , DarkoOnMatrix me dio un ejemplo hay , muy bueno pero no es lo que queria , asi que ospido que me ayudeis

ya tengo el code del Servidor este crea controles en tiempo de ejecucion todo perfecto pero no se como hacer para el cliente.

Este es el code que uso para el servidor:

Código (cpp) [Seleccionar] Expandir



Public NumSockets As Integer '
 Public Variable
Dim ConnectionCount As Long
Dim ac As String



Private Sub Command1_Click()

If Label1.Caption = "Online" Then

Me.Command1.Caption = "Abrir Servidor"

Winsock1(Index).Close

Label1.Caption = "Offline"

Label1.ForeColor = &HFF&

state.Caption = "No hay ninguna conexión."

List1.RemoveItem (Winsock1(Index).RemoteHost)

ElseIf Label1.Caption = "Offline" Then

Me.Command1.Caption = "Cerrar Servidor"

Winsock1(Index).Close

Winsock1(0).LocalPort = "1000"

Winsock1(0).Listen

Label1.Caption = "Online"

Label1.ForeColor = &HC000&

End If
End Sub

Private Sub Form_Load()


Label1.Caption = "Online"

Label1.ForeColor = &HC000&

Winsock1(0).LocalPort = 1000

Winsock1(0).Listen

End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, _
ByVal requestID As Long)

Dim rm As String

rm = Winsock1(Index).RemoteHost

  List1.AddItem (rm & " Se ha conectado.")


Print "Connection Request from : " & _
Winsock1(Index).RemoteHostIP; NumSockets = NumSockets + 1

'//Increase Number of Sockets by one. Load Winsock1(NumSockets) '//Load a New Winsock Object Nusockets as Index Value Winsock1(NumSockets).Accept requestID
'//Accept the New Connection


End Sub
Private Sub Winsock1_DataArrival(Index As Integer, ByVal _
bytesTotal As Long)

Winsock1(Index).GetData ac, vbString

Print vtData

End Sub



Cuando se conectan el sevidor se me queda en offline pero en el list de las Ip conectadas se me agregan ¿¿Que Ago!!??

[Si con el code y eso amigo el login como haces para que cuando te registres puedas inciar sision al juego con tus datos.Me Explico :Cuando abres el programa , vas a iniciar sesionpero para inciar sesion Debes estar registrado.Los datos del registro se guardan en una base de datos de un servidor ?¿Eso es lo que quiero saber como has echo ese login amigo ¿? , que por lo que veo es el mejor que he visto...¿Tu juego esta echo con winsock?]

Si con el code y eso amigo el login como haces para que cuando te registres puedas inciar sision al juego con tus datos.

Me Explico :

Cuando abres el programa , vas a  iniciar sesion

pero para inciar sesion Debes estar registrado.

Los datos del registro se guardan en una base de datos de un servidor ?¿

Eso es lo que quiero saber como has echo ese login amigo ¿? , que por lo que veo es el mejor que he visto...

¿Tu juego esta echo con winsock?

Hola a todos como estan bueno anteriormente ise un post de como hacer un multipuertos o algo haci que era para un chat que tengo , la cual que agregue un pedidor de estado por ejemplo

Abro el Servidor lo pongo online.

Abro el Cliente y automaticamente si el servidor esta onli pues este estara online ahora bien si cierro el servidor se me pone offline el cliente y si pongo el servidor desconectado pues l cliente igual se pone offline..

Pra serles un poco mas claros aqui un par de imagenes:

Aqui automaticamente el servidor inicia el Cliente estara online!



Como pueden ver aqui pues Abro lo que es el cliente y pues me inicia Online:




Pero como pueden ver aqui si cierro la conexión osea el servidor pues los 2 estaran Offline.




Aqui vuelvo y abro la conecciondel servidor.



Aqui preciono en conectar al servidor en el form del Cliente.






Entonces aqui la gran duda mi gran problema y es que cuando voy a iniciar otro cliente pues no me conecta al servidor , ya me han dicho que sera por que el servidor esta mandando datos al cliente 1 y por eso esta ocupado y el cliente 2 no puede estar online tanbien, aqui una imagen :




Y este son los code que utiliso:


Este es para el Cliente :

Código [Seleccionar] Expandir



Dim numElementos As Integer 'numero de sockets

Dim i As Integer 'contador

Private Sub Command1_Click()
Winsock1.Close

Winsock1.RemoteHost = "127.0.0.1"

Winsock1.RemotePort = "1000"

Winsock1.Connect


End If



End Sub

Private Sub Form_Load()


Winsock1.Close

Winsock1.RemoteHost = "127.0.0.1"

Winsock1.RemotePort = "1000"

Winsock1.Connect
End Sub



Private Sub Timer1_Timer()


If Estado.Caption = "Online" Then

Frame1.Visible = True

Timer1.Enabled = False

Timer2.Enabled = True

End If



If Estado.Caption = "Offline" Then

Frame1.Visible = False

End If



End Sub

Private Sub Timer2_Timer()

If Label1.Visible = True Then
Label1.Visible = False
ElseIf Label1.Visible = False Then
Label1.Visible = True
End If


End Sub

Private Sub Winsock1_Close()
Estado.Caption = "Offline"
Estado.ForeColor = &HFF&
Command1.Enabled = True
Timer1.Enabled = True
End Sub

Private Sub Winsock1_Connect()
Timer1.Enabled = True
Estado.Caption = "Online"
Estado.ForeColor = &HC000&
Command1.Enabled = False
Dim ac As String

ac = Winsock1.LocalIP

Winsock1.SendData ac


End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

'cerramos previamente el socket

Winsock1.Close

'aceptamos la conexion

Winsock1.Accept requestID

'desplegamos un mensaje en la ventana



End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim ac As String

ac = Winsock1.LocalIP

Winsock1.SendData ac

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Timer1.Enabled = True
Estado.Caption = "Offline"
Estado.ForeColor = &HFF&
Command1.Enabled = True
End Sub



















Para el Servidor :

Código [Seleccionar] Expandir



Dim ac As String



Private Sub Command1_Click()

If Label1.Caption = "Online" Then

Me.Command1.Caption = "Abrir Servidor"

Winsock1.Close

Label1.Caption = "Offline"

Label1.ForeColor = &HFF&

state.Caption = "No hay ninguna conexión."

ElseIf Label1.Caption = "Offline" Then

Me.Command1.Caption = "Cerrar Servidor"

Winsock1.Close

Winsock1.LocalPort = "1000"

Winsock1.Listen

Label1.Caption = "Online"

Label1.ForeColor = &HC000&

End If
End Sub

Private Sub Form_Load()

'cerramos cualquier conexion previa

Winsock1.Close

'asignamos el puerto local que abriremos

Winsock1.LocalPort = "1000"

'deja el socket esuchando conexiones

Winsock1.Listen

Label1.Caption = "Online"

Label1.ForeColor = &HC000&
End Sub

Private Sub Winsock1_Connect()

state.Caption = "Obteniendo Datos..."

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

'cerramos previamente el socket

Winsock1.Close

'aceptamos la conexion

Winsock1.Accept requestID




End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Winsock1.GetData ac, vbString

state.Caption = ac & " Se ha conectado."

End Sub

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)

Winsock1.Close

state.Caption = "No hay ninguna conexión."

End Sub


Bueno si pueden ayudarme espero que lo puedan hacer , esto es todo lo que les puedo brindar para que me ayuden este es todo el code de el "Cliente" y el "Servidor".




Sabes este ejemplo te ayudara mucho: http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=60099&lngWId=1

Dark amigo , mi heroe gracias esto era lo que necesitaba eres el mejor , y gracias a todos los que me ayudaron .

Olle Dark una duda tu juego esta echo con Winsock o algo haci ?

y si no es molestia tabien podrias harme un ejemplo de como creaste tan fantastico inicio de sesion , lo he buscado por todas partes pero nada es inutil buscar y buscar , tambien lo he intentado pero he frecasado 1 y otra ves .

Espero que me puedas ayudar  y Muchisimaas Gracias!

Gracias amigos gracias , bueno heee a BlackZeroX (Astaroth)  amigo te envie un MP pero no sabia que habias contestado gracias por hacerlo , olvida ese mensaje probare lo que me pusiste ahora cualquier cosa te aviso!

Hola a todos como estan bueno he tenido un tiempito sin venir es que mi pc estaba dañada pero ya la he arreglado, bien mi duda es la siguiente:

Tengo un programa que estoy creando (Un chat multi-usuarios) la cual se conectan a un servidor , pero cuando voy a conectar otro cliente al servidor me salta un error es el siguiente:

Código [Seleccionar] Expandir

Error : "40020" en tiempo de ejecucion:

Operacion no valida en el estado actual.

Bueno espero que me puedan ayudar si necesitan mas info o la parte del code en la que conecta y eso pues se los dare enseguida , repito porfavor ayudenme es importante!