Winsock + VB = висяк:)

[SSecurity]

Привет всем странный у меня получается вариант.
Вот листинг:

на форме 2 дефолтовые кнопки
1 винсок [name = "pop"]
2 текстбокса, Text1 - многострочный

Код: Выделить всё

Private Sub Command1_Click()
    pop.Close
    pop.Connect "pop3.aaanet.ru", 110
End Sub

Private Sub Command2_Click()
    pop.Close
End Sub

Private Sub pop_DataArrival(ByVal bytesTotal As Long)
    Dim AAA As String
    pop.GetData AAA
    Text1 = Text1 & AAA
End Sub

Private Sub pop_SendComplete()
    Text1 = Text1 & "Sended" & vbCrLf
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 And pop.State = 7 Then
        pop.SendData Text2 & vbCrLf
        Text2 = ""
    End If
End Sub


провожу сессию с поп-сервером ... все ок
нажимаю завершить проет и басик виснет мертвым ...
другой проект нормально работает ... (без винсока)
да и с сокетом аналогичный проходил

в чем прикол? хелп

[SSecurity]

Вообщем-то тесты показали: коннект онли + дисконнект убивает систему:))))

[SSecurity]

Привет, земляк:))))

Вообщем-то это и был весь код, я тут асю делаю, коннект замечательный, а вот наш родой глюченный ПОПЗ сервер ААА после модернизации 29 числа .... как-то не дает работать проге ....причем поднял соресы старых почтовых прог .... нормально все ...
сорес формы щас выложу ...

тока с ноута перейду на рабочий комп:))

[SSecurity]

Вопрос не снимается, тему не закрывать:)

Перезагружал когда винду заново попробовал ... все нормально работает .... вот маразм ... через некоторое время начинает глючить:)

вот значится проект ....
он коннектится к любому серверу, т.е. пишем сервер, пароль, логин ... и он коннектится...

но вот виснет .... бяка:(

[Юджин]

подключил к твоей проге следующий код

Код: Выделить всё

Private Sub MessageSingIn()
Dim MailCount As Long
Dim MailIndex As Long
Dim AttachTMP() As String
Dim MsgDateReceived As String
'On Error GoTo ErrorMessageIN
  MAPISession1.SignOn
  With MAPIMessages1
    .SessionID = MAPISession1.SessionID
    .Fetch
    MailCount = 0
    For MailIndex = 0 To .MsgCount - 1
      .MsgIndex = MailIndex
      List1.AddItem .MsgOrigDisplayName  '<-- что за файл
      List2.AddItem .MsgSubject          '<-- тема
      List3.AddItem .MsgDateReceived       '<-- складываем
      List4.AddItem .AttachmentPathName  '<-- аттач
      MailCount = MailCount + 1
    Next MailIndex
  End With
  MAPISession1.SignOff
If List1.ListCount <> 0 Then
    List1.ListIndex = 0
    If Len(List4.List(List1.ListIndex)) <> 0 Then
      'Form1.IncrimFullPach List4.List(List1.ListIndex), AttachTMP
      Command1.Enabled = True
    Else
      Command1.Enabled = False
    End If
  End If
  GoTo EndProcIN
ErrorMessageIN:
  MsgBox "ошибка сервака."
EndProcIN:
End Sub


и не могу понять, как приаттаченные к определенным мисьмам (тема, отправитель) сохранить в папке c:\Priem
более того. твоя прога берет только некоторые письма - сегодня (02/12/2005) мне пришли мыла, а прога нашла на серваке только от 30/11/2005, хотя с сервака их никто не удаляет. как быть и что делать?????

[Alfa]

Была такая же проблема. Visual Basic виснул при работе с Winsock'ом в режиме создания программы (скомпилированный проект работал отлично) после продолжительной работы системы. Проблема решилась только переустановкой Visual Basic'а.

[SeT]

А у меня winsock вообще не закрывается, даже после .close
Может использовать альтернативу?

[SeT]

Билли - гей. тссс...