#NoTrayIcon
#region
#AutoIt3Wrapper_icon=D:\autoit3\Aut2Exe\Icons\游戏\sega\PUYOPUYO.ICO
#AutoIt3Wrapper_Allow_Decompile=n
#AutoIt3Wrapper_Res_Comment=Q1264632076
#AutoIt3Wrapper_Res_Description=OKSTOR
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=OKSTOR
#endregion
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