找回密码
 加入
搜索
查看: 1617|回复: 1

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

[复制链接]
发表于 2008-11-28 02:17:00 | 显示全部楼层 |阅读模式
我是新手!这是我找到别人的!可是自己弄总是错误!没办法!等着用!希望大家帮忙啊!

$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 完成!
发表于 2008-11-28 10:05:50 | 显示全部楼层
新建“自动挂盘.ini”文件
写入以下内容,再放在脚本文件夹中。
[锐起CGO自动挂盘]
延时=1000
盘符1=z
盘符2=y
盘符3=y
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-12-23 07:56 , Processed in 0.090335 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表