ソス@ソスソスwininetソスソスgソスpソスソスソスソスFTPソスノてフソス@ソスCソスソスソスソス_ソスEソスソスソスソスソス[ソスhソスソスソスソスノは?
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスヘゑソスソス゚まゑソスソスト、ソスソスソスツゑソスQソスlソスノゑソスソスソスソストゑソスソスソスソスソスソスソスソストゑソスソスワゑソスソスB
ソスソスソスン、wininetソスソスFtpGetFileソスソスgソスpソスソスソストサソス[ソスoソスソスソスtソス@ソスCソスソスソスソス_ソスEソスソスソスソスソス[ソスhソスソスソス謔、ソスニゑソスソストゑソスソスソスフでゑソスソスソスソスA
FtpPutFileソスヘゑソスソスワゑソスソスソスソスソスソスフでゑソスソスソスソスAFtpGetFileソスフ包ソスソスヘゑソスソスワゑソスソスソスソスソスソスワゑソスソスソスB
Putソスヘでゑソスソストゑソスソスソスフで、ソスソスソスソスソスソスFtpGetFileソスノゑソスソスソスフでゑソスソス蛯、ソスソスソスA
ソスソスソス_ソスソスソス謔ュソスかソスソスワゑソスソスソスB
ソスヌゑソスソス直ゑソスソスホゑソスソスソスソスフゑソスソスAソスソスソスソスソスソスソス閧「ソスワゑソスソスB
ソスツ具ソスソスソスWinXPソスソスVB.NETソスナゑソスソスB
ソスソスしソスソスソスソスソス閧「ソスソスソスワゑソスソスB
***** ソスネ会ソスソスRソス[ソスh *****
Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" ( _
ByVal hFtpSession As Integer, _
ByVal lpszRemoteFile As String, _
ByRef lpszNewFile As String, _
ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Integer, _
ByVal dwFlags As Integer, _
ByVal dwContext As Integer) As Boolean
======= ソスネ会ソスソスソスソスCソスソスソスソスソスソス ===========
Dim hOpen As Integer
Dim hFtpSession As Integer
Const INTERNET_FLAG_RELOAD As Integer = &H80000000
Const INTERNET_FLAG_TRANSFER_BINARY As Short = &H2S
Const INTERNET_NO_CALLBACK As Short = 0
hOpen = InternetOpen("vb wininet", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
hFtpSession = InternetConnect(hOpen, "FtpServer", INTERNET_INVALID_PORT_NUMBER, _
"FtpUser", "FtpPass", INTERNET_SERVICE_FTP, nFlag, 0)
FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:¥yyyy.ini", True, 0, _
INTERNET_FLAG_TRANSFER_BINARY Or INTERNET_FLAG_RELOAD, INTERNET_NO_CALLBACK)
ソスソス閧ソスソスソスソスソス@err.LastDllErrorソスソスInternetGetLastResponseInfoソスソス
ソスGソスソスソス[ソスフ鯉ソスソスソスソス分析ゑソスソス驍アソスニゑソスソス謖茨ソスナゑソスソスB
ソスヒゑソスlソスAソスソスソス答ゑソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
InternetGetLastResponseInfoソスネのでゑソスソスソスソスAソスgソスソスソスソスソスソスソスソスソスソスソスフゑソスソスソスソス謫セソスナゑソスソスワゑソスソスソスナゑソスソスソスソスB
ソスソスソスLソスフようソスネ奇ソスソスソスソスナ使ソスpソスソスソストゑソスソスソスフでゑソスソスソスソスAソスソスソスソスソスノ厄ソス閧ェソスソスソスソスフでゑソスソス蛯、ソスソスソスH
Dim strBuffer As String
Dim intLength As Integer
InternetGetLastResponseInfo(Err.LastDllError, vbNullString, intLength)
strBuffer = New String(Chr(0), intLength + 1)
InternetGetLastResponseInfo(Err.LastDllEroor, strBuffer, intLength)
MsgBox(strBuffer)
InternetGetLastResponseInfoソスソスgソスpソスソスソスソスOソスソスErr.LastDllErrorソスソス"123"ソスナ、
strBufferソスフ値ソスソス""ソスナゑソスソスソスソスB
ソス謔ク
>Err.LastDllErrorソスソス"123"
ソスGソスソスソス[ソスフ番搾ソスソスソスソスソスソスナは会ソスソスフエソスソスソス[ソスソスソスソスソスソスソスソスソスソスソスソスソスかソスソスワゑソスソスソスソスヒ。
FormatMessageソスナエソスソスソス[ソスソスソスbソスZソス[ソスWソスソス謫セソスソスソスワゑソスソスB
ソスソスソスネみゑソスFormatMessageソス謫セソスソスソスソスソスソスソスソス123ソスソス
ソスuソスtソス@ソスCソスソスソスソスソスAソスfソスBソスソスソスNソスgソスソスソスソスソスAソスワゑソスソスヘボソスソスソスソスソス[ソスソス ソスソスソスxソスソスソスフ構ソスソスソスソスソスヤ茨ソスソスソストゑソスソスワゑソスソスBソスv
ソスナゑソスソスB
ソスSソスソスソスソスソスソスヘ?
>InternetGetLastResponseInfoソスネのでゑソスソスソスソスAソスgソスソスソスソスソスソスソスソスソスソスソスフゑソスソスソスソス謫セソスナゑソスソスワゑソスソスソスナゑソスソスソスソスB
WinInetソスフエソスソスソス[ソスヘ 12000ソスネ擾ソスナゑソスソスAソスソスソスネわちWinInetソスフエソスソスソス[ソスナは厄ソスソスソスソスソスソスソスナは。
InternetGetLastResponseInfoソスヘ、ソスソスソスソスソスソスソスソスソスソスソスニゑソスソスソスソスソスソスフでゑソスソスヒ。
FormatMessageソスAソスソスソスソスソスソスナゑソスmソスFソスvソスソスソスワゑソスソスソスソスB
ソスtソス@ソスCソスソスソスソスソスAソスfソスBソスソスソスNソスgソスソスソスソスソスAソスワゑソスソスヘボソスソスソスソスソス[ソスソス ソスソスソスxソスソスソスフ構ソスソスソスソスソスヤ茨ソスソスソストゑソスソスソスニゑソスソスソスソスソスソスニは、
ソスvソスソスソスOソスソスソスソスソスソスフ厄ソスソスナはなゑソスソスA
FtpGetFileソスノ渡ソスソスソストゑソスソスソスソスQソスCソスソスRソスソスソスソスソスフ値ソスソスソスヤ茨ソスソスソストゑソスソスソスソスソスト趣ソスソスナゑソスソスソスソスヒ?
ソスソスソスソスヘ会ソスソスxソスソスmソスFソスソスソスト間茨ソスソスソストはゑソスソスネゑソスソス謔、ソスネのでゑソスソスソスソスEソスEソスE
ソスiソスソスソスXソスソスVB6ソスナ作成ソスソスソス黷スソスソスフゑソスVB.NETソスノアソスbソスvソスOソスソスソス[ソスhソスソスソスソスソスソスフなので、
ソスソスソスソスソスフ値ソスノ厄ソスソスヘ厄ソスソスソスソスニ思ソスソスソスワゑソスソスj
FtpFindFirstFileソスナ「"/xxx/xxxx/yyyy.ini"ソスvソスソスソスソスソスツゑソスソス驍ゥソスヌゑソスソスソスソスソスソスラてみゑソスソス轤「ソスソスソスソスソスナゑソスソスソスソスH
>FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:¥yyyy.ini",False, 0, _
INTERNET_FLAG_TRANSFER_BINARY Or INTERNET_FLAG_RELOAD, INTERNET_NO_CALLBACK)
iniソスtソス@ソスCソスソスソスソスソスソスbinaryソスソスソスソスソスソスソスAソスソスソスソスニ「INTERNET_FLAG_RELOADソスvFTPソスナキソスソスソスbソスVソスソスソスソスソスソスヌみ搾ソスソスワゑソスソス
ソスソスソスニはゑソスソスソスソスソスソスソスソスソスソスB
5ソスヤ目の茨ソスソスソスソスソス ByVal dwFlagsAndAttributes As Integerソス@ソスフ0ソスソスソスト会ソスソスソスソスソスソスソスソスB
ソスヌゑソスソスかソスソスネゑソスソスソスソスヌ、ソスソス閧ソスソスソスソスソスソスこゑソスナゑソスソスソストみようソスB
FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:¥yyyy.ini",False, 32, 1, 0)
FtpFindFirstFileソスナ確ソスFソスソスソスト、ソスソスソスソスソスソスフ包ソスソスヘ托ソスソスvソスナゑソスソスソスソスB
iniソスtソス@ソスCソスソスソスソスASCIIソスナゑソスソスヒ。ソスニゑソスソスソスソスソスソスソスヤ違いソスソスソス轤ッソスHソスiソスソス
VB6ソスフソソス[ソスXソスソスソスソスソスソスソスソスソスソスルゑソスソスソスソスヌゑソスソスソスソスソスソスナゑソスソスヒ・ソスEソスE
FtpGetFile(hFtpSession, "/xxx/xxxx/yyyy.ini", "c:¥yyyy.ini",False, 32, 1, 0)
ソスナゑソスソスソストみてゑソスAソスソスヘゑソスハ目でゑソスソスソスソスB
ソスソスソスソスソスGソスソスソス[ソスソスソスbソスZソス[ソスWソスソスソスoソスワゑソスソスB
FtpSetCurrentDirectoryソスソスGetソスソスソスソスpソスXソスノ移難ソスソスソスソスト、ソスtソス@ソスCソスソスソスwソス閧セソスソスソスソス
Getソスソスソストみて会ソスソスソスソスソスソスB
ソスNソスソスソスCソスAソスソスソスgソスフ包ソスソスソスtソスHソスソスソス_ソス[ソスノ移難ソスソスソスソスト、ソスtソス@ソスCソスソスソスソスソスソスソスソスソスwソスソスナ。
ソスTソス[ソスoソスソスLinaxソスソスソス{ソスソスナゑソスソスソスwininet.dllソスフ関撰ソスソスBソスソス
ソス動ソスしソストまゑソスソスソスソスB
ソスpソスソスナゑソスソスニ包ソスソスCソスネゑソスナゑソスソスソスソスヌ。
ソスソスソスソスソスftpソスRソス}ソスソスソスhソスソスvソスソスソスOソスソスソスソスソスナ組ソスン暦ソスソストゑソス
ソスoソスbソス`ソスtソス@ソスCソスソスソスノ擾ソスソスソスソスソスナ起ソスソスソスソスソスソスホ・ソスEソスEソスE
ソスソスソスネり原ソスnソスIソスナゑソスソスソスソスEソスEソスE
ソス]ソスvソスネ擾ソスだゑソスソスソスソス轤キソスソスソスワゑソスソスソスB
>ソスヒゑソスl
ソスソスヘゑソスハ目でゑソスソスソスソスB
ソスニりあソスソスソスソスソスAソスかソスソスネゑソスAPIソスソスソスソスjavaソスソスFTPソスハ信ソスソスソスソスvソスソスソスOソスソスソスソスソスソス
ソスネ前ソスソスソスソスソスソスソスソスソスソスソスソスソスフで、ソスソスソスソス流用ソスソスソス驍ゥソスA
Socketソスソスgソスソスソスソスソスソスソス@ソスナ作成ソスソスソスソスソス轤、ソスワゑソスソスソスソスソスソスソスソスフで、ソスヌゑソスソス轤ゥソスナゑソスうソスソスソスニ思ソスソスソスワゑソスソスB
>ソスナソスソスソスソスソスソスソスソスl
ソス答ゑソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスTソス[ソスoソスソスAIXソスナ、ソスソスソスワゑソスVB6ソスナ作成ソスソスソスソスwininet.dllソスフ関撰ソスソスソスソスソスソスソスソストまゑソスソスフで、
ソスソスソスソスノ関ゑソスソストは厄ソスソスネゑソスソスニ思ソスソスソスワゑソスソスB
ソスソスソスソスソストゑソスソスソスソスソスソスソスソスソスソスソスソスXソスAソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスソスソスB
ソスソスソスソスソスフ宣言ソスソスソスヤ茨ソスソスソストゑソスソスワゑソスソスB
Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" ( _
ByVal hFtpSession As Integer, _
ByVal lpszRemoteFile As String, _
ByVal ソスソス ByRef lpszNewFile As String, _
ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Integer, _
ByVal dwFlags As Integer, _
ByVal dwContext As Integer) As Boolean
ソスソスソストゑソスソスAソスソスソスソスxソスソスソスソスソスネ〜
ソスソスソスソスソスIソス@ソスソスソスソストゑソスAソスソスソスソスソスソスGソスソスソス[ソスRソス[ソスhソスヌゑソスソスソスB
ソス骭セソスヘチソスFソスbソスNソスソスソスネゑソスソスソスソスソスソス謔、ソスネ気ソスソスソスソスソスソスB(^^;
> ソスソスソスネまゑソスソスソスソスソス
ソスソスソスフ宣言ソスソスヤ茨ソスソスソストゑソスソスソス謔、ソスネ。 As Boolean ソスソス As Long ソスナゑソスソスヒ。
http://hpcgi1.nifty.com/MADIA/VBBBS/wwwlng.cgi?print+200410/04100037.txt
VB.NETソスナゑソスソスソスソスソス
>As Boolean ソスソス As Long
ソスナは厄ソスソスソスソスA
As Boolean ソスソス As Integer
ソスソスソスソス
As Boolean ソスソス As Int32
ソスナゑソスソスソスソスB
ソスソスソスソスソスソスソスニ。ソスソスソスソスソス VB.NETソスナゑソスソスソスソスソスソスソスソスソスソスBソスソスソスソスB
ソスtソスHソスソスソス[ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスBソスソスソスヒろさソスソス
ソスソスソスソスABooleanソス^ソスナ趣ソスソスソスソスソスソスソスソスソスソスネゑソスAVB.NET ソスナゑソス
ソス@ソスw<MarshalAs(UnmanagedType.Bool)> ByVal failIfExists As Booleanソスx
ソスフようソスノ擾ソスソスソスソストゑソスソスソスソスソスソス OK ソスナゑソスソスソスソスヒ。(ソス゚ゑソスlソスソスソスソスl)
# ソスソスソスソスソスソスソスソスソスホ、.NET ソスソス Booleanソス^ソスソスソスト会ソスソスoソスCソスgソスネんだろうソスB
# http://www.microsoft.com/japan/msdn/library/ja/vblr7/html/vagrpdatatype.asp
# ソスソスソスソスソスニ、2ソスoソスCソスgソスソスソスロゑソスソスソスソスソスヌ、Marshal.SizeOf() ソスナ抵ソスソスラゑソスソス 4 ソスソスソスヤゑソスソス黷スソスcソスcソスB