主要针对一些微信号存在电脑系统不是存在模拟器系统里的人群使用

这样也好备注、修改、记录等、反正就是看个人需求、比较我的工作有时候就是需要加人。

但是每次手动复制加人太麻烦了。我就搞了一个半自动加人的，就是复制微信号点击继续 后面的就是自动操作。

这样其实对你的记录性比较好、也免去了导入模拟器里的时间、方便多了，毕竟导入导出太麻烦了（虽然可以实现，但是我觉得麻烦）。

使用要求：

逍遥模拟器（因为我是用这个模拟器写的脚本）

模拟器设置图（尽量一致）：

脚本代码：

Dim intX1,intY1, intX2, intY2, intX3, intY3,intX4, intY4,intX5, intY5,微信号,备注,布局控件名,结果,临时路径
 
Function 布局显示事件()
 
    '添加一个名称为"文字框1"，初始内容为"姓名："的文字框控件
    UI.AddTextView 布局控件名, "文字框1", "微信号："
  
    '添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
    UI.AddEditText 布局控件名, "输入框1", "", 300, 50
  
    UI.AddTextView(布局控件名, "文字框2", "微信备注：")  
    '添加一个名称为"输入框1"，初始内容为"请在此输入内容"的文本框控件
 
    UI.AddEditText 布局控件名, "输入框2", "wsx ", 100 
     
End Function
 
临时路径 = GetTempDir() 
 
TracePrint 临时路径&"Misakiwxbzdjr/"
     
PutAttachment 临时路径&"Misakiwxbzdjr/", "*.png"
 
While 1 = 1
 
    FindPic 2,217,719,692, "Attachment:添加.png", "000000", 0, 0.9, intX1, intY1
 
    FindPic 52, 45, 81, 71, "Attachment:验证申请.png", "000000", 0, 0.9, intX2, intY2
 
    FindPic 57, 45, 81, 70, "Attachment:详细资料.png", "000000", 0, 0.9, intX3, intY3
     
    FindPic 19, 42, 51, 76, "Attachment:输入微信界面.png", "000000", 0, 1.0, intX4, intY4
     
    FindPic 152, 88, 574, 219, "Attachment:添加好友频繁.png", "000000", 0, 0.9, intX5, intY5
     
    If intX3 > -1 And intY3 > -1 Then
     
        TracePrint "详细资料"
 
        If intX1 > -1 And intY1 > -1 Then
 
            TracePrint "添加好友"
             
            Tap intX1,intY1
             
        Else
 
            TracePrint "没有添加好友"
              
        End If
         
    ElseIf intX2 > -1 And intY2 > -1 Then
     
        TracePrint "验证申请"
         
        Tap 679,279 //删除已经备注
        
        Delay 200
        
        Tap 679,279 //激活备注 
        
        Delay 200
        
        // InputText 备注["输入框2"]
         
        结果 = UTF8.Len(备注["输入框2"]) 
 
        For i = 1 To 结果
     
            KeyPress UTF8.StrGetAt(备注["输入框2"], i)
     
        Next
         
        Delay 200
         
        Tap 663,62 //发送
         
        Delay 2000
         
        KeyPress "Back"
         
    ElseIf intX4 > -1 And intY4 > -1 Then 
         
        If intX5 > -1 And intY5 > -1 Then
         
            Dialog.MsgBox("操作过于频繁，请稍后再试，意思就是你加人次数太快了休息一下，再来加人吧！",0)
 
            EndScript 
 
        Else
         
            ShowMessage "请输入微信号!!!"
         
            //UI.Show ("布局控件名") 
         
            布局控件名 = "请输入需要添加的微信号和备注"
  
            '创建一个名称为"layout1"的布局控件
            UI.NewLayout (布局控件名)
     
            UI.SetOnShow(布局控件名, 布局显示事件)
         
            TracePrint UI.Show (布局控件名) 
                 
            备注 = UI.GetValue("输入框2") 
                 
            微信号 = UI.GetValue("输入框1")
                 
            TracePrint 微信号["输入框1"] 
         
            Tap 687,61 //删除已输入微信号
         
            Delay 200
         
            //InputText 微信号["输入框1"]
         
            If 微信号["输入框1"] <> "" Then
             
                结果 = UTF8.Len(微信号["输入框1"]) 
 
                For i = 1 To 结果
     
                    KeyPress UTF8.StrGetAt(微信号["输入框1"], i)
     
                Next
         
                Delay 1000
         
                Tap 293,125 //查找
         
                Delay 1000
                 
            Else
         
                Dialog.MsgBox("请输入或者复制你要添加的微信号，我才能自动帮你加微信好友啊！",0)
                 
            End If
         
        End If
         
    End If
 
    TracePrint "检测中"
 
    Delay 500
  
Wend