找回密码
 加入
搜索
查看: 1086|回复: 3

高手帮我看看错哪儿了呀,

[复制链接]
发表于 2009-4-23 19:21:29 | 显示全部楼层 |阅读模式
本帖最后由 qysir 于 2009-4-23 20:36 编辑

--------------源程序-----------------------
#include <GuiConstantsEx.au3>
Dim $pzwj, $d[16], $rjmc, $rjsm, $i, $j, $k
GuiCreate("软件疯狂装", 600, 485)
GuiCtrlCreateTab(0, 70, 600, 372)
$pzwj = ("setup.ini")
        for $j = 1 to 16
        $d[$j] = IniRead($pzwj, "大类名称", $j, "没有")
        $k = IniRead($pzwj, $i, "页面", "没有")
                if $d[$j] = "没有" then
                else
                        GuiCtrlCreateTabItem($d[$j])
                        GuiCtrlCreateGroup("",5,86,140,350)
                        GuiCtrlCreateGroup("",142,86,450,350)
                for $i = 1 to 160
                        $rjmc = IniRead($pzwj, $i, "名称", "没有")
                        $rjsm = IniRead($pzwj, $i, "说明", "该软件没有说明信息")
                                if $rjmc = "没有" then
                                Else
                                GuiCtrlCreateCheckbox($rjmc, 14, 66+($i-($k-1)*10)*34)
                                GuiCtrlCreateLabel($rjsm, 151, 70+($i-($k-1)*10)*34)
                                endif
                next
                endif
        next
GuiCtrlCreateTabItem("")
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd

------------ 配置文件内容----------------------
[大类名称]
1=第一页

[1]
页面=1
名称=winrar
文件=soft\winrar.exe
标题=WinRAR 简体中文版安装
标题1=WinRAR 3.71
内容1=目标文件夹
按键101=^V
按键102=控件:,Button2
内容2=WinRAR 关联文件
按键201={ENTER}
内容3=感谢使用 WinRAR 简体中文版!
按键301={ENTER}
标题4=WinRAR
内容4=WinRAR
按键401=!{F4}

[2]
页面=1
名称=千千静听5.1
文件=ttpsetup.exe
标题1=5.3 安装程序
内容1=欢迎使用
操作101=按钮:,Button2
标题2=5.1.0 安装程序
内容2=请仔细阅读以下的"软件使用协议"
操作201=按钮:,373,365
标题3=5.1.0 安装程序
内容3=选择要安装的组件
操作301=按钮:,362,363
标题4=5.1.0 安装程序
内容4=指定安装本软件的目标文件夹
操作401=按钮:,366,365
标题5=5.1.0 安装程序
内容5=我的桌面
操作501=按钮:,77,270
操作502=按钮:,372,366
标题6=5.1.0 安装程序
内容6=立即运行
操作601=按钮:,194,201
操作602=按钮:,366,361
操作603=延时:,4000
标题7=千千静听
内容7=声道
操作701=!{F4}
操作702=!{F4}
发表于 2009-4-23 19:52:45 | 显示全部楼层
#include <GuiConstantsEx.au3>
Dim $pzwj, $d[17], $rjmc, $rjsm, $i, $j, $k
GuiCreate("软件疯狂装", 600, 485)
GuiCtrlCreateTab(0, 70, 600, 372)
$pzwj = ("setup.ini")
        for $j = 1 to 16
        $d[$j] = IniRead($pzwj, "大类名称", $j, "没有")
        $k = IniRead($pzwj, $i, "页面", "没有")
                if $d[$j] = "没有" then
                else
                        GuiCtrlCreateTabItem($d[$j])
                        GuiCtrlCreateGroup("",5,86,140,350)
                        GuiCtrlCreateGroup("",142,86,450,350)
                for $i = 1 to 160
                        $rjmc = IniRead($pzwj, $i, "名称", "没有")
                        $rjsm = IniRead($pzwj, $i, "说明", "该软件没有说明信息")
                                if $rjmc = "没有" then
                                Else
                                GuiCtrlCreateCheckbox($rjmc, 14, 66+($i-($k-1)*10)*34)
                                GuiCtrlCreateLabel($rjsm, 151, 70+($i-($k-1)*10)*34)
                                endif
                next
                endif
        next
GuiCtrlCreateTabItem("")
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd
 楼主| 发表于 2009-4-23 20:08:33 | 显示全部楼层
非常感谢!
 楼主| 发表于 2009-4-23 20:22:33 | 显示全部楼层
还是有问题,请再帮我看看
---------------源代码---------------------
#include <GuiConstantsEx.au3>
Dim $pzwj, $d[16], $rjmc, $rjsm, $i, $j, $k
GuiCreate("软件疯狂装", 600, 485)
GuiCtrlCreateTab(0, 70, 600, 372)
$pzwj = ("setup.ini")
        for $j = 1 to 15
        $d[$j] = IniRead($pzwj, "大类名称", $j, "没有")
                if $d[$j] = "没有" then
                else
                        GuiCtrlCreateTabItem($d[$j])
                        GuiCtrlCreateGroup("",5,86,140,350)
                        GuiCtrlCreateGroup("",142,86,450,350)
                for $i = 1 to 150
                        $rjmc = IniRead($pzwj, $i, "名称", "没有")
                        $rjsm = IniRead($pzwj, $i, "说明", "该软件没有说明信息")
                        $k = ($i-($j-1)*10)*34
                        if -33 < $k > 339 then
                        Else
                                if $rjmc = "没有" then
                                Else
                                GuiCtrlCreateCheckbox($rjmc, 14, 66+$k)
                                GuiCtrlCreateLabel($rjsm, 151, 70+$k)
                                endif
                        endif
                next
                endif
        next
GuiCtrlCreateTabItem("")
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd

-----------配置文件----------------
[大类名称]
1=第一页
2=第二页
3=第三页
4=第四页
5=第五页
6=第六页
7=第七页
8=第八页
9=第九页
10=第十页


[1]
页面=1
名称=winrar
文件=soft\winrar.exe

[2]
页面=1
名称=桌面路径设置

[3]
页面=1
名称=QQ2009
文件=soft\QQ2009.exe

[4]
页面=2
名称=office2003

[5]
页面=1
名称=安全卫士360

[6]
页面=1
名称=IE标题设置工具

[7]
页面=1
名称=桌面图标工具

[8]
页面=2
名称=设置hao123为主页

[9]
页面=1
名称=自动更改卷标

[10]
页面=2
名称=自定义开始菜单

[11]
页面=1
名称=语言选项

[12]
页面=1
名称=优化IDE设置(提速)

[13]
页面=1
名称=千千静听5.1
文件=ttpsetup.exe
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-4-28 04:21 , Processed in 0.072721 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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