■ 現在のこのページの役立ち度:
表示されない場合こちらのリンクからもご覧になれます。
■ このページの役立ち度を評価する:
役立ち度を評価してください。
(1(左):あまり役立たない - 5(右):大変役立った):
■ ページの共有:
[ サイト内検索 ]
カスタム検索
#1494-2winsockでのメールの受信匿名14942002-07-08(月) 12:59
     #1495-2RE#1494:winsockでのメールの受信匿名14952002-07-08(月) 13:41
#1494-2
winsockでのメールの受信
Public SERVER As String
Public USER As String
Public PASS As String

Public GetMes As String

Public MailStep As String

Public Sub CONNECT()
With Form1.Winsock1
 If .State <> sckClosed Then Call .Close
 
.RemotePort = 110
.RemoteHost = SERVER
.LocalPort = 0
.CONNECT .RemoteHost, 110
MailStep = "connect"
GetMail
End With
End Sub


Public Sub GetMail()
Dim Reply As String
GetMes = ""
Form1.Winsock1.GetData GetMes, vbString
Reply = Left(GetMes, 4)
MsgBox Reply

Select Case MailStep
Case "connect"
Form1.Winsock1.SendData "USER " & USER
End Select

End Sub
'こんな感じでコードを書いたらトランザクション接続状態に問題がありますとエラーが出ます
'どうしてなんでしょう・・・

教えてください。
よろしくおねがいします
#1495-2
RE#1494:winsockでのメールの受信
略
> 'こんな感じでコードを書いたらトランザクション接続状態に問題がありますとエラーが出ます
> 'どうしてなんでしょう・・・

恐らくですが、
接続が完了する前にGetDataメソッドを呼び出しているからでしょう。
Connectメソッドを呼び出し後データが到着するまでDoEventsなどで待つか、
ヘルプにもあるようにGetDataはDataArrivalイベント内で行ないましょう。
このページと関連する記事:
#16596-0Winsock2001-06-12(火) 18:11
#14772-0Winsockコントロールで実行時エラー2000-02-01(火) 15:11
#32391-0LAN、TCP/IPでのメッセ−ジ機能2000-10-24(火) 19:57
#5981-1WinSockについて1999-09-27(月) 13:34
#9-0Winsockのエラー2001-12-25(火) 13:59
#21712-0Winsockコントロールの断線トラップ2001-07-05(木) 17:43
#37372-0Winsockについて2001-01-19(金) 20:13
#5632-0パケット送信について1999-09-22(水) 10:05
#8287-0Winsockを使った接続1999-10-27(水) 09:55
#465-2POSTデータを受信完了するタイミング2003-08-20(水) 12:13
お探しの情報は見つかりましたか?お困りの問題は解決しましたか?
サイト内検索, 似た記事検索で見つからなくてもあきらめずに掲示板で質問してみましょう。
VB初心者友の会があなたのお役に立てれば幸いです。また、本ページの投稿者の方々にこの場を借りて感謝致します。
本ページは過去ログを集めて自動構成しています。よろしければこのページに関するフィードバックをお願いします。
(※ 構成の誤り、広告等の不適切な記事、リンク切れ、読めないページの報告など)