文章: 魔兽插件管理程序 AU3 源码 [打印]
分类: 網管相關
作者: hopol
2008-06-15 08:25

[attach=332]

写此程序的原因：

1、无聊透顶

2、方便新手学习

3、在天下网盟上看到有人用AU3写的，BUG挺多，本来想改改，但没开源，我看着心里不爽

4、正在想。。。。

程序及源码如下，程序未加密，可直接反到源码。 

[attach=333]

以下为源码及详解：

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;本程序下面很多地方循环是从2开始，因为魔兽CONFIG.INI文件是从第二行开始才是
;;;大区信息，第一行那些数字是什么意思我也不懂，对本程序没用，希望你在看下面的
;;;程序的时候不要产生疑惑!!!另:本程序通过各种情况的测试，加了大量的错误判断，
;;;以应付各种已知或未知错误,但因作者也是AU3新手，不能保证每行程序的有效性与执行效率,
;;;因为写本程序的主要目的,是为了方便广大AU3爱好者学习交流,其次才是为了广大魔兽玩家
;;;的游戏方便.望各位在使用过,程中出现各种问题的时候,不要骂我及我的程序.本人也对因使
;;;用本程序造成的各种后果及产生的各种损失概不负责.

#NoTrayIcon ;;;不显示任务栏的图标

;;;;这段意思是防止重复打开程序
$g_szVersion = "My Script 1.1"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

;;;本段是引用这两个文件,因为在下面会用的到.
#include <GUIConstants.au3>
#include <file.au3>
;;;定义变量
dim $area,$Radio[11],$label,$area[11],$G_area[11],$address[11],$coord,$x,$y,$BUTTON[7][2],$GAMEpath,$TEMP,$message,$LOGIN = 0
$gamepath = INIREAD ("WOWUIM.INI","游戏路径","游戏路径",@ScriptDir)

If Not _FileReadToArray($GAMEpath & "\config.ini",$area) Then
MsgBox(4096,"错误", "读取配置文件CONFIG.INI时发生错误！将启动魔兽自身登录器！")
$LOGIN = 1
gamestart()
EndIf
if $area[0] > 10 then
Msgbox (4096,"对不起","目前本软件最多支持九个魔兽大区！")
exit
endif
For $x = 2 to $area[0]
$G_area[$x] = StringLeft($area[$x],10 )
$address[$x] = StringMid($area[$x],17, 22)
Next


$UI = IniReadSection("wowuim.ini", "插件地址")
IF $UI = 1 THEN
Msgbox (4096,"对不起","读取配置文件WOWUIM.INI时发生错误！")
exit
endif
if $UI[0][0] > 6 then
Msgbox (4096,"对不起","目前本软件最多可同时管理六个插件！")
exit
endif

$MESSAGE = INIREAD ("WOWUIM.INI","提示信息","提示信息","")
IF $MESSAGE THEN MsgBox (4144,"注意",$MESSAGE)

GUICreate("魔兽世界插件管理器",230,280)
GUICtrlCreateGroup("请选择大区", 6, 8, 130, 240)

;;;下面两句是读出配置文件中的两个复选框上次的状态.
$WINDOW = IniRead ( "WOWUIM.ini", "窗口模式", "窗口模式", "0" )
$SBEXIT = IniRead ( "WOWUIM.ini", "启动后退出", "启动后退出", "1" )

;;;在GHI上创建两个复选框并用上面两句读出的状态信息初始化
$CHKBOX1 = GUICtrlCreateCheckbox ( "窗口模式", 6, 255)
GUICtrlSETSTATE(-1,$WINDOW)
$CHKBOX2 = GUICtrlCreateCheckbox ( "启动游戏后退出此程序", 82, 255 )
GUICtrlSETSTATE(-1,$SBEXIT)

;;;在GUI上创建上面从CONFIG.ini中读出的分区信息以及相应的单选按钮
For $x = 2 to $area[0]
$coord = $coord + 25
$Radio[$x] = GUICtrlCreateRadio ($G_area[$x],20,$coord)
Next

;;;;下面一段是读取上次用户选择的大区信息,用来初始化上面一段创建的单选框的状态 ,如果出错则默认为一区
$DEFAULTAREA = IniRead ( "WOWUIM.ini", "默认大区", "默认大区", "1" ) + 1
IF $DEFAULTAREA > 10 OR $DEFAULTAREA < 2 THEN $DEFAULTAREA = 2
GUICtrlSetState ($Radio[$DEFAULTAREA],$GUI_CHECKED)

;;;;这一段是根椐配置文件来创建各种插件的按钮
$coord = 15
FOR $X =1 TO $UI[0][0]
$BUTTON[$x][0] = GUICtrlCreateButton($UI[$X][0], 145, $coord, 76, 22)
$BUTTON[$x][1] = $UI[$X][1]
$coord = $coord + 30
NEXT

;;;创建"删除插件"与"开始游戏"两个按钮
$deleteUI = GUICtrlCreateButton("删除插件", 145, 195, 76, 22)
$startgame = GUICtrlCreateButton("开始游戏", 145, 225, 76, 22)


GUISetState(@SW_SHOW)
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE ;;这个是右上角的退出按钮,不用说了吧
ExitLoop
Case $msg = $CHKBOX1 ;;这两段$CHKBOX意思是当用户点击"窗口模式"与"启动后退出"两个复选框时,则将$window与$sbexit
$WINDOW = NOT $WINDOW ;;执行一次NOT运算,然后再将当前的状态iniwrite进配置文件,下次启动程序时再读出来
INIWRITE ( "WOWUIM.ini", "窗口模式", "窗口模式", $WINDOW )
Case $msg = $CHKBOX2
$SBEXIT = NOT $SBEXIT
INIWRITE ( "WOWUIM.ini", "启动后退出", "启动后退出", $SBEXIT )
Case $msg = $deleteUI ;;;如果用户点击删除插件按钮则清除魔兽目录下的INTERFACE目录
IF FILEEXISTS ($GAMEPATH & "\INTERFACE") THEN
$TEMP = DirRemove ($GAMEPATH & "\INTERFACE",1)
IF $TEMP = 0 THEN MSGBOX (4096,"错误","删除" & $GAMEPATH & "\interface时发生错误,请检查是否对目录具有相应权限!")
ENDIF
Case $msg = $STARTGAME ;;如果用户点击启动游戏按钮则运行GAMESTART()函数
GAMESTART()
Case $LOGIN = 1 ;;;如果$login =1 则直接启动魔兽本身的登录器，因为我本程序默认时LOGIN的值为0，当程序出现错误时将LOGIN设为1
IF FILEEXISTS ($GAMEPATH & "\Launcher.EXE") THEN
RUN ($GAMEPATH & "\Launcher.EXE")
exit
ELSE
MSGBOX (4096,"错误","找不到" & $GAMEPATH & "\Launcher.EXE,请检查配置文件路径是否正确!")
exit
ENDIF
Case ELSE
;;;;;;;;;;这一段意思是如果如果用户点击相应的插件按钮则运行配置文件中配置好的那个程序,比较复杂
FOR $X =1 TO $UI[0][0]
IF $MSG = $BUTTON[$x][0] THEN
IF FILEEXISTS ($BUTTON[$x][1]) THEN
RUN ($BUTTON[$x][1])
EXITLOOP
ELSE
MSGBOX (4096,"错误","找不到" & $BUTTON[$x][1])
EXITLOOP
ENDIF
ENDIF
NEXT
EndSelect
WEnd
Exit
;;;下面这个函数比较复杂,唉!!!因为我实在找不到能对文本文件中的某行进行替换的函数,简单翻了下API,如像也没有,只好把文件读到一个数组,修改
;;;相应的行的值,然后再写回去,这段我个人认为设计比较复杂,执行效率也不高,但我也是AU3新手,也就到了这个水平了,要是这段代码能优化的话,请告
;;;诉我一声.本来我自已设计了一个能对文本文件的某行进行替换的函数.但还有点小问题,不能用,所以只好先这样了.
;;;魔兽文件夹里的config.ini保存的是分区名及地址端口等信息,launcher.ini和realmlist.wtf保存你上次选择的分区信息,测试发现launcher,ini会影
;;;响到魔兽本身登录器的默认分区,realmlist.wtf不知影响些什么,WTF\config.wtf保存你的游戏的一些配置信息:如窗口模式是否最大化窗口等等,
;;;;启动WOW.exe时就会从这个文件里面读出一些信息.本来只更改config.wtf这一个文件就可以控制WOW.EXE这个程序的,但我刚开始写程序时对这几个
;;;文件都进行了操作,最好我也懒得去把他们从里面挑出来删掉了,就这样,反正只是为了学习,我本人不玩魔兽,对魔兽的了解也就这么多了,不对的地方大家见谅.
FUNC GAMESTART()
LOCAL $gxWindow = 0
LOCAL $realmlis = 0
LOCAL $WTF,$launcher
IF $LOGIN = 0 THEN
If Not _FileReadToArray($GAMEpath & "\wtf\config.wtf",$WTF) Then
MsgBox(4096,"错误", "读取配置文件WTF\CONFIG.WTF时发生错误！将启动魔兽自身登录器！")
$LOGIN = 1
EndIf
If Not _FileReadToArray($GAMEpath & "\launcher.ini",$launcher) Then
MsgBox(4096,"错误", "读取配置文件launcher.ini时发生错误！将启动魔兽自身登录器！")
$LOGIN = 1
EndIf

IF NOT _FILECREATE ($GAMEpath & "\WTF\CONFIG.WTF") THEN
MsgBox(4096,"错误", "创建配置文件WTF\CONFIG.WTF时发生错误！将启动魔兽自身登录器！")
$LOGIN = 1
ENDIF
IF NOT _FILECREATE ($GAMEpath & "\launcher.ini") THEN
MsgBox(4096,"错误", "创建配置文件launcher.ini时发生错误！将启动魔兽自身登录器！")
$LOGIN = 1
ENDIF
ENDIF

IF $LOGIN = 0 THEN
For $x = 2 to $area[0]
IF GUICtrlRead ($Radio[$x]) = 1 THEN ;判断用户选择的是哪个大区
INIWRITE ( "WOWUIM.ini", "默认大区", "默认大区",$Radio[$X] - 5 ) ;保存用户选择的大区信息
$launcher[1] = $address[$x]
FOR $TEMP = 1 TO $launcher[0]
FILEWRITEline ($GAMEpath & "\launcher.ini",$launcher[$TEMP])
NEXT
IF NOT _FILECREATE ($GAMEpath & "\realmlist.WTF") THEN
MsgBox(4096,"错误", "创建配置文件realmlist.WTF时发生错误！将启动魔兽自身登录器！")
$login = 1
exitloop
ENDIF
FILEWRITE ($GAMEpath & "\realmlist.wtf",'SET realmlist "' & $address[$x] & '"' & @CRLF)

FOR $TEMP = 1 TO $WTF[0]
IF StringMid ($WTF[$TEMP],5,8) = "gxWindow" THEN
$gxWindow = 1
$WTF[$TEMP] = 'SET gxWindow "' & NOT NOT $WINDOW & '"'
ELSE
IF StringMid ($WTF[$TEMP],5,8) = "realmlis" THEN
$WTF[$TEMP] = 'SET realmlist ' & $address[$x] & '"'
$realmlis = 1
ENDIF
ENDIF
FILEWRITE ($GAMEpath & "\WTF\CONFIG.WTF",$WTF[$TEMP] & @lf)
NEXT
ENDIF
Next

For $x = 2 to $area[0]
IF GUICtrlRead ($Radio[$x]) = 1 THEN
IF $gxWindow = 0 THEN FILEWRITE ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxWindow "' & NOT NOT $WINDOW & '"' & @LF)
IF $realmlis = 0 THEN FILEWRITE ($GAMEpath & "\WTF\CONFIG.WTF",'SET realmlist ' & $address[$x] & '"' & @LF)
ENDIF
NEXT

IF FILEEXISTS ($GAMEPATH & "\WOW.EXE") THEN
RUN ($GAMEPATH & "\WOW.EXE")
IF $SBEXIT THEN EXIT
ELSE
MSGBOX (4096,"错误","找不到" & $GAMEPATH & "\WOW.EXE,请检查配置文件路径是否正确!")
exit
ENDIF
ENDIF

ENDFUNC

;;;;;;;;;;;;;;;;;;;;;;;;;;;

以下为配置文件；

;;;;;;;;;;;;;;;;;;;;;;;;;;;

[游戏路径]
游戏路径 = e:\netgame\魔兽世界
;;;;请注明游戏的存放路径；默认时为本程序路径；
[提示信息]
提示信息=
;;设定启动程序之前的提示信息，不要提示请留空。

[插件地址]
魔兽精灵 = \\server\游戏补丁\魔兽世界\魔兽精灵.exe
多玩插件 = \\server\游戏补丁\魔兽世界\多玩插件.exe
魔兽精灵 = \\server\游戏补丁\魔兽世界\魔兽精灵.exe
月光宝盒 = \\server\游戏补丁\魔兽世界\月光宝盒.exe
多玩插件 = \\server\游戏补丁\魔兽世界\多玩插件.exe
魔兽小强 = \\server\游戏补丁\魔兽世界\魔兽小强.exe
;;;按上面的格式设置好你的插件名和路径，中间用“=”号隔开,最多支持六个插件。
[默认大区]
默认大区 =5
;;此选项自动记录你上次所选择的大区
[窗口模式]
窗口模式=1

;;此选项为零时无效，非零时生效，默认时为0

[启动后退出]
启动后退出=1

;;此选项为零时无效，非零时生效，默认时为1


;;;请将此文件保存为与主程序wowuim.exe相同的路径，且用户对此文件具有读写权限，否则运行时将会出错。
;;;若用户对此文件无写权限，将不会自动保存用户的大区信息、窗口模式等等信息

--------------------------------------------------- 

[attach=334]

;;;;;程序我又改了,加了两个功能.后面一个函数也改了,但不知好不好用.

;;;;这个是改进后的

#NoTrayIcon ;;;不显示任务栏的图标

;;;;这段意思是防止重复打开程序
$g_szVersion = "My Script 1.1"
If WinExists($g_szVersion) Then Exit
AutoItWinSetTitle($g_szVersion)

;;;本段是引用这两个文件,因为在下面会用的到.
#include <GUIConstants.au3>
#include <file.au3>
;;;定义变量
dim $area,$Radio[11],$label,$area[11],$G_area[11],$address[11],$coord,$x,$y,$BUTTON[7][2],$GAMEpath,$TEMP,$message,$LOGIN = 0
$gamepath = INIREAD ("WOWUIM.INI","游戏路径","游戏路径",@ScriptDir)

If Not _FileReadToArray($GAMEpath & "\config.ini",$area) Then
MsgBox(4096,"错误", "读取配置文件CONFIG.INI时发生错误！将启动魔兽自身登录器！")
$LOGIN = 1
gamestart()
EndIf
if $area[0] > 10 then
Msgbox (4096,"对不起","目前本软件最多支持九个魔兽大区！")
exit
endif
For $x = 2 to $area[0]
$G_area[$x] = StringLeft($area[$x],10 )
$address[$x] = StringMid($area[$x],12, 22)
Next


$UI = IniReadSection("wowuim.ini", "插件地址")
IF $UI = 1 THEN
Msgbox (4096,"对不起","读取配置文件WOWUIM.INI时发生错误！")
exit
endif
if $UI[0][0] > 6 then
Msgbox (4096,"对不起","目前本软件最多可同时管理六个插件！")
exit
endif

$MESSAGE = INIREAD ("WOWUIM.INI","提示信息","提示信息","")
IF $MESSAGE THEN MsgBox (4144,"注意",$MESSAGE)

GUICreate("魔兽世界插件管理器",230,300)
GUICtrlCreateGroup("请选择大区", 6, 8, 130, 240)

;;;下面两句是读出配置文件中的两个复选框上次的状态.
$WINDOW = IniRead ( "WOWUIM.ini", "窗口模式", "窗口模式", "1" )
$SBEXIT = IniRead ( "WOWUIM.ini", "启动后退出", "启动后退出", "1" )
$MAXWINDOW = IniRead ( "WOWUIM.ini", "窗口最大化", "窗口最大化", "1" )
$AUTOSTART = IniRead ( "WOWUIM.ini", "自动开始游戏", "自动开始游戏", "0" )

;;;在GHI上创建两个复选框并用上面两句读出的状态信息初始化
$CHKBOX1 = GUICtrlCreateCheckbox ( "窗口模式", 6, 255)
GUICtrlSETSTATE(-1,$WINDOW)
$CHKBOX2 = GUICtrlCreateCheckbox ( "启动游戏后退出此程序", 82, 255 )
GUICtrlSETSTATE(-1,$SBEXIT)
$CHKBOX3 = GUICtrlCreateCheckbox ( "窗口最大", 6, 275)
GUICtrlSETSTATE(-1,$MAXWINDOW)
$CHKBOX4 = GUICtrlCreateCheckbox ( "装完插件自动开始游戏", 82, 275 )
GUICtrlSETSTATE(-1,$AUTOSTART)

;;;在GUI上创建上面从CONFIG.ini中读出的分区信息以及相应的单选按钮
For $x = 2 to $area[0]
$coord = $coord + 25
$Radio[$x] = GUICtrlCreateRadio ($G_area[$x],20,$coord)
Next

;;;;下面一段是读取上次用户选择的大区信息,用来初始化上面一段创建的单选框的状态 ,如果出错则默认为一区
$DEFAULTAREA = IniRead ( "WOWUIM.ini", "默认大区", "默认大区", "1" ) + 1
IF $DEFAULTAREA > $area[0] OR $DEFAULTAREA < 2 THEN $DEFAULTAREA = 2

GUICtrlSetState ($Radio[$DEFAULTAREA],$GUI_CHECKED)

;;;;这一段是根椐配置文件来创建各种插件的按钮
$coord = 15
FOR $X =1 TO $UI[0][0]
$BUTTON[$x][0] = GUICtrlCreateButton($UI[$X][0], 145, $coord, 76, 22)
$BUTTON[$x][1] = $UI[$X][1]
$coord = $coord + 30
NEXT

;;;创建"删除插件"与"开始游戏"两个按钮
$deleteUI = GUICtrlCreateButton("删除插件", 145, 195, 76, 22)
$startgame = GUICtrlCreateButton("开始游戏", 145, 225, 76, 22)


GUISetState(@SW_SHOW)
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE ;;这个是右上角的退出按钮,不用说了吧
ExitLoop
Case $msg = $CHKBOX1 ;;这两段$CHKBOX意思是当用户点击"窗口模式"与"启动后退出"两个复选框时,则将$window与$sbexit
$WINDOW = NOT $WINDOW ;;执行一次NOT运算,然后再将当前的状态iniwrite进配置文件,下次启动程序时再读出来
INIWRITE ( "WOWUIM.ini", "窗口模式", "窗口模式", $WINDOW )
Case $msg = $CHKBOX2
$SBEXIT = NOT $SBEXIT
INIWRITE ( "WOWUIM.ini", "启动后退出", "启动后退出", $SBEXIT )
Case $msg = $CHKBOX3
$MAXWINDOW = NOT $MAXWINDOW
INIWRITE ( "WOWUIM.ini", "窗口最大化", "窗口最大化", $MAXWINDOW )
Case $msg = $CHKBOX4
$AUTOSTART = NOT $AUTOSTART
INIWRITE ( "WOWUIM.ini", "自动开始游戏", "自动开始游戏", $AUTOSTART )
Case $msg = $deleteUI ;;;如果用户点击删除插件按钮则清除魔兽目录下的INTERFACE目录
IF FILEEXISTS ($GAMEPATH & "\INTERFACE") THEN
$TEMP = DirRemove ($GAMEPATH & "\INTERFACE",1)
IF $TEMP = 0 THEN MSGBOX (4096,"错误","删除" & $GAMEPATH & "\interface时发生错误,请检查是否对目录具有相应权限!")
ENDIF
Case $msg = $STARTGAME ;;如果用户点击启动游戏按钮则运行GAMESTART()函数
GAMESTART()
Case $LOGIN = 1 ;;;如果$login =1 则直接启动魔兽本身的登录器，因为我本程序默认时LOGIN的值为0，当程序出现错误时将LOGIN设为1
IF FILEEXISTS ($GAMEPATH & "\Launcher.EXE") THEN
RUN ($GAMEPATH & "\Launcher.EXE")
exit
ELSE
MSGBOX (4096,"错误","找不到" & $GAMEPATH & "\Launcher.EXE,请检查配置文件路径是否正确!")
exit
ENDIF
Case ELSE
;;;;;;;;;;这一段意思是如果如果用户点击相应的插件按钮则运行配置文件中配置好的那个程序,比较复杂
FOR $X =1 TO $UI[0][0]
IF $MSG = $BUTTON[$x][0] THEN
IF FILEEXISTS ($BUTTON[$x][1]) THEN
RUNWAIT ($BUTTON[$x][1])
IF $AUTOSTART THEN GAMESTART()
EXITLOOP
ELSE
MSGBOX (4096,"错误","找不到" & $BUTTON[$x][1])
EXITLOOP
ENDIF
ENDIF
NEXT
EndSelect
WEnd
Exit

FUNC GAMESTART()
LOCAL $WTF,$launcher
IF $LOGIN = 0 THEN
IF NOT _FILECREATE ($GAMEpath & "\WTF\CONFIG.WTF") THEN
MsgBox(4096,"错误", "创建配置文件WTF\CONFIG.WTF时发生错误！将启动魔兽自身登录器！")
$LOGIN = 1
ENDIF
IF NOT _FILECREATE ($GAMEpath & "\realmlist.wtf") THEN
MsgBox(4096,"错误", "创建配置文件realmlist.wtf时发生错误！将启动魔兽自身登录器！")
$LOGIN = 1
ENDIF
ENDIF

IF $LOGIN = 0 THEN

FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET hwDetect "0"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxColorBits "24"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxDepthBits "24"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxResolution "800x600"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxRefresh "60"'& @crlf )
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxMultisampleQuality "0.000000"' )
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxFixLag "0"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET fullAlpha "1"' )
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET lodDist "100.000000"' )
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET SmallCull "0.070000"' )
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET DistCull "450.000000"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET trilinear "1"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET frillDensity "12"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET farclip "350.000000"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET particleDensity "1.000000"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET unitDrawDist "300.000000"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET movie "0"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET realmName "狂风峭壁"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET readTOS "1"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET readEULA "1"' )
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET cameraDistanceLast "15.000000"')
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET cameraPitchLast "9.849999"' )
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET scriptMemory "49152"' )
if $WINDOW then
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxWindow "1"' )
else
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxWindow "0"' )
endif

if $MAXWINDOW THEN
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxMaximize "1"')
else
FILEWRITEline ($GAMEpath & "\WTF\CONFIG.WTF",'SET gxMaximize "0"' )
endif
For $x = 2 to $area[0]
IF GUICtrlRead ($Radio[$x]) = 1 THEN ;判断用户选择的是哪个大区
INIWRITE ( "WOWUIM.ini", "默认大区", "默认大区",$Radio[$X] - 7 ) ;保存用户选择的大区信息
FILEWRITEline ($GAMEpath & "\realmlist.wtf",'SET realmlist ' & $address[$x] & '"')
ENDIF
NEXT

IF FILEEXISTS ($GAMEPATH & "\WOW.EXE") THEN
RUN ($GAMEPATH & "\WOW.EXE")
IF $SBEXIT THEN EXIT
ELSE
MSGBOX (4096,"错误","找不到" & $GAMEPATH & "\WOW.EXE,请检查配置文件路径是否正确!")
exit
ENDIF
ENDIF

ENDFUNC

本文有3个附件
标签: 魔兽, 插件, 管理, 程序, 源码