[VB6] Simulare il click su tasto OK del MsgBox

[x69asterix]

ciao,
volevo sapere se è possibile simulare un click in modo automatico in questo codice, che praticamente mi invia un certo numero di mail:

For i = 0 To List2.ListCount - 1
        DoEvents
        List2.ListIndex = i
        .To = List2.List(i)
        .From = Text2.Text  
        .Subject = Text3.Text  
        .TextBody = Text4.Text  
        If Label4 = "" Then
        Label8.Caption = "Invio in corso attendere... " & List2.List(i)
        Timer1.Enabled = True
        ProgBarXP1.WaitBarStyle = True
        DoEvents
        .Send
        ProgBarXP1.WaitBarStyle = False
        Timer1.Enabled = False
        Label8.Caption = "Invio terminato"
        MsgBox "messaggio inviato con successo a: " & List2.List(i), vbInformation
        'Praticamente ad ogni invio effettuato dovrei simulare il click 
        Else
        .AddAttachment Label4.Caption
        Label8.Caption = "Invio in corso attendere... " & List2.List(i)
        ProgBarXP1.WaitBarStyle = True
        Timer1.Enabled = True
        DoEvents
        .Send
        Label8.Caption = "Invio terminato"
        ProgBarXP1.WaitBarStyle = False
        Timer1.Enabled = False
        MsgBox "messaggio + allegato inviato con successo a: " & List2.List(i), vbInformation
        
        End If
        Next
        End If
          
    End With
    
    Set msg = Nothing
    Set conf = Nothing
    Set flds = Nothing

Shape1.BackColor = &HE0E0E0

[MItaly]

La simulazione di pressione di tasti richiederebbe un altro thread, perché la MsgBox blocca il thread corrente in attesa di una risposta dall'utente... non fai prima a togliere la MsgBox?

[oregon]

Certe volte non capisco la logica che vi guida ...

Se hai messo una Message Box vuol dire che c'e' qualcuno che legge il messaggio (e allora puo' pressare il tasto).

Se non c'e' nessuno per pressare il tasto (tanto che lo vuoi fare automaticamente ...) a cosa servirebbe il messaggio che non legge nessuno ... ?

[chico62]

Pur quotando "in toto" le affermazioni di MItaly e Oregon, a puro scopo didattico suggerisco lo studio del codice che puoi trovare qui (MsgBox con countdown, stile AVG):
http://www.planetsourcecode.com/vb/s...58808&lngWId=1

Ciauz

CHico