伊人微商网Dim et
Dim a1
Dim allLength
Dim startNun
Dim MyText
Dim MyTime, MyHour
startNun = 1
startNunEnum=1
Text = Plugin.File.ReadFileEx("D:脚本不相关的英文.txt")
Text1 = Plugin.File.ReadFileEx("D:脚本随机英文.txt")
Text = Trim(Text)
Text1 = Trim(Text1)
isFirst = False
localtime = - 1
chromNum=0
For i = 0 To 12
For tt = 1 To 5
Call click(1592, 103) //点击sd1001
Delay 5000
'==========以下是按键精灵录制的内容==========
MoveTo 506, 658
Delay 717
MouseWheel 1
Delay 2
MouseWheel 1
Delay 15
MouseWheel 1
Delay 6
MouseWheel 1
Delay 9
MouseWheel 1
Delay 2
MouseWheel 1
Delay 14
MouseWheel 1
Delay 2
MouseWheel 1
Delay 26
MouseWheel 1
Delay 3
MouseWheel 1
Delay 251
MouseWheel 1
Delay 13
MouseWheel 1
Delay 8
MouseWheel 1
MoveTo 505, 658
Delay 37
MouseWheel 2
Delay 18
MouseWheel 1
Delay 17
MouseWheel 1
Delay 186
MouseWheel 1
Delay 17
MouseWheel 1
Delay 24
MouseWheel 3
Delay 17
MouseWheel 1
Delay 4
MouseWheel 1
'==========以上是按键精灵录制的内容==========
If tt = 1 Then
Call click(390, 1058) //点击chrom内容
ElseIf tt = 2 Then
Call click(550, 1058) //点击chrom内容
ElseIf tt = 3 Then
Call click(780, 1058) //点击chrom内容
ElseIf tt = 4 Then
Call click(980, 1058) //点击chrom内容
ElseIf tt = 5 Then
Call click(1180, 1058) //点击chrom内容
End If
Delay 2000
'==========以下是按键精灵录制的内容==========
MoveTo 791, 363
Delay 594
LeftClick 1
Delay 646
KeyDown "Ctrl", 1
Delay 156
KeyDown "A", 1
Delay 144
KeyUp "A", 1
Delay 69
KeyUp "Ctrl", 1
MoveTo 800, 318
Delay 292
RightDown 1
MoveTo 801, 318
Delay 85
RightClick 1
MoveTo 844, 388
Delay 1033
LeftDown 1
Delay 4
LeftDown 1
Delay 3
LeftClick 1
Delay 2
LeftUp 1
'==========以上是按键精灵录制的内容==========
Delay 2000
Call click(164, 1056) //点击chrom
Delay 4000
Call click(1592, 103) //点击sd1001
Delay 8000
Call click(607, 631) //点击sd1001
Delay 5000
Call click(561, 619)//點擊標題
Delay 4000
xx = Lib.文件.读取指定行文本内容("D:脚本伊人微商网标题伊人微商网标题"+CStr(tt)+".txt", 1)
aa = Len(xx)
If aa < 1 Then
Msgbox "發完了!!"
Exit For
End If
Call Lib.文件.删除指定行文本内容("D:脚本伊人微商网标题伊人微商网标题" + CStr(tt) + ".txt", 1)
// xxxx = Plugin.File.ReadFileEx("D:脚本伊人微商网内容伊人微商网内容"+CStr(tt)+".txt")
SayString xx
Delay 1000
Delay 1000
Call click(315,493)//點擊关键字
Delay 1000
Call click(562,667)//點擊关键字
//Delay 1000
//SayString MyVar//第一次輸入標題文本
Delay 1000
SayString xx//第一次輸入標題文本
Delay 2000
Call movetodowm()
Delay 4000
Call click(686, 332)//點擊关键字
Delay 1000
MyVar1 = Mid(Text1, startNunEnum, 150)
startNunEnum = startNunEnum + 150
SayString xx
Delay 1000
SayString MyVar1//第一次輸入標題文本
Delay 1000
//Dim MyString, MyArray
// MyString = Split(xxxx, "|", -1, 1)
// TracePrint UBound(MyString)
// For Each c In MyString
//TracePrint c
// SayString Cstr(c & vbcrlf) //打开记事本，可以直接把每次遍历所获取到的向记事本输入.
// KeyPressS "Enter", 1
// Next
Call cp()
//elay 1000
MyVar = Mid(Text1, startNun, 150)
startNun = startNun + 150
Delay 1000
SayString xx//第一次輸入標題文本
Delay 1000
SayString MyVar//第二次輸入標題文本
Delay 1000
SayString xx//第一次輸入標題文本
//Delay 1000
//MyVar = Mid(Text, startNun, 200)
//startNun = startNun + 200
//Delay 1000
//SayString MyVar//第二次輸入標題文本
//Delay 1000
//SayString xx//第一次輸入標題文本
Delay 1000
Call movetodowm()
Delay 1000
Call click(476, 692)//點擊保存
// Delay 60000*2
Delay 20000
Next
Next
Function cp()
'==========以下是按键精灵录制的内容==========
Delay 487
KeyDown "Ctrl", 1
Delay 344
KeyDown "V", 1
Delay 124
KeyUp "V", 1
Delay 1
Delay 24
KeyUp "Ctrl", 1
Delay 15
'==========以上是按键精灵录制的内容==========
End Function
Function click(x, y)
Delay 1000
MoveTo x, y
Delay 1000
LeftClick 1
Delay 1000
End Function
Function movetodowm()
'==========以下是按键精灵录制的内容==========
MoveTo 1910, 412
Delay 812
LeftDown 1
MoveTo 1919, 848
Delay 494
LeftUp 1
Delay 1
LeftUp 1
'==========以上是按键精灵录制的内容==========
End Function
速效大肚子丸是真的吗？效果如何【记者追踪调查】tion as well as in the Conclusion, not altogether successfully for some of my readers, who have been led to credit me with virtues of modernity to whi速效大肚子丸是真的吗？效果如何【记者追踪调查】
