【コッソリ】信長の野望Onlineチートスレ参【対策済】
とりあえず配布しろ
今すぐに、だ!
俺はPostMessageによる送信は出来てるんだがEnterKeyとかは出来ても
カーソルキー操作が出来てなかった。
上のアレがそうならとても助かるんだが。早く帰って試したい。
>>930 MapVirtualKeyって奴のことなら、keybd_eventで試したらできたよ。
PostMessageではまだ試してないけど。
uwscがウィンドウIDに対して操作を送れれば楽なんだけどねぇ
>>931 ふむ...自分、keybd_eventの方はカーソルキー関連も出来てるんだが、
コード変換は独自に関数用意して変換してるんよ。それだとPostMessageじゃ
動かなかったんで、MapVirtualKeyならどうかなー、とね。情報d楠。
アクティブウィンドウには送れるようになった…
が、やはり非表示窓へ操作を送るのがでけん…
表示窓へのカーソル送りはひとつの関数にまとめてみたんだがどうか
>>930 '定数宣言
Public Const KEYEVENTF_KEYUP = &H2
Public Const KEYEVENTF_EXTENDEDKEY = &H1
Public Const VK_LEFT = &H25 '[←]
Public Const VK_UP = &H26 '[↑]
Public Const VK_RIGHT = &H27 '[→]
Public Const VK_DOWN = &H28 '[↓]
'** Windows API 定義
Public Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, _
ByVal wMapType As Long) As Long
Public Declare Function keybd_event Lib "user32.dll" (ByVal bVk As Byte, _
ByVal bScan As Byte, _
ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long) As Long
'----カーソル移動関数----
Public Function keySend(bVk As Byte) As Long
Call keybd_event(bVk, MapVirtualKey(bVk, 0), KEYEVENTF_EXTENDEDKEY, 0)
Call keybd_event(bVk, MapVirtualKey(bVk, 0), KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End Function
'フォームでの使用
Private Sub Command1_Click()
Call keySend(VK_RIGHT)
End Sub
自己解決
コントロールIDを取得せんといかんのやね
メモ帳でためしててつまったんでググったら出てきたわ
ウィンドウハンドルとコントロールハンドルは別
で送る対象をしっかり指定せんとキーを送れないと
>>927 VB厨なんでVBでしかプログラムできないっす…
以下までは理解したがカーソルが動かん、どうすればいいのか…
助けてママン
’各定数や関数は宣言済みだと思ってね
Private Sub Command1_Click()
Dim hwindow As Long 'ウィンドウハンドル
Dim strWinName As String 'ウィンドウネーム
strWinName = "信長の野望 Online 2.05"
hwindow = FindWindow(vbNullString, strWinName)
If hwindow = 0 Then
MsgBox "エラー"
Exit Sub
End If
'動く(メニューオープン)
PostMessage hwindow, WM_KEYDOWN, VK_TAB, 0
'動かない(ここを動作させることができれば…)
PostMessage hwindow, WM_KEYDOWN, VK_DOWN, 0
End Sub
938 :
930:05/01/18 19:33:38 ID:???
今見た。935=936はホントに自己解決したんかな。
keybd_eventをPostMessageに置き換えるんよ?(引数の形は全然ちゃうが)
で同一人物か分からんが937が間違ってるのはココね。
> strWinName = "信長の野望 Online 2.05"
939 :
930:05/01/18 19:38:58 ID:???
ごめん勘違い、間違ってるか分からんわ>937
自分ウィンドウ名じゃなくてクラス名でFindWIndow掛けてた。一応それで動いてる。
940 :
930:05/01/18 20:02:19 ID:???
ごめんもっと勘違い、TABは動いてるんやね。見落としてた。
自分と同じトコで止まってると。ならもう書く事無いわ。
うざくてスマンかったな、もう消える。じゃなー。
言ってることがよく解からんでつ
何を使ったらそゆことできるのでつか?
一気にレベルを下げたな。
向上心のある奴は、漏れは好きだぞ。
TABやENTERなら効くが、カーソルキーやテンキーが効かない
ところまで来てるなら、ほとんど出来ていると言ってもいいくらい。
メモ帳等なら動くんだろ?
そこまで来たら、自分のプログラムを疑うのをやめろってのがヒント。
俺がFORTRAN77しか知らない事について
FORTRANなんて使ってるの30以上のオッサンだろw
大学のとき研究室のプログラムをFORTRANからCに移植した
今年で29歳の俺が言うんだから間違いない。
946 :
917:05/01/19 04:20:44 ID:???
一気にマクロスレっぽくなっちゃったな。
アドバイスしない方が良かったか。
>>946 ここはアカバン対象のRMTスレですが?
奇麗事イクナイw
948 :
937:05/01/19 09:52:29 ID:???
>>943 俺はノブ側が外部プログラムからのカーソルキー操作をトラップしてるんじゃないかと感じてる
もしや.bngファイルにそんな記述があるのか?そこを通せばカーソルキー操作を通せるんだろうか
.bngのkeybd_eventを追いかけてみるわ
TABやENTERに比べてカーソルキー軽く反応にぶくね?
俺はスペック足らないPCでやってるのでそんなものだと思っていたが、
やっぱカーソルだけ鈍いのか。
裏で処理やっているとみて間違いなさそうだな
>>949 カーソルキーはちょっと重い。
処理をollyで見てみたら分かると思う。
>>951 どうやればそれが見えるかちょっぴりヒントをいただけないものでしょうか
UωSCだとカーソルキーが問題なく動いてるから、
UωSCのReadme等々にヒントがあるかも。
どうやってフックしてるかの紹介的説明があったような希ガス。
そういえば、スペックの低いPCで
UωSCでカーソル使うと
勝手にリピートしたりしてたが、
その処理とやらが原因なのかも。
マジレスするとこの程度でOllyを使う必要はない。
PostMessageでできると分かっていたらあとは簡単。
おまいらおとなしくしとけよっ
変に対策されたらまたスクリプト書き直さないといけないんでまんどくせーんだからよぉー
カーソルキーが効かないとか言ってるのはあふぉ
>>956 そんなお前はどうせuwscとかのツールでやってんだろ?
君は少しでも上に便利にと考えることはないんだろうねぇ
プログラムは コボル で・・・
スライムぐらいかも
ここはオヤジが多いな
いい年してミジンコだの言ってるなんて・・・。
社会不適合者
そんなことよりログ取得ツールの仕組みを簡単に教えれ
あー、久々に着てみたら俺の釣堀がマクロスレになってやがる
はいどっこいしょ
ミジンコ ってなんでつか?
ミジンコとは・・・・・・・・・微生物である
126へぇ
窓化してるとTDの待ち時間が楽だね。
>>970 ログ取るツール、対話、徒党会話とか会話別に通知する機能があったんで
TD待ちや売り子してるときに他の作業できて楽
さーて、次スレでも・・・・・・
窓化したらパソ一台で二垢できるの?
同垢のキャラでも可能ですか?
ログ取るツールくださいm(_ _)m
どうちてログとるの?
ろぐ取るといいことあるのかなぁ?
よくわからんでち <T_T>
ログ取るツールはまたDLできるようになってるよ。
しかし、これパッチ来てもそのまま使えるのかな?どうやってるんだろ?
APIフック系かと思ったら、ReadProcessMemory使ってるみたいだし。
うまくパターンを見つけて検索してるのかね。
こっそり解析しようとしたら、メインプログラムはVBみたいで断念。
VBのプログラムなんて解析したことねぇよorz
アドレス教えてください;;
ログ取るてなに?
APIフックてなに?
VBてなに?
教えてクレクレ君でつが よろでつ m<_ _>m/y