再爆一个完整的源代码，可以解压龙之谷资源包，打包，定制定，制作自动补丁

a173862694 发表于 2013-4-15 22:56:00

不知道这个是不是龙之谷源代码莫名其妙搜到的求大神鉴定啊如果是真的大家顶啊为了广大的DN玩家不再受到SD的摧残谢谢
Global _OpenResName$
Global _SaveResName$
Global _OpenResPath$
Global _SaveResPath$
Global _IsUnPackRun
Global _IsPackRunGlobal _IsCloseWin100
Global _IsCloseWin200;虚拟文件的结构
Structure TypeVirFile
VirName$       ; 虚拟文件的虚拟全路径
VirSize.l       ; 虚拟文件的大小
ExtSize.l       ; 虚拟文件解压后的大小
KeepSize.l    ; 虚拟文件占用的空间的大小
VirAddress.l    ; 虚拟文件内容在资源中的指针地址
IdxAddress.l    ; 虚拟文件索引在资源文件的指针地址
EndStructure;虚拟文件的结构
Structure TypeVirFolder
VirPath$       ; 虚拟文件的虚拟路径
StartList.l    ; 符合虚拟路径的虚拟文件的开始索引号
EndList.l       ; 符合虚拟路径的虚拟文件的结束索引号
EndStructureGlobal NewList _ListAllVirFile.TypeVirFile()          ;虚拟文件的索引集
Global NewList _ListAllVirFolder.TypeVirFolder()       ;虚拟文件的路径集
Global NewList _ResFilesToPacking$()          ;虚拟文件的索引集
Global _CountResFilesToPacking          ;虚拟文件的索引集
;- 设置集---------------------------------------------------------------------------------------------------------Procedure UseParserRes_ReadUIPrefs()                                        ;<<<<<<<<<<OK

OnErrorResume() ;出错继续运行程序
OpenPreferences("set.prefs")
   PreferenceGroup("FileName")
      _OpenResName$ = ReadPreferenceString ("OpenResName", "")
      _SaveResName$ = ReadPreferenceString ("SaveResName", "")
      _OpenResPath$ = ReadPreferenceString ("OpenResPath", "")
      _SaveResPath$ = ReadPreferenceString ("SaveResPath", "")
ClosePreferences()

EndProcedure

;保存UI设置
Procedure UseParserRes_SaveUIPrefs()                                        ;<<<<<<<<<<OK OnErrorResume() ;出错继续运行程序
If CreatePreferences("set.prefs")
   PreferenceGroup("FileName")
      WritePreferenceString ("OpenResName", _OpenResName$)
      WritePreferenceString ("SaveResName", _SaveResName$)
      WritePreferenceString ("OpenResPath", _OpenResPath$)
      WritePreferenceString ("SaveResPath", _SaveResPath$)
   ClosePreferences()
EndIf
EndProcedure

;- 构建控件---------------------------------------------------------------------------------------------------------; 构建主窗体控件
Procedure CreateWin_MainWindow() WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(0, 0, 0, 620, 200, "迷路[龙之谷]客户端解析器 V1.00", WinFlags )
If WinHwnd = 0                      : ProcedureReturn #True : EndIf    ;构建主窗体
If CreateGadgetList(WindowID(0)) = 0 : ProcedureReturn #True : EndIf    ;构建主窗体
UseParserRes_ReadUIPrefs()

Frame3DGadget(100, 010, 010+000, 600, 080,"解析成明文文件库")
TextGadget (101, 025, 033+000, 080, 020, "资源地址:")
StringGadget (103, 100, 030+000, 400, 020, "")
ButtonGadget (105, 510, 030+000, 020, 020, "..")

TextGadget (102, 025, 063+000, 080, 020, "明文库地址:")
StringGadget (104, 100, 060+000, 400, 020, "")
ButtonGadget (106, 510, 060+000, 020, 020, "..")
ButtonGadget (107, 540, 030+000, 055, 050, "解析")

Frame3DGadget(200, 010, 010+100, 600, 080,"打包成资源文件")
TextGadget (201, 025, 033+100, 080, 020, "明文库地址:")
StringGadget (203, 100, 030+100, 400, 020, "")
ButtonGadget (205, 510, 030+100, 020, 020, "..")

TextGadget (202, 025, 063+100, 080, 020, "新资源地址:")
StringGadget (204, 100, 060+100, 400, 020, "")
ButtonGadget (206, 510, 060+100, 020, 020, "..")
ButtonGadget (207, 540, 030+100, 055, 050, "打包")

;ProgressBarGadget(300, 010, 200, 600, 20, 0, 100 )

SetGadgetText(103, _OpenResName$)
SetGadgetText(104, _SaveResPath$)
SetGadgetText(203, _OpenResPath$)
SetGadgetText(204, _SaveResName$)
;SetGadgetState (300, 100)

EndProcedure
Procedure CreateWin_UnPackingWindow() WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(100, 0, 0, 400, 110, "正在解析["+GetFilePart(_OpenResName$) + "]资源", WinFlags )
If WinHwnd = 0                      : ProcedureReturn #True : EndIf    ;构建主窗体
If CreateGadgetList(WindowID(100)) = 0 : ProcedureReturn #True : EndIf    ;构建主窗体
   Text$ = "[共有: " + Str(CountList(_ListAllVirFolder())) + "个文件夹] 正在创建文件夹..."
   TextGadget(1000, 10, 20, 270, 20, Text$)
   TextGadget(1001, 280, 20, 110, 20, "[耗时 ms] 0%",#PB_Text_Right)
   ProgressBarGadget(1002, 10, 40, 380, 20, 0, 100 )
   ButtonGadget (1003, 300, 70, 80, 30, "取消" )
   SetGadgetState (1002,0)
   DisableWindow(0, 1)
   DisableGadget(1003, 1) EndProcedureProcedure CreateWin_PackingWindow() WinFlags.l = #PB_Window_MinimizeGadget|#PB_Window_SystemMenu|#PB_Window_ScreenCentered
WinHwnd = OpenWindow(200, 0, 0, 400, 110, "正在打包["+GetFilePart(_SaveResName$) + "]资源库", WinFlags )
If WinHwnd = 0                      : ProcedureReturn #True : EndIf    ;构建主窗体
If CreateGadgetList(WindowID(200)) = 0 : ProcedureReturn #True : EndIf    ;构建主窗体
   Text$ = "正在检测资源库文件..."
   TextGadget(2000, 10, 20, 270, 20, Text$)
   TextGadget(2001, 280, 20, 110, 20, "[耗时 ms]",#PB_Text_Right)
   ProgressBarGadget(2002, 10, 40, 380, 20, 0, 100 )
   ButtonGadget (2003, 300, 70, 80, 30, "打包" )
   ButtonGadget (2004, 300, 70, 80, 30, "取消" )
   CheckBoxGadget (2005, 10, 70, 200, 30, "打包空文件" )
   SetGadgetState (2002,0)
   DisableWindow(0, 1)
   HideGadget(2003, 1) : HideGadget(2004, 1) EndProcedure

表示看不懂也不知道是不是源代码

还有这个
解压后请用c-free5 打开源代码

松岛坐爱枫 发表于 2013-4-15 23:22:39

貌似好高深的样子，顶一下

a173862694 发表于 2013-4-16 01:39:04

顶一下

tlsnake1982 发表于 2013-4-16 07:39:19

不错
支持啊
下案例

le9 发表于 2013-4-16 08:29:43

不懂支持一下

ㄣ爱々坏坏ゞ 发表于 2013-4-16 09:55:39

不懂支持一下

kong! 发表于 2013-4-16 10:10:34

顶上去啊。。。大婶们快点搞个龙之谷SF啊。。。。

lwm868 发表于 2013-4-16 11:01:51

绝对支持。！！！

kong! 发表于 2013-4-16 11:03:37

再来顶你一次等大婶~！

安守的本份 发表于 2013-4-16 11:04:05

支持一下，，，

贰零壹贰1 发表于 2013-4-16 11:08:55

看不懂，支持一下啦

hope20091111 发表于 2013-4-16 11:19:24

不懂，装一下~~~~~~

lzb1992 发表于 2013-4-16 13:07:18

额表示不懂

a173862694 发表于 2013-4-16 13:09:48

求顶

kong! 发表于 2013-4-16 13:14:59

帮你顶下哦~！！

hyglyq 发表于 2013-4-16 13:36:57

这种技术的东西，看到都头大

yanjing蛇 发表于 2013-4-16 14:53:45

没事顶一下楼主

wlmlove001 发表于 2013-4-16 17:04:27

喜欢DN，顶一下

安于此生。 发表于 2013-4-16 18:26:43

支持下，表示不会

zt3632563 发表于 2013-4-16 18:44:29

页: [1] 2 3

藏宝湾网游单机站's Archiver

再爆一个完整的源代码，可以解压龙之谷资源包，打包，定制定，制作自动补丁