アルカナクエストマクロ - arukanamakuro @ ウィキ

とりあえずUWSCで画像認証クリックマクロを作成します。

まずメモ帳にこれをはりつけてください。

           Option Explicit
          Dim name = "test.bmp"
         While !GetKeyState(vk_esc)
WaitClick("1.bmp")
       MMV(1,1,500)      
       WaitClick("2.bmp")
       MMV(1,1,500) 
       WaitClick("3.bmp")
       MMV(1,1,500)       
       WaitClick("4.bmp") 
       MMV(1,1,500)     
       WaitClick("5.bmp") 
       MMV(1,1,500)      
       WaitClick("6.bmp")
       MMV(1,1,500)      
       WaitClick("5.bmp")　
       MMV(1,1,500)     
       WaitClick("6.bmp")
       MMV(1,1,500)       
       WaitClick("5.bmp")
       MMV(1,1,500)        
       WaitClick("6.bmp")
       MMV(1,1,500)       
       WaitClick("5.bmp")
       MMV(1,1,500)       
       WaitClick("6.bmp")
       MMV(1,1,500) 
       WaitClick("5.bmp")
       MMV(1,1,500)      
       WaitClick("6.bmp")
       MMV(1,1,500)       
       WaitClick("5.bmp")
       MMV(1,1,500)        
       WaitClick("6.bmp")
       MMV(1,1,500)       
       WaitClick("5.bmp")
       MMV(1,1,500)        
       WaitClick("6.bmp")
       MMV(1,1,500)      
       WaitClick("5.bmp")
       MMV(1,1,500)        
       WaitClick("6.bmp")
       MMV(1,1,500)       
       WaitClick("5.bmp")
       MMV(1,1,500)        
       WaitClick("6.bmp")
       MMV(1,1,500)       
       WaitClick("5.bmp")
       MMV(1,1,500)        
       WaitClick("7.bmp")  
       MMV(1,1,500)

　 Wend

　　 //指定画像が見つかるまで待機　見つかったらクリック
　　　 Procedure WaitClick(name, slp = 0)

While !GetKeyState(vk_esc)
	Ifb ChkImg(name, 1) Then
		Sleep(slp)
		ChkImg(name, 1)
		Btn(Left, 0, g_img_x, g_img_y)
		Break
	　　　　　Endif
　　　　　　　　　　　　　Wend

　　　　　　　　　　　　　　　　　Fend

で .txtのところを　.uws　に変更します。

もし拡張子が表示されていなければ、設定を変更してください。

つぎに画像を用意します。その画像ですが、ゲームからコピー

してください。やり方　FNとPRTSCを同時に押す。

ペイントに貼り付けてください。

そしてできるだけ小さくしてください。小さくしすぎるとだめですが