好友
阅读权限10
听众
最后登录1970-1-1
|
本帖最后由 ldyzxm 于 2024-3-9 12:29 编辑
这个里面还有一个EXE-----------copyNT.exe
你直接查看这个文件就行了
#NoTrayIcon
#Region
#AutoIt3Wrapper_icon=D:\autoit3\Aut2Exe\Icons\游戏\sega\PUYOPUYO.ICO
#AutoIt3Wrapper_Allow_Decompile=n
#AutoIt3Wrapper_Res_Comment=*************
#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
|
|