VBS production of the net of the ancient puzzle, plug (can be intelligent add blood) _ Other related

Source: Internet
Author: User
Tags goto
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

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.