沢庵は漬物

http://takuanoisii.web.fc2.com/up/AutoLogin.zip

自動ログインマクロです。。。
楓サーバーの
1キャラ目から6キャラ目まで順番にログインします...


ちなみにProcedureで囲めばID設定が楽になる。。。
以下農場マクロのサンプル

//U=農場 Y=NPC会話
While 222
//メイプルID,PW,PW2,キャラクター数
Auto("id1","1pw1","2pw1","char1")
Auto("id2","1pw2","2pw2","char2")
Auto("id3","1pw3","2pw3","char3")

Sleep(600)
Wend

Procedure Auto(ID,PW,PW2,D)
For C=1 to D
ACW(GETID("MapleStory","MapleStoryClass"),0,0)
While 123
Ifb CHKIMG("img/ver.bmp",0)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
Break
Endif
Wend
//メイプルID,クリップボードに貼り付ける
SendStr(0,ID)
While 125
Ifb CHKIMG("img/xID.bmp",0)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
Break
Endif
Wend
//コピペ（｀ェ´）ﾋﾟｬｰ
KBD(VK_CTRL,DOWN,50)
KBD(VK_V,DOWN,50)
KBD(VK_V,UP,50)
KBD(VK_CTRL,UP,50)
KBD(VK_TAB,DOWN,50)
KBD(VK_TAB,UP,50)
//1次パス,クリップボードに貼り付ける
SendStr(0,PW)
//コピペ（｀ェ´）ﾋﾟｬｰ
KBD(VK_CTRL,DOWN,50)
KBD(VK_V,DOWN,50)
KBD(VK_V,UP,50)
KBD(VK_CTRL,UP,50)
KBD(VK_RETURN,DOWN,50)
KBD(VK_RETURN,UP,50)
MMV(0,0,50)
//2次パス入力画面でるまで待とうか...
While !CHKIMG("img/xOK.bmp",0)
Sleep(0.2)
Wend
//2次パス
Dim PW2xy[] = "x0.bmp","x1.bmp","x2.bmp","x3.bmp","x4.bmp","x5.bmp","x6.bmp","x7.bmp","x8.bmp","x9.bmp","xOK.bmp"
Dim X[10]
Dim Y[10]
//座標保存
For i=0 to 10
While 777
Ifb CHKIMG("img/"+PW2xy[i],0)
X[i] = G_IMG_X+3
Y[i] = G_IMG_Y+5
Break
Endif
Wend
Next
//2次パス
Nx=Length(PW2)
For ii=1 to Nx
J=COPY(PW2,ii,1)
MMV(X[J],Y[J],50)
Sleep(0.1)
BTN(LEFT,CLICK,X[J],Y[J],50)
Sleep(0.1)
Next
//Login
BTN(LEFT,CLICK,X[10],Y[10],50)
While 555
Ifb CHKIMG("img/xChara.bmp",0)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
Break
Endif
Wend
While 555
Ifb CHKIMG("img/kaede.bmp",0)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
Break
Endif
Wend
Sleep(1)
Ifb CHKIMG("img/OK.bmp",0)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
Endif
Sleep(3)


While 555
Ifb CHKIMG("img/Char.bmp",0,0,0,800,600,C)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
BTN(LEFT,CLICK,G_IMG_X,G_IMG_Y,50)
Break
Endif
Wend
ja=0
While 555
ja=ja+1
Ifb ja > 100
BTN(LEFT,CLICK,G_MOUSE_X,G_MOUSE_Y,50)
BTN(LEFT,CLICK,G_MOUSE_X,G_MOUSE_Y,50)
Endif
Ifb CHKIMG("img/Lv.bmp",0)
Break
Endif
Wend

Sleep(1)
//Call Pick.uws
Sleep(1)
KBD(VK_ESC,CLICK,50)
KBD(VK_UP,CLICK,50)
KBD(VK_RETURN,CLICK,50)
Next
Fend