今日头条引流脚本

free羊 发表于 2018-7-25 18:44

按键精灵
分辨率：480*800

Import "zm.luae"
zm.Init

Dim intX,intY

Dim Var1=Array(ReadUIConfig("输入框1"),ReadUIConfig("输入框2"),ReadUIConfig("输入框3"),ReadUIConfig("输入框4"),ReadUIConfig("输入框5"))
Dim t1=ReadUIConfig("输入框6",1000),t2=ReadUIConfig("输入框7",2000),t3=ReadUIConfig("输入框8",2000),t4=ReadUIConfig("输入框9",3000)

Function 随机字符串(位数)
Dim i,位置,字符串,字母
If ReadUIConfig("下拉框2") = 0 Then
   字母 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
ElseIf ReadUIConfig("下拉框2") = 1 Then
   字母 = "0123456789"
End If
字符串=""
For i=0 To 位数 - 1
   位置 = Int((Len(字母) * Rnd()) + 1)
   字符串 = 字符串 & Mid(字母,位置,1)
Next
随机字符串 = 字符串
End Function

Function 随机()
随机=Int((5)*Rnd())
End Function

If ReadUIConfig("下拉框1")=0 Then
Call 评论()
ElseIf ReadUIConfig("下拉框1")=1 Then
Call 私信()
End If

Sub 评论()
Do
   FindPic 0, 0, 478,484, "Attachment:头条1.png","000000", 0, 0.9, intX, intY
   If intX > -1 And intY > -1 then
         Tap intX+5, intY+5
         zm.delay t1,t2
         Tap 61, 776
         If (ReadUIConfig("多选框1") = true) Then
            InputText 随机字符串(ReadUIConfig("输入框10"))
         End If
         Delay 500
         InputText Var1(随机())
         Delay 500
         If (ReadUIConfig("多选框2") = true) Then
            InputText 随机字符串(ReadUIConfig("输入框10"))
         End If
         zm.delay t1,t2
         Tap 450,733
         zm.delay t1,t2
         Tap 22,43
         zm.delay t1,t2

   End If

   zm.Swipe 227, 667, 227, 347
   zm.delay t3,t4
Loop
End Sub

Sub 私信()
Do
   Tap 226,106
   zm.delay t1, t2
   Tap 428,173
   zm.delay t1, t2
   Tap 405,47
   zm.delay t1, t2
   Tap 166, 777
   If (ReadUIConfig("多选框1") = true) Then
         InputText 随机字符串(ReadUIConfig("输入框10"))
   End If
   Delay 500
   InputText Var1(随机())
   Delay 500
   If (ReadUIConfig("多选框2") = true) Then
         InputText 随机字符串(ReadUIConfig("输入框10"))
   End If
   zm.delay t1, t2
   Tap 449,778
   zm.delay t1, t2
   Tap 23, 45
   zm.delay t1, t2
   Tap 23,45
   zm.delay t1, t2
   zm.Swipe 229,418, 253,340
   zm.delay t3,t4
Loop
End Sub

小爷很怕 发表于 2018-10-19 20:16

free羊发表于 2018-7-25 22:23
成品链接: https://pan.baidu.com/s/1TldogYidUhRvcc3vwOKhQQ 密码: 63g5

链接挂了能补一个吗

a92010 发表于 2019-11-29 11:11

free羊发表于 2018-7-25 22:23
成品链接: https://pan.baidu.com/s/1TldogYidUhRvcc3vwOKhQQ 密码: 63g5

还能发一个嘛，急用

月有哥 发表于 2018-7-25 19:01

我来了解一下

zl321654987 发表于 2018-7-25 19:22

完全看不懂啊

新蜂自媒人 发表于 2018-7-25 19:27

虽然不太懂支持一下

Levi-7 发表于 2018-7-25 19:37

什么意思？

zdnyp 发表于 2018-7-25 19:56

啥子哟，不是混分的吧

lenny_xiao 发表于 2018-7-25 19:58

希望能说详细些。或者能有成品最好。拜托

daxueshengserve 发表于 2018-7-25 20:43

这技能get不到，大佬来个详细的

6662680 发表于 2018-7-25 21:35

没用的，你看似发出去了，实际人家收不到，屏蔽系统很完善

free羊 发表于 2018-7-25 22:23

成品链接: https://pan.baidu.com/s/1TldogYidUhRvcc3vwOKhQQ 密码: 63g5

页: [1] 2 3 4 5

吾爱破解 - 52pojie.cn's Archiver

今日头条引流脚本