aong678 - 2007/5/3 8:14:00
需要 按键精灵版本6.1
脚本
VBSCall RunApp("C:\KEY\CLANNAD\REALLIVE.EXE")
//日文游戏路径默认为 C:\KEY\CLANNAD\REALLIVE.EXE
Plugin hwnd1 = Window.GetKeyFocusWnd()
VBSCall RunApp("C:\KEY\CLANNAD\REALLIVE.EXE")
//中文游戏路径默认为 C:\KEY\CLANNAD\REALLIVE.EXE
Plugin hwnd2 = Window.GetKeyFocusWnd()
Delay 2000
//延迟时间默认为 2000毫秒
Sub 1
WaitKey k
If k=96
//游戏中翻页键默认为 96 则数字盘上 0
Plugin BGKM2.KeyClick(hwnd1,13)
Plugin BGKM2.KeyClick(hwnd2,13)
EndIf
Gosub 1
由脚本启动 翻页键由数字盘上 0 代替Enter 进行翻页
游戏支持全屏不需要切换窗口
但由于同步率并不太理想所以请不要按得太快大约等1秒左右就可以了
启动脚本时需要让按键精灵程序窗口化 不能最小化否则脚本无效
这个脚本需要 361度 的后台操作插件
否则脚本脚本无效(忘记说了。。。。)
请到按键精灵论坛下载该插件 下载后解压于按键精灵目录下 plugin 文件夹中
[url]http://bbs.vrbrothers.com/viewthread.php?tid=33722[/url]
刘硕鼠 - 2007/5/3 14:51:00
……
如果是窗口方式的话，只需要这样的脚本
MoveTo x1,y1
LeftClick 1
MoveTo x2,y2
LeftClick 1
其中x1,y1 x2,y2分别是两个窗口上的某点，两个窗口只要不完全重合，露出一点即可，按一次两个窗口同步翻页，原理非常简单一看便知
然后利用PowerMenu或类似工具使中文版窗口始终置于最上方即可
aong678 - 2007/5/3 19:05:00
LS的脚本确实方便多了
以前不知道有能让窗口始终前端显示的软件。。。。
keakon - 2007/5/5 6:56:00
楼主想法真奇特，收下谢谢了～
chaineryu - 2007/5/5 9:26:00
Plugin hwnd = Window.GetKeyFocusWnd()
For 10000000
WaitKey last_click
Plugin Window.SendKeyPress(hwnd,13)
EndFor
这个最简单了。。连换窗口都不需要，后台操作日文版的旧可以了
刘硕鼠 - 2007/5/6 1:26:00
[quote]原帖由 [b]chaineryu[/b] 于 2007-5-5 9:26:00 发表
Plugin hwnd = Window.GetKeyFocusWnd()
For 10000000
WaitKey last_click
Plugin Window.SendKeyPress(hwnd,13)
EndFor
这个最简单了。。连换窗口都不需要，后台操作日文版的旧可以了[/quote]
你这个没有测试过吧，SendKeyPress这个对Clannad好像无效的说
btw:我为什么不能引用..................
keakon - 2007/5/6 6:38:00
嗯，是不能用SendKeyPress，但可以用其他办法，麻烦些＝。＝
chaineryu - 2007/5/7 21:54:00
原帖由 刘硕鼠 于 2007-5-6 1:26:00 发表
[quote]原帖由 chaineryu 于 2007-5-5 9:26:00 发表
Plugin hwnd = Window.GetKeyFocusWnd()
For 10000000
WaitKey last_click
Plugin Window.SendKeyPress(hwnd,13)
EndFor
这个最简单了。...... |
可以用的，只要多运行几次。。到成功为止。。。而且偶尔会出错和停摆，做点微妙的调整就ok了
我就是这么玩得嗯，并且在多台电脑上试过了
equaliser - 2007/5/9 21:50:00
SendKeyPress有用，但是加上WaitKey就完全失效
不解
aong678 - 2007/5/13 2:18:00
修改了脚本 能够自行翻页了 不过同步率差了点
顺便把以前的脚本贴下
VBSCall RunApp("C:\KEY\CLANNAD\REALLIVE.EXE")
Plugin hwnd1 = Window.GetKeyFocusWnd()
VBSCall RunApp("C:\KEY\CLANNAD\REALLIVE.EXE")
Plugin hwnd2 = Window.GetKeyFocusWnd()
Delay 2000
For 10000000000
Plugin BGKM2.KeyClick(hwnd1,13)
Plugin BGKM2.KeyClick(hwnd2,13)
Delay 3000
EndWhile
同样需要插件 同步率好
不过每3秒就会自动翻页 需要设置暂停键在每次翻页后3秒内暂停脚本再按暂停键继续脚本