28/01/2014 MCAFEE SECURE 認證的網站

https://www.mcafeesecure.com/RatingVerify?ref=www.HongKongCupid.com

2013年8月24日 星期六

**想一下~讀取TXT文本的語句,實現隨機說話.可以刷BBS.呵呵~{不過千萬不要亂刷.這腳本只是用於學習用途}**Think about ~ ** statement read TXT text to achieve random words can brush BBS. Hehe ~ {brush, but do not mess this script just for learning purposes}**임의의 단어를 달성하기 ** 문 읽기 TXT 텍스트를. 헤헤 ~ {브러쉬,하지만 단지 학습을 목적으로이 스크립트를 흩 뜨리지 않는다} BBS를 솔질 할 수있다 ** 생각~

**讀取TXT文本的語句,實現隨機說話.可以刷BBS.呵呵~
{不過千萬不要亂刷.這腳本只是用於學習用途}**

**Think about ~ ** statement read TXT text to achieve random
 words can brush BBS. Hehe ~
* {brush, but do not mess this script just for learning purposes} **

**임의의 단어를 달성하기 ** 문 읽기 TXT 텍스트를.
헤헤 ~ {브러쉬,하지만 단지 학습을 목적으로이
스크립트를 흩 뜨리지 않는다} BBS를 솔질 할
수있다 ** 생각~**

*01.展開附件 .\fdlove *.txt02.響一聲03.//捉顏色的起點04.Dim pX,pY,add,addx,addy,number,x0,y0,x,y,numText,numTF,r,g,b,co,tp,numtp05.//第一個數字的位置06.x0=70807.y0=63108.x=x009.y=y010.//每個數字的間隔11.add=912.addx=313.addy=1114.//############################################## #######################15.//16.// 讀取字符17.//18.//############################################## #######################19.Dim fso,file,filename20.//設置語句文件的詳細路徑21.filename="fdlove\句子.txt"22.//設置外部函數23.set fso=CreateObject("Scripting.FileSystemObject")24.//以讀的方式打開25.set file=fso.opentextfile(filename,1)26.Dim i,n,maxText27.ReDim text(1)28.//設置語句,判斷是不是最後一句,先判斷這個文本有多少行.29.i=030.如果表達式(file.atendofstream<>-1) 為真,則循環執行31. tp=file.readline32. i=i+133.循環結束34.//設置最大字符數組數35.maxText=i36.ReDim text(maxText)37.//關閉文件38.file.close39.//以讀的方式打開40.set file=fso.opentextfile(filename,1)41.//讀取42.i=043.tp=time44.循環 maxText 遍45. //得到字符46.​​ text(i)=file.readline47. i=i+148.循環結束49.(VBScript語句) tp=DateDiff("s",tp,time)50.調用外部VBScript子程序MessageBox(tp & "," & maxText)51.//############################################## #######################52.//53.// 開 始 刷 了54.//55.//############################################## #######################56.標記 開始57.調用子程序 讀取數字58.如果表達式 (numText<>"") 為真,則59. 調用子程序 輸入字符60. 調用子程序 輸入驗證碼61. 鼠標移到 679 , 69262. 左鍵單擊63. 延時1300毫秒64.否則65. y=y+166. 如果表達式 (y-y0>10) 為真,則67. y=y068. 條件結束69.條件結束70.跳轉到標記 開始71.腳本停止運行72.子程序 輸入字符73. 鼠標移到 387 , 68574. 延時100毫秒75. 左鍵雙擊76. 延時300毫秒77. i=CInt(Rnd*100)78. 如果表達式(i>maxText-1) 為真,則循環執行79. i=CInt(Rnd*100)80. 循環結束81. 按鍵<1>82. 延時100毫秒83. 按住<Ctrl>84. 按鍵<A>85. 彈起<Ctrl>86. 延時100毫秒87. SayExpression text(i)88. 延時100毫秒89.子程序結束,回到調用處90.子程序 輸入驗證碼91. 鼠標移到 664 , 65992. 延時100毫秒93. 左鍵單擊94. 延時100毫秒95. 按鍵<BackSpace>96. 延時300毫秒97. SayExpression numText98. 延時300毫秒99.子程序結束,回到調 
100.子程序 讀取數字     **
--
**01.PutAttachment .\fdlove *.txt02.Beep03.//捉顏色的起點04.Dim pX,pY,add,addx,addy,number,x0,y0,x,y,numText,numTF,r,g,b,co,tp,numtp05.//第一個數字的位置06.x0=70807.y0=63108.x=x009.y=y010.//每個數字的間隔11.add=912.addx=313.addy=1114.//############################################## #######################15.//16.// 讀取字符17.//18.//############################################## #######################19.Dim fso,file,filename20.//設置語句文件的詳細路徑21.filename="fdlove\句子.txt"22.//設置外部函數23.set fso=CreateObject("Scripting.FileSystemObject")24.//以讀的方式打開25.set file=fso.opentextfile(filename,1)26.Dim i,n,maxText27.ReDim text(1)28.//設置語句,判斷是不是最後一句,先判斷這個文本有多少行.29.i=030.While file.atendofstream<>-131. tp=file.readline32. i=i+133.EndWhile34.//設置最大字符數組數35.maxText=i36.ReDim text(maxText)37.//關閉文件38.file.close39.//以讀的方式打開40.set file=fso.opentextfile(filename,1)41.//讀取42.i=043.tp=time44.For maxText45. //得到字符46.​​ text(i)=file.readline47. i=i+148.EndFor49.VBS tp=DateDiff("s",tp,time)50.VBSCall MessageBox(tp & "," & maxText)51.//############################################## #######################52.//53.// 開始刷了54.//55.//############################################## #######################56.Rem 開始57.Gosub 讀取數字58.If numText<>""59. Gosub 輸入字符60. Gosub 輸入驗證碼61. MoveTo 679,69262. LeftClick 163. Delay 130064.Else65. y=y+166. If y-y0>1067. y=y068. EndIf69.EndIf70.Goto 開始71.EndScript72.Sub 輸入字符73. MoveTo 387,6​​8574. Delay 10075. LeftDoubleClick 176. Delay 30077. i=CInt(Rnd*100)78. While i>maxText-179. i=CInt(Rnd*100)80. EndWhile81. KeyPress 49,182. Delay 10083. KeyDown 17,184. KeyPress 65,185. KeyUp 17,186. Delay 10087. SayExpression text(i)88. Delay 10089.Return 輸入字符90.Sub 輸入驗證碼91. MoveTo 664,65992. Delay 10093. LeftClick 194. Delay 10095. KeyPress 8,196. Delay 30097. SayExpression numText98. Delay 30099.Return 輸入驗證碼100.Sub 讀取數字
*101/ /得到一個數字的位置
102.pX= X:PY= Y
103/ /清空驗證碼
104.numText=“”
105/ /分別讀取4個數字
106.For4
107。 n = 0時numtp=“”
108。對於阿迪
109。 I=0
110。對於ADDX
111。 VBSCall CO = GetPixelColorPX I,PYŃ
112。 / /得到9C
113。 B = CINT&H,左轉(CO2
114。如果b>150B <235
115。 TP =1
116。其他
117。 TP =0
118。 ENDIF
119。 / /得到顏色01字符串
120 numtp= numtp&TP
121。 I = I1
122。 EndFor通過
123。 N = N1
124。 EndFor通過
125。 / /判斷是數字幾
126。如果StrCompnumtp001010100100100100100100100100010=0
127。號= 0
128。 elseif的StrCompnumtp000000001010000000000000000000000”的)= 0的
129。編號= 1
130。 elseif的StrCompnumtp001010100000000000000000000001010”的)= 0的
131。編號= 2
132。 elseif的StrCompnumtp001010100000000001000000000100110”的)= 0的
133。=3
134。 elseif的StrCompnumtp000000000001001010100000111000000”的)= 0的
135。=4
136。 elseif的StrCompnumtp011010010100111100000000000100010”的)= 0的
137。數=5
138。 elseif的StrCompnumtp001010100100101110100100100100010”的)= 0的
139。=6
140。 elseif的StrCompnumtp111000000000000000000000000001001”的)= 0的
141。=7
142。 elseif的StrCompnumtp001010100100010001010100100100010”的)= 0的
143。=8
144。 elseif的StrCompnumtp001010100100100100010001000100010”的)= 0的
145。=9
146。 ENDIF
147。 / /讀取下一位數字
148。 PX = PX
149。 / /記錄數字
150。 numText= numText
151.EndFor
152.rn讀取數字         
*


*EN*01 Expand the attachment. \ Fdlove *. Txt02. Beep03 / / catch the starting point for color04.Dim pX, pY, add, addx, addy, number, x0, y0, x, y, numText, numTF, r, g, b, co, tp, numtp05 / / first digit position06.x0 = 70807.y0 = 63108.x = x009.y = y010 / / interval of each digit11.add = 912.addx = 313.addy = 1114 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #15 / /16 / / read characters17 / /18 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #19.Dim fso, file, filename20 / / Set the detailed statement file path21.filename = "fdlove \ sentence. Txt"22 / / set the external function23.set fso = CreateObject ("Scripting.FileSystemObject")24 / / open the way to read25.set file = fso.opentextfile (filename, 1)26.Dim i, n, maxText27.ReDim text (1)28 / / set the statement, or judgment is not the last one, first determine how many lines of this text.29.i = 030, if the expression (file.atendofstream <> -1) is true, then the loop is executed31. Tp = file.readline32. I = i +133 end of the cycle34 / / Set the maximum number of characters in the array35.maxText = i36.ReDim text (maxText)37 / / Close the file38.file.close39 / / open the way to read40.set file = fso.opentextfile (filename, 1)41 / / Read42.i = 043.tp = time44 cycles maxText times45 / / get character46. ​​Text (i) = file.readline47. I = i +148 end of the cycle49. (VBScript statement) tp = DateDiff ("s", tp, time)50 Calling external VBScript subroutine MessageBox (tp & "," & maxText)51 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #52 / /53 / / start the brush54 / /55 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #56 Mark the beginning57 subroutine to read digital58 If the expression (numText <> "") is true,59 subroutine input character60 Enter the verification code subroutine61 Mouse over 679, 69262 Left-click63 millisecond delay 130064 Otherwise65. Y = y +166 if the expression (y-y0> 10) is true, then67. Y = y068. Conditions end69. Conditions end70. Jumps to mark start71 The script stops running72 subroutine input character73 Mouse over 387, 68574 100 ms delay75. Double left click76 Delay 300 ms77. I = CInt (Rnd * 100)78 If the expression (i> maxText-1) is true, then the loop is executed79. I = CInt (Rnd * 100)80. Cycle ends81 keys <1>82 100 ms delay83 Press and hold <Ctrl>84 keys <A>85. Bounce <Ctrl>86. 100 ms delay87. SayExpression text (i)88 100 ms delay89 end of the subroutine, back to the calling office90 Enter the verification code subroutine91 Mouse over 664, 65992. 100 ms delay93 Left-click94 100 ms delay95. Buttons <BackSpace>96. 300ms delay97. SayExpression numText98. 300ms delay99. Subroutine ends and return calls at100 subroutines to read digital                     **
--
**01.PutAttachment. \ Fdlove *. Txt02.Beep03 / / catch the starting point for color04.Dim pX, pY, add, addx, addy, number, x0, y0, x, y, numText, numTF, r, g, b, co, tp, numtp05 / / first digit position06.x0 = 70807.y0 = 63108.x = x009.y = y010 / / interval of each digit11.add = 912.addx = 313.addy = 1114 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #15 / /16 / / read characters17 / /18 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #19.Dim fso, file, filename20 / / Set the detailed statement file path21.filename = "fdlove \ sentence. Txt"22 / / set the external function23.set fso = CreateObject ("Scripting.FileSystemObject")24 / / open the way to read25.set file = fso.opentextfile (filename, 1)26.Dim i, n, maxText27.ReDim text (1)28 / / set the statement, or judgment is not the last one, first determine how many lines of this text.29.i = 030.While file.atendofstream <> -131. Tp = file.readline32. I = i +133.EndWhile34 / / Set the maximum number of characters in the array35.maxText = i36.ReDim text (maxText)37 / / Close the file38.file.close39 / / open the way to read40.set file = fso.opentextfile (filename, 1)41 / / Read42.i = 043.tp = time44.For maxText45 / / get character46. ​​Text (i) = file.readline47. I = i +148.EndFor49.VBS tp = DateDiff ("s", tp, time)50.VBSCall MessageBox (tp & "," & maxText)51 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #52 / /53 / / Start the brush54 / /55 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #56.Rem start57.Gosub read digital58.If numText <> ""59. Gosub input character60. Gosub enter the verification code61. MoveTo 679,69262. LeftClick 163. Delay 130064.Else65. Y = y +166. If y-y0> 1067. Y = y068. EndIf69.EndIf70.Goto start71.EndScript72.Sub input character73. MoveTo 387,68574. Delay 10075. LeftDoubleClick 176. Delay 30077. I = CInt (Rnd * 100)78. While i> maxText-179. I = CInt (Rnd * 100)80. EndWhile81. KeyPress 49,182. Delay 10083. KeyDown 17,184. KeyPress 65,185. KeyUp 17,186. Delay 10087. SayExpression text (i)88. Delay 10089.Return input character90.Sub enter the verification code91. MoveTo 664,65992. Delay 10093. LeftClick 194. Delay 10095. KeyPress 8,196. Delay 30097. SayExpression numText98. Delay 30099.Return enter the verification code100.Sub read digital            
*101 / / get the first digit position
102.pX = x: pY = y
103 / / Clear the verification code
104.numText = ""
105 / / read 4 digit respectively
106.For 4
107. N = 0: numtp = ""
108. For addy
109. I = 0
110. For addx
111. VBSCall co = GetPixelColor (px i, py n)
112 / / get 9C
113. B = CInt ("& H" & Left (co, 2))
114. If b> 150 and b <235
115. Tp = 1
116. Else
117. Tp = 0
118. EndIf
119 / / get the string color 01
120. Numtp = numtp & tp
121. I = i 1
122. EndFor
123. N = n 1
124. EndFor
125 / / determine is the number a few
126. If StrComp (numtp, "001010100100100100100100100100010") = 0
127. Number = 0
128. ElseIf StrComp (numtp, "000000001010000000000000000000000") = 0
129. Number = 1
130. ElseIf StrComp (numtp, "001010100000000000000000000001010") = 0
131. Number = 2
132. ElseIf StrComp (numtp, "001010100000000001000000000100110") = 0
133. Number = 3
134. ElseIf StrComp (numtp, "000000000001001010100000111000000") = 0
135. Number = 4
136. ElseIf StrComp (numtp, "011010010100111100000000000100010") = 0
137. Number = 5
138. ElseIf StrComp (numtp, "001010100100101110100100100100010") = 0
139. Number = 6
140. ElseIf StrComp (numtp, "111000000000000000000000000001001") = 0
141. Number = 7
142. ElseIf StrComp (numtp, "001010100100010001010100100100010") = 0
143. Number = 8
144. ElseIf StrComp (numtp, "001010100100100100010001000100010") = 0
145. Number = 9
146. EndIf
147 / / Read the next digit
148. PX = pX add
149 / / record digital
150. NumText = numText & number
151.EndFor
152.rn read digital                                         
*


*KR*01 첨부 파일을 확장합니다. \ Fdlove *이. txt02. 음03 / / 색의 시작점을 잡아04.Dim pX와, 평가, addx, 애디, 수, X0, Y0, X, Y, numText, numTF, R, G, B, 공동 목표 주가 numtp 추가05 / / 첫 번째 숫자의 위치06.x0 = 70807.y0 = 63108.x = X009.y = Y0각 숫자의 10 / / 간격11.add = 912.addx = 313.addy = 1114 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #15 / /16 / / 문자를 읽고17 / /18 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #19.Dim fso를, 파일 이름20 / /이 명세서 파일 경로를 설정합니다21.filename = "fdlove \ 문장이. txt"22 / /는 외부 기능을 설정23.set FSO = CreateObject를 ( "Scripting.FileSystemObject를")24 / / 읽기 위해 길을 열어25.set 파일 = fso.opentextfile (파일 이름, 1)26.Dim I, N, maxText27.ReDim 텍스트 (1)28 / /이 문을 설정하거나 심판이 마지막 하나가 아닌, 먼저이 텍스트 몇 줄을 결정합니다.29.i = 0식 (file.atendofstream <> -1)에 해당하는 경우 30, 다음 루프가 실행됩니다31. TP = file.readline32. I = I +1주기의 33 끝34 / /이 배열에있는 문자의 최대 수를 설정35.maxText = I36.ReDim 텍스트 (maxText)37 / /이 파일을 닫습니다38.file.close39 / / 읽기 위해 길을 열어40.set 파일 = fso.opentextfile (파일 이름, 1)41 / / 읽기42.i = 043.tp = 시간44주기 maxText 시간45 / / 문자를 얻을 수46.​​ 텍스트 (I) = file.readline47. I = I +1사이클 48 끝49. (VBScript를 문) TP = DateDiff는 ( "S", TP, 시간)50 호출 외부 VBScript를 서브 루틴 MessageBox를 (TP & ","& maxText)51 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #52 / /53 / /은 솔을 시작54 / /55 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #56의 시작을 표​​시디지털을 읽을 수 57 서브 루틴식 (numText <> "") true 인 경우 5859 서브 루틴 문자 입력60 인증 코드 서브 루틴을 입력679, 692에 61 마우스62 왼쪽 버튼으로 클릭63 밀리 초 지연 1300그렇지 않으면 6465. Y = Y +166 식 (Y-Y0> 10)는 true, 그 경우,67. Y = Y068. 조건 종료69. 조건 종료70. 시작을 표​​시로 이동71 스크립트 실행이 중지72 서브 루틴 문자 입력387, 685에 73 마우스74 100 밀리 초 지연75. 두 번 왼쪽 클릭76 지연 300 밀리77. I = CInt에 (Rnd 함수 * 100)식 (I> maxText-1) true 인 경우 78 다음 루프가 실행됩니다79. I = CInt에 (Rnd 함수 * 100)80. 사이클이 종료81 키 <1>82 100 밀리 초 지연83를 눌러 <CTRL>를 개최84 키 <A>85. 바운스 <CTRL>86. 100 밀리 초 지연87. SayExpression 텍스트 (I)88 100 밀리 초 지연다시 호출 사무실 루틴의 89 끝90 인증 코드 서브 루틴을 입력664, 659에 91 마우스92. 100 밀리 초 지연93 왼쪽 버튼으로 클릭94 100 밀리 초 지연95. 버튼 백 스페이스96.이 300ms 지연97. SayExpression의 numText98.이 300ms 지연99. 서브 루틴 끝과의 리턴 호출디지털을 읽을 수 100 서브 루틴                   **
--
**01.PutAttachment. \ Fdlove *이. txt02.Beep03 / / 색의 시작점을 잡아04.Dim pX와, 평가, addx, 애디, 수, X0, Y0, X, Y, numText, numTF, R, G, B, 공동 목표 주가 numtp 추가05 / / 첫 번째 숫자의 위치06.x0 = 70807.y0 = 63108.x = X009.y = Y0각 숫자의 10 / / 간격11.add = 912.addx = 313.addy = 1114 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #15 / /16 / / 문자를 읽고17 / /18 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #19.Dim fso를, 파일 이름20 / /이 명세서 파일 경로를 설정합니다21.filename = "fdlove \ 문장이. txt"22 / /는 외부 기능을 설정23.set FSO = CreateObject를 ( "Scripting.FileSystemObject를")24 / / 읽기 위해 길을 열어25.set 파일 = fso.opentextfile (파일 이름, 1)26.Dim I, N, maxText27.ReDim 텍스트 (1)28 / /이 문을 설정하거나 심판이 마지막 하나가 아닌, 먼저이 텍스트 몇 줄을 결정합니다.29.i = 030.While file.atendofstream <> -131. TP = file.readline32. I = I +133.EndWhile34 / /이 배열에있는 문자의 최대 수를 설정35.maxText = I36.ReDim 텍스트 (maxText)37 / /이 파일을 닫습니다38.file.close39 / / 읽기 위해 길을 열어40.set 파일 = fso.opentextfile (파일 이름, 1)41 / / 읽기42.i = 043.tp = 시간44.For maxText45 / / 문자를 얻을 수46.​​ 텍스트 (I) = file.readline47. I = I +148.EndFor49.VBS TP = DateDiff는 ( "S", TP, 시간)50.VBSCall MessageBox를 (TP & ","& maxText)51 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #52 / /53 / /이 브러시를 시작54 / /55 / / # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #56.Rem 시작57.Gosub 읽기 디지털58.If numText <> ""59. GOSUB 입력 문자60. GOSUB는 검증 코드를 입력61.의 moveTo 67969262. LeftClick 163. 지연 130064.Else65. Y = Y +166. 경우 Y-Y0> 1067. Y = Y068. ENDIF69.EndIf70.Goto 시작71.EndScript72.Sub 문자 입력73.의 moveTo 38768574. 지연 10075. LeftDoubleClick 176. 지연 30077. I = CInt에 (Rnd 함수 * 100)78. 동안> maxText-179. I = CInt에 (Rnd 함수 * 100)80. ENDWHILE81. 누를 때는 KeyPress 49,182. 지연 10083. KeyDown에 17,184. 누를 때는 KeyPress 65,185. keyUp 등 17,186. 지연 10087. SayExpression 텍스트 (I)88. 지연 10089.Return 입력 문자90.Sub는 검증 코드를 입력91.의 moveTo 66465992. 지연 10093. LeftClick 194. 지연 10095. 누를 때는 KeyPress 8,196. 지연 30097. SayExpression의 numText98. 지연 300인증 코드를 입력 99.Return100.Sub 읽기 디지털                        
*101 / / 첫 번째 숫자의 위치를 ​​얻을
102.pX = X : PY = Y
103 / / 확인 코드를 지우기
104.numText = ""
105 / / 각각 4 자리를 읽고
106.For 4
107 N = 0. numtp = ""
108. 애디 위해
109. I = 0
110. addx 위해
111. VBSCall 공동 = GetPixelColor (PX I, N)
112 / / 99 얻을
113. B = CInt에 ( "& H"& LEFT (CO 2))
114. 경우 B> 150 B <235
115. TP = 1
116. 그렇지
117. TP = 0
118. ENDIF
119 / / 문자열 01 색상
120. Numtp = numtp 목표 주가
121. I = I 1
122. ENDFOR
123. N = N 1
124. ENDFOR
125 / / 결정 몇 가지 숫자
126. 경우 StrComp 함수 (numtp, "001010100100100100100100100100010") = 0
127. 수 = 0
128. ELSEIF StrComp 함수 (numtp, "000000001010000000000000000000000") = 0
129. 수 = 1
130. ELSEIF StrComp 함수 (numtp, "001010100000000000000000000001010") = 0
131. 수 = 2
132. ELSEIF StrComp 함수 (numtp, "001010100000000001000000000100110") = 0
133. 수 = 3
134. ELSEIF StrComp 함수 (numtp, "000000000001001010100000111000000") = 0
135. 수 = 4
136. ELSEIF StrComp 함수 (numtp, "011010010100111100000000000100010") = 0
137. 수 = 5
138. ELSEIF StrComp 함수 (numtp, "001010100100101110100100100100010") = 0
139. = 6
140. ELSEIF StrComp 함수 (numtp, "111000000000000000000000000001001") = 0
141. 번호 = 7
142. ELSEIF StrComp 함수 (numtp, "001010100100010001010100100100010") = 0
143. 번호 = 8
144. ELSEIF StrComp 함수 (numtp, "001010100100100100010001000100010") = 0
145. 수 = 9
146. ENDIF
147 / / 다음 숫자 읽기
148. PX = pX와 추가
디지털 149 / / 기록
150. NumText = numText &
151.EndFor
152.rn 읽기 디지털                         
*


*CN*
  1. PutAttachment .\fdlove *.txt   
  2. Beep    
  3. //捉颜色的起点   
  • Dim pX,pY,add,addx,addy,number,x0,y0,x,y,numText,numTF,r,g,b,co,tp,numtp   
  • //第一个数字的位置   
  • x0=708   
  • y0=631   
  • x=x0   
  • y=y0   
  • //每个数字的间隔   
  • add=9   
  • addx=3   
  • addy=11   
  • //#####################################################################   
  • //   
  • //                                                             读取字符   
  • //   
  • //#####################################################################   
  • Dim fso,file,filename   
  • //设置语句文件的详细路径   
  • filename="fdlove\句子.txt"  
  • //设置外部函数   
  • set fso=CreateObject("Scripting.FileSystemObject")   
  • //以读的方式打开   
  • set file=fso.opentextfile(filename,1)   
  • Dim i,n,maxText   
  • ReDim text(1)   
  • //设置语句,判断是不是最后一句,先判断这个文本有多少行.   
  • i=0   
  • While file.atendofstream<>-1   
  •     tp=file.readline   
  •     i=i+1   
  • EndWhile    
  • //设置最大字符数组数   
  • maxText=i   
  • ReDim text(maxText)   
  • //关闭文件   
  • file.close   
  • //以读的方式打开   
  • set file=fso.opentextfile(filename,1)   
  • //读取   
  • i=0   
  • tp=time   
  • For maxText   
  •     //得到字符   
  •     text(i)=file.readline   
  •     i=i+1   
  • EndFor    
  • VBS tp=DateDiff("s",tp,time)   
  • VBSCall MessageBox(tp & "," & maxText)   
  • //#####################################################################   
  • //   
  • //                                                          开 始 刷 了   
  • //   
  • //#####################################################################   
  • Rem 开始   
  • Gosub 读取数字   
  • If numText<>""  
  •     Gosub 输入字符   
  •     Gosub 输入验证码   
  •     MoveTo 679,692   
  •     LeftClick 1   
  •     Delay 1300   
  • Else    
  •     y=y+1   
  •     If y-y0>10   
  •         y=y0   
  •     EndIf    
  • EndIf    
  • Goto 开始   
  • EndScript    
  • Sub 输入字符   
  •     MoveTo 387,685   
  •     Delay 100   
  •     LeftDoubleClick 1   
  •     Delay 300   
  •     i=CInt(Rnd*100)   
  •     While i>maxText-1   
  •         i=CInt(Rnd*100)   
  •     EndWhile    
  •     KeyPress 49,1   
  •     Delay 100   
  •     KeyDown 17,1   
  •     KeyPress 65,1   
  •     KeyUp 17,1   
  •     Delay 100   
  •     SayExpression text(i)   
  •     Delay 100   
  • Return 输入字符   
  • Sub 输入验证码   
  •     MoveTo 664,659   
  •     Delay 100   
  •     LeftClick 1   
  •     Delay 100   
  •     KeyPress 8,1   
  •     Delay 300   
  •     SayExpression numText   
  •     Delay 300   
  • Return 输入验证码   
  • Sub 读取数字  
  • //得到第一个数字的位置   
  • pX=x:pY=y   
  • //清空验证码   
  • numText=""  
  • //分别读取4个数字   
  • For 4   
  •     n=0:numtp=""  
  •     For addy   
  •         i=0   
  •         For addx   
  •             VBSCall co=GetPixelColor(px+i,py+n)   
  •             //得到9C   
  •             b=CInt("&H" & Left(co,2))   
  •             If b>150 and b<235   
  •                 tp=1   
  •             Else    
  •                 tp=0   
  •             EndIf    
  •             //得到颜色01字符串   
  •             numtp=numtp & tp   
  •             i=i+1   
  •         EndFor    
  •         n=n+1   
  •     EndFor    
  •     //判断是数字几   
  •     If StrComp(numtp,"001010100100100100100100100100010")=0   
  •         number=0   
  •     ElseIf StrComp(numtp,"000000001010000000000000000000000")=0   
  •         number=1   
  •     ElseIf StrComp(numtp,"001010100000000000000000000001010")=0   
  •         number=2   
  •     ElseIf StrComp(numtp,"001010100000000001000000000100110")=0   
  •         number=3   
  •     ElseIf StrComp(numtp,"000000000001001010100000111000000")=0   
  •         number=4   
  •     ElseIf StrComp(numtp,"011010010100111100000000000100010")=0   
  •         number=5   
  •     ElseIf StrComp(numtp,"001010100100101110100100100100010")=0   
  •         number=6   
  •     ElseIf StrComp(numtp,"111000000000000000000000000001001")=0   
  •         number=7   
  •     ElseIf StrComp(numtp,"001010100100010001010100100100010")=0   
  •         number=8   
  •     ElseIf StrComp(numtp,"001010100100100100010001000100010")=0   
  •         number=9   
  •     EndIf    
  •     //读取下一位数字   
  •     pX=pX+add   
  •     //记录数字   
  •     numText=numText & number   
  • EndFor    
  • rn 读取数字  
  • **************                                              THE     END                                              ************
    &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
     
     

    沒有留言:

    張貼留言


    if you like make fds, wellcome you here~~anytime***

    my free place for everyones who want the good software,

    come & download them~ wellcome!!