-
UID：3
-
- 注册时间2006-05-27
- 最后登录2014-06-23
- 在线时间5257小时
-
- 发帖3535
- 搜Ta的帖子
- 精华29
- 飞翔币5005
- 威望64392
- 飞扬币51613
- 信誉值815
-
访问TA的空间加好友用道具
- 发帖
- 3535
- 飞翔币
- 5005
- 威望
- 64392
- 飞扬币
- 51613
- 信誉值
- 815
|
“软件合集光盘自己做”autoplay程序源代码
之前在本区发了“【原创】软件合集光盘自己做”，现在将其autoplay程序源代码发出来，和大家共同学习。
“【原创】软件合集光盘自己做”一贴见下面的地址：http://0xy.cn/viewthread.php?tid=22451&extra=page%3D1软件合集光盘自己做”autoplay程序源代码
[attachment=6241]
一、页面属性 [attachment=6242]
ButtonNum=0;//Button1~Button16按下标志
ButtonLine=0;//2Button1~2Button16按下标志（好像好来编程思路改了，没用这个变量）
result = TextFile.ReadToTable("AutoPlay\\Docs\\文件分类列表.txt");
for i =1,Table.Count(result) do
Button.SetText("Button"..i, result);
end
softlist = TextFile.ReadToTable("AutoPlay\\Docs\\软件列表.txt");
softNum=0;
for k =1,Table.Count(softlist) do
i=1;
j=0;
while (String.Find(softlist[k], ";", i, false)~=-1) do
i=String.Find(softlist[k], ";", i, false);
i=i+1;
j=j+1;
if (softNumsoftNum=j;
end
end
end
ButNum=softNum;
softInfo = TextFile.ReadToTable("AutoPlay\\Docs\\软件介绍.txt");
二、Button1~Button16的按钮属性
[attachment=6243]
ButtonNum=1
for i=1,ButNum do
Button.SetVisible("2Button"..i,false);
end
i=1;
softNum=0;
j=1;
while (String.Find(softlist[ButtonNum], ";", i, false)~=-1) do
softNum=i;
i=String.Find(softlist[ButtonNum], ";", i, false);
ButText=String.Mid(softlist[ButtonNum],softNum,i-softNum);
Button.SetText("2Button"..j,ButText);
Button.SetVisible("2Button"..j,false);
Button.SetVisible("2Button"..j,true);
i=i+1;
j=j+1;
end
三、2Button1~2Button15的按钮属性
[attachment=6244]
if String.Upper(Button.GetText(this))==String.Upper("WinRAR")then
filePath="\\"..Button.GetText("Button"..ButtonNum).."\\"..Button.GetText(this)..".exe";
File.Run(filePath, "", "", SW_SHOWNORMAL, false);
else
filePath="\\"..Button.GetText("Button"..ButtonNum).."\\"..Button.GetText(this)..".rar";
File.Open(filePath, SW_SHOWNORMAL);
End
[attachment=6245]
for count = 1, Table.Count(softInfo) do
if (String.Find(softInfo[count],Button.GetText(this), 1, false)~=-1)then
Paragraph.SetText("intr", String.Replace(softInfo[count], "\\n", "\n", false));
end
end
|
