- nicehost
-
前台转后台脚本的开源
UserVar ckcz=0|0 窗口差值(利用获得游戏窗口差值获得)
UserVar jbblm=Hwnd 窗口句柄变量名
UserVar wjlj="d:测试.txt" 文件路径
UserVar jbdmsf=DropList{是:1|否:0}=0 是否释放获得句柄的代码
//以下为环境设置
If ms=1
Gosub [获得窗口数据]
//下面这句是设置剪切板内容
Plugin Sys.SetCLB(ckcz)
MessageBox "获得的" & yxckbt & "窗口差值是:" & ckcz & ";" & chr(13) &" 值以存入剪贴板;"&chr(13)&"点确定后按Y键直接进行脚本转换。按其他键结束脚本!"
WaitKey zljz
If zljz<>89
Goto [结束]
EndIf
EndIf
Plugin sfcz=File.ExistFile(wjlj)
If sfcz=0
MessageBox "文件不存在请检查是否文件路径输错"
Goto [结束]
EndIf
Gosub [获得文本所在地址]
PutAttachment cclj
cflj=cclj & "转换完成.txt"
srzb=ckcz
Gosub [分解坐标]
czx=sczbx:czy=sczby
//下面这句是向目标文件( wjlj)读出文本内容到变量(yzhdwb)
Plugin yzhdwb = File.ReadFileEx( wjlj)
//分解文本内容
wbnr=Split(yzhdwb, "|")
//获得文本长度
wbzcd=UBound(wbnr)
//定义文本开始行
wbdqh=0:xsbcz=0
If jbdmsf=1
ysx_jbdm="//下面这句是得到当前最前面的窗口句柄"&Vbcrlf&"lugin "& jbblm & "=Window.Foreground()"
Plugin File.WriteFileEx(cflj, ysx_jbdm)
EndIf
//开始转换
For wbzcd
jxpdzf=LTrim(wbnr(wbdqh))
Gosub [代码判断]
cfnr=LTrim(wbnr(wbdqh))
If xsbcz=1
Plugin File.WriteFileEx(cflj, zcdm)
xsbcz=0
EndIf
If cfnr<>""
Plugin File.WriteFileEx(cflj, cfnr)
EndIf
wbdqh=wbdqh+1
EndFor
//脚本结尾
Rem [结束]
MessageBox "脚本结束。"
EndScript
Sub [获得文本所在地址]
wjljcd=len(wjlj)
dzdzbl=0
For wjljcd
pdzf=left(right(wjlj,dzdzbl),1)
If pdzf=""
Goto [完成地址判断]
EndIf
dzdzbl=dzdzbl+1
EndFor
Rem [完成地址判断]
cclj=left(wjlj,wjljcd-dzdzbl+1)
Return [获得文本所在地址]
Sub [获得窗口数据]
//下面这句是得到当前最前面的窗口句柄
Plugin win_ckjb = Window.Foreground()
//下面这句是得到窗口句柄的标题
Plugin yxckbt = Window.GetText(win_ckjb)
//下面这句是得到窗口句柄的客户区大小
Plugin khqdx = Window.GetClientRect(win_ckjb)
- coco
-
要图