Question

按键精灵复制记事本内容,第1次复制第1行,进行某一段操作后复制第2行

按键精灵复制记事本内容,第1次复制第1行,进行某一段操作后复制第2行
第1种
比如我运行到某个坐标后 把记事本第1行复制到此处,下次循环时把记事本第2行复制到此处

第2种,
比如我运行到坐标1后 把记事本第1行复制到此处,行到坐标2后 把记事本第2行复制到此处,
ss = dm.FindStr(0, 0, 2000, 2000, "登录", "0660ce-0660ce", 1.0, intX, intY)

ss = dm.FindStr(0, 0, 2000, 2000, "退出", "0660ce-0660ce", 1.0, intZ, intB)

If intX >= 0 and intY >= 0 Then

dm.MoveTo intX, intY

LeftDoubleClick 1

End If

Delay 5000
上面我是随便写的

请看下,
如果出现登录则 鼠标点击登录
如果出现推出则 鼠标移动到 其他坐标
该怎么写

Answer 1

text=读取指定行文本内容(文本路径, 行数)'自己填
Call Plugin.Sys.SetCLB(text)
KeyDown 17, 1'需要后台自己改
Delay 100
KeyPress 86, 1
Delay 100
KeyUp 17, 1
Function 读取指定行文本内容(文本路径, 行数)
    Dim fso,myfile,i,flag,tempp 
    flag = 1
    Set fso=CreateObject("scripting.FileSystemObject")
    If fso.FileExists(文本路径) then
        Set myfile = fso.openTextFile(文本路径,1,false)
    Else
        flag = 0
    End If
    For i=1 To 行数 - 1
        myfile.SkipLine
        If Not myfile.AtEndOfLine Then
            tempp = myfile.Line
        End If
    Next
    If flag = 1 Then
        If Not myfile.AtEndOfLine Then
            读取指定行文本内容 = myfile.ReadLine
        Else
            读取指定行文本内容 = ""
        End If
        myfile.close
    Else
        读取指定行文本内容 = ""
    End If
    Set fso = Nothing
End Function