Visual Basic 6 - errore msn in vb6

Cordiali saluti,

stavo provando a ricreare il progetto msn in vb6 seguendo la guida....ma mi dà errore sulla Private Sub Form_Load()

qualcuno potrebbe aiutarmi o postarmi il progetto??

senza uno stralcio di codice non credo che nessuno possa aiutarti.
Se invece cerchi tutto il codice bell'è pronto credo che tu abbia sbagliato forum

hai ragione il codice è il seguente...
Private Sub Form_Load()

Set msn = New MessengerAPI.Messenger

'Inserisco nella combobox gli stati

cbostato.AddItem "In linea", 0

cbostato.AddItem "Occupato", 1

cbostato.AddItem "Non al computer", 2

cbostato.AddItem "Torno subito", 3

cbostato.AddItem "Al telefono", 4

cbostato.AddItem "A pranzo/cena", 5

cbostato.AddItem "Invisibile", 6

'Carico la lista degli utenti

Dim msncontact As IMessengerContact

Dim msncontacts As IMessengerContacts

Set msncontacts = msn.MyContacts

For Each msncontact In msncontacts

lstContatti.AddItem (msncontact.SigninName)

Next

End Sub


le api di msn e le librerie sn già attive

dicci anche il messaggio di errore e quale stringa vb ti evidenzia...

ho anche io questo problema e vorrei sapere come risolverlo...allora:
da l'errore:

Run-time error '7':
out of memory

e seleziona la riga: "Set msn = new MessengerAPI.Messenger"

come fai a dire che hai il suo stesso problema se lui ha detto...


e non ha specificato ne errore ne stringa evidenziata? bah...

cmq out of memory significa che il programma ti ha "occupato" tutta la ram quindi dipende:
1) Dal tuo pc
2) quella riga che hai postato non intasa la ram è qualcos'altro nel tuo codice...

ok allora ti posto tutto il mio codice:
io sto creando una chat...e fino a li funziona tutto bene...ma appena inserisco le due righe di codice seguenti, mi si blocco sulla seconda dicendo: "out of memory" e me la evidenzia.

Public WithEvents msn As Messengerapi.Messenger

Set msn = New Messengerapi.Messenger

ho anche incluso la "API type library"

il codice del programma è il seguente:

Public WithEvents msn As MessengerAPI.Messenger

Private Sub Ascolta_Click()
wskServer.Close
wskServer.LocalPort = 2000
wskServer.Listen
txtReply.Text = txtReply.Text & "Server in attesa..." & vbCrLf
txtReply.SelStart = Len(txtReply.Text)
End Sub

Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub

Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
If (wskServer.State <> sckClosed) Then
wskServer.Close
End If
wskServer.Accept requestID
wskServer.SendData "*connect" & vbCrLf
txtReply.Text = txtReply.Text & "Connessione accettata..." & vbCrLf
txtReply.SelStart = Len(txtReply.Text)
End Sub

Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
Dim DATI As String
wskServer.GetData DATI
txtReply.Text = txtReply.Text & DATI
txtReply.SelStart = Len(txtReply.Text) & vbCrLf
End Sub

Private Sub Invia_Click()
If wskServer.State <> sckConnected Then
txtReply.Text = txtReply.Text & "Non connesso" & vbCrLf
txtReply.SelStart = Len(txtReply.Text)
Exit Sub
End If
txtReply.Text = txtReply.Text & txtOut.Text & vbCrLf
wskServer.SendData txtOut.Text & vbCrLf
txtReply.SelStart = Len(txtReply.Text) & vbCrLf
txtOut.Text = ""
End Sub



La form1 è composta da:
- una textbox rinominata: "txtReply"
- una textbox rinominata: "txtOut"
- un pulsante per inviare il testo chiamato:
"Invia"
- un pulsante per mettersi in ascolto(per
stabilire la connessione inizialmente) di nome:
"Ascolta"
- un winSock rinominato: "wskServer"

come faccio a risolvere il problema????

vuoi creare una chat? Ok molto semplice
ma perchè ti stai complicando la vita?

usa SOLO il winsock non le api di messenger...a che ti dovrebbero servire?