web browser y fotolog

[<--v1c1ous-->]

Tercero: Nadie, nose porque me habre imaginado que automatizar mediante un programa para postear en fotolog sin intervencion humana seria spam.
Cuarto: Esa es la parte que se saca del fotolog para mandar el POST.

[USUARIO_DE_SOFTWARE_LIBRE]

yo me acuerdo que hice un programa asi estaba re bueno jajajaj
como me diverti aquellos dias spammeando xDDDDDDDDDDDD

Primero: ¿Quien te dijo que es para spam?

pd: es para mandar spam tongue xDDD publicidad pa mi blog jejeje[/qoute]

[NYlOn]

yo me acuerdo que hice un programa asi estaba re bueno jajajaj
como me diverti aquellos dias spammeando xDDDDDDDDDDDD

Primero: ¿Quien te dijo que es para spam?

pd: es para mandar spam tongue xDDD publicidad pa mi blog jejeje[/qoute]

Lo siento, no habia leido eso.
En mi caso no quiero hacer spam. Hice un programa que sirve para subir fotos automaticamente, ver comentarios y un par de cosas mas, y me intersaba agregar la opcion de postear.

Saludos.-

[kazimiro]

Yo los valore slos obtengo asi:
Cuando mi webbrowser ha terminado en cargar el fotolog que deseo ver pues hago que en un texto multilinea llamado text1 aprezca el dodigo fuente de la pagina:

Código [Seleccionar] Expandir

Text1.Text = WebBrowser1.Document.documentElement.innerHTML

Facil no?

Lo siguiente que hago es lo mas paleto del mundo, ya que ha metodos mas rápidos y mas simples que hacen lo mismo:
Guardo el codigo fuente en el disco duro:

Código [Seleccionar] Expandir

Dim canallibre As Integer
Canallbre = FreeFile()
Open "C:\mi carpeta\mitexto.txt" For Output As #Canallbre
Write #Canallbre, Text1.Text
Close #Canallbre
Y lo paso a un list box llamado list1 y luego selecciono el ithen que esta 2 casillas anterior del ithem final y lo guardo en un text2 ya que este ithen es el link del guesbook

Código [Seleccionar] Expandir

List1.Clear
Open "C:\mi carpeta\mitexto.txt" For Input As #1
Do Until EOF(1)
    Input #1, B$
    List1.AddItem B$
Loop
Close #1
List1.ListIndex = List1.ListCount - 2
Text2.Text = List1.Text
Way
Despues abro el webbrowser con la url que tengo en el text2 y hago el mismo procedimiento para guardar la pagina y despues abrirla en un listbox. Y una vez abierta en el list box le digo:

Código [Seleccionar] Expandir

Var1 = List1.ListIndex = List1.ListCount - 14
Var2 = List1.ListIndex = List1.ListCount - 8
Var1 y Var2 son dos variables que he declarardo antes.
Y con esta informacion la implanto en el codigo de la pagina (previamente guardado en mi ordenador)

Código [Seleccionar] Expandir

<div id="gb_posts">
</div><p class="gbmessage">
<div id="responseText">
</div><FORM METHOD=POST id="guestbookForm" ACTION=Var1 TARGET="ifgbook" STYLE="text-align: left;">
<INPUT TYPE=HIDDEN NAME=p VALUE=1>
<INPUT TYPE=HIDDEN NAME=t VALUE=Var2>
<B>From</B> (required)<BR>
<INPUT TYPE=TEXT NAME=from MAXLENGTH=255 SIZE=50 VALUE=MI ALIAS><BR>
<B>Message</B><BR>
<TEXTAREA NAME=msg id="msg" COLS=50 ROWS=7 WRAP=VIRTUAL>
MI MENSAJE DE TEXTO A POSTEAR</TEXTAREA><BR>
<INPUT TYPE=SUBMIT VALUE="  Post  ">
</FORM>
<BR>
<BR>
</p>


<meta http-equiv="refresh" content="1">
<SCRIPT type="text/javascript">
document.forms[0].submit();
</SCRIPT>

Variando el valor de content de meta, podras variar el numero de segundos en recargarse la pagina.
Guardo la nueva página como un documento HTML y lo ejecuto y dejo que se posteen solos los mensajes xDDD.

Los valores de Var1 y Var2 en el formulario html van con comillas.

Espero que os sirva esta breve explicacion.

Un saludo

P.D: Si yo quise floodear algun que otro fotolog es para la gente que no hace mas que meter cizaña y empezar a insultar y esas cosas que no siempre nos molan a todos para que haya buen rollo en una comunidad pense en floodear fotologs que se dediquen ha provocar una situacion de mal estar en la comunidad. De todas dormas lo tengo bastante abandonado ultimamente...