gettext 0,1,应该返回“跑跑卡丁车”,空字符串吗?没这程序,没法试验。
Run("ProduKey.exe")
WinWaitActive("ProduKey", "个项目")
$CNT = ControlListView("ProduKey", "个项目", "SysListView321", "GetItemCount")
dim $NM[$CNT+1],$ID[$CNT+1],$CK[$CNT+1]
$TEXT=""
For $i = 0 To $CNT - 1
$NM[$i] = ControlListView("ProduKey", "个项目", "SysListView321", "GetText", $i, 0)
$ID[$i]=ControlListView("ProduKey", "个项目", "SysListView321", "GetText", $i, 1)
$CK[$i] = ControlListView("ProduKey", "个项目", "SysListView321", "GetText", $i, 2)
$TEXT=$TEXT&"第"&$i+1&"号产品"&$NM[$i]&"的ID是:"&$ID[$i]&",CDkey的是:"&$CK[$i]&@CRLF
Next
While ProcessExists("ProduKey.exe")
ProcessClose("ProduKey.exe")
WEnd
MsgBox(0,"检测报告",$TEXT)
[ 本帖最后由 顽固不化 于 2009-1-16 10:12 编辑 ] |