|
■No73624 (Azulean さん) に返信
> ■No73622 (kakadjdjkaka さん) に返信
>>要はグッピグ.pngの画像が認識できたらそれを左クリックするということです。
>>自動ソフトとは違います。
>
> 「自動ソフトとは違います」と書かれていますが、何を以て「自動ソフト」を定義されているのでしょうか？
>
> ゲームによってはその手の外部補助的なツールを使うことを禁止している可能性もありますし、一部操作だけとはいえ、自動的に実行することで制作者側が想定しないスピードで反応を返すことになります。
> また、不具合によってツールが暴走し、サーバーに多大な負荷をかけてしまった場合、アカウント停止や損害賠償などといったトラブルを招く恐れがあります。
>
>
> 仮に規約面で許容されていたとしても、どこまでがセーフで、どこまでがアウトなのか、一律に線を引けるものではありません。
> そのリスクを理解した上で製作されるのであれば、いろいろと学んでいただかないといけないでしょう。
> （WebBrowser コントロールを使ってフォーム操作をするサンプルレベルでいいのなら、検索で見つけられるでしょう。あとはサイト個別の構成なり、フォームなりでシーケンスを作ることになるので、一般的な回答ではなく、特化した内容になります）
なんとか完成に近くなったのですが、
Public Class Form1
Private Sub Button()
End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
'ファイルから画像を読み込む
Dim img As Image = Image.FromFile("C:\Users\mikuma\Desktop\ピグをクリック.jpg")
'画像の描画範囲を決める
Dim sp2 As New Bitmap(PictureBox2.Width, PictureBox2.Height)
Dim g2 As Graphics = Graphics.FromImage(sp2)
Dim img2 As Image = Image.FromFile("C:\Users\mikuma\Desktop\ピグをクリック.jpg")
g2.DrawImage(img2, 0, 0, PictureBox2.Width, PictureBox2.Height)
img2.Dispose()
g2.Dispose()
PictureBox2.Image = sp2
'PictureBox1の座標
mouse_move(888, 366)
'マウスポインター移動
Cursor.Position = New Point(Me.Left + mx1(), Me.Top + my1())
mouse_event(mousdown, 0, 0, 0, 0) 'マウスダウン
mouse_event(mousup, 0, 0, 0, 0) 'マウスアップ
End Sub
Private Sub mouse_move(ByVal mx1 As Integer, ByVal my1 As Integer)
'マウスポインター移動
Cursor.Position = New Point(Me.Left + mx1, Me.Top + my1)
mouse_event(mousdown, 0, 0, 0, 0) 'マウスダウン
mouse_event(mousup, 0, 0, 0, 0) 'マウスアップ
End Sub
'API関数の宣言部分
<System.Runtime.InteropServices.DllImport("USER32.DLL")> _
Private Shared Sub mouse_event(ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
End Sub
'定数宣言
Private Const mousup As Integer = &H4 '左ボタンUP
Private Const mousdown As Integer = &H2 '左ボタンDown
Private Function my1() As Integer
End Function
Private Function mx1() As Integer
ーーメソッドまたは操作は実装されていません。ーー
Throw New NotImplementedExceptioそ
ーーメソッドまたは操作は実装されていません。
End
End Class
ソースなんですが
↑のよエラーが出て、一回目ボタンを押すとクリックはするが
二回目以降は終了してくださいの画面が出て強制的に終了されます。。
これを修正してください。
二つ目の問題があります。
画像指定といいましたがただの座標指定になっていてクリックするのですが画像をクリックしませんでした。
なので、画像指定で画像が表示されたらそれを認識してクリックするように修正お願いします。
|