ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

west 2007/07/26(ｿｽｿｽ) 23:05:14

ｿｽｿｽｿｽｿｽﾎゑｿｽﾍ。

Windows Mobile 5.0ｿｽi.net compact framework2.0ｿｽｿｽjｿｽｿｽｿｽFTPｿｽﾌクｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽ@ｿｽ¥ｿｽﾅ搾ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽ{ｿｽIｿｽﾈゑｿｽｿｽﾆゑｿｽｿｽﾆは思ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾄ会ｿｽｿｽｿｽｿｽｿｽｿｽB
compact frameworkｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽﾆで，wininet.dllｿｽ利用ｿｽｿｽｿｽ謔､ｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
InternetOpenｿｽﾍ出ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽCInternetConnectｿｽｿｽNULLｿｽｿｽｿｽAｿｽｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽﾈ会ｿｽｿｽﾉテｿｽXｿｽgｿｽpｿｽﾉ搾ｿｽｿｽｿｽｿｽｿｽAｿｽvｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽfｿｽﾚゑｿｽｿｽﾜゑｿｽｿｽB
FormｿｽｿｽButtonｿｽｿｽｿｽﾂ置ｿｽｿｽｿｽCｿｽ{ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽFTPｿｽﾉ接托ｿｽｿｽｿｽｿｽ驍ｾｿｽｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽsｿｽｿｽPDAｿｽﾌエｿｽ‾ｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽ[ｿｽｿｽﾅ難ｿｽｿｽｿｽｿｽCFTPｿｽﾍエｿｽ‾ｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽPCｿｽｿｽｿｽgｿｽﾅ難ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽGｿｽ‾ｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽﾉイｿｽｿｽｿｽXｿｽgｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽVｿｽFｿｽAｿｽEｿｽFｿｽAｿｽｿｽFTPｿｽNｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽﾅゑｿｽｿｽ驍ｱｿｽﾆは確ｿｽFｿｽﾏみでゑｿｽｿｽB
ｿｽﾜゑｿｽｿｽCｿｽSｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈソｿｽ[ｿｽXｿｽｿｽﾊ擾ｿｽﾌ（PCｿｽpｿｽﾌ）.net frameworkｿｽvｿｽｿｽｿｽWｿｽFｿｽNｿｽgｿｽﾅ難ｿｽｿｽｿｽｿｽｿｽｿｽﾆ会ｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

Imports System.Text

Public Class Form1
    Private hSession As Int32 = 0
    Private hFtpSession As Int32 = 0

    Private Const INTERNET_OPEN_TYPE_DIRECT = 1
    Private Const INTERNET_DEFAULT_FTP_PORT As Integer = 21
    Private Const INTERNET_SERVICE_FTP As Int32 = 1
    Private Const INTERNET_FLAG_PASSIVE As Int32 = &H8000000
    Private Const scUserAgent = "vb wininet"

    Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
    (ByVal sAgent As String, ByVal lAccessType As Int32, ByVal sProxyName As String, _
    ByVal sProxyBypass As String, ByVal lFlags As Integer) As Int32

    Private Declare Function InternetConnect Lib "wininet.dll" Alias _
        "InternetConnectA" (ByVal hInternetSession As System.IntPtr, ByVal _
        sServerName As String, ByVal nServerPort As Integer, ByVal _
        sUsername As String, ByVal sPassword As String, ByVal _
        lService As Int32, ByVal lFlags As Int32, ByVal lContext As System.IntPtr) As System.IntPtr

    Private Declare Function InternetCloseHandle Lib "wininet.dll" _
    (ByVal hInternet As Integer) As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strHost As String
        strHost = System.Net.Dns.GetHostName()
        Dim ip As System.Net.IPHostEntry
        Dim ipAddr As System.Net.IPAddress

        Dim blnResult As Boolean = False
        hSession = 0
        hSession = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
        If hSession Then
            hFtpSession = 0
            Dim nFlag As Integer
            Dim timeout As ULong = 1000
            Dim lblength As Long = Len(timeout)
            hFtpSession = InternetConnect(hSession, "***.***.***.***", INTERNET_DEFAULT_FTP_PORT, _
                                    "Username", "Password", INTERNET_SERVICE_FTP, 0, 0)
            If hFtpSession = 0 Then
                MessageBox.Show("NG/hFtpSession/" + Err.LastDllError.ToString())
            Else
                MessageBox.Show("OK/hFtpSession")
                InternetCloseHandle(hFtpSession)
            End If
        Else
            MessageBox.Show("NG/hSession" + Err.LastDllError.ToString())
            InternetCloseHandle(hSession)
        End If

    End Sub
End Class

ｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2007/07/27(ｿｽｿｽ) 09:32:39

> InternetOpenｿｽﾍ出ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽCInternetConnectｿｽｿｽNULLｿｽｿｽｿｽAｿｽｿｽｿｽﾄゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾟゑｿｽlｿｽｿｽ Err.LastDllError ｿｽﾈど、ｿｽｿｽﾌ的ｿｽﾈエｿｽｿｽｿｽ[ｿｽｿｽeｿｽ明趣ｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

> Private Const INTERNET_OPEN_TYPE_DIRECT = 1
ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽﾋ。Option Strict/Option Explicit ｿｽｿｽ On ｿｽﾉゑｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽ蛯､ｿｽB

> Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" 
Windows CE ｿｽｿｽ Unicode ｿｽﾂ具ｿｽｿｽﾅゑｿｽｿｽｿｽｿｽｿｽAA ｿｽnｿｽﾅはなゑｿｽ W ｿｽnｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽLｿｽｿｽ eVB3 ｿｽTｿｽｿｽｿｽvｿｽｿｽｿｽﾅゑｿｽAWide ｿｽn API ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽﾋ。
http://support.microsoft.com/kb/305598/ja

west 2007/07/27(ｿｽｿｽ) 23:10:29

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽCｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽwｿｽEｿｽﾉ従ｿｽｿｽｿｽCOption Strict/ExplicitｿｽｿｽOnｿｽCWideｿｽnｿｽCErr.LastDllErrorｿｽｿｽｿｽｿｽｿｽｿｽﾄ，
ｿｽｿｽｿｽXｿｽgｿｽPｿｽﾌようｿｽﾉ修ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽ,hSessionｿｽﾌ値ｿｽｿｽ13369348ｿｽｿｽInternetOpenｿｽﾍ出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽC
ｿｽｿｽﾍゑｿｽInternetConnectｿｽﾍ戻ゑｿｽlhFtpSessionｿｽｿｽ0ｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌ際ゑｿｽErr.LastDllErrorｿｽｿｽ12029ｿｽiｿｽTｿｽ[ｿｽoｿｽ[ｿｽﾉ接托ｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽjｿｽﾅゑｿｽｿｽｿｽｿｽB
ｿｽiｿｽﾈ前ｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅゑｿｽ12002ｿｽiｿｽ^ｿｽCｿｽｿｽｿｽAｿｽEｿｽgｿｽjｿｽﾅゑｿｽｿｽｿｽｿｽｿｽｿｽBｿｽj

ｿｽｿｽｿｽﾌ鯉ｿｽﾌ，InternetCloseHandle(hSession)ｿｽﾅは暦ｿｽONotSupportedExceptionｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽﾆ鯉ｿｽｿｽｿｽｿｽｿｽｿｽﾆは，ｿｽﾅ擾ｿｽｿｽｿｽInternetOpenｿｽｿｽｿｽｿｽﾍ撰ｿｽｿｽｿｽﾉ趣ｿｽｿｽsｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽﾈゑｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽﾜゑｿｽｿｽCｿｽｿｽｿｽﾌ際ゑｿｽErr.LastDllErrorｿｽﾍなゑｿｽｿｽｿｽ12029ｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽXｿｽgｿｽP
Option Strict On
Option Explicit On

Imports System.Text

Public Class Form1
    Private hSession As IntPtr = 0
    Private hFtpSession As IntPtr = 0

    Private Const INTERNET_OPEN_TYPE_PRECONFIG As Long = 0
    Private Const INTERNET_OPEN_TYPE_DIRECT As Long = 1

    Private Const INTERNET_DEFAULT_FTP_PORT As Integer = 21
    Private Const INTERNET_SERVICE_FTP As Long = 1
    Private Const INTERNET_FLAG_PASSIVE As Long = &H8000000
    Private Const scUserAgent As String = "vb wininet"

    Declare Function InternetCloseHandle Lib "wininet" ( _
        ByVal hInet As System.IntPtr) As Long

    Declare Function InternetConnect Lib "wininet" Alias "InternetConnectW" ( _
        ByVal hInet As System.IntPtr, _
        ByVal lpszServerName As String, _
        ByVal nServerPort As Integer, _
        ByVal lpszUsername As String, _
        ByVal lpszPassword As String, _
        ByVal dwService As Int32, _
        ByVal dwFlags As Int32, _
        ByVal dwContext As System.IntPtr) As System.IntPtr

    Declare Function InternetOpen Lib "wininet" Alias "InternetOpenW" ( _
        ByVal lpszAgent As String, _
        ByVal dwAccessType As Int32, _
        ByVal lpszProxyName As String, _
        ByVal lpszProxyBypass As String, _
        ByVal dwFlags As Integer) As System.IntPtr


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim blnResult As Boolean = False
        hSession = System.IntPtr.Zero
        Try
            hSession = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
        Catch ex As Exception
            MessageBox.Show("InternetOpen Exception/" + ex.ToString())
            MessageBox.Show("InternetOpen Error/" + Err.LastDllError.ToString())
            Return
        End Try
        If hSession <> System.IntPtr.Zero Then
            hFtpSession = System.IntPtr.Zero
            Try
                hFtpSession = InternetConnect(hSession, "***.***.***.***", INTERNET_DEFAULT_FTP_PORT, _
                                        "UserName", "PassWord", INTERNET_SERVICE_FTP, 0, System.IntPtr.Zero)
            Catch ex As Exception
                MessageBox.Show("InternetOpen Exception/" + ex.ToString())
                MessageBox.Show("InternetOpen Error/" + Err.LastDllError.ToString())
                InternetCloseHandle(hSession)
                Return

            End Try
            If hFtpSession = System.IntPtr.Zero Then
                MessageBox.Show("NG/hFtpSession/" + Err.LastDllError.ToString())
            Else
                MessageBox.Show("OK/hFtpSession")
                Try
                    InternetCloseHandle(hFtpSession)
                Catch ex As Exception
                    MessageBox.Show("InternetCloseHandle(hFtpSession) Exception/" + ex.ToString())
                    MessageBox.Show("InternetCloseHandle(hFtpSession) Error/" + Err.LastDllError.ToString())
                End Try
            End If
            Try
                InternetCloseHandle(hSession)
            Catch ex As Exception
                MessageBox.Show("InternetCloseHandle(hSession) Exception/" + ex.ToString())
                MessageBox.Show("InternetCloseHandle(hSession) Error/" + Err.LastDllError.ToString())
            End Try
        Else
            MessageBox.Show("NG/hSession" + Err.LastDllError.ToString())
        End If

    End Sub
End Class

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士 2007/07/28(ｿｽy) 10:10:39

> ｿｽVｿｽFｿｽAｿｽEｿｽFｿｽAｿｽｿｽFTPｿｽNｿｽｿｽｿｽCｿｽAｿｽｿｽｿｽgｿｽｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽﾅゑｿｽｿｽ驍ｱｿｽﾆは確ｿｽFｿｽﾏみでゑｿｽｿｽB
ｿｽｿｽｿｽ黷ｾｿｽﾆ確ｿｽFｿｽﾉなゑｿｽﾈゑｿｽｿｽCｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌソｿｽtｿｽgｿｽﾍ、wininet ｿｽﾅはなゑｿｽ winsock ｿｽｿｽgｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽｿｽｿｽmｿｽｿｽﾜゑｿｽｿｽし。

ｿｽﾜゑｿｽｿｽAｿｽfｿｽoｿｽCｿｽXｿｽｿｽｿｽ Pocket Internet Explorer ｿｽｿｽｿｽｿｽAftp.microsoft.com ｿｽｿｽ
ｿｽJｿｽｿｽｿｽｿｽｿｽﾍでゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ? ｿｽﾅゑｿｽｿｽﾄゑｿｽｿｽｿｽﾆゑｿｽｿｽｿｽｿｽOｿｽｿｽﾅ：

> ｿｽｿｽｿｽsｿｽｿｽPDAｿｽﾌエｿｽ‾ｿｽｿｽｿｽｿｽｿｽ[ｿｽ^ｿｽ[ｿｽｿｽﾅ難ｿｽｿｽｿｽ
ｿｽｿｽｿｽ@ｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍどゑｿｽｿｽﾅゑｿｽｿｽｿｽ?

> ｿｽｿｽｿｽXｿｽgｿｽPｿｽﾌようｿｽﾉ修ｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽELong ｿｽ^ｿｽｿｽ NG ｿｽﾅゑｿｽｿｽB
ｿｽ@eVB3 ｿｽｿｽ Long ｿｽｿｽ 32bit ｿｽﾅゑｿｽｿｽｿｽｿｽAVB2005 ｿｽﾅゑｿｽ 64bit ｿｽTｿｽCｿｽYｿｽﾅゑｿｽｿｽB

ｿｽEhSession = 0 ｿｽｿｽ hSession = IntPtr.Zero ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌは鯉ｿｽｿｽ黷ｵｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@ｿｽﾔ違いｿｽﾅは厄ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽﾇね。

ｿｽEｿｽｿｽｿｽlｿｽﾉ、Int32 ｿｽｿｽ Integer ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽAｿｽｿｽｿｽ鼕ｴｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB
ｿｽ@InternetConnect ｿｽﾆゑｿｽｿｽB

west 2007/07/28(ｿｽy) 11:09:50

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽCｿｽRｿｽｿｽｿｽｿｽｿｽgｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

>ｿｽfｿｽoｿｽCｿｽXｿｽｿｽｿｽ Pocket Internet Explorer ｿｽｿｽｿｽｿｽAftp.microsoft.com ｿｽｿｽ
>ｿｽJｿｽｿｽｿｽｿｽｿｽﾍでゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽｿｽ?

ｿｽJｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

>ｿｽｿｽｿｽ@ｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍどゑｿｽｿｽﾅゑｿｽｿｽｿｽ?
ｿｽcｿｽOｿｽﾈゑｿｽｿｽｿｽCｿｽｿｽｿｽ@ｿｽﾍ貸ゑｿｽｿｽoｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌで，ｿｽｿｽｿｽjｿｽｿｽｿｽﾉなゑｿｽｿｽｿｽｿｽｿｽmｿｽFｿｽｿｽｿｽﾄみまゑｿｽｿｽB

>ｿｽELong ｿｽ^ｿｽｿｽ NG ｿｽﾅゑｿｽｿｽB
>ｿｽ@eVB3 ｿｽｿｽ Long ｿｽｿｽ 32bit ｿｽﾅゑｿｽｿｽｿｽｿｽAVB2005 ｿｽﾅゑｿｽ 64bit ｿｽTｿｽCｿｽYｿｽﾅゑｿｽｿｽB

Longｿｽ^ｿｽｿｽInt32ｿｽﾖ，Integerｿｽ^ｿｽｿｽInt32ｿｽﾆ厄ｿｽｿｽｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽｿｽｿｽB

>ｿｽEhSession = 0 ｿｽｿｽ hSession = IntPtr.Zero ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌは鯉ｿｽｿｽ黷ｵｿｽｿｽｿｽｿｽｿｽｿｽB
>ｿｽ@ｿｽﾔ違いｿｽﾅは厄ｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽｿｽﾇね。

IntPtr.Zeroｿｽﾉ難ｿｽｿｽ黷ｵｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾝのｿｽｿｽXｿｽgｿｽｿｽｿｽｿｽXｿｽgｿｽQｿｽﾆゑｿｽｿｽﾄ添ｿｽtｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾝの鯉ｿｽｿｽｿｽ,hSessionｿｽﾌ値ｿｽｿｽ13369348ｿｽｿｽInternetOpenｿｽﾍ出ｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽC
ｿｽｿｽﾍゑｿｽInternetConnectｿｽﾍ戻ゑｿｽlhFtpSessionｿｽｿｽ0ｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌ際ゑｿｽErr.LastDllErrorｿｽｿｽ12029ｿｽiｿｽTｿｽ[ｿｽoｿｽ[ｿｽﾉ接托ｿｽｿｽoｿｽｿｽｿｽﾈゑｿｽｿｽjｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽﾌ鯉ｿｽﾌ，InternetCloseHandle(hSession)ｿｽﾅは暦ｿｽONotSupportedExceptionｿｽﾍ費ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾈゑｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽｿｽｿｽOｿｽiｿｽHｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽB

ｿｽAｿｽhｿｽoｿｽCｿｽXｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB


Option Strict On
Option Explicit On

Imports System.Text

Public Class Form1
    Private hSession As IntPtr = System.IntPtr.Zero
    Private hFtpSession As IntPtr = System.IntPtr.Zero

    Private Const INTERNET_OPEN_TYPE_PRECONFIG As Int32 = 0
    Private Const INTERNET_OPEN_TYPE_DIRECT As Int32 = 1

    Private Const INTERNET_DEFAULT_FTP_PORT As Int32 = 21
    Private Const INTERNET_SERVICE_FTP As Int32 = 1
    Private Const INTERNET_FLAG_PASSIVE As Int32 = &H8000000
    Private Const scUserAgent As String = "vb wininet"

    Declare Function InternetCloseHandle Lib "wininet" ( _
        ByVal hInet As System.IntPtr) As Int32

    Declare Function InternetConnect Lib "wininet" Alias "InternetConnectW" ( _
        ByVal hInet As System.IntPtr, _
        ByVal lpszServerName As String, _
        ByVal nServerPort As Int32, _
        ByVal lpszUsername As String, _
        ByVal lpszPassword As String, _
        ByVal dwService As Int32, _
        ByVal dwFlags As Int32, _
        ByVal dwContext As System.IntPtr) As System.IntPtr

    Declare Function InternetOpen Lib "wininet" Alias "InternetOpenW" ( _
        ByVal lpszAgent As String, _
        ByVal dwAccessType As Int32, _
        ByVal lpszProxyName As String, _
        ByVal lpszProxyBypass As String, _
        ByVal dwFlags As Int32) As System.IntPtr


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strHost As String
        strHost = System.Net.Dns.GetHostName()
        Dim ip As System.Net.IPHostEntry
        Dim ipAddr As System.Net.IPAddress

        ip = System.Net.Dns.GetHostByName(strHost)
        ipAddr = ip.AddressList(0)
        MessageBox.Show("Host:" + strHost.ToString() + "/IP:" + ipAddr.ToString(), _
                        "Networkｿｽﾌ確ｿｽF", MessageBoxButtons.OKCancel, _
                        MessageBoxIcon.Hand, MessageBoxDefaultButton.Button1)

        Dim blnResult As Boolean = False
        hSession = System.IntPtr.Zero
        Try
            hSession = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
        Catch ex As Exception
            MessageBox.Show("InternetOpen Exception/" + ex.ToString())
            MessageBox.Show("InternetOpen Error/" + Err.LastDllError.ToString())
            Return
        End Try
        If hSession <> System.IntPtr.Zero Then
            hFtpSession = System.IntPtr.Zero
            Try
                hFtpSession = InternetConnect(hSession, "***.***.***.***", INTERNET_DEFAULT_FTP_PORT, _
                                        "UserName", "PassWord", INTERNET_SERVICE_FTP, 0, System.IntPtr.Zero)
            Catch ex As Exception
                MessageBox.Show("InternetOpen Exception/" + ex.ToString())
                MessageBox.Show("InternetOpen Error/" + Err.LastDllError.ToString())
                InternetCloseHandle(hSession)
                Return

            End Try
            If hFtpSession = System.IntPtr.Zero Then
                MessageBox.Show("NG/hFtpSession/" + Err.LastDllError.ToString())
            Else
                MessageBox.Show("OK/hFtpSession")
                Try
                    InternetCloseHandle(hFtpSession)
                Catch ex As Exception
                    MessageBox.Show("InternetCloseHandle(hFtpSession) Exception/" + ex.ToString())
                    MessageBox.Show("InternetCloseHandle(hFtpSession) Error/" + Err.LastDllError.ToString())
                End Try
            End If
            Try
                InternetCloseHandle(hSession)
            Catch ex As Exception
                MessageBox.Show("InternetCloseHandle(hSession) Exception/" + ex.ToString())
                MessageBox.Show("InternetCloseHandle(hSession) Error/" + Err.LastDllError.ToString())
            End Try
        Else
            MessageBox.Show("NG/hSession" + Err.LastDllError.ToString())
        End If

    End Sub
End Class

west 2007/08/20(ｿｽｿｽ) 22:35:24

ｿｽｿｽｿｽｿｽﾎゑｿｽﾍ。

ｿｽｿｽｿｽｿｽｿｽﾔ趣ｿｽｿｽﾔ過ゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽCｿｽｿｽｿｽﾌ鯉ｿｽｿｽｿｽｿｽmｿｽ轤ｹｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽｿｽｿｽﾇ，ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽOｿｽｿｽﾌコｿｽ[ｿｽhｿｽﾉゑｿｽｿｽｿｽｿｽﾄ，InternetOpenｿｽﾌ托ｿｽ2ｿｽｿｽｿｽｿｽdwAccessｿｽｿｽ
INTERNET_OPEN_TYPE_PRECONFIGｿｽｿｽｿｽｿｽINTERNET_OPEN_TYPE_DIRECTｿｽｿｽ
ｿｽﾏ更ｿｽｿｽｿｽｿｽｿｽ轤ｿｽｿｽｿｽｿｽｿｽｿｽqｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽEｿｽﾌ会ｿｽｿｽﾊ弁士ｿｽｿｽｿｽｿｽﾌアｿｽhｿｽoｿｽCｿｽXｿｽﾊゑｿｽCｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ型ｿｽﾌ使ｿｽpｿｽｿｽ
ｿｽ¥ｿｽｿｽｿｽﾈ鯉ｿｽｿｽﾘゑｿｽｿｽdｿｽvｿｽﾅゑｿｽｿｽｿｽｿｽB

ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽB
ｿｽﾜゑｿｽｿｽCｿｽｿｽしｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB

Created by board of various Programming Library.