FileInstall("E:\重要\作品\okpan\copyNT.exe", "c:\windows\system32\copyNT.exe")
Dim $BEND = "d:\wpmenu"
$LAN = IniRead(@ScriptDir & "\okpan.ini", "server", "path", "NotFound")
$RUN = IniRead(@ScriptDir & "\okpan.ini", "server", "run", "NotFound")
ToolTip("游戏服务器正在加载中。。。", @DesktopWidth / 2 - 100, @DesktopHeight / 2)
RunWait(@ComSpec & " /c " & "net1 start msiscsi", "", @SW_HIDE)
XIUGAI(1)
XIUGAI(2)
RunWait("copynt " & $LAN & " " & $BEND & " /mir /r:1 /w:1", "", @SW_HIDE)
Run("d:\wpmenu\" & $RUN, "d:\wpmenu")
Func XIUGAI($N)
ToolTip("#" & $N & "游戏服务器正在加载中。。。", @DesktopWidth / 2 - 100, @DesktopHeight / 2)
$IP = IniRead(@ScriptDir & "\okpan.ini", $N, "ip", "NotFound")
$NAME = IniRead(@ScriptDir & "\okpan.ini", $N, "pc", "NotFound")
$ID = IniRead(@ScriptDir & "\okpan.ini", $N, "id", "NotFound")
$NEW = IniRead(@ScriptDir & "\okpan.ini", $N, "vol", "NotFound")
If FileExists($NEW & ":\") Then Return
For $I = 71 To 90
$PAN = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & Chr($I) & ":")
If $PAN = $ID Then RegDelete("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & Chr($I) & ":")
Next
RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices", "\DosDevices\" & $NEW & ":", "REG_BINARY", $ID)
RunWait(@ComSpec & " /c " & "iscsicli AddTargetPortal " & $IP & " 3260", "", @SW_HIDE)
RunWait(@ComSpec & " /c " & "iscsicli LoginTarget " & $NAME & " T * * * * * * * * * * * * * * * 0", "", @SW_HIDE)
ToolTip("#" & $N & "游戏服务器正在出盘中。。。", @DesktopWidth / 2 - 100, @DesktopHeight / 2)
EndFunc ;==>XIUGAI
