Hola,
Estoy iniciando en el mundo de la programación c/c++ y me surgió el siguiente problema.

Con cURL pongo el código de fuente de una web en una variable, y quiero sacar lo que esta dentro de los codigos <h2> y </h2> para ello, utilizo las expresiones regulares que vienen con C++11 donde las llamo con #include <regex>.

Texto de ejemplo

texto mas texto<h2>asd</h2>texto mas texto

Expresion regular regex

.*<h2>(.*)</h2>.*

Me devuelve

  submatch 0: texto mas texto<h2>asd</h2>texto mas texto
  submatch 1: >asd</h2>texto mas texto
 
Process returned 0 (0x0)   execution time : 0.874 s
Press any key to continue.
 

Código:

int main()
{
       string s ("texto mas texto<h2>asd</h2>texto mas texto");
       regex e (".*<h2>(.*)</h2>.*");
       smatch sm;
       regex_match (s,sm,e);
       for (unsigned i=0; i<sm.size(); ++i) {
         cout << "  submatch " << i << ": " << sm[i] << '\n';
       }
    return 0;
}

¿Como seria la expresión regular correcta?


Gracias

Hola, vengo a aclarar que sobre el tema se muy poco, por no decir nada.

El problema que tengo es que en mi hosting (Ya hable con ellos y me dijeron que el problema era mio) no puedo subir archivos via FTP, ni entrar a mi web si en el admin del modem/router TD-W8960N no pongo en DMZ HOST mi dirección de ip privada (de lan).

El problema es que si pongo en DMZ HOST mi ip privada, voy a tener todos los puertos abiertos hacía mi pc (ese no es el problema) el problema esta que no me anda ni facebook, ni paypal y ni el msn cuando hago eso. Solamente me anda mi web que era la que tenia el problema.

Di muchas vueltas lo se, aca lo dejo rapido, si pongo mi ip privada en el DMZ HOST del router/modem, me anda mi web(navegar por ella y subir archivos via ftp al hosting), pero no facebook, paypal, ect.

¿Cual puede ser el problema?

User: marcofbb
mail: marco.fbb@gmail.com

envien un mail con la pass nueva gracias :p

¿Que mods tiene?

Ya que veo que tiene buen seo, y la mayoria de los SMF vienen con pesimo seo.

Solo quiero saber esa pregunta o si le isieron alguna modificasion a los meta tags ect

Codigo del visual basic:

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:

<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

<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

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 ?

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

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

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?