アルカナクエストマクロ


※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

とりあえず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を同時に押す。

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

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