表格用来发送账号密码遇到卡克了，跪求大侠相助！勿喷

67800461

部分代码~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

功能 导入_点击()
//这里添加你要执行的代码

    变量 路径=文件.对话框(1,"txt files (*.txt)|*.txt||") //选择 文件,只允许TXT文件
    如果(路径!="")//判断是否选择 文本
        我去偷人.文本操作(路径) //功能调用 并将txt文本地址 传参 给文本操作
    如果结束

功能结束

功能 文本操作(路径)
    变量 表格的写入行数=1  //表格从第一行开始写入数据 ,第0行是 标题   

    变量 文本数据=文件.读文件(路径) //读取文本

    如果(文本数据=="")  //判断文本是否有内容
        返回 空       //返回任何值都可以  只有个作用  用来停止 后续操作
    如果结束

    变量 每行数据=数组[0],行数

    字符串.分割(文本数据,"\r\n",每行数据) //将数据 进行 按行 分割

    数组空间.大小(每行数据,行数) //获取行数



    遍历(下标=0;下标<行数;下标++)//遍历 每行数据
        如果(每行数据[下标]=="")    //判断是否为空行
            继续                    //条件成立  跳过后续操作  判断 下一行
        如果结束

        变量 临时账号密码数据=数组[0],数据个数  

        字符串.分割(每行数据[下标],"|",临时账号密码数据)  //对每行数据进行分割 分割符号按自己的格式进行更改
        数组空间.大小(临时账号密码数据,数据个数)


        如果(数据个数!=2)    //格式中 只有2个数据,如果数据个数不等于2, 说明 txt文本 的该行  的格式错误
            继续
        如果结束


        如果(临时账号密码数据[0]==""||临时账号密码数据[1]=="")//判断账号密码 是否为空字符串
            继续
        如果结束


        表格.设置大小("表格0",表格的写入行数+1,2)//第1行是标题 ,表格大小要设置的比写入行数多1行

        表格.设置内容("表格0",表格的写入行数,0,临时账号密码数据[0]) //写入账号
        表格.设置内容("表格0",表格的写入行数,1,临时账号密码数据[1]) //写入密码

        表格的写入行数++ //写入行数计数递增

    遍历结束

功能结束



  功能  自动登录()  
    dm.SetPath(辅助.获取资源路径("rc:")) //设置路径
    dm.SetMouseDelay("dx",10)
    路径 = 浏览框.获得("浏览框0")
    进程.打开(路径)
    辅助.等待(15000)

    循环(窗口句柄==0)
        窗口句柄=窗口.找到窗口("霹雳游侠")
        辅助.等待(1000)
        如果(窗口.找到窗口("信息")!=0)
            返回 0
        如果结束
    循环结束

    辅助.等待(1000)
    窗口.置顶(窗口句柄,真)
    辅助.等待(1000)
    超级鼠标.移动(783,562)

    辅助.等待(1000)
    超级鼠标.左键双击(1)
    辅助.等待(300)
    超级键盘.按键(8,15)

    账号 = 1111111111111111111111111111111111111
    超级键盘.发送字符串(账号)

    辅助.等待(2000)

    超级鼠标.移动(757,595)
    超级鼠标.左键双击(1)
    密码 = 222222222222222222222222222222222222
    超级键盘.发送字符串(密码)
    辅助.等待(500)


问题在于  11111111   和 22222  怎么来写表格第一行的 账号密码  第二次循环  写第二行的 账号密码 第三次 。。。。。第 4次  。。。一直到没有

哪位会的大侠 写下源代码！！我卡在这很久了
勿喷勿喷勿喷勿喷勿喷 俺不是 伸手党

67800461

回复 1楼67800461的帖子

自己解决 利用了 删除第一

134

不懂我也想知道