|
发表于 2017-10-24 01:39:44
|
显示全部楼层
功能 开始_点击()
变量 账号组,n,服务器,账号arr,空行
账号组=编辑框获取文本("编辑框_账号")
服务器=编辑框获取文本("编辑框_服务器")
n=字符串分割(账号组,"\r\n",账号arr)
如果(服务器!=""&&账号组!="")
//////////////写入服务器到配置文件//////////////
写配置("服务器","服务器",服务器,"c:\\账号库2.ini")
/////////////清空配置文件的账号/////////////
遍历(变量 i = 0; i < 100; i++)
账号组=读配置(i+1,"账号","c:\\账号库2.ini")
如果(账号组!="")
写配置(i+1,"账号","","c:\\账号库2.ini")
否则
跳出
结束
结束
////////////////写入编辑框内账号////////////
遍历(变量 i = 0; i < n ; i++)
如果(账号arr[i]!=""&&i<n)
写配置(i+1,"账号",账号arr[i],"c:\\账号库2.ini")
否则
跳出
结束
结束
否则
消息框("请选择服务器和账号,再保存")
返回
结束
消息框("保存成功")
结束
|
|