vbs 로 제 작 된 교 내 망 고 혹 스 러 운 외 장(스마트 피 추가 가능)

set Obj=createobject("WScript.Shell")VBS YN=Obj.Popup0,"꺼 져?"36)Gosub jiance///////검 측 위치 up=500 down=0 Rem brotherset VBSCall up=InputBox("공격 대상 의 형제 상한 선 을 설정 하 세 요")VBSCall down=InputBox("공격 대상 의 형제 하한 선 을 설정 하 세 요")If down>up Message Box"입력 오류"Goto brotherset Endif/popup-팝 업 대화 상자 Delay 2000 Rem start Moveto 250,12 Left Click 1 Delay 3000 Moveto 1012,123 Left Down 1 Delay 1000 Left Up 1 Rem xunhuan MoveTo hpx,z2 Left Click 1 Delay 5000////클립보드 로 생명 과 체력 치 판단 VBS Set object=CreateObject("Internet Explorer.Application")VBS object.Navigate("about:blank")MoveTo smx,z1 Left Down 1 MoveTo smy,z1 Left Up 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 Left Click 1 VBS stength=objectIE.document.parentwindow.clipboardData.GetData("text")VBS objecti.Quit////공격 하거나 피 를 넣 거나 기다 릴 지 판단 If life<20 If stength>0 If YN=6 Gosub jiaxue Else""set Objz=createobject("WScript.Shell")VBS YON=Objz.Popup("생명 이 부족 하면 돈 을 써 서 생명 을 회복 하 시 겠 습 니까?",0,"꺼 져?"36)If YON=6 Left Click 1 Gosub jiaxue Else Goto wait EndIf EndIf Else Goto wait EndIf Else 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 Move To zsx,z2 Left Click 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 brotherdown MoveTo gjz,LeftClick 1 Delay 5000 Else Rem willout EndIf Else Rem willout EndIf EndIf z3=z3+34 EndFor Rem willout VBS obj IE.Quit Return jiaxe Sub jiance z1=285 smx=232 smx=224 tlx=495 tlx=502 z2=313 hpx=393 zsx=523 z3=455 gjx=633 gjy=556 gjz=556 gjz=730 set Objall=createobjall=createoobjall("WScript.Shell")VBS zscjc=Objall.Popup(Objall.Popup("WSscript.Shell")VBS zscjc=Objall.Popup("마우스 좌 표를 검사 하 시 겠 습 니까?"0,"꺼 져?"36)If zscjc=6 Message Box'생명 포인트 위치 검출(초기 값 232,244,z1=285).임 의 버튼 을 눌 러 계속 검사 하 세 요!"MoveTo 250,12 Left Click 1 Delay 2000 MoveTo smx,z1 Left Down 1 MoveTo smy,z1 Left Up 1 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("좌표 가 정확 합 니까?'확인'을 누 르 면 수정 합 니 다.",0,"전원 끄 기?",36)Left Click 1 If xiugai=6 Rem sunch 1 Message Box"생명 치 위치:이 대화 상 자 를 닫 은 후 생명 치 양 끝 으로 마 우 스 를 이동 하고 키 보드 를 누 르 면 됩 니 다!"Moveto 250,12 Left Click 1 WaitKey VBSCall GetCursorPos(smx,z1)WaitKey VBSCall GetCursorPos(smy,z1)MoveTo smx,z1 Left Down 1 MoveTo smy,z1 Left Up 1 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("다시 수정?",0,"꺼 져?"36)If xiugai=6 Goto sunch 1 EndIf EndIf Message Box"체력 포인트 위치 측정(초기 값 495,502,z1=285).임 의 버튼 을 눌 러 계속 검사 하 세 요!"MoveTo tlx,z1 Left Click 1 Delay 500 Left Down 1 MoveTo tly,z1 Left Up 1 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("좌표 가 정확 합 니까?'확인'을 누 르 면 수정 합 니 다.",0,"전원 끄 기?",36)Left Click 1 If xiugai=6 Rem sunch 2 Message Box"체력 치 위치:이 대화 상 자 를 닫 은 후 체력 치 양 끝 으로 마 우 스 를 이동 하고 키 보드 를 누 르 면 됩 니 다!"Moveto 250,12 Left Click 1 WaitKey VBSCall GetCursorPos(tlx,z1)WaitKey VBSCall GetCursorPos(tly,z1)MoveTo tlx,z1 Left Down 1 MoveTo tl,z1 Left Up 1 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("다시 수정?",0,"꺼 져?"36)If xiugai=6 Goto sunch 2 EndIf EndIf Message Box'파이 어 링 위치 검출(초기 값 393,z2=313).임 의 버튼 을 눌 러 계속 검사 하 세 요!"MoveTo 250,12 Left Click 1 Delay 2000 MoveTo hpx,z2 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("좌표 가 정확 합 니까?'확인'을 누 르 면 수정 합 니 다.",0,"전원 끄 기?",36)왼쪽 클릭 1 If xiugai=6 Message Box"화투 위치:이 대화 상 자 를 닫 은 후 화투 위치 로 마 우 스 를 이동 하고 키 보드 를 누 르 면 됩 니 다!"VBSCall GetCursorPos(hpx,z2)EndIf Message Box"클 리 닉 위치 검사(초기 값 523,z2=313).임 의 버튼 을 눌 러 계속 검사 하 세 요!"MoveTo 250,12 Left Click 1 Delay 2000 MoveTo zsx,z2 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("좌표 가 정확 합 니까?'확인'을 누 르 면 수정 합 니 다.",0,"전원 끄 기?",36)Left Click 1 If xiugai=6 Message Box"클 리 닉 위치:이 대화 상 자 를 닫 은 후 클 리 닉 위치 로 마 우 스 를 이동 하고 키 보드 를 누 르 면 됩 니 다!"VBSCall GetCursorPos(zsx,z2)EndIf MessageBox"공격 대상 위치 검출(초기 값 556,633,730,z3=455).임 의 버튼 을 눌 러 계속 검사 하 세 요!"MoveTo gjx,z3 Left Click 1 Delay 500 Left Down 1 MoveTo gjy,z3 Left Up 1 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("좌표 가 정확 합 니까?'확인'을 누 르 면 수정 합 니 다.",0,"전원 끄 기?",36)Left Click 1 If xiugai=6 Rem sunch 3 Message Box"형제 수 위치:이 대화 상 자 를 닫 은 후 형제 수 양쪽 으로 마 우 스 를 이동 하고 키 보드 를 누 르 면 됩 니 다!"Moveto 250,12 Left Click 1 WaitKey VBSCall GetCursorPos(gjx,z3)WaitKey VBSCall GetCursorPos(gjy,z3)MoveTo gjx,z3 Left Down 1 MoveTo gjy,z3 Left Up 1 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("다시 수정?",0,"꺼 져?"36)If xiugai=6 Goto sunch 3 EndIf EndIf MoveTo gjz,z3 WaitKey set Obja=createobject("WScript.Shell")VBS xiugai=Obja.Popup("좌표 가 정확 합 니까?'확인'을 누 르 면 수정 합 니 다.",0,"전원 끄 기?",36)Left Click 1 If xiugai=6 Message Box"공격 위치:이 대화 상 자 를 닫 은 후 마 우 스 를 공격 위치 로 이동 시 키 고 키 보드 를 누 르 면 됩 니 다!"VBSCall GetCursorPos(gjz,z2) EndIf EndIf Return jiaxue 다운로드 주소