仁和缇姿瘦减肥是真的吗lt;仁和缇姿瘦效果如何gt;仁和缇姿瘦在哪能买到

仁和缇姿瘦减肥是真的吗<仁和缇姿瘦效果如何>仁和缇姿瘦在哪能买到'==========以下是按键精灵录制的内容==========
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(482, 724)//點擊保存
                   // 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