質問編集履歴
1
質問内容の加筆
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,13 +3,28 @@
|
|
|
3
3
|
|
|
4
4
|
ブラウザを起動させ、webページ内のクリックしたい箇所へマウスを移動させるところまではできましたが、左クリックをすることができません。
|
|
5
5
|
|
|
6
|
+
```ここに言語を入力
|
|
6
7
|
Private Sub browse(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
7
8
|
Process.Start("表示したいurl")
|
|
8
9
|
Cursor.Position = New Point(1000, 850)
|
|
9
10
|
Call MouseLeftClick(1000, 850)
|
|
10
11
|
End Sub
|
|
11
12
|
|
|
13
|
+
```
|
|
14
|
+
上記のようにコードを書きましたが、クリックができません。どこをどのように変えたらいいのか、ご教授お願いできますでしょうか。（まったくのプログラミング初心者です。本やネットなどで調べて書いていますがわからないことだらけで困っています。よろしくお願いします。）
|
|
12
15
|
|
|
16
|
+
【追記】
|
|
17
|
+
１．質問の仕方がへたくそで申し訳ありませんが、現在の状況といたしましては、マウスやキーボード操作などに必要なコードが書かれたプロジェクトを渡されて、その下に必要なコードを書いてツールを作成してみて、と上司に言われています。
|
|
18
|
+
[マウス操作やキーボード操作をシミュレーション
|
|
19
|
+
するサンプル(VB.NET)](http://nonsoft.la.coocan.jp/SoftSample/VB.NET/SampleSendInput.html)
|
|
13
|
-
|
|
20
|
+
こちらのurlにかかれているForm1.vbの部分が、全部書かれてある状態で渡されました。
|
|
14
21
|
|
|
22
|
+
２．
|
|
23
|
+
```ここに言語を入力
|
|
15
|
-
|
|
24
|
+
Private Sub browse_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
|
|
25
|
+
Call MouseLeftClick(1000, 850)
|
|
26
|
+
End Sub
|
|
27
|
+
```
|
|
28
|
+
次に、上記のコードも試しましたが、クリックしたい場所に合わさっただけで動かなくなったため、試しにフォーム内をクリックしたらwebのページ内リンクがクリックされました。フォーム内とかではなく、webブラウザ上にマウスのカーソルを移動させて、その場でクリックさせてページを遷移させたいです。
|
|
29
|
+
|
|
30
|
+
使用しているのがVisual Basic2019で、
|