Mensajes

Busca sobre Url Amigables,

Ejmplo tenes el archivo llamado asdadssda.php
vos pones /asdadssda en tu navegador y agarra el asdadssda.php


Busca sobre Url Amigable o dejame que llege a mi casa y te paso el codigo

Una forma sensilla de hacerlo es:

Pedir los datos imprimirlos en imput y editarlos y dps al apretar el boton hace el UPDATE en la base de datos

Yo aporto el que modifique yo para que sea automatico.

Sist. de ranking, crear ranking y sistema de indentificador

Para crear muchos ranking con un solo archivo, tiene sistema para reconocer el admin y bla bla


Para que anden tienen q editar 2 cosas:

1 - en rank/rank.php

donde dice

$pass2 = "1"; // la pass para que nadie pueda crear ranking
$web = "www.tuweb.com.ar"; // tu web xD no es nesesario pero para que quede mas automatisado el script

ponen su contraseña que decean para autenficarse y su web.

descarga: http://www.megaupload.com/?d=DG46YKCX

Listo gracias ahi me anda

Codigo del visual basic:

Código (vb) [Seleccionar] Expandir

Const Host As String = "localhost" 'Constante del host

Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub Form_Load()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
    Command1.Enabled = False
Dim Peticion$
Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Length: 197" & vbCrLf & _
            vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
            "Content-Type: image/jpeg" & vbCrLf & _
            vbCrLf & _
            "Soy un jpg modificado!!!" & vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"
           
Winsock1.SendData Peticion 'Mandamos la peticion
Else
    Command1.Enabled = True
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Datos$
Winsock1.GetData Datos, vbString, bytesTotal 'Obtenemos los datos
Text2.Text = Datos
End Sub


Codigo html de la web:

Código (html4strict) [Seleccionar] Expandir

<form method="POST" enctype="multipart/form-data" action="upl2.php">
<input type="file" name="archivo" size="20">
<input type="submit" value="Enviar" name="send">
<input type="reset" value="Borrar" name="erase">
</form>

Codigo php de la web

Código (php) [Seleccionar] Expandir

<link href="style-def.css" rel="stylesheet" type="text/css" />
<?php require('config.php');?>
<a target="_self" border="0" href="<?php $tusitio ?>index.php">Inicio</a> |&nbsp;<a border="0" href="<?php $tusitio ?>gallery.php">Galeria</a> |&nbsp;<a border="0" href="http://entra-ya.com.ar/">Upload by entra-ya</a></br></br>
<?
if($_POST['send']){ ?><?
$prefijo = substr(md5(uniqid(rand())),0,10);
$extensiones=array("html","exe","php","js","asp","PHP","Php","pHp","phP","PHp","PhP","pHP");
$nombre=$_FILES['archivo']['name'];
$tamanio=$_FILES['archivo']['size'];
$tipo=$_FILES['archivo']['type'];
$var = explode(".","$nombre");
$num = count($extensiones);
$valor = $num-1;
$destino =  "tmp/".$prefijo."_".$_FILES["archivo"]['name'].".".$var[1];
for($i=0; $i<=$valor; $i++) {
    if($extensiones[$i] == $var[1]) {
    echo "Tipo de Archivo no admitido";
    exit;
    }
}
if (is_uploaded_file($_FILES['archivo']['tmp_name']))
{
  copy($_FILES['archivo']['tmp_name'],$destino);
  echo "$tusitio$destino";
  echo "</br></br>";
  echo "Datos: </p>";
  echo "Tamaño: $tamanio Bytes</br>";
  echo "Tipo: $tipo";
}
else { echo "Error al subir el archivo"; }
?><? } ?>


El problema es que yo puedo enviar datos al upload y me sube la imagen que mando pero cuando le pongo esto if($_POST['send']){ que para comprobar si apretaste el boton SEND en el html no me deja subir la imagen por visual basic porque no c donde poner send=Enviar en visual basic 6

Espero que se entianda mi duda

Código (vb) [Seleccionar] Expandir

Const Host As String = "localhost" 'Constante del host
Private Sub Command1_Click()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub Command2_Click()
Dim Peticion$
Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Length: 197" & vbCrLf & _
            vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
            "Content-Type: image/jpeg" & vbCrLf & _
            vbCrLf & _
            "Soy un jpg modificado!!!" & vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"

Winsock1.SendData Peticion 'Mandamos la peticion
End Sub

Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
    Command1.Enabled = False
    Command2.Enabled = True
Else
    Command1.Enabled = True
    Command2.Enabled = False
End If
End Sub


Tengo ese codigo como hago para que envie sin parar el archivo al servidor

LO mando via post con Winsock

ya intente poner
Winsock1.SendData Peticion otra ves mas pero no lo envie de nuevo

Un bucle andara ?

Ustedes que son re sabios en este programa me pueden tirar algun consejo ?

Alguna idea ?

Estoy haciendo un flood para VB 6 que envia repetidas veces. El codigo lo consegi todo aca en el foro. lo fui modificando segun mi necesidad. pero quiero que me pida veces al subir el archivo y al apretar enviarflood se mande esas veces que dije antes.

este es el codigo

Código (vb) [Seleccionar] Expandir

Const Host As String = "localhost" 'Constante del host
Private Sub Command1_Click()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub Command2_Click()
Dim Peticion$
Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Length: 197" & vbCrLf & _
            vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
            "Content-Type: image/jpeg" & vbCrLf & _
            vbCrLf & _
            "Soy un jpg modificado!!!" & vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"

Winsock1.SendData Peticion 'Mandamos la peticion
End Sub

Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
    Command1.Enabled = False
    Command2.Enabled = True
Else
    Command1.Enabled = True
    Command2.Enabled = False
End If
End Sub


y con el flood ya agregado el codigo seria

Código (vb) [Seleccionar] Expandir

Const Host As String = "localhost" 'Constante del host
Private Sub Command1_Click()
Winsock1.Connect Host, 80 'Conectamos al host
End Sub

Private Sub txtEnvios_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 13
KeyAscii = 0
Case 8, 43 To 46, 48 To 57
Case Else
KeyAscii = 0
Beep
End Select
End Sub

Private Sub Command2_Click()
timerFlood.Enabled = True
End Sub

Private Sub timerFlood_Timer()
For X = 1 To txtEnvios.Text
Dim Peticion$
Peticion = "POST /archivos/upl2.php HTTP/1.0" & vbCrLf & _
            "Host: " & Host & vbCrLf & _
            "Content-Type: multipart/form-data, boundary=tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Length: 197" & vbCrLf & _
            vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil" & vbCrLf & _
            "Content-Disposition: form-data; name='archivo'; filename='imagen.jpg'" & vbCrLf & _
            "Content-Type: image/jpeg" & vbCrLf & _
            vbCrLf & _
            "Soy un jpg modificado!!!" & vbCrLf & _
            "--tyoasEdRQLsovS3LUFPBS5Eyy7tOwzil—"

Winsock1.SendData Peticion 'Mandamos la peticion
Next X
timerFlood.Enabled = False
End Sub

Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then 'Checamos si la conexion es activa o no
    Command1.Enabled = False
    Command2.Enabled = True
Else
    Command1.Enabled = True
    Command2.Enabled = False
End If
End Sub

No me tira ningun error pero tampoco sube las imagenes :S

¿Cual puede ser el error?