VBS production of the net of the ancient puzzle, plug (can be intelligent add blood) _ Other related
Last Update:2017-01-18
Source: Internet
Author: User
Set Obj = CreateObject ("Wscript.Shell")
VBS Yn=obj.popup ("Welcome to the" Tan under the Qing-Lotus "old puzzle," The plug-in program, "Automatic" restore life value? ", 0," shut down? ", 36)
GoSub jiance
Detection location
up=500
Down=0
Rem Brotherset
Vbscall Up=inputbox ("Please set the brother limit of attack target")
Vbscall Down=inputbox ("Please set the sibling limit of attack target")
If Down>up
MessageBox "Input Error"
Goto Brotherset
EndIf
popup--Pop-up dialog box
Delay 2000
Rem start
MoveTo 250,12
Leftclick 1
Delay 3000
MoveTo 1012,123
Leftdown 1
Delay 1000
Leftup 1
Rem Xunhuan
MoveTo HPX,Z2
Leftclick 1
Delay 5000
Judging life and physical values through the Clipboard
VBS Set objIE = CreateObject ("Internetexplorer.application")
VBS objie.navigate ("About:blank")
MoveTo SMX,Z1
Leftdown 1
MoveTo SMY,Z1
Leftup 1
KeyDown 17,1
KeyPress 67,1
KeyUp 17,1
VBS life = ObjIE.document.parentwindow.clipboardData.GetData ("text")
MoveTo TLX,Z1
Leftdown 1
MoveTo TLY,Z1
Leftup 1
KeyDown 17,1
KeyPress 67,1
KeyUp 17,1
Leftclick 1
VBS stength = ObjIE.document.parentwindow.clipboardData.GetData ("text")
VBS Objie.quit
To decide whether to attack or add blood or wait.
If life<20
If stength>0
If yn=6
GoSub Jiaxue
Else ""
Set objz = CreateObject ("Wscript.Shell")
VBS Yon=objz.popup ("Life is not enough, are you sure you want to spend money to restore life?") ", 0," shut down? ", 36)
If yon=6
Leftclick 1
GoSub Jiaxue
Else
Goto wait
EndIf
EndIf
Else
Goto wait
EndIf
ElseIf life>22
If stength>0
GoSub Gongji
Else
Goto wait
EndIf
Else
Goto wait
EndIf
Goto Xunhuan
Rem wait
Delay 360000
Goto start
Endscript//////plus blood and attack subroutines
Add blood and attack subroutines
Sub Jiaxue
MoveTo ZSX,Z2
Leftclick 1
Delay 3000
MoveTo 180,425
Leftclick 1
Delay 3000
Return Jiaxue
Sub Gongji
VBS Set objIE = CreateObject ("Internetexplorer.application")
VBS objie.navigate ("About:blank")
for 5
MoveTo gjx,z3
Leftdown 1
MoveTo gjy,z3
Leftup 1
KeyDown 17,1
KeyPress 67,1
KeyUp 17,1
VBS brother = ObjIE.document.parentwindow.clipboardData.GetData ("text")
If Brother<up
If Brother>down
MoveTo gjz,z3
Leftclick 1
Delay 5000
Else
Rem Willout
EndIf
Else
Rem Willout
EndIf
Z3=z3+34
ENDfor
Rem Willout
VBS Objie.quit
Return Jiaxue
Sub jiance
z1=285
smx=232
smy=244
tlx=495
tly=502
z2=313
hpx=393
zsx=523
z3=455
gjx=633
gjy=556
gjz=730
Set objall= CreateObject ("Wscript.Shell")
VBS Zscjc=objall.popup ("Do you want to detect mouse coordinates?") ", 0," shut down? ", 36)
If zscjc=6
MessageBox "Life Point location Detection (initial value 232,244,z1=285). Press any key to continue detection! "
MoveTo 250,12
Leftclick 1
Delay 2000
MoveTo SMX,Z1
Leftdown 1
MoveTo SMY,Z1
Leftup 1
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("is the coordinates accurate?") Click "OK" to modify ", 0," shutdown? ", 36)
Leftclick 1
If xiugai=6
Rem Sunch1
MessageBox "Life value Position: After closing this dialog box, move the mouse to the ends of the life value, press the keyboard!" "
MoveTo 250,12
Leftclick 1
Waitkey
Vbscall GetCursorPos (SMX,Z1)
Waitkey
Vbscall GetCursorPos (SMY,Z1)
MoveTo SMX,Z1
Leftdown 1
MoveTo SMY,Z1
Leftup 1
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("Once again modified?") ", 0," shut down? ", 36)
If xiugai=6
Goto Sunch1
EndIf
EndIf
MessageBox "Physical points position detection (initial value 495,502,z1=285). Press any key to continue detection! "
MoveTo TLX,Z1
Leftclick 1
Delay 500
Leftdown 1
MoveTo TLY,Z1
Leftup 1
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("is the coordinates accurate?") Click "OK" to modify ", 0," shutdown? ", 36)
Leftclick 1
If xiugai=6
Rem SUNCH2
MessageBox "Physical value position: After closing this dialog box, move the mouse to the physical value of both ends, press the keyboard can!" "
MoveTo 250,12
Leftclick 1
Waitkey
Vbscall GetCursorPos (TLX,Z1)
Waitkey
Vbscall GetCursorPos (TLY,Z1)
MoveTo TLX,Z1
Leftdown 1
MoveTo TLY,Z1
Leftup 1
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("Once again modified?") ", 0," shut down? ", 36)
If xiugai=6
Goto SUNCH2
EndIf
EndIf
MessageBox "Firefight position detection (initial value 393,z2=313). Press any key to continue detection! "
MoveTo 250,12
Leftclick 1
Delay 2000
MoveTo HPX,Z2
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("is the coordinates accurate?") Click "OK" to modify ", 0," shutdown? ", 36)
Leftclick 1
If xiugai=6
MessageBox "Rush Position: Close this dialog box, the mouse moved to the location of the firefight, press the keyboard can!" "
Vbscall GetCursorPos (HPX,Z2)
EndIf
MessageBox "Clinic location detection (initial value 523,z2=313). Press any key to continue detection! "
MoveTo 250,12
Leftclick 1
Delay 2000
MoveTo ZSX,Z2
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("is the coordinates accurate?") Click "OK" to modify ", 0," shutdown? ", 36)
Leftclick 1
If xiugai=6
MessageBox "Clinic Location: After closing this dialog box, move the mouse to the clinic position, press the keyboard! "
Vbscall GetCursorPos (ZSX,Z2)
EndIf
MessageBox "Attack target location detection (initial value 556,633,730,z3=455)." Press any key to continue detection! "
MoveTo gjx,z3
Leftclick 1
Delay 500
Leftdown 1
MoveTo gjy,z3
Leftup 1
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("is the coordinates accurate?") Click "OK" to modify ", 0," shutdown? ", 36)
Leftclick 1
If xiugai=6
Rem Sunch3
MessageBox "Brothers number position: Close this dialog box, move the mouse to the number of brothers at both ends, press the keyboard can! "
MoveTo 250,12
Leftclick 1
Waitkey
Vbscall GetCursorPos (GJX,Z3)
Waitkey
Vbscall GetCursorPos (GJY,Z3)
MoveTo gjx,z3
Leftdown 1
MoveTo gjy,z3
Leftup 1
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("Once again modified?") ", 0," shut down? ", 36)
If xiugai=6
Goto Sunch3
EndIf
EndIf
MoveTo gjz,z3
Waitkey
Set obja= CreateObject ("Wscript.Shell")
VBS Xiugai=obja.popup ("is the coordinates accurate?") Click "OK" to modify ", 0," shutdown? ", 36)
Leftclick 1
If xiugai=6
MessageBox "attack position: After closing this dialog box, move the mouse to the attack position, press the keyboard!" "
Vbscall GetCursorPos (GJZ,Z2)
EndIf
EndIf
Return Jiaxue
Download Address