WinSockの使い方を勉強しているのですが、
CD-ROMにあったサンプルがデバッグ実行でさせると
必ず例外処理エラーが発生してしまいます。
以下がそのコードの一部です。
サンプルの中のGUIに関する部分を取り除いたものです。
何故かgethostbynameを実行すると例外処理になります。
また、WSAStartupはエラーを出していません。
あと、wsaData.szDescriptionの値が「WinSock 2.0」になっていたので
一応MAKEWORD(2,0)にしてみましたがダメでした。
ちなみにWin2000SP4上のAB4.01で実行しています。
コード: 全て選択
Sub SendMailThread()
Dim buffer[255] As Byte
Dim szServerName[255] As Byte 'Server名
lstrcat(szServerName,"server.domain")
'WinSock Ver1.1の初期化
Dim wsaData As WSADATA 'ソケットの初期化情報
WSAStartup(MAKEWORD(1,1),wsaData)
'Serverを探す
Dim lpHost As *HOSTENT 'ホスト情報
lpHost=gethostbyname(szServerName)