成人美女视频在线看,亚洲一区二区黄

主頁 > 知識庫 > vbs制作的校內(nèi)網(wǎng)古惑仔外掛(可智能加血)

vbs制作的校內(nèi)網(wǎng)古惑仔外掛(可智能加血)

set Obj = createobject("WScript.Shell")
VBS YN=Obj.Popup("歡迎使用《淡月下清荷》古惑仔外掛程序，《自動式》恢復(fù)生命值嗎？",0,"關(guān)機(jī)？",36)
Gosub jiance
///////檢測位置
up=500
down=0
Rem brotherset
VBSCall up=InputBox ("請設(shè)置攻擊目標(biāo)的兄弟上限")
VBSCall down=InputBox ("請設(shè)置攻擊目標(biāo)的兄弟下限")
If down>up
MessageBox "輸入錯誤"
Goto brotherset
EndIf
//Popup--彈出對話框
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
////通過剪貼板判斷生命和體力值
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
////判斷是否要攻擊或者加血或者等待
If life20
If stength>0
If YN=6
Gosub jiaxue
Else ""
set Objz = createobject("WScript.Shell")
VBS YON=Objz.Popup("生命不足，你確定要花錢恢復(fù)生命嗎？",0,"關(guān)機(jī)？",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 //////加血和攻擊子程序
//////加血和攻擊子程序
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 brotherup
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("是否對鼠標(biāo)坐標(biāo) 進(jìn)行檢測？",0,"關(guān)機(jī)？",36)
If zscjc=6
MessageBox "生命點(diǎn)數(shù)位置檢測(初始值232，244，z1=285)。按任意鍵繼續(xù)檢測！"
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("坐標(biāo)是否準(zhǔn)確？點(diǎn)擊《確定》進(jìn)行修改",0,"關(guān)機(jī)？",36)
LeftClick 1
If xiugai=6
Rem sunch1
MessageBox "生命值位置：關(guān)閉本對話框后，把鼠標(biāo)移動到生命值兩端端，按鍵盤即可！"
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("再一次修改？",0,"關(guān)機(jī)？",36)
If xiugai=6
Goto sunch1
EndIf
EndIf
MessageBox "體力點(diǎn)數(shù)位置檢測(初始值495，502，z1=285)。按任意鍵繼續(xù)檢測！"
MoveTo tlx,z1
LeftClick 1
Delay 500
LeftDown 1
MoveTo tly,z1
LeftUp 1
WaitKey
set Obja= createobject("WScript.Shell")
VBS xiugai=Obja.Popup("坐標(biāo)是否準(zhǔn)確？點(diǎn)擊《確定》進(jìn)行修改",0,"關(guān)機(jī)？",36)
LeftClick 1
If xiugai=6
Rem sunch2
MessageBox "體力值位置：關(guān)閉本對話框后，把鼠標(biāo)移動到體力值兩端端，按鍵盤即可！"
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("再一次修改？",0,"關(guān)機(jī)？",36)
If xiugai=6
Goto sunch2
EndIf
EndIf
MessageBox "火拼位置檢測(初始值393，z2=313)。按任意鍵繼續(xù)檢測！"
MoveTo 250,12
LeftClick 1
Delay 2000
MoveTo hpx,z2
WaitKey
set Obja= createobject("WScript.Shell")
VBS xiugai=Obja.Popup("坐標(biāo)是否準(zhǔn)確？點(diǎn)擊《確定》進(jìn)行修改",0,"關(guān)機(jī)？",36)
LeftClick 1
If xiugai=6
MessageBox "火拼位置：關(guān)閉本對話框后，把鼠標(biāo)移動到火拼位置上，按鍵盤即可！"
VBSCall GetCursorPos(hpx,z2)
EndIf
MessageBox "診所位置檢測(初始值523，z2=313)。按任意鍵繼續(xù)檢測！"
MoveTo 250,12
LeftClick 1
Delay 2000
MoveTo zsx,z2
WaitKey
set Obja= createobject("WScript.Shell")
VBS xiugai=Obja.Popup("坐標(biāo)是否準(zhǔn)確？點(diǎn)擊《確定》進(jìn)行修改",0,"關(guān)機(jī)？",36)
LeftClick 1
If xiugai=6
MessageBox "診所位置：關(guān)閉本對話框后，把鼠標(biāo)移動到診所位置上，按鍵盤即可！"
VBSCall GetCursorPos(zsx,z2)
EndIf
MessageBox "攻擊目標(biāo)位置檢測(初始值556，633，730，z3=455)。按任意鍵繼續(xù)檢測！"
MoveTo gjx,z3
LeftClick 1
Delay 500
LeftDown 1
MoveTo gjy,z3
LeftUp 1
WaitKey
set Obja= createobject("WScript.Shell")
VBS xiugai=Obja.Popup("坐標(biāo)是否準(zhǔn)確？點(diǎn)擊《確定》進(jìn)行修改",0,"關(guān)機(jī)？",36)
LeftClick 1
If xiugai=6
Rem sunch3
MessageBox "兄弟數(shù)位置：關(guān)閉本對話框后，把鼠標(biāo)移動到兄弟數(shù)兩端，按鍵盤即可！"
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("再一次修改？",0,"關(guān)機(jī)？",36)
If xiugai=6
Goto sunch3
EndIf
EndIf
MoveTo gjz,z3
WaitKey
set Obja= createobject("WScript.Shell")
VBS xiugai=Obja.Popup("坐標(biāo)是否準(zhǔn)確？點(diǎn)擊《確定》進(jìn)行修改",0,"關(guān)機(jī)？",36)
LeftClick 1
If xiugai=6
MessageBox "攻擊位置：關(guān)閉本對話框后，把鼠標(biāo)移動到攻擊位置上，按鍵盤即可！"
VBSCall GetCursorPos(gjz,z2)
EndIf
EndIf
Return jiaxue
下載地址

標(biāo)簽：宜春自貢六安鄂州淄博石嘴山河北松原

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs制作的校內(nèi)網(wǎng)古惑仔外掛(可智能加血)》，本文關(guān)鍵詞 vbs,制作,的,校內(nèi),網(wǎng)古,惑仔,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。