質問編集履歴

まともな回答が得られなかった

2018/10/02 08:27

投稿

dewdtm

スコア8

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,375 +1 @@
-いつもお世話になっております。
-以前にこちらのサイト様で、ExcelVBAにおける外部アプリの操作（主にハンドル関連）についてご質問させていただき、おかげさまで外部データベース入力の自動化を実現させることが出来ました。
-【以前の質問ページ】
-https://teratail.com/questions/135393
-https://teratail.com/questions/135546
-今回は、ExcelVBAでコーディングしたそのプログラムを、VB.NETでも使用できるよう、
-変換したい思い、再度ご質問に上がりました。
-システムの根幹となるハンドル取得のコードは、
-下記のサイト様からコピーしたものです。
-【参考にしたコード】
-http://nonsoft.la.coocan.jp/SoftSample/SampleEnumWindows.html
-こちらにはご親切にもVB6とVB.NET両方のコードが載せられているのですが、
-VB.NETの方は、肝心のハンドルが取得できず、Class名とTitleしか取得できません。
-まずこのハンドル+Class名+titleをTreeView1に列挙すること、
-Class名とtitleを除外したハンドルのみの情報をTreeView2に列挙すること、
-そして、ハンドル取得⇒送信すること、
-この三点のコードを変換したい思っております。
-ここからコードｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ
-【ハンドル+Class名+title情報をTreeView1に列挙するコード】
-Private Sub NodesW()
-    Dim i As Long
-    Dim J As Long
-    Dim strClass As String
-    Dim strTitle As String
-    Dim strSpace As String
-    ' ウィンドウとコントロールの全ての情報を取得
-    Dim colWindows As Collection
-    Set colWindows = GetAllWindows()
-    ' 親ウィンドウ毎のコレクションループ
-    For i = 1 To colWindows.Count
-        ' 子コントロール毎のコレクション取得
-        Dim colChilds As Collection
-        Set colChilds = colWindows.Item(i)
-        'If colChilds.Count >= 1 Then        ' 全ての親ウィンドウを対象
-        If colChilds.Count > 1 Then         ' 子コントロールを持つ物のみ対象
-            ' 子コントロール毎のコレクションループ
-            For J = 1 To colChilds.Count
-                strSpace = StrConv(String(50, " "), vbFromUnicode)
-                ' コレクションからクラス名取得
-                strClass = StrConv(colChilds.Item(J)(1), vbFromUnicode)
-                If LenB(strClass) < 30 Then
-                    strClass = LeftB$(strClass & strSpace, 30)
-                End If
-                strClass = StrConv(strClass, vbUnicode)
-                ' コレクションから文字列取得
-                strTitle = StrConv(colChilds.Item(J)(2), vbFromUnicode)
-                If LenB(strTitle) < 50 Then
-                    strTitle = LeftB$(strTitle & strSpace, 50)
-                End If
-                strTitle = StrConv(strTitle, vbUnicode)
-                If J = 1 Then
-                    ' 親ウィンドウの情報をツリービューへ追加
-                    Call TreeView1.Nodes.Add( _
-                        , , "R" & _
-                        Right$("00000000" & Hex(colChilds.Item(J)(0)), 8), _
-                        Right$("00000000" & Hex(colChilds.Item(J)(0)), 8) & " - " & _
-                        strClass & " - " & strTitle)
-                Else
-                    ' 子コントロールの情報をツリービューへ追加
-                    Call TreeView1.Nodes.Add( _
-                        "R" & Right$("00000000" & Hex(colChilds.Item(1)(0)), 8), _
-                        tvwChild, "C" & _
-                        Right$("00000000" & Hex(colChilds.Item(J)(0)), 8), _
-                        Right$("00000000" & Hex(colChilds.Item(J)(0)), 8) & " - " & _
-                        strClass & " - " & strTitle)
-                End If
-            Next J
-        End If
-    Next i
-End Sub
-【ハンドル情報のみをTreeView2に列挙するコード】
-Private Sub NodesS()
-    Dim i As Long
-    Dim J As Long
-    Dim strClass As String
-    Dim strTitle As String
-    Dim strSpace As String
-    ' ウィンドウとコントロールの全ての情報を取得
-    Dim colWindows As Collection
-    Set colWindows = GetAllWindows()
-    ' 親ウィンドウ毎のコレクションループ
-    For i = 1 To colWindows.Count
-        ' 子コントロール毎のコレクション取得
-        Dim colChilds As Collection
-        Set colChilds = colWindows.Item(i)
-        'If colChilds.Count >= 1 Then        ' 全ての親ウィンドウを対象
-        If colChilds.Count > 1 Then         ' 子コントロールを持つ物のみ対象
-            ' 子コントロール毎のコレクションループ
-            For J = 1 To colChilds.Count
-            If J = 1 Then
-                ' 親ウィンドウの情報をツリービューへ追加
-                Call TreeView2.Nodes.Add(, , _
-                "R" & Right$("00000000" & Hex(colChilds.Item(J)(0)), 8), _
-                "&H" & Right$("00000000" & Hex(colChilds.Item(J)(0)), 8))
-            Else
-                ' 子コントロールの情報をツリービューへ追加
-                Call TreeView2.Nodes.Add("R" & Right$("00000000" & Hex(colChilds.Item(1)(0)), 8), _
-                tvwChild, _
-                "C" & Right$("00000000" & Hex(colChilds.Item(J)(0)), 8), _
-                "&H" & Right$("00000000" & Hex(colChilds.Item(J)(0)), 8))
-            End If
-        Next J
-        End If
-    Next i
-End Sub
-【外部ハンドルを取得して文字列とクリック処理を送信するコード】
-'Login画面の親子ハンドルの取得とLoginID・Password・OKボタンを送信
-hWndChild1 = 0
-hWndChild2 = 0
-hWndChild3 = 0
-Do
-hwndParent = FindWindow("Class名", "title")
-Call NodesS
-Call NodesW
-If hwndParent <> 0 Then
-Call NodesS
-Call NodesW
-For idx = 1 To TreeView2.Nodes.Count
-If CLng(TreeView2.Nodes(idx)) = hwndParent Then
-hWndChild1 = TreeView2.Nodes(idx + 9)
-hWndChild2 = TreeView2.Nodes(idx + 10)
-hWndChild3 = TreeView2.Nodes(idx + 11)
-Exit Do
-End If
-Next
-End If
-DoEvents
-Loop
-st = Now
-Do
-DoEvents
-Ret = IsWindowEnabled(hWndChild1)
-If DateDiff("s", st, Now) >= 10 Then Exit Do
-Loop While Ret = 0
-If Ret = 0 Then
-Debug.Print "time out"
-End If
-SetForegroundWindow hwndParent
-strDt = "LoginID"
-lngRc = SendMessage(hWndChild1, WM_SETTEXT, 0, strDt)
-strDt2 = "password"
-lngRc = SendMessage(hWndChild2, WM_SETTEXT, 0, strDt2)
-lngRc = SendMessage(hWndChild3, BM_CLICK, 0, 0)
-ここまでｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ
-現在、標準モジュールは、VB.NET側のコードを使用しております。
+的確な回答が得られなかったため、このコメントは削除いたしました。
-また、当方が修正できそうにないエラーが出る箇所は、
-.Nodes
-DoEvents
-Right$
-Set
-LenB
-**strSpace**~~ = StrConv(~~**String**~~(50, " "),~~ **vbFromUnicode**)
-かなり複雑になっておりますが、
-どうかご教示の程、よろしくお願い致します。