*1).*自定義>>窗囗~驗證碼遠程代答小工具+*2).新手學習*>>獲取數字特徵碼實例詳解+*3)>畫出驗證碼之~通用腳本=[源碼第二課堂]**

***1).*自定義>>窗囗小工具+*2).新手學習*>>獲取數字特徵碼實例詳解+*3)>畫出驗證碼之~通用腳本=[源碼第二課堂]**

*1).*自定義**窗口小工具**
*分辨率：1280x800 色深：16位操作系統：Microsoft Windows XP 按鍵精靈版本：9.20.10818*
-------------------------------------------------------------------------------------------------------------------
*01.DimEnv hwnd,sText,sClass,RtColor,ux,uy,ux2,uy2,sRect,sRect2,x_env,y_env，ScreenW，ScreenH，Dev02.Event Form1.Timer1.Timer03. hwnd = Plugin.Window.MousePoint()04. sText = Plugin.Window.GetText(Hwnd)05. sClass = Plugin.Window.GetClass(Hwnd)06. Form1.InputBox1.text = stext07. Form1.InputBox2.text = hwnd08. Form1.InputBox3.text = sClass09. GetCursorPos x, y10. x_env = x:y_env = y11. RtColor=Plugin.Color.GetPixelColor(x,y,0)12. Form1.InputBox4.text = "【B​​GR】"&RtColor13. Form1.InputBox5.text = x&","&y14. sRect = Plugin.Window.GetClientRect(Hwnd)15. aa = split(sRect, "|")16. ux = aa(0) : uy = aa(1)17. Form1.Label18.Caption = aa(0) & "," & aa(1)18. Form1.Label19.Caption = aa(2) & "," & aa(3)19. Form1.Label21.Caption = aa(2) - aa(0) & " X " & aa(3) - aa(1)20. Form1.InputBox6.text = x - ux & "," & y - uy21. sRect2 = Plugin.Window.GetwindowRect(Hwnd)22. aa2 = split(sRect2, "|")23. ux2 = aa2(0) : uy2 = aa2(1)24. Form1.Label12.Caption = aa2(0) & "," & aa2(1)25. Form1.Label13.Caption = aa2(2) & "," & aa2(3)26. Form1.Label15.Caption = aa2(2)-aa2(0)&" X "&aa2(3)-aa2(1)27. Form1.InputBox7.text = x - ux2 & "," & y - uy228. ScreenW = Plugin.Sys.GetScRX()29. ScreenH = Plugin.Sys.GetScRY()30. Dev = Plugin.Sys.GetScDep()31. Form1.Label22.Caption = "分辨率："&ScreenW & " X " & ScreenH & vblf&"顏色質量："&Dev32.End Event33.Event Form1.Load34. form1.Timer1.Enabled = false35. form1.timer1.Interval = 10036. form1.timer2.Interval = 10037.End Event38.Event Form1.Timer2.Timer39. Form1.Label9.Caption = "歡迎使用Melody製作的小工具!"&vblf&"現在時間為："&now40. aj = GetLastKey()41. If aj = 17 Then42. If i mod 2 = 0 Then43. form1.Timer1.Enabled = true44. i=i+145. Else46.​​ form1.Timer1.Enabled = false47. i=i+148. End If49. End If50.End Event51.Event Form1.InputBox1.GotFocus52. Call Plugin.Sys.SetCLB(sText)53.End Event54.Event Form1.InputBox2.GotFocus55. Call Plugin.Sys.SetCLB(hwnd)56.End Event57.Event Form1.InputBox3.GotFocus58. Call Plugin.Sys.SetCLB(sClass)59.End Event60.Event Form1.InputBox4.GotFocus61. Call Plugin.Sys.SetCLB(RtColor)62.End Event63.Event Form1.InputBox5.GotFocus64. Call Plugin.Sys.SetCLB(x_env&","&y_env)65.End Event66.Event Form1.InputBox7.GotFocus67. Call Plugin.Sys.SetCLB(x_env - ux2 & "," & y_env - uy2)68.End Event69.Event Form1.InputBox6.GotFocus70. Call Plugin.Sys.SetCLB(x_env - ux & "," & y_env - uy)71.End Event72.Event Form1.Label12.Click73. Call Plugin.Sys.SetCLB(split(sRect2, "|")(0) & "," & split(sRect2, "|")(1))74.End Event75.Event Form1.Label13.Click76. Call Plugin.Sys.SetCLB(split(sRect2, "|")(2) & "," & split(sRect2, "|")(3))77.End Event78.Event Form1.Label15.Click79. Call Plugin.Sys.SetCLB(split(sRect2, "|")(2)-split(sRect2, "|")(0) & "," & split(sRect2, "|")(3)-split (sRect2, "|")(1))80.End Event81.Event Form1.Label18.Click82. Call Plugin.Sys.SetCLB(split(sRect, "|")(0) & "," & split(sRect, "|")(1))83.End Event84.Event Form1.Label19.Click85. Call Plugin.Sys.SetCLB(split(sRect, "|")(2) & "," & split(sRect, "|")(3))86.End Event87.Event Form1.Label21.Click88. Call Plugin.Sys.SetCLB(split(sRect, "|")(2)-split(sRect, "|")(0) & "," & split(sRect, "|")(3)-split (sRect, "|")(1))89.End Event90.Event Form1.Label22.Click91. Call Plugin.Sys.SetCLB("分辨率："&ScreenW & " X " & ScreenH & vblf&"顏色質量："&Dev)92.End Event                                                                                            **
-------------------------------------------------------------------------------------------------------------------
*2).新手學習*>>獲取數字特徵碼實例詳解   **
*01.//做這東西主要是為了新人學習之用希望對新人們有一些幫助02.//聲明一些下面要用到的變量（其實不聲明也可以不過為了養成03.//編程的好習慣還是希望大家聲明一下)04.Dim XY_qi,Xq,Yq,n,m,Shu,Fu,A,X,Y05.//下面這部分是用來設置各種參數06.UserVar XY_qi=800/400 輸入數字起點坐標格式如：10/1007.UserVar Hen=5 輸入橫向特徵點個數08.UserVar n=1 輸入橫向遞進值09.UserVar Zong=10 輸入縱向特徵點個數10.UserVar m=2 輸入縱向遞進值11.UserVar Ms=2 顯示方式設置：1為彈出窗口模式2為粘帖模式12.UserVar Color1=FFFFFF 設置字體顏色或者背景顏色13.//初始化數據部分14.//把Color1轉化為字符串類型15.Color1=Str(Color1)16.//........................轉換成字符類型17.//取得"/"在字符串的地幾個18.A=InStr(XY_qi,"/")19.//.........................搜索字符串中指定字符的位置20.//取得"/"左邊的數據21.Xq=Left(XY_qi,A-1)22.//........................返回指定數目的從字符串的左邊算起的字符23.//取得"/"右邊的數據24.Yq=Right(XY_qi,Len(XY_qi)-A)25.//.........從字符串右邊返回指定數目的字符26.//給Shu,X,Y 賦值取得字符串長度27.Shu=""28.X=Xq:Y=Yq29.//縱向特徵點個數30.For Zong31. //給X賦值32. X=Xq33. //橫向特徵點個數34. For Hen35. //利用GetPixelColor函數開始找顏色36. VBSCall Color2=GetPixelColor(X,Y)37. //找到的顏色值和自己設置的顏色值做比較38. If Color2<>Color139. //如果2個顏色不一樣則給Fu賦值"1"40. Fu="1"41. Else42. //否則給Fu賦值為"0"43. Fu="0"44. EndIf45. //沒循環1次X的值增大n46.​​ X=X+n47. //每循環1次Shu的值連接一個Fu48. Shu=Shu&Fu49. EndFor50. //每循環一次Y的值增大m51. Y=Y+m52.EndFor53.//如果模式選擇1在顯示數字特徵碼54.If Ms=155. VBSCall MessageBox("數字特徵碼為："&vbcr&Shu)56. //如果模式選擇2則把數據寫入剪切板57.ElseIf Ms=258. Gosub Nt59. Gosub Ts60.EndIf61.EndScript62.//寫入剪切板子程序63.Sub Nt64. ShuZi=Shu65. Set objIE = CreateObject("InternetExplorer.Application")66. objIE.Navigate("about:blank")67. objIE.document.parentwindow.clipboardData.SetData "Text", ShuZi68. objIE.Quit69.Return Nt70.//彈出對話框子程序71.Sub Ts72. set Obj = createobject("WScript.Shell")73. Hua="數字特徵碼為："&vbcr&Shu&vbcr&"請打開記事本粘帖"74. VBSCall Obj.Popup(Hua,3,"提示",0)75.Return Ts                                                                                            **
-----------------------------------------------------------------------------------------------------------------
**3)>畫出驗證碼之~驗證碼遠程代答--通用腳本=[源碼第二課堂]**
*===通用脚本===
【功能说明】
 自動在畫圖程序裡畫出隨機不重複的6位數字和大寫字母組合的驗證碼 
  使用说明】
先打开画图程序，最大化，并调整默认大小，然后运行就OK*
分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730
*01.UserVar ip="80.72.185.76" "自定義ip地址"02.03.Call 註冊()04.//<>------------------------------05.hwnd = dm.GetMousePointWindow()06.TracePrint hwnd07.//08.Call 綁定()09.//<>--------------------------10.dm_ret = dm.FindPic(0,0,2000,2000,"驗證碼.bmp","000000",0.9,0,intX,intY)11.Delay 2012.TracePrint intX&","&intY13.If intX > 0 And intY > 0 Then14. Call 遠程代答()15.16.End If17.//<>------------------------------18.19.20.//<>------------------------------21.Sub 遠程代答()22.23. handle = dm.FaqCapture(intX+44,intY+87,intX+173,intY+139,50,0,0)24. Delay 2025. //26. TracePrint "開始答題"27. Do28.29. 答案= dm.FaqSend(ip&":12345",handle,2,250 * 1000)30. TracePrint 答案31. MyArray = Split(答案, ":")32. //33. If MyArray(0) = "OK" Then34. Exit Do35. Else36. Call Plugin.Msg.Tips("發送題目，出錯了")37. End If38. Loop While 7=739. //40. Delay 400041. //42. dm.MoveTo intX+55,intY+19243. Delay 544. dm.LeftClick45. Delay 2046.​​ //47. SayString MyArray(1)48. Delay 50049. dm.moveto intX + 113, intY + 26350. Delay 2051. dm.LeftClick52.53. //54.55.End Sub56.//<>-------------------------------------------- ------------------------<>57.//<>------------------------------子程序------------ ------------------<>58.//<>-------------------------------------------- ------------------------<>59.Sub 註冊()60. PutAttachment ".\plugin","*.dll"61. PutAttachment ".\plugin\大漠夢想","*.bmp"62. PutAttachment ".\plugin\大漠夢想","*.txt"63. PutAttachment ".\plugin\大漠夢想","dm.dll"64. //↑PutAttachment釋放附件65. Call Plugin.DBSoft.RegDBSoft("0731A74F3AA9DC55C27CA168D151F792")66. //↑大兵·註冊67. Call Plugin.RegDll.Reg(".\plugin\大漠夢想\dm.dll")68. set dm = createobject("dm.dmsoft")69. dm.SetPath ".\plugin\大漠夢想"70. //↑大漠·註冊71. Delay 2072.End Sub73.//74.Sub OnScriptExit()75. dm_ret = dm.UnBindWindow()76.End Sub77.78.Sub 綁定()79. Do80. dm_ret = dm.SetWindowState(hwnd,12)81. //↑設置“窗口”狀態82. dm.MoveWindow hwnd,0,083. //↑移動“窗口”到指定位置，允許移到“屏幕”外84. Delay 50085. dm_ret = dm.BindWindow(hwnd,"dx","windows","windows",0)86. Delay 20087. If dm_ret=1 Then88. Exit Do89. End If90. Loop While 7=791. //↑如果，成功，退出Do循環92. //↑如果，失敗，就一直綁定，直到成功93.End Sub                                                                                                   *
*1).*自定義>>窗囗~驗證碼遠程代答小工具+*2).新手學習*>>獲取數字特徵碼實例詳解+
*3)>>畫出驗證碼之~通用腳本=[源碼第二課堂]**完結**~!
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&