今日头条引流脚本

free羊

按键精灵
分辨率：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

小爷很怕

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

链接挂了 能补一个吗

a92010

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

还能发一个嘛，急用

月有哥

我来了解一下

zl321654987

完全看不懂啊

新蜂自媒人

虽然不太懂 支持一下

Levi-7

什么意思？

zdnyp

啥子哟，不是混分的吧

lenny_xiao

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

daxueshengserve

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

6662680

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

free羊

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