Visual Basic 6 - errore msn in vb6

Forum - Visual Basic 6 - errore msn in vb6

Pagine: [ 1 2 3 ]

shadow.90. (Normal User)
Newbie

Messaggi: 2
Iscritto: 30/01/2009

Postato alle 10:12
Venerdì, 30/01/2009

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??

Ultima modifica effettuata da shadow.90. il 30/01/2009 alle 11:14

tippolo (Normal User)
Pro

Messaggi: 157
Iscritto: 21/09/2008

Postato alle 13:01
Venerdì, 30/01/2009

Testo quotato

Postato originariamente da shadow.90.:

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

shadow.90. (Normal User)
Newbie

Messaggi: 2
Iscritto: 30/01/2009

Postato alle 23:51
Venerdì, 30/01/2009

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

Ultima modifica effettuata da shadow.90. il 30/01/2009 alle 23:56

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 9:53
Sabato, 31/01/2009

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

eraseall (Normal User)
Newbie

Messaggi: 6
Iscritto: 06/02/2009

Postato alle 19:42
Venerdì, 06/02/2009

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"

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 20:16
Venerdì, 06/02/2009

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

Testo quotato

Cordiali saluti,

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

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...

eraseall (Normal User)
Newbie

Messaggi: 6
Iscritto: 06/02/2009

Postato alle 19:51
Sabato, 07/02/2009

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????

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 20:21
Sabato, 07/02/2009

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?

eraseall (Normal User)
Newbie

Messaggi: 6
Iscritto: 06/02/2009

Postato alle 0:13
Domenica, 08/02/2009

la chat la ho già creata...ora la volevo espandere mettendola in interazione con msn...ma ho questo problema...help...

Pagine: [ 1 2 3 ]