[[20211228094655]]　『Windows11移行に当たり使用できなくなるAPI、COM』（モゲラ）　ページの最後に飛ぶ

『Windows11移行に当たり使用できなくなるAPI、COM』（モゲラ）

Windows11移行に当たり現在よく使用するAPIやオブジェクトで使用できなくなるものを知りたいです
特にWindows11ではIEがインストールされていないと聞きます
IE5.0で動作していると聞く「VBScript.RegExp」やその他通信関連が使用できるのか知りたいです
動作環境はプレーンのWindows11にOffice365のみインストールしていることを想定しています

'FTP通信関連
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA"(ByVal lpszAgent As String, ByVal dwAccessType As Long, ByVal lpszProxyName As String, ByVal lpszProxyBypass As String, ByVal dwFlags As Long) As Long
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA"(ByVal HINTERNET As Long, ByVal lpszServerName As String, ByVal nServerPort As Integer, ByVal lpszUsername As String, ByVal lpszPassword As String, ByVal dwService As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll"(ByVal HINTERNET As Long) As Integer
Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA"(ByVal hConnect As Long, ByVal lpszCurrentDirectory As String, ByRef lpdwCurrentDirectory As Long) As Boolean
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA"(ByVal hConnect As Long, ByVal lpszDirectory As String) As Long
Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA"(ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA"(ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA"(ByVal hConnect As Long, ByVal lpszFileName As String) As Long
Private Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA"(ByVal hConnect As Long, ByVal lpszExisting As String, ByVal lpszNew As String) As Long
Private Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA"(ByVal hConnect As Long, ByVal lpszDirectory As String) As Long
Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA"(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA"(ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long
'mciSound関連
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal fdwError As Integer, ByVal lpszErrorText As String, ByVal cchErrorText As Integer) As Integer
Private Declare Function BeepAPI Lib "kernel32.dll" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Declare Function MessageBeep Lib "user32.dll" (ByVal wType As Long) As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal pszSound As String, ByVal hmod As Long, ByVal fdwSound As Long) As Long
Private Declare Function GetShortPathNameA Lib "kernel32.dll" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
'ファイル操作関連
Private Declare Function CreateFile Lib "KERNEL32.DLL" Alias "CreateFileA"(ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "KERNEL32.DLL" (ByVal hObject As Long) As Long
Private Declare Function LocalFileTimeToFileTime Lib "KERNEL32.DLL" (ByRef lpLocalFileTime As FileTime, ByRef lpFileTime As FileTime ) As Long
Private Declare Function SystemTimeToFileTime Lib "KERNEL32.DLL" ( ByRef lpSystemTime As SystemTime, ByRef lpFileTime As FileTime ) As Long
Private Declare Function SetFileTime Lib "KERNEL32.DLL" ( ByVal cFile As Long, ByRef lpCreationTime As FileTime, ByRef lpLastAccessTime As FileTime, ByRef lpLastWriteTime As FileTime ) As Long
'iniファイル読み込み関連
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
''ごみ箱に送るためのAPI
Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long
'Sleep
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

'ADO関連
Set obj = CreateObject("ADODB.Recordset")
Set obj = CreateObject("ADODB.Connection")
'正規表現（IE5.0で動いているから使えなくなる？）
Set obj = CreateObject("VBScript.RegExp")
’ArrayList関連
Set obj = CreateObject("System.Collections.ArrayList")
Set obj = CreateObject("System.Collections.CaseInsensitiveComparer")

Set obj = CreateObject("Scripting.Dictionary")
Set obj = CreateObject("System.Collections.SortedList")
Set obj = CreateObject("System.Text.StringBuilder")
Set obj = CreateObject("Scripting.FileSystemObject")
Set obj = CreateObject("WScript.Shell")
Set obj = CreateObject("MSXML2.DOMDocument")
Set obj = CreateObject("WinHttp.WinHttpRequest.5.1")
Set obj = CreateObject("MSXML2.XMLHTTP")

Set obj = GetObject("winmgmts:\\.\root\default:StdRegProv")

＜使用 Excel：Office365、使用 OS：Windows11 ＞

ここで質問するのは他度違いです。
他のサイトへどうぞ。

（モグラ） 2021/12/28(火) 14:29

Windows11 VBAで検索すると色々情報がありますよ。
自分で検索してください。
（γ） 2021/12/28(火) 15:30

仮にVBSが提供する正規表現がVBAで使用できなくなった場合モグラさんはどうしますか？
VB6.0のサポートはWindows10と同等の扱いらしいのでおそらくサポートされるでしょうが
ほかのものについても調べてはいますが私のほうで確証が持てません
動作に不具合をきたすものに関してこれからは使用しない、作ってしまったものに関しては置き換える必要があります
たしかにExcel独自の問題ではありませんがVBAを使用しているならそのことも視野に入れるべきだと思います
（モゲラ） 2021/12/28(火) 17:33

 ネットで検索すれば、こうした情報に行き当たりませんか？

 | 「Windows 11はVB6.0アプリのサポートを継続するか」
https://qiita.com/yaju/items/1ba0fd5466230c963052
 　
 その記事中に以下の説明があります。
 |  【2021/11/09追記】
 |  2021/11/06 にサイトが更新され、Windows 11の正式サポートが発表されました。
 |  頂いたコメントにて、Windows 10と同じ扱い（動作環境のみサポート）ということです。
 |  Support Statement for Visual Basic 6.0 on Windows
https://docs.microsoft.com/ja-jp/previous-versions/visualstudio/visual-basic-6/visual-basic-6-support-policy
 |  
 |  2021/10/25 にサイトが更新されたときは、Windows 11の追加がまだだったのでやきもきしましたが、これでようやく安心できますね。

 こうした記事が参考になるのでは？
 特に、上記リンク先が正式なもので、DLLベースの詳細な記述があります。

 # ギブアンドテイクを心がけましょう。
（γ） 2021/12/28(火) 17:54

情報ありがとうございます
そちらのほうは確認中です
ただどのオブジェクトが何から提供されているか知識がないので確認にはかなりかかりそうです・・・

（モゲラ） 2021/12/28(火) 18:12

コメント返信：

[ 一覧(最新更新順) ]

[[20211228094655]] 『Windows11移行に当たり使用できなくなるAPI、COM』（モゲラ） ページの最後に飛ぶ

[[20211228094655]]　『Windows11移行に当たり使用できなくなるAPI、COM』（モゲラ）　ページの最後に飛ぶ