手机按键精灵 多开模拟器几个窗口如何同时写入一个txt文件? 50
我是多开模拟器用的手机按键精灵,想把脚本完成的帐号追加保存到电脑上的同一个txt文件中,要达到不覆盖,不冲突,或者有更好的保存帐号的方式希望教一下我,万分感谢!!...
我是多开模拟器用的手机按键精灵,想把脚本完成的帐号追加保存到电脑上的同一个txt文件中,
要达到不覆盖,不冲突,
或者有更好的保存帐号的方式希望教一下我,万分感谢!! 展开
要达到不覆盖,不冲突,
或者有更好的保存帐号的方式希望教一下我,万分感谢!! 展开
展开全部
如果你读写不是特别频繁特别多的话.
你可以试试以秒为单位 60秒 每秒1个模拟器去读写文件.
如果模拟器少于10个的话 可以取秒的个位数 以0123456789分开去读写
11秒的时候模拟器1去读写 12秒的时候模拟器2去读写这样
//防止同时读写
Sub shijian卡文件读取时间(flag)
Dim sj
dim sj1
Dim sj2
Dim sj3
Do
sj = DateTime.Second()//秒
TracePrint sj
sj1 = CStr(sj)//转字符串
sj2 = Len(sj1)
If sj2 = 1 Then
If sj = flag Then
Exit Sub
End If
ElseIf sj2 = 2 Then
If Int(Mid(sj1, 2, 1)) = flag Then
Exit Sub
End If
End If
Delay 1000
Loop
End Sub
你可以试试以秒为单位 60秒 每秒1个模拟器去读写文件.
如果模拟器少于10个的话 可以取秒的个位数 以0123456789分开去读写
11秒的时候模拟器1去读写 12秒的时候模拟器2去读写这样
//防止同时读写
Sub shijian卡文件读取时间(flag)
Dim sj
dim sj1
Dim sj2
Dim sj3
Do
sj = DateTime.Second()//秒
TracePrint sj
sj1 = CStr(sj)//转字符串
sj2 = Len(sj1)
If sj2 = 1 Then
If sj = flag Then
Exit Sub
End If
ElseIf sj2 = 2 Then
If Int(Mid(sj1, 2, 1)) = flag Then
Exit Sub
End If
End If
Delay 1000
Loop
End Sub
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不是写入就可以了吗,又不会覆盖
如果会覆盖,那么先读取内容,然后&要写入的内容一起写入
如果会覆盖,那么先读取内容,然后&要写入的内容一起写入
追问
几十个窗口同时写入会冲突
追答
赋值全局变量=1
写入前判断全局变量的值,如果是1可以写入,如果是0,你们循环判断直到为1。
执行写入命令是赋值全局变量为0,写入完毕在赋值全局变量为1
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |