「アルカナクエストマクロ」の編集履歴（バックアップ）一覧はこちら

「アルカナクエストマクロ」(2012/05/19 (土) 14:34:54) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

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

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

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

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

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

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