论坛 › 『 提问交流 』 › 帮我看看这个源码要如何修改啊!提示错误!

xfmmlove 发表于 2008-11-28 02:17:00

帮我看看这个源码要如何修改啊!提示错误!

我是新手!这是我找到别人的!可是自己弄总是错误!没办法!等着用!希望大家帮忙啊!

$i = IniReadSection(@ScriptDir & "\自动挂盘.ini", "锐起CGO自动挂盘")
$a = "z01y02x03w04v05u06t07s08r09q10p11o12n13m14l15k16j17i18h19g20f21e22d23c24b25a26"
$b = StringMid($a, StringInStr($a, $i) + 1, 2)
$c = StringMid($a, StringInStr($a, $i) + 1, 2)
$d = StringMid($a, StringInStr($a, $i) + 1, 2)
If @error Then
MsgBox(4096, "", "配置文件错误！")
EndIf
Sleep($i)
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) + 1, 2)
$b = StringMid($a, StringInStr($a, $i^ ERROR
->02:18:12 AutoIT3.exe 完成::1
+>02:18:13 ACNWrapper 完成!

juyz 发表于 2008-11-28 10:05:50

新建“自动挂盘.ini”文件
写入以下内容，再放在脚本文件夹中。
[锐起CGO自动挂盘]
延时=1000
盘符1=z
盘符2=y
盘符3=y

查看完整版本: 帮我看看这个源码要如何修改啊!提示错误!