|
我是新手!这是我找到别人的!可是自己弄总是错误!没办法!等着用!希望大家帮忙啊!
$i = IniReadSection(@ScriptDir & "\自动挂盘.ini", "锐起CGO自动挂盘")
$a = "z01y02x03w04v05u06t07s08r09q10p11o12n13m14l15k16j17i18h19g20f21e22d23c24b25a26"
$b = StringMid($a, StringInStr($a, $i[2][1]) + 1, 2)
$c = StringMid($a, StringInStr($a, $i[3][1]) + 1, 2)
$d = StringMid($a, StringInStr($a, $i[4][1]) + 1, 2)
If @error Then
MsgBox(4096, "", "配置文件错误!")
EndIf
Sleep($i[1][1])
Run("C:\Program Files\Richtech\Rtcgosrv\Manager.exe")
WinWaitActive("5Avip.com专用版", "", 5)
Send("!d")
WinWaitActive("5Avip.com专用版", "", 5)
Send("d")
WinWaitActive("磁盘管理", "", 5)
Send("{SPACE}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 5}")
WinWaitActive("磁盘管理", "", 5)
Send("{space 2}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 2}{space}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 4}{space}")
WinWaitActive("指定盘符", "", 5)
Send("{tab 2}{F4}{end}")
If $b - 1 > 0 Then
WinWaitActive("指定盘符", "", 5)
Send("+{up " & $b - 1 & "}")
Send("{enter 3}")
Else
WinWaitActive("指定盘符", "", 5)
Send("{enter 3}")
EndIf
WinWaitActive("磁盘管理", "", 5)
Send("{tab 3}{down}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 5}")
WinWaitActive("磁盘管理", "", 5)
Send("{SPACE 2}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 2}{SPACE}")
WinWaitActive("磁盘管理", "", 5)
Send("{down}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 4}{SPACE}")
WinWaitActive("指定盘符", "", 5)
Send("{tab 2}{F4}{end}")
If $c - 1 > 0 Then
WinWaitActive("指定盘符", "", 5)
Send("+{up " & $c - 1 & "}")
Send("{enter 3}")
Else
WinWaitActive("指定盘符", "", 5)
Send("{enter 3}")
EndIf
WinWaitActive("磁盘管理", "", 5)
Send("{tab 3}{down 2}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 5}")
WinWaitActive("磁盘管理", "", 5)
Send("{SPACE 2}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 2}{SPACE}")
WinWaitActive("磁盘管理", "", 5)
Send("{down 2}")
WinWaitActive("磁盘管理", "", 5)
Send("{tab 4}{SPACE}")
WinWaitActive("指定盘符", "", 5)
Send("{tab 2}{F4}{end}")
If $d - 1 > 0 Then
WinWaitActive("指定盘符", "", 5)
Send("+{up " & $d - 1 & "}")
Send("{enter 3}")
Else
WinWaitActive("指定盘符", "", 5)
Send("{enter 3}")
EndIf
----------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------
.ini配置文件:
----------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------
[锐起CGO自动挂盘]
延时=1000
盘符1=z
盘符2=y
盘符3=y
----------------------------------------------------------------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------------------------------------------------------------
错误提示:
>运行:(3.2.13.8):D:\autoit3\autoit3.exe "C:\Documents and Settings\Administrator\My Documents\CGO.au3"
C:\Documents and Settings\Administrator\My Documents\CGO.au3 (3) : ==> ???????????.:
$b = StringMid($a, StringInStr($a, $i[3][1]) + 1, 2)
$b = StringMid($a, StringInStr($a, $i^ ERROR
->02:18:12 AutoIT3.exe 完成:[CODE]:1
+>02:18:13 ACNWrapper 完成! |
|