質問編集履歴

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

2018/10/02 08:26

投稿

dewdtm

スコア8

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -1,349 +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側のコードを使用しております。
+的確な回答が得られなかったため、このコメントは削除いたしました。
-どうかご教示の程、よろしくお願い致します。

error項目の削除　本題は変換について知りたい

2018/10/02 08:26

投稿

dewdtm

スコア8

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -344,22 +344,6 @@
 現在、標準モジュールは、VB.NET側のコードを使用しております。
-また、当方が修正できそうにないエラーが出る箇所は、
-.Nodes
-DoEvents
-Right$
-Set
-LenB
-strSpace = StrConv(String(50, " "), vbFromUnicode)
-かなり複雑になっておりますが、
 どうかご教示の程、よろしくお願い致します。

コードブロックの適用

2018/10/02 06:37

投稿

dewdtm

スコア8

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -44,12 +44,12 @@
-ここからコードｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ
+```ここに言語を入力
 【ハンドル+Class名+title情報をTreeView1に列挙するコード】
 Private Sub NodesW()
 Dim i As Long
@@ -166,7 +166,11 @@
 End Sub
+```
+```ここに言語を入力
 【ハンドル情報のみをTreeView2に列挙するコード】
@@ -246,7 +250,11 @@
 End Sub
+```
+```ここに言語を入力
 【外部ハンドルを取得して文字列とクリック処理を送信するコード】
@@ -330,9 +338,7 @@
 lngRc = SendMessage(hWndChild3, BM_CLICK, 0, 0)
-ここまでｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ
+```