I used vbs to write a World of Warcraft phishing script.

World of Warcraft phishing is boring, so I wrote this unattended automatic fishing script to improve fishing efficiency and free your hands and eyes. The script code is as follows:

Option explicit dim mcset MC = Createobject ("mouseutils. mousecontroller ") dim scrset scr = Createobject (" mouseutils. screeninfo ") dim shellset shell = Createobject (" wscript. shell ") dim fsoset FSO = Createobject (" scripting. fileSystemObject ") dim curdircurdir = FSO. getparentfoldername (wscript. scriptfullname) on error resume nextdim spset sp = Createobject ("SAPI. spvoice ") on error goto 0dim logstreamset logs Tream = FSO. opentextfile (FSO. buildpath (curdir, "log.txt"), 2, true) const fishkey = "{F1}" const Title = "World of Warcraft" dim x1x1 = scr. screenwidth/6dim X2 X2 = scr. screenwidth * 5/6dim y1y1 = scr. screenheight/5dim y2y2 = scr. screenheight * 4/5dim starttime 'start fishing time starttime = timed timeout' times out timeout = 0dim getfish 'times caught getfish = 0dim missedmissed = 0dim gdeltagdelta = getinputdelta () dim mousei Conmouseicon = loadmouseicon () While true call preparefishing () call startfishing () wendcall quit () sub speak (byval S, byval flag) if not SP is nothing thencall sp. speak (S, flag) end ifend subsub preparefishing () if not shell. appactivate (title) thencall msgbox ("not found '" & Title & "' window! ", Vbcritical) Call quitend ifcall MC. movemouse (1, 1) Call MC. sendKey (fishkey, false) call sleep (1000) starttime = nowend subsub startfishing () dim IFOR I = x1 to X2 step 300dim AA =-1dim BB =-1dim cc =-1dim lastset last = new pointlast. X =-1last. y =-1dim jfor j = Y1 to Y2 step 300 'is converted into a grayscale value for convenient comparison. dim graygray = getgraycolor (I, j) '--- A --- B --- C --- 'a, the average value of C and B are subtracted. A = BB = Cc = grayif A> = 0 and B> = 0 and C> = 0 thenI F ABS (A + C)/2-B)> gdelta thencall MC. movemouse (last. x, last. y) if the call sleep (100) icon is correct, wait for the fish to hook up. if MC. getcursorshape () = mouseicon thencall waitfish (last) Call MC. movemouse (last. x, last. y) Call MC. clickrightbuttoncall sleep (2000) Exit sub end if 'logevent (MC. getcursorshape () end ifend iflast. X = ilast. y = jnextnextmissed = missed + 1 call speak ("missed" & missed & "times. ", 1) Call logcount () end sub 'Wait for fish, hard work... sub waitfish (byval cur) dim dictset dict = Createobject ("scripting. dictionary ") Call addpoints (cur, dict) dim stst = nowcall collectdelta (St, dict) Call startwaiting (St, dict) end subsub startwaiting (byval St, byval dict) call speak ("start waiting. ", 1) const mincount = 3' start to wait. do While truedim countcount = 0dim msgmsg = "" dim keyfor each key in dictdim ptset Pt = dict (key) dim graygray = getgraycol Or (pt. x, PT. y) dim deltadelta = ABS (pt. gray-gray) If Delta> PT. delta * 3 then MSG = MSG & "{" & num (DELTA) & "> 3 *" & num (pt. delta) & "}," Count = count + 1end ifpt. gray = graynextlogevent (MSG) 'starts to jump, so it is time to close. if count> = mincount thencall logevent ("Count =" & COUNT) getfish = getfish + 1 call speak ("Wow! Get fish "& getfish &" times. ", 1) Call logcount () Exit doend ifcall sleep (200) 'timeout if datediff (" S ", starttime, now)> 20 thentimeout = timeout + 1 call speak ("time out" & timeout & "times. ", 1) Call logcount () Exit doend if loopend subsub addpoints (byval PT, byval dict) const Pi = 3.1415926pt.gray =-1pt. delta =-1 call dict. add (-1, pt) dim IFOR I = 1 to 3dim Dada = 15 * (4-I) dim RR = 100 * I 'draws a circle with a radius of R, Take a point at a certain angle. dim alphafor alpha = 0 to 360 step dadim newptset newpt = new pointnewpt. X = pt. X + R * Cos (alpha/180 * PI) newpt. y = pt. Y + R * sin (alpha/180 * PI) newpt. gray = getgraycolor (newpt. x, newpt. y) newpt. delta =-1newpt. alpha = alphanewpt. R = rcall dict. add (newpt. key, newpt) nextnextend subsub collectdelta (byval St, byval dict) Call speak ("collecting delta. ", 1) 'Collect changes. do While datediff ("S", St, now) <= 3dim Countcount = 0dim keyfor each key in dictdim ptset Pt = dict (key) 'current grayscale dim graygray = getgraycolor (pt. x, PT. y) 'current variation dim newdeltanewdelta = ABS (pt. gray-gray) 'find the maximum variation if newdelta> PT. delta thenpt. delta = newdeltaend ifpt. gray = graynextcall sleep (200) loopend subclass pointpublic xpublic ypublic graypublic deltapublic rpublic alphapublic property get key () Key = R & "," & alphaend property public s UB logmsg () call logevent ("x =" & X & ", y =" & Y & ", gray =" & gray & ", Delta =" & delta) end subend classfunction num (byval N) num = round (n, 1) end functionfunction getgraycolor (byval X, byval y) dim colorcolor = scr. getcolorat (x, y) dim redred = (color \ 65536) and & hffdim greengreen = (color \ 256) and & hffdim blueblue = color and & HFF 'is converted into grayscale values for convenient comparison. getgraycolor = (Red + green + blue)/3end functionsub Sleep (byval MS) Call wscript. sleep (MS) If shell. appactivate ("Run") thencall quit () end ifend subsub logevent (byval MSG) Call logstream. writeline (now & "=>" & MSG) end subsub logcount () logevent ("missed:" & missed & ", timeout:" & timeout & ", getfish: "& getfish) end subsub quit () call logstream. closecall wscript. quitend subfunction getinputdelta () getinputdelta = 10do while truegetinputdelta = inputbox ("please Set Sensitivity (the lower the number, the more sensitive) press the cancel key to exit: "," World of Warcraft phishing script ", getinputdelta) If getinputdelta =" "thencall quitelseif isnumeric (getinputdelta) thengetinputdelta = clng (getinputdelta) Exit doelsecall msgbox ("a number is required! ") End ifloopend function loadmouseicon () dim pathpath = FSO. buildpath (curdir, "mouseicon. cfg ") dim bsuccessfulbsuccessful = falseif FSO. fileexists (PATH) thendim streamset stream = FSO. opentextfile (path, 1, false) if not stream. atendofstream thendim temptemp = stream. readall () If isnumeric (temp) Then loadmouseicon = clng (temp) bsuccessful = trueend ifend ifcall stream. closeend ifif not bsuccessful thenloadmouseicon = findmouseicon () set stream = FSO. opentextfile (path, 2, true) call stream. write (loadmouseicon) call stream. closeend ifend functionfunction findmouseicon () dim dictset dict = Createobject ("scripting. dictionary ") Call preparefishingcall MC. movemouse (x1, Y1) call sleep (100) Call addtodict (dict, MC. getcursorshape () Call MC. movemice (x1, Y2) call sleep (100) Call addtodict (dict, MC. getcursorshape () Call MC. movemouse (X2, Y1) call sleep (100) Call addtodict (dict, MC. getcursorshape () Call MC. movemouse (X2, Y2) call sleep (100) Call addtodict (dict, MC. getcursorshape () docall preparefishingdim IFOR I = x1 to X2 step 300dim AA =-1dim BB =-1dim cc =-1dim lastset last = new pointlast. X =-1last. y =-1dim jfor j = Y1 to Y2 step 300 'is converted into a grayscale value for convenient comparison. dim graygray = getgraycolor (I, j) '--- A --- B --- C --- 'a, the average value of C and B are subtracted. A = BB = Cc = grayif A> = 0 and B> = 0 and C> = 0 thenif ABS (A + C)/2-B)> gdelta thencall MC. movemouse (last. x, last. (y) call sleep (100) Call addtodict (dict, MC. getcursorshape () end ifend iflast. X = ilast. y = jnextnextloop while dict. count <2dim Minmin = 1000dim minkeydim keyfor each key in dictif dict (key) <min thenminkey = keymin = dict (key) end ifnext findmouseicon = clng (Minkey) end functionprivate sub addtodict (byval dict, byval key) If dict. exists (key) thendict. item (key) = dict. item (key) + 1 elsecall dict. add (Key, 0) end ifend sub

Complete (7.0 ):

Http://pan.baidu.com/share/link? Consumer id = 3924643541 & UK = 2988610534

(I guarantee that the script will never be infected with viruses or Trojans. However, I will not be liable for warning or even code blocking due to the use of this script .)

Note:

1. Run "regdll. Bat" to register the mouseutils. dll.

2. During the first use, the mouseicon. cfg file is automatically generated in the script directory. You can manually delete the file when copying the file to different machines or the file is incorrectly generated.

3 set the World of Warcraft phishing skill to F1 (26 lines of the script can also be modified: const fishkey = "{F1}" to change the pressed Button. For example, "1" means to press 1 ).

4. Exit the script by using the win key + R, that is, open the "Start-> Run" window.

5. adjust it to the first-person perspective, and occupy most of the screen.

6. press Alt + Z to cancel the display of various boxes.

7. Fishing in areas with few people and little difference in the color of the lake.

8. If Windows 7 runs slowly, you can change the desktop topic to Windows 7 basic.

9 The voice prompt is enabled by default. If you do not want to hear the voice prompt, you can change the 20th lines of code:

Set sp =
Nothing