【真】パチスロタウン renewal【黒】

過去スレのログを全て取得することに成功した！！
さて今から全部のスレを最初から読んで行くぞ！！目指せ勲章1000個！！

勲章1000個ってｗ
過去にマクロは出ていたが、チート方法は出ていなかったと記憶

ＶＢ２００５で組んでる人に質問です。今ＶＢ６から移行中なんですが、以下の処理が動きません。
GetWindowTextで例外処理が発生してしまうのですが、どう直したらいいのか教えてください

Public Function Get_ActiveWindow() As String

　　Dim TString As String
　　Dim lngResult As Long
　　Dim AWhwnd As Long

　　TString = Space(255)
　　AWhwnd = GetForegroundWindow 'アクティブウインドウハンドルを取得
　　lngResult = GetWindowText(AWhwnd, TString 255) 'アクティブウインドウのタイトルを取得
　　Get_ActiveWindow = Left$(TString , InStrTString vbNullChar) - 1)

End Function

>>954
俺もVB6で組んでるが、無理に2005にすることもないんじゃね？
ちなみその関数でなにがしたいのかよくわからんけど、FindWindowのAPIのほうが
使い勝手良くない？
2005で動くかはしらんけど

>>955
ＶＢ６に比べて便利になっているのと、ＶＢ６自体が会社からごにょごにょ・・・・な物なので移行しようかと

・・・・・っていうか確かにこれやらなくてもいいな＾＾；；；；；；；；；；；
VB６から単純に移行して動かそうとして処理見直しを疎かにしてました。

まぁ処理的にはGetWindowTextで取得した文字列を元にInｓｔｒで判定してたんだけど、
確かに直接Findwindowで見た方がいいですね。
つか最初に作った時にコピペしたのをそのまま流用してた俺が悪かったｏｒｚ

>>956
まあ、ガンガレや。
ちなみに俺のVB6のヤツはGetForegroundWindowなんて使ってないぞｗ
てか、みんな元ネタがあってそれをパクって作ってるんだね。いいなぁ。
俺なんて新規作成でフォーム貼るとこから試行錯誤して手作りしたよ。
まあ、全部自作だからGUIはｶｯｺｲｲけどなｗ

>>957
俺は共通関数だけパクって作りは完全自作
GUIはあまり凝ってないなぁ・・・・ListBoxとボタンだけ。
オプションは色々追加したけど（最高券使用台ハイエナ機能とかｗ）

俺は共通関数を工夫して機種毎のプログラム行数を減らす事に時間割いたから
かなりすっきりしてる自信はあるｗ

VB６ならどうにでもなるが、2005いじったことがないからちょっと勉強してみるわ

>>958
>最高券使用台ハイエナ機能
いいなそれｗｗ
俺も次回バージョンアップ時に組み込もうかな
ちなみに、一人に狙いをつけてエナるの？
それともフロア巡回型？
前者なら１０分でできるが後者はチトめんどくさいな…

>>954
×Dim TString As String
○Dim TString As New VB6.FixedLengthString(255)

×Dim 〜 As Long
○Dim 〜 As Integer

VB2005は型式宣言がウルサイよ
VB6があるならそのままでいいやん

これでいけるか？

while エナるまで
for until リストエンド
if 着席成功(リストidx) then
エナり
exit for
end if
next
en while

うは。なんかネストできてなくて見にくいなｗ

ところで、フロアの画面て外から制御できる？
画面に表示されてない席とか、座標でうまくとれるんかな？

右上のフロアの見取り図をクリックすると画面が移動する。

アラジンとかアラジン2のようなオヤジ打ちフリーのマクロでいいから誰かくれ！！
頼むわ！！もう限界なんや！！家計が火の車や！！！このままじゃ一家離散やねん！！
そりゃワシかて超獣やサラ金のような高機能マクロをくれなんて言わへん！！そんなこと言うかいな！！
オヤジ打ちフリーでええねや！！ボヌス入っても打ち続けてくれるだけでええねや！！それだけでほんまに救われるんや！！
頼むわ！！なっ！？ええやろ！？期待しとるで！！ほなな！！また来るさかい！！

女医で十分だろ。
クイック連とワンキー連打ほぼいける。

安けりゃ５００円位で売ってる。

梅梅

>>964
そこまで言うなら、わざと機能を削った単なる連打マクロをあなただけの為に
作ってあげてもいいですよ。まあ、目押し機能くらいは付けてもいいです。
でも、ここをROMってるｸﾚｸﾚ君にまで渡すのはまっぴら御免なので
あなただけに確実に手渡せる方法があれば教えて下さい。
尚、ツール使用がばれないようなexeにはしますが、他の人に横流しされないよう
ツールにあなたの名前とメアドもでかく記載しますがご了承下さいｗ

もうスレ終わっちゃうよ

>>960
ありがと。そんな宣言部まで違うのかｏｒｚ
まぁ勉強がてら組んでみるよ。

>>959
・フロア巡回はどうにも座標あわせがめんどくさい（できなくは無いけど）
・フロア巡回させるとタイミングが悪いと巡回してる間に着席される
・最高券札だけを見ると張り替え等でわからなくなる

以上の理由から１シマ限定で１０個のチェックボタン付けてエナりたい台を指定するようにしている
因みに俺のはWhileループ型じゃなくてタイマ使ってるのでマクロとは別のタイマ貼って監視してる
退店しないよう１分に一度適当にボタン押すの忘れずにｗ

>>965
PS2の女医使うてるけどそんな方法さっぱり分からへん！！教えてくれへんかな！？

>>967
ほんまに！？ごっつ嬉しい申し出やけどワシだけが貰える方法なんて検討もつかへん！！どないしたらええんや！！

>>970
じゃあ、捨てアドでいいから教えてくれれば連絡します。
まだ仕事中なので気が向いたら今晩にでも作っておきますｗ

次スレはｴﾝﾄﾞﾚｽﾌﾞﾗｯｸでおｋ？

>>970はもしかして新手の釣り師なのか？

>>971
おおきに！！ホンマ心優しいやっちゃ！！あんさんの優しさは通天閣に響き渡るでホンマ！！
捨てアドは[email protected]やさかいお願いしますわ！！
ほんま！！ほんまにおおきに！！

>964,967
どっちが釣りなんだ？

ん?! パーヤンか？

バーヤンて誰？有名人なのか？

>>975
ワシは釣りちゃうで！！>>967はんのメールを一日千秋の想いで待っとるんやで！！ホンマやで！！

そろそろ埋め梅
















,

>>978
メールしたけど返事ｺﾈｰ　（´・ω・`）

>>978
メールしたけど返事こないよ（´・ω・`）

>>978
メールしたよ

ぐは！　連投になっちゃった。スマソ

ついでだから　埋め

次スレはここでおｋ？
つttp://game11.2ch.net/test/read.cgi/mmosaloon/1171985995/

うめ

うめぇ

うめぇー

うめぇー！

うめうめ

うじぇめ

馬

(;^_^A

(;^_^U

残り6

(;^_^N

間違った＾＾A

おぅ！

∠(*^ー^*)

1000ゲト戦記

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。