Excel(Xls) 自动录入网页 2022-01-18

//打开Excel文档工作表
Call Plugin.Office.OpenXls("C:\Users\86784\Desktop\按键精灵自动录入.xls")
'==========以下是按键精灵录制的内容==========
MoveTo 1090, 921
Delay 500
LeftClick 1
LeftUp 1
'==========以上是按键精灵录制的内容==========
Delay 500

//默认Excle数据从第2行开始(第1行一般是标题)
行 = 2
Rem 标记开始

//向Excel文档工作表(1)单元格(2, 1)读出内容存入(name)变量
name = Plugin.Office.ReadXls(1, 行, 1)
//MessageBox name//输出内容
Delay 500
If name <> "" Then 

    //向Excel文档工作表(1)单元格(2, 1)读出内容存入(name)变量
    //name = Plugin.Office.ReadXls(1, 行, 1)
    //MessageBox name//输出内容
    KeyPress "Tab", 1
    SayString name
    Delay 500
    //向Excel文档工作表(1)单元格(2, 1)读出内容存入(phone)变量
    phone = Plugin.Office.ReadXls(1, 行, 2)
    //MessageBox name//输出内容
    KeyPress "Tab", 1
    SayString phone
    Delay 500
    //向Excel文档工作表(1)单元格(2, 1)读出内容存入(email)变量
    email = Plugin.Office.ReadXls(1, 行, 3)
    //MessageBox name//输出内容
    KeyPress "Tab", 1
    SayString email
    Delay 500
    //向Excel文档工作表(1)单元格(2, 1)读出内容存入(role)变量
    role = Plugin.Office.ReadXls(1, 行, 4)
    //情况判断
    Select Case role
    Case "超级管理员"
        //情况1
        '==========以下是按键精灵录制的内容==========
        MoveTo 442, 527
        Delay 500
        LeftClick 1
        Delay 1
        LeftUp 1
        '==========以上是按键精灵录制的内容==========
        //    Delay 500
    Case "编辑员"
        //情况2
        '==========以下是按键精灵录制的内容==========
        MoveTo 576, 522
        Delay 500
        LeftClick 1
        Delay 1
        LeftUp 1
        '==========以上是按键精灵录制的内容==========
        //    Delay 500
    Case "宣传员"
        //情况3
        '==========以下是按键精灵录制的内容==========
        MoveTo 699, 522
        Delay 500
        LeftClick 1
        Delay 1
        LeftUp 1
        '==========以上是按键精灵录制的内容==========
        //    Delay 500
    Case Else
        //否则
        MessageBox "角色名错误!!"
    End Select
    //向Excel文档工作表(1)单元格(2, 1)读出内容存入(password)变量
    password = Plugin.Office.ReadXls(1, 行, 5)
    //MessageBox name//输出内容
    KeyPress "Tab", 1
    SayString password
    Delay 500
    //向Excel文档工作表(1)单元格(2, 1)读出内容存入(repassword)变量
    repassword = Plugin.Office.ReadXls(1, 行, 6)
    //MessageBox name//输出内容
    KeyPress "Tab", 1
    SayString password
    Delay 500
    '==========以下是按键精灵录制的内容==========
    MoveTo 460, 716
    Delay 500
    LeftClick 1
    Delay 1
    LeftUp 1
    '==========以上是按键精灵录制的内容==========
    //提交数据
    KeyPress "Tab", 1
    Delay 300
    KeyPress "Enter", 1
    //循环开始
    Delay 500
    行 = 行 + 1//每行自动加一
    Goto 标记开始

Else 

    MsgBox "无数据,程序结束"
    EndScript
    //在按键精灵8及以上版本中
    //结束脚本线程的执行，在主线程执行时主脚本停止，其他线程仍然继续运行。
    //放在线程中执行就停止当前线程，主脚本或者是其他线程不受影响。
    
End If