【サミータウン】ジョン万次郎 出玉状況スレ Part1

いよいよ始まった、ジョン・万次郎との出玉競走イベ。
このスレッドはジョン、および万次郎の出玉状況を書き込むスレッドです。
みなさま、よろしくお願いします。

2

本スレでできるだろ？

>>2だったら俺の勝ち

先生〜また糞スレですか〜

PUBLIC TOWN_HWND // 777town本体
PUBLIC TEMP_HWND // 一つ目の子
PUBLIC SLOT_HWND // ２つ目の子
CONST WM_KEYDOWN = $0100
CONST WM_KEYUP = $0101

DEF_DLL SendMessageA(HWND,LONG,LONG,DWORD):Bool:user32.DLL
DEF_DLL FindWindowExA(HWND,HWND,string,string):HWND:user32.DLL

// 初期化処理-----------------------------------------------------------------------------
TOWN_HWND = IDTOHND(GETID("777タウン.net"))
TEMP_HWND = FindWindowExA(TOWN_HWND,NULL,NULL,NULL) // 一つ目の子
SLOT_HWND = FindWindowExA(TOWN_HWND,TEMP_HWND,NULL,NULL) // ２つ目の子
// 初期化処理ここまで---------------------------------------------------------------------

// メイン処理-----------------------------------------------------------------------------
While True
　　Normal()　　//押し順無関係機種処理
　　Sleep(0.2)
Wend
// メイン処理ここまで---------------------------------------------------------------------

// 押し順無関係機種処理-------------------------------------------------------------------
Procedure Normal()
　　Kbd_hit(VK_SPACE)　　// ワンキーが「CTRL」の場合はVK_SPACE→VK_CTRL
fend
//押し順無関係機種処理ここまで------------------------------------------------------------

//キー押下処理関数
Procedure Kbd_hit(hit_key)
　　SendMessageA(SLOT_HWND,WM_KEYDOWN,hit_key,$0001)
　　sleep(0.05)
　　SendMessageA(SLOT_HWND,WM_KEYUP,hit_key,$C001)
fend
//キー押下処理関数ここまで

出玉状況スレがマクロスレにｗ

【募金】火病を克服した伯父が起業しますが私財も生活費も削りたくないのでお金ください
在日朝鮮人の黄奉燮（日本名：徳山武夫）さん（６１歳）は１９４７年兵庫県神戸市で生まれ、朝鮮総連の事務局長を歴任し、東京都下最強のパチンコ業界コンサル企業「�潟Rーリン」http://www.korinjapan.com/の元社長です。
黄奉燮さんは世界一の『人格者』で、「わしはもう学び尽くした！学ぶものが何も無い！啓蒙せなあかん！」といつも熱く語ります。
2007年7月6日、黄奉燮さんはあらゆる債務を踏み倒して会社の金を横領して夜逃げしました。 そして、債権者の熾烈な追い込みが怖くて火病に罹り、首吊り自殺未遂してしまったんです。しかし、これには深い事情があります。
債権者や従業員らは被害者ではなくて、黄奉燮さんの方が被害者なのです。
親友には裏切られ、従業員にも騙され、取引先にも嵌められ・・そのせいで８０００万円も損をさせられてしまいました。
それで黄奉燮さんは、こんなならず者どもを「啓蒙する」使命に目覚め、敢えて『非情なる』夜逃げを演じる事にしたのです。
今はどこにも雇って貰えず、結局は起業する以外に社会復帰のできる道はありません。
しかも日本では、黄奉燮さんのような６０過ぎた多重債務の在日朝鮮人が優良な企業に雇用して貰う道は閉ざされています。
黄奉燮さんの娘さんは占い師に意見を求めました。
その結果、黄奉燮さんは実業家として完全に復活するまでに資金源をしっかり確保する必要があることが判りました。
現在、無収入のため神戸市から月25万の生活保護を受けています。
が、生活保護では起業に必要な資金を作れず、現状ではとても貯金することができない莫大な投資が必要です。
しかし、他人は彼をよってたかって苛める上に、黄奉燮さんにまだ追い込みをかけて死に追い遣ろうとしています。
わたくしたち黄奉燮さんの親類達は「黄奉燮さんを支援する会」を結成し、黄奉燮さんをせめてお金の面から支援しようと募金活動を始めることにしました。
黄奉燮さんを支援するためには、会社設立費用　事務所費　関係者への接待交際費　運転資金　など約２億円が必要です。
イーバンクのメルマネ、募金の申し出やお問い合わせなどは、上記メアド欄までお願いします。

本スレ住人はあまり興味がないようなので
ここで報告

ゴールド万次郎使用アイテム
超獣Ｇ、ホースケＩＡ、ダブチャＩＡ、獣王ＩＡ

偽万次郎使用アイテム
ＳＥＦＡ、アレジンＦＡ？、サイドラＩＡ

前回の時みたいに随時報告が無いので
設定確認やドリンクアイテムを使ってるのかは不明

CONST WM_LBUTTONDOWN = $201
CONST WM_LBUTTONUP = $202
CONST MK_LBUTTON = $1

//各種クリック用基本関数
Function Target_clk(point,name,parent_flag)
　　layout_hwnd = 0
　　repeat
　　　　layout_hwnd = FindWindowExA(SLOT_HWND,layout_hwnd,NULL,"LayoutWnd")　　// ２つ目の子のi番目のLayoutWnd
　　　　ifb !layout_hwnd then
　　　　　　print name + " clk ERROR"
　　　　　　sleep(1)
　　　　　　result = -1
　　　　　　exit
　　　　endif
　　　　target_hwnd = FindWindowExA(layout_hwnd,NULL,NULL,name)　　// LayoutWndの子のname
　　until target_hwnd
　　if parent_flag then target_hwnd = layout_hwnd
　　SendMessageA(target_hwnd,WM_LBUTTONDOWN,MK_LBUTTON,point)
　　sleep(0.05)
　　SendMessageA(target_hwnd,WM_LBUTTONUP,MK_LBUTTON,point)
　　result = 0
fend

//エリア選択画面：エリアクリック用関数
Function AREA_clk(btnX,btnY)
　　point = (btnX - 7) + (btnY - 70) * $10000
　　result = Target_clk(point, "AreaMapCtrl", FALSE)
fend

//店舗選択画面：店舗クリック用関数
Function MAP_clk(btnX,btnY)
　　point = (btnX - 7) + (btnY - 70) * $10000
　　result = Target_clk(point, "TownmapCtrl", FALSE)
fend

//店舗選択画面：右側ボタンクリック用関数
Function MAP_BTN_clk(btnX,btnY)
　　point = (btnX - 3) + (btnY - 26) * $10000
　　result = Target_clk(point, "TownmapCtrl", TRUE)
fend

//店内画面：台クリック用関数
Function FLOOR_clk(btnX,btnY)
　　point = (btnX - 7) + (btnY - 70) * $10000
　　result = Target_clk(point, "floormap", FALSE)
fend

//店内画面：右側ボタンクリック用関数
Function FLOOR_BTN_clk(btnX,btnY)
　　point = (btnX - 3) + (btnY - 26) * $10000
　　result = Target_clk(point, "floormap", TRUE)
fend

//スロット画面：右側ボタンクリック用関数
Function SLOT_BTN_clk(btnX, btnY)
　　point = (btnX - 3) + (btnY - 26) * $10000
　　result = Target_clk(point, "777ContentWnd", TRUE)
fend

CONST BM_GETCHECK = $F0
CONST BM_SETCHECK = $F1
CONST BM_GETSTATE = $F2

//各種小窓：チェックボックスチェック用関数
Procedure SUBWIN_BTN_chk(win_id,name)
　　win_hwnd = IDTOHND(win_id)
　　win_hwnd = FindWindowExA(win_hwnd,NULL,NULL,name)　　// name
　　SendMessageA(win_hwnd,BM_SETCHECK,BST_CHECKED,0)
fend

//各種小窓：ボタン押下用関数
Procedure SUBWIN_BTN_clk(win_id,name)
　　win_hwnd = IDTOHND(win_id)
　　btn_hwnd = FindWindowExA(win_hwnd,NULL,NULL,name)　　// name
　　SendMessageA(btn_hwnd,WM_KEYDOWN,VK_SPACE,$0001)
　　sleep(0.05)
　　SendMessageA(btn_hwnd,WM_KEYUP,VK_SPACE,$C001)
fend

// メイン処理---------------------------------------------------------------------
While True
　　WIN_MAX = GETALLWIN()　　//　全ＩＤゲット
　　For i=0 to WIN_MAX - 1
　　　　NEW_ID = ALL_WIN_ID[i]
　　　　TEMP_TITLE = STATUS(NEW_ID,　ST_TITLE)　　　//　タイトル
　　　　ifb TOWN_HWND = IDTOHND(STATUS(NEW_ID, ST_PARENT)) then // 親ウインドウがサミタの場合
　　　　　　Select TEMP_TITLE　　　//　タイトル
　　　　　　　　Case "コインをチャージする"
　　　　　　　　　　SUBWIN_BTN_clk(NEW_ID,"はい")
　　　　　　　　　　Sleep(2)　　// 二重押し回避処理

　　　　　　　　Case "目押し"
　　　　　　　　　　print "目押し"
　　　　　　　　　　SUBWIN_BTN_chk(NEW_ID,"自動でドル箱を下皿へ戻す")
　　　　　　　　　　Sleep(5)
　　　　　　　　　　SUBWIN_BTN_clk(NEW_ID,"お願い")
　　　　　　　　　　Sleep(5)
　　　　　　　　Case "ドル箱を下皿に戻す"
　　　　　　　　　　SUBWIN_BTN_clk(NEW_ID,"はい")
　　　　　　　　　　sleep(1)
　　　　　　　　Case "Error"
　　　　　　　　　　SUBWIN_BTN_clk(NEW_ID,"OK")
　　　　　　　　　　sleep(1)
　　　　　　　　Case "エラー"
　　　　　　　　　　// エラーウィンドウ表示時に画面全体のスクリーンショットを取る(他アプリが原因の可能性が有るため)
　　　　　　　　　　SAVEIMG("Error")
　　　　　　　　　　// Beep音にてエラーをユーザに通知する
　　　　　　　　　　sound("BEEP")
　　　　　　　　　　// これ以上の処理は無駄なので終了
　　　　　　　　　　SUBWIN_BTN_clk(NEW_ID,"閉じる")
　　　　　　　　　　sleep(8)

　　　　　　　　Case "確認"
　　　　　　　　　　SUBWIN_BTN_clk(NEW_ID,"閉じる")
　　　　　　　　　　sleep(1)
　　　　　　selend
　　　　　　break
　　　　else
　　　　　　Select TEMP_TITLE　　　//　タイトル
　　　　　　　　Case "777タウン.net"
　　　　　　　　　　Kishu(Kishu)　　// 指定機種判別処理に飛ぶ (内容がわかる人は直接書き換えるのも有り)
　　　　　　　　　　break　　// 後から生成された窓ほど配列の先に来るのでこの窓が出たらサミタ関係は終了
　　　　　　　　Case "Portal.exe - アプリケーション エラー"
　　　　　　　　　　print "Portal.exe - アプリケーション エラー"
　　　　　　　　　　SUBWIN_BTN_clk(NEW_ID,"OK")
　　　　　　　　　　sleep(5)
　　　　　　　　　　break

　　　　　　　　Case "777town.net Portal Application"
　　　　　　　　　　print "777town.net Portal Application"
　　　　　　　　　　SUBWIN_BTN_clk(NEW_ID,"送信しない(&D)")
　　　　　　　　　　sleep(5)
　　　　　　　　　　break
　　　　　　selend
　　　　endif
　　Next

　　ifb i = WIN_MAX then　　// 777タウン.netが見つからなかった場合
　　　　print "サミタが見つかりません"
　　　　exit　　// わかる人はサミタ再起動処理に変更するのもあり
　　endif

　　Sleep((190 + RANDOM(20)) * 0.001)　　　　// 押し順ナビを無視する対策の待機時間(環境により調整が必要？)
Wend
// メイン処理ここまで---------------------------------------------------------------------

【文化】万次郎滞在の家、友好記念館に　日野原さんらが取得へ
http://news24.2ch.net/test/read.cgi/wildplus/1204546401/