英雄传说VI空之轨迹TC 游戏字幕工具

守护骑士

英雄传说VI空之轨迹TC 游戏字幕工具  


一、设计初衷  
     作者是英雄传说VI系列的玩家，在SC中文版未出的时候已经酝酿设计这个程序。现在趁着TC中文版未出，再次放出这个程序，让各位喜爱英雄传说的玩家交流。特别地，本程序针对英雄传说VI空之轨迹TC版的，因为该游戏还没有中文版。  


二、使用声明  
     本程序是作者用Visual Basic6.0编写出来，内无任何木马或病毒，为绿色版本，不会修改注册表，用后直接删除即可。允许免费下载和转载该程序，允许加工、修改、完善。作者甚至公开源代码供大家查阅，请放心使用。  


三、用前须知  
     本程序显示的字体默认为微软雅黑，该字体支持cleartype技术。安装微软雅黑字体后使用更佳。没有安装微软雅黑将以宋体显示。推荐使用1024x768或以上分辨率使用此程序。  


四、使用说明  
[1]   text.txt存放原来的文本，load.txt存放存储的页数，这两个文件不能删除，否则启动出错。  
[2]   你可以用其他的text.txt来替换原来的文本。  
[3]   进行游戏时将游戏窗口化，然后一边游戏一边看字幕。  
[4] 【空格】【N】后翻一页，【B】前翻一页，【S】暂停字幕，【P】保存当耙呈?
[5]   当你在玩英雄传说6空之轨迹TC的时候，该程序附带的字幕不可能会完全匹配，所以你需在游戏中按【N】或【B】进行调整，还有适当按【Ctrl】。  
[6]   建议将游戏的翻页的按键在设置中转成【V】。  


五、意见和建议  
     如果你对这个小工具有兴趣或有任何意见和建议，你可以Email到jmleolgq@126.com，作者将会根据意见更新这个工具的。  


========================  
附：程序代码  
========================  
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer  
Private a(100000) As String  
Public m, n, s As Integer  
Private Sub Command1_Click()  
Open "load.txt" For Output As #1  
Print #1, n  
Close  
Text1 = "『保存成功！』"  
Text1.SetFocus  
End Sub  
Private Sub Form_Load()  
Timer1.Interval = 1  
Timer1.Enabled = True  
On Error GoTo handler1  
Open "test.txt" For Input As #5  
Do Until EOF(5)  
n = n + 1  
Line Input #5, b$  
a(n) = b$  
Loop  
m = n  
n = 0  
Close  
Open "load.txt" For Input As #1  
Line Input #1, b$  
n = Val(b$)  
Close  
Text1 = a(n)  
Exit Sub  
handler1:  
Open "test.txt" For Append As #1  
Close  
Open "load.txt" For Output As #1  
Print #1, 0  
Text1 = "『读取文件失败』"  
Exit Sub  
Close  
End Sub  

Private Sub text2_KeyPress(KeyAscii As Integer)  
If KeyAscii = 13 Then c = Int(Abs(Val(text2))): If c < m Then n = c: Text1 = a(n): Text1.SetFocus  
End Sub  
Private Sub Timer1_Timer()  
If s = 0 Then  
If GetAsyncKeyState(vbKeySpace) = -32767 Or GetAsyncKeyState(vbKeyN) = -32767 Then If n < m Then n = n + 1: Text1 = a(n)  
If GetAsyncKeyState(vbKeyB) = -32767 Then If n > 1 Then n = n - 1: Text1 = a(n)  
End If  
If GetAsyncKeyState(vbKeyS) = -32767 Then If s = 0 Then s = 1: Text1 = "【游戏字幕暂停中……】" Else s = 0: Text1 = "【暂停取消】"  
Label1 = Format(n) & " / " & Format(m)  
If GetAsyncKeyState(vbKeyP) = -32767 Then Command1_Click  

下载地址：http://hi.baidu.com/leolgq/blog/ ... d9e6b0c8eaf422.html
                http://pickup.mofile.com/5454852981065000

原帖地址：http://tieba.baidu.com/f?kz=414619743

Breeze

LS正解...而且这东西有点老了.
=====================
不是TC,3rd

217，213

中文版都出了。。。。。