キースプライトスクリプト
4185 ワード
1コンピュータ版読み取りファイルスクリプト
2.Android版アナログ携帯操作スクリプト
Dim path
path = "C:/Users/Administrator/Desktop/accounts"
// , |
Text = Plugin.File.ReadFileEx(path)
MessageBox "Text" & text
TracePrint Text //
// ,
Dim fileHandle
fileHandle = Plugin.File.OpenFile(path)
i=0
Dim arrays(9) ,fileline //
Do While true
fileline = Plugin.File.ReadLine(fileHandle)
TracePrint fileline
// MessageBox "fileline " & fileline
If ( fileline="" )then
Call Plugin.File.CloseFile(fileHandle) // ,
Exit Do
Else
arrays(i)=fileline
i=i+1
End If
Loop
TracePrint UBound(arrays)
Delay 8000
//
For j=0 To UBound(arrays) step 1
TracePrint arrays(j)
Next
2.Android版アナログ携帯操作スクリプト
Import "ShanHai.lua"
// 0.5
SetControlBarPos 0.5,1
// app
//Tap 1088, 620
//Delay 2000
//Tap 221, 666
//Delay 2000
//Dim intX1,intY1
//FindPic 0,0,0,0,"Attachment: .png","000000",0,0.9,intX1,intY1
//If intX1 > -1 And intY1 > -1 Then
// TracePrint intX1
// TracePrint intY1
// Touch intX1+10, 254,2000
//Else
// TracePrint " "
//End If
//Delay 3000
//Tap 970, 484
//Dim intConfirmX,intConfirmY
//FindPic 0,0,0,0,"Attachment: .png","000000",0,0.9,intConfirmX,intConfirmY
//If intConfirmX > -1 And intConfirmY > -1 Then
// TracePrint intConfirmX
// TracePrint intConfirmY
// Touch 839, 453, 2000
//Else
//TracePrint " "
//Touch 839, 453, 2000
//End If
//Delay 2000
//KeyPress "Back"
//Delay 1000
//KeyPress "Back"
//Delay 1000
//KeyPress "Back"
//Delay 1000
//ShanHai.AppClean("com.ss.android.article.news")
Delay 2000
RunApp "com.ss.android.article.news"
Delay 12000
//TracePrint sys.GetFront()
Dim plusX_,plusY_
FindPic 0,0,0,0,"Attachment: .png","000000",0,0.9,plusX_,plusY_
If plusX_ > -1 And plusY_ > -1 Then
TracePrint plusX_
TracePrint plusY_
Tap plusX_, plusY_
Else
Tap 49,20
TracePrint " + "
End If
Delay 2000
//
//Touch 116, 44, 1000
//Delay 1000
//For k = 1 To 60 Step 1
//tap 162, 436
//Delay 1000
// rColor 。 ,
//Dim rColor
//rColor = GetPixelColor(147, 200)
//TracePrint " :"&rColor
//If rColor <> "CCCCCC" Then
//Exit For
//End If
//Next
//Delay 1000
//
//Touch 116, 44, 1000
//Delay 1000
// X
//Touch 51, 21, 1000
//Delay 1000
Dim width=GetScreenX()
dim height = GetScreenY()
TracePrint width
TracePrint height
For j = 1 To 60 Step 1
//
Dim plusX,plusY
FindPic 0,0,0,0,"Attachment: .png","000000",0,0.9,plusX,plusY
If plusX > -1 And plusY > -1 Then
TracePrint plusX
TracePrint plusY
Tap plusX, plusY
Else
Tap 49,20
TracePrint " + "
End If
Delay 1000
///
For i = 1 To 1 Step 1
call addRecommend()
TracePrint " ",j," "
Next
Delay 1000
//
Dim intX,intY
FindPic 0,0,0,0,"Attachment: .png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Tap intX,intY
Delay 1000
Else
TracePrint " "
End If
Next
Sub addRecommend()
Dim intX,intY
FindPic 0,0,0,0,"Attachment: .png","000000",0,0.9,intX,intY
If intX > -1 And intY > -1 Then
TracePrint intX
TracePrint intY
Tap intX+62, intY
Delay 1000
Else
TracePrint " "
End If
End Sub
Tap 98, 605
Delay 2000
For i = 1 To 5 Step 1
call slide()
TracePrint i
Next
KillApp "com.ss.android.article.news"
/////
Sub slide()
Dim i=1
TouchDown 1100,300,i
TouchMove 200,300,i,1500
TouchUp i
End sub
//KeyPress "PageDown"