Mensajes

Buen día, de un código que tengo me gustaría guardar el listado de un listbox a un archivo .txt con un botón de guardar, solo me falta saber la orden para guardar sin que dañe la estructura.
---------------------------------------------------------
Un webBrowser
Un Listbox
Un TextBox
Un Button

----------------------------------------CODIGO
Option Explicit On 
Option Strict On 
 
Public Class Form1 
 
    Private Sub Button1_Click( _ 
        ByVal sender As System.Object, _ 
        ByVal e As System.EventArgs) Handles Button1.Click 
        ListBox1.Items.Clear() 
        WebBrowser1.Navigate(TextBox1.Text.Trim) 
 
    End Sub 
 
    Private Sub WebBrowser1_DocumentCompleted( _ 
        ByVal sender As System.Object, _ 
        ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _ 
        Handles WebBrowser1.DocumentCompleted 
 
        If e.Url.ToString = String.Empty Or e.Url.ToString = "http:///" Then 
            Exit Sub 
        End If 
        Try 
            Me.Cursor = Cursors.WaitCursor 
 
            Call links() 
 
            Me.Cursor = Cursors.Default 
 
        Catch ex As Exception 
            Debug.Print(ex.Message.ToString) 
        End Try 
 
    End Sub 
 
    'Extrae los links 
    ' '''''''''''''''''''''''''''''''' 
    Private Sub links() 
 
        ListBox1.Items.Clear() 
        For i As Integer = 0 To WebBrowser1.Document.Links.Count - 1 
            ListBox1.Items.Add(WebBrowser1.Document.Links.Item(i).GetAttribute("href")) 
        Next 
 
    End Sub 
 
    Private Sub Form1_Load( _ 
        ByVal sender As System.Object, _ 
        ByVal e As System.EventArgs) Handles MyBase.Load 
        Button1.Text = " Cargar página y obtener links " 
        WebBrowser1.Visible = True 
        TextBox1.Text = "www.google.com" 
 
    End Sub 
End Class 

y si yo quiero guardar el contenido del listbox a un .txt como seria, con un boton de guardar.

Gracias mucha razón y creerán que no vi esa instrucción, gracias, por su ayuda bueno espero compartir este programa ya terminado y solucionado, recolecta los url de las pagina en donde navega uno. Gracias

De este código que encontré, lo ejecute y puse los requerimientos pero al momento de ejecutarlo desaparece el WebBrowser, que opción hace que se desaparezca, no se mucho de programación.

Un webBrowser
Un Listbox
Un TextBox
Un Button

----------------------------------------CODIGO
Option Explicit On  
Option Strict On  
 
Public Class Form1  
 
   Private Sub Button1_Click( _  
       ByVal sender As System.Object, _  
       ByVal e As System.EventArgs) Handles Button1.Click  
       ListBox1.Items.Clear()  
       WebBrowser1.Navigate(TextBox1.Text.Trim)  
 
   End Sub  
 
   Private Sub WebBrowser1_DocumentCompleted( _  
       ByVal sender As System.Object, _  
       ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) _  
       Handles WebBrowser1.DocumentCompleted  
 
       If e.Url.ToString = String.Empty Or e.Url.ToString = "http:///" Then  
           Exit Sub  
       End If  
       Try  
           Me.Cursor = Cursors.WaitCursor  
 
           Call links()  
 
           Me.Cursor = Cursors.Default  
 
       Catch ex As Exception  
           Debug.Print(ex.Message.ToString)  
       End Try  
 
   End Sub  
 
   'Extrae los links  
   ' ''''''''''''''''''''''''''''''''  
   Private Sub links()  
 
       ListBox1.Items.Clear()  
       For i As Integer = 0 To WebBrowser1.Document.Links.Count - 1  
           ListBox1.Items.Add(WebBrowser1.Document.Links.Item(i).GetAttribute("href"))  
       Next  
 
   End Sub  
 
   Private Sub Form1_Load( _  
       ByVal sender As System.Object, _  
       ByVal e As System.EventArgs) Handles MyBase.Load  
       Button1.Text = " Cargar página y obtener links "  
       WebBrowser1.Visible = False  
       TextBox1.Text = "www.google.com"  
 
   End Sub  
End Class  

Pues estuve checando y este ejemplo hace mas simplificado la entrada de la facebook que las api, solo es de modificar, el messagee por image ulr pero no doy en donde se cambia

oyes pues dejame publicar otra a lo mejor alguien ayuda ya que no me distes muchos datos amigo

no le entendi no se de programacion y menos de Python, se me hizo interesante el tema, solo lo que modifique fue la acción de pausa, pero no hace lo que deseo que haga

[Mod: Al publicar código. usa las etiquetas GeSHi, ya te se ha indicado antes]

Hace días me encontré esta relación de un código de Python el cual hacia publicaciones en grupos de facebook, sirve bien pero me gustaría saber como le hago para que pueda pegar el contenido y después de que cargue el contenido de una url, es decir su caratula, un ejemplo aquí dejo un ejemplo de la vista https://mega.co.nz/#!OMskXSAA!wLpmnfbae0QtUyyVL35qzACpyno0fg8jgSBzfH2Hn7o

afuera del codigo, tengo un archivo llamado grupillo
con el url del grupo donde deseo publicar
esta asi https://www.facebook.com/groups/...............grupo
en vez de www se cambia por m

Me urge saber como esperar a que se cargue la caratula de cualquier url y despues publique

Código
---------------------------------------------

Código (python) [Seleccionar] Expandir

# -*- coding: utf-8 -*-
import mechanize
import cookielib
import httplib
import time
br = mechanize.Browser()

gruposs = open ('grupillos.txt')


#cookies
cj = cookielib.LWPCookieJar()
br.set_cookiejar(cj)

url = "https://m.facebook.com/"


#paginas maloras robots
br.set_handle_robots(False)
br.set_handle_equiv(True)
br.set_handle_redirect(True)
br.set_handle_referer(True)
br.set_handle_robots(False)
br.set_debug_redirects(True)
br.set_debug_responses(True)
br.addheaders = [('User-agent', 'Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008071615 Fedora/3.0.1-1.fc9 Firefox/3.0.1')]
br.set_handle_refresh(mechanize._http.HTTPRefreshProcessor(), max_time=1)


r = br.open(url)
br.select_form(nr=0)
br.form["email"]= "[color=red]su correo o numero de face[/color]"
br.form["pass"] = "[color=red]contraseña de face[/color]"
br.submit()


try:

       for dejavu in gruposs.read().split('\n'):
           url3 = dejavu
           r = br.open(url3)
           respuesta1=br.response().read()
           if(respuesta1.find("Escribe algo...") > 0):
               br.select_form(nr=1)
               br.form["xc_message"]= "Me gusta la canción de https://www.youtube.com/watch?v=Q3Yc3HhSl1Q"
               time.sleep(7)                
               br.submit()
               print 'publicado'
           else:
                   print 'no enviado no encontrado etiqueta'
except (mechanize.URLError,IOError, httplib.BadStatusLine,httplib.IncompleteRead,mechanize.HTTPError,Exception):
       print 'no publicado'

Mod: Al publicar código. usa las etiquetas GeSHi, ya te se ha indicado antes

ok, bueno le explico tengo este ejemplo que si me sirve, pero con el sale un dialog en donde elijo la ubicación
---------------------------------------------------------------------------------------------

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            CARPETA = FolderBrowserDialog1.SelectedPath
            GENERO.Items.Clear()
            ARCHIVO.Items.Clear()
            ARCHIVOS = My.Computer.FileSystem.GetDirectories(CARPETA)
            Dim NOMBRE As String = Nothing
            For I = 0 To ARCHIVOS.Count - 1
                NOMBRE = ARCHIVOS(I).Remove(0, ARCHIVOS(I).LastIndexOf("\") + 1)
                GENERO.Items.Add(NOMBRE)
            Next
        End If
    End Sub

------------------------------------------------------
Desearía que al ejecutar el programa no se ejecute dándole click si no ya se cargue en el  ListBox la ubicación, D:/ARCHIVOS/ORDEN/

deseo comparar para aprender, disculpe si no me doy a entender

Soy nuevo aquí en programación deseo aprender como en un ListBox, me aparezca la carpeta D:/DIRECTORIO, solo que deseo que aparezca la palabra directorio

quiero aprende paso a paso gracias