论坛 › 已解决问题区 › 用什么办法可以修改盘符

lcgkogoo 发表于 2008-8-25 15:48:47

用什么办法可以修改盘符

我想把F盘先改成G:盘
然后再将D盘改成F盘..
Au3怎么写?

qin147 发表于 2008-8-25 18:35:34

调用 DOS命令吧 看一下这个 mountvol
给你个例子：
#NoTrayIcon;隐藏小图标
#Include <process.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Global $tm,$pf,$label_tell,$gui,$ti=60,$su
If $CmdLine <= 0 Then
        $su=''
Else
        For $k=1 To $CmdLine
                $su=$su&' "'&$CmdLine[$k]&'"'
        Next
EndIf       
If FileExists("M:\") Then _start()
Run(@ComSpec & " /c " & 'iscsicli AddTargetPortal 192.168.0.253 3260', "", @SW_HIDE)       
Run(@ComSpec & " /c " & 'iscsicli LoginTarget iqn.2005-02.com.ricecake.iscsi:00 T * * * * * * * * * * * * * * * 0', "", @SW_HIDE)
$gui = GUICreate("连接服务器", 400, 50,-1,-1,$WS_POPUP)
GUISetBkColor (0x3A6EA5)

$label_tell=GUICtrlCreateLabel('正在连接服务器，请稍候……'&@TAB&'60', 0,0,400, 50,0x01+0x0200,$GUI_WS_EX_PARENTDRAG)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetFont(-1, 10,800,0, "Comic Sans MS")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
_GuiRoundCorners($gui, 0, 0, 16, 16)
GUISetState(@SW_SHOW)
AdlibEnable ( "_time", 1000)
For $w=1 To 600       
        If FileExists("M:\") Then
                GUIDelete($gui)
                _start()
        ElseIf FileExists("H:\") And DriveGetType ( "H:" )='Fixed' Then
                $pf='H'
                ExitLoop
        ElseIf FileExists("G:\") And DriveGetType ( "G:" )='Fixed' Then
                $pf='G'
                ExitLoop       
        ElseIf FileExists("J:\") And DriveGetType ( "J:" )='Fixed' Then
                $pf='J'
                ExitLoop               
        EndIf       
        Sleep(500)
Next       
GUIDelete($gui)
If $pf<>'' Then
        $temp=_TempFile()
        _RunDOS('mountvol /L >'&$temp)
        _FileReadToArray($temp,$tm)
        For $x = 1 to $tm
                $xy=StringSplit(StringStripWS ($tm[$x],8), ":")
                If $xy=2 Then
                        If $xy=$pf Then
                                _RunDOS('mountvol '&$pf&': /d')
                                _RunDOS('mountvol M: '&StringStripWS ($tm[$x-1],8))
                                FileDelete($temp)
                                _start()
                        EndIf       
                EndIf
        Next
EndIf

Func _start()
        Run('游戏菜单.exe')
        Sleep(1500)
        Run('C:\WINDOWS\explorer.exe http://192.168.0.252/book/','C:\WINDOWS\')
        Exit
EndFunc       

#Region ###GUI圆角
Func _GuiRoundCorners($h_win, $i_x1, $i_y1, $i_x3, $i_y3) ; thanks gafrost
        Local $XS_pos, $XS_ret, $XS_ret2
        $XS_pos = WinGetPos($h_win)
        $XS_ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $i_x1, "long", $i_y1, "long", $XS_pos, "long", $XS_pos, "long", $i_x3, "long", $i_y3)
        If $XS_retThen
                $XS_ret2 = DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $XS_ret, "int", 1)
        EndIf
EndFunc
#endregion

Func _time()
        $ti =$ti - 1
        If $ti < 0 Then
                MsgBox(16,'错误','连接服务器超时，请联系管理员！')
                Exit
        EndIf       
        GUICtrlSetData ( $label_tell, '正在连接服务器，请稍候……'&@TAB&$ti)

[ 本帖最后由 qin147 于 2008-8-25 18:37 编辑 ]

redapple2008 发表于 2008-8-25 19:14:48

在论坛里找一下了。里面就有
http://www.autoitx.com/forum.php?mod=viewthread&tid=1442&extra=page%3D1

lcgkogoo 发表于 2008-8-26 11:29:01

谢谢了...:face (38): :face (38): :face (38):

查看完整版本: 用什么办法可以修改盘符