VB6.0用掲示板の過去のログ(No.1)－VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/01/24(Fri) 20:02 |
| 投稿者 | ： 聖魔 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： FTP終了時の時間 |
いつもお世話になっています。
どうしてもわからないことがあるのでよろしくお願いします。
標準モジュールに
Public Sub GetInternethandle()
lnghInternet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)
End Sub
Public Sub GetFTPHandle()
FTPh = InternetConnect(lnghInternet, RemoteHost, INTERNET_DEFAULT_FTP_PORT, RemoteUser, RemotePass, INTERNET_SERVICE_FTP, &H0, 0&)
End Sub
と記述し、
Private Sub Form_Load()
Call GetInternethandle
Call GetFTPHandle
End Sub
Private Sub end_Click()
Dim lngRet As Long
Dim lngRet2 As Long
lngRet = InternetCloseHandle(FTPh)
lngRet2 = InternetCloseHandle(lnghInternet)
End------①
End Sub
とすると、
①のところでとまってしまって終了するのに2分ぐらいかかってしまいます。
エラーを取得してみたのですが特にエラーはなく、
InternetOpenだけの取得だとこの現象は起こりません。
動作チェックをするのに毎回止まってしまうので困っています。
どうすれば回避できるでしょうか？
よろしくお願いします。
Win2000Pro SP3 (OSは2.3日前にフォーマットしたばかりです)
VB6.0 SP4
PS VBのプログラムと関係ない質問かもしれませんのでルール違反でしたら言ってください。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）