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

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

2013年8月27日 星期二

**CSS pane~Firefox Page Inspector 3D檢視--的神奇偵錯效果~!!** CSS pane ~ Firefox Page Inspector 3D view - debug magical effect ~!!**

**CSS pane~Firefox Page Inspector 3D檢視---
的神奇偵錯效果~!!*** CSS pane ~ Firefox Page Inspector 3D view -
 debug magical effect ~!!**

**督察檢查和修改頁面的結構和佈局

打開督察
有幾種方法打開督察

從“Web開發”菜單(這是在Mac上“工具”菜單的子菜單選擇“督察選項按Ctrl-Shift鍵C(CMD-Option-C鍵在Mac OS X和Linux
右鍵單擊網頁上的元素選擇檢查元素
“工具箱”將出現在瀏覽器窗口的底部督察激活

如果調用督察點擊檢查元素那麼該元素已經被選中督察的外觀和行為

因為它在“選擇元素”

否則,你移動你的鼠標在頁面周圍你的鼠標下的元素用虛線邊框高亮顯示

註釋顯示它的HTML標籤與此同時,其HTML定義在上下文中顯示,
督察左側窗格中***

**
Use the Inspector to examine and modify the structure and layout of a page.

Opening the Inspector

There are several ways to open the Inspector:
  • choose the "Inspector" option from the "Web Developer" menu
  • (which is a submenu in the "Tools" menu on the Mac)
  • press Ctrl-Shift-C (Cmd-Option-C on the Mac OS X and Linux)
  • right-click an element on a web page and select "Inspect Element"
The Toolbox will appear at the bottom of the browser window,
with the Inspector activated.
If you invoked the Inspector by clicking "Inspect Element", 
then the element will already be selected and the Inspector will look 
and behave as it does in "Selecting Elements" below.
Otherwise, as you move your mouse around the page, the element
under your mouse is highlighted with a dotted border and an 
annotation displays its HTML tag. At the same time, its HTML 
definition is displayed, in context, in the Inspector's left-hand pane               **

**,"為什麼這團CSS設定會產生這樣的效果"常常是個謎,
尤其在處理大小、位置議題,面對層層相套的容器,
外加不同margin與padding,混搭height、inline-hight跟font-size相輝映,
最後還得考量CSS繼承闗係,結果往往叫人目炫神迷不知所以   **

**基本上IE的Dev Tools及Chrome的開發者工具都能剖析各元素的CSS設定、
繼承套用計算,但Firefox的Page Inspector有個神奇的3D檢視功能,
解構容器階層關係時尤其火力強大,廢話不多說,有圖有真相:             
**基本上IE的Dev Tools及Chrome的開發者工具都能剖析各元素的CSS設定、繼承套用計算,但Firefox的Page Inspector有個神奇的3D檢視功能,解構容器階層關係時尤其火力強大,廢話不多說,有圖有真相:     .       
****It displays each rule as in a stylesheet, with a list of selectors
 followed by a list of property:value; declarations    **
*

Keyboard shortcuts

There are a number of handy shortcuts you can use while inspecting your page.
ShortcutDescription
Moves to the parent of the selected node.
Moves to the first child of the selected node.
Moves to the previous sibling of the selected node.
Moves to the next sibling of the selected node.
TabMoves a cursor to the next tag or attribute.
Return/EnterPlaces a text cursor in the current the tag or attribute so you can edit it.

CSS pane

The CSS pane shows information about the styles applied to
the currently selected element. There are four separate views: 
"Rules", "Computed", "Fonts", and "Box Model". You can switch
 between them using the toolbar at the top of the pane:*
*
**Rules view
This view lists all the rules that apply to the selected element, ordered from most-specific to least-specific:                                 
**It displays each rule as in a stylesheet, with a list of selectors 
followed by a list of property:value; declarations                                              
****At the top-right the source filename and line number is displayed: clicking it opens the file in the Style Editor. Rules that are overridden by later rules are crossed out. If you mouse over a declaration, a checkbox appears next to it: you can use this to toggle the rule on or off.

Editing rules

If you click on a declaration you can edit its property or value,
and see the results immediately. To add a new declaration to a rule,
click on the last line of the rule (the line occupied by the closing brace).
If you enter an invalid value for a property when editing it,
 or an unknown property name, a yellow alert icon appears 
under the declaration.
Any changes you make are temporary: reloading the page will 
restore the original styling.
Tip: You can use the arrow keys to increase/decrease numeric 
rules while editing. Up arrow will turn "1px" to 2px, and Shift+up/down 
will increment by 10. Alt+up/down change values by 0.1, and 
shift+Page up/down will add or subtract 100 from the value.

Computed view

This view organizes the style of the element by property. It lists all CSS properties which have been applied to this element in alphabetical order: it shows the calculated value that each CSS property has for for the selected element    
****Clicking the arrow next to the property name shows the rule that set this value, along with a link to the source filename and line number*      

**By default, it only shows values that have been explicitly set by the page: 
to see all values, click the "Browser styles" box.
Typing in the search box performs a live filtering of the list, so, for example,
 if you just want to see font-related settings, you can type "font" in the
 search box, and only properties with "font" in the name will be listed. 
You can also search for the values of properties: to find the rule responsible
 for setting the font to "Lucida Grande", type that in the search box.

Fonts view

This shows all the fonts in use by the selected element. Note that it shows the font used on your system, which may be different than the fonts specified in the css 
**
The text in the font view is "Abc" by default but this is actually a text area and can be freely edited.

Box model view

This shows a graphical representation of the box model as it's applied to this element:                                                      *
****

Using the Page Inspector with the Web Console

You can, of course, use the Web Console at the same time as the
 Page Inspector. In fact, you even have a bonus feature! 
The element that's currently selected in the Page Inspector, if any, 
can be referenced in JavaScript in the Web Console using the variable $0.*

***
defined in inspector-panel.js. Attributes and functions:
  • .selection - information about the inspector's selection:
    • .isNode() - returns true if selection is node.
    • .node - returns the actual element from the page
    • .window - the window object of the frame the selection is in.
  • .markDirty() - marks that the page has been changed by the inspector - a warning will be shown when leaving the page, since changes made 
  •  through the inspector are rewritten on reload.
Bindable events using on:

markuploaded

Called when the left panel has been refreshed, after page change.

ready

Called on first markuploaded.

pseudoclass

Called after toggle of a pseudoclass.

layout-change

"low-priority change event for things like paint and resize."                           **

**
**



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

**一個BIG5編碼難字檢查器{潛盾機}**

****一個BIG5編碼難字檢查器{潛盾機}**~!***將中文難字變成NCR的程式範例? 換句話說,就是程式要識別出字元--
--是否為中文BIG5編碼所不支援的難字,若是,則轉成犇這種NCR格式 ...**
**範例: (偵測難字我用的方法是試著將文字轉成BIG5編碼,如果變成?就視為難字)**

*1:  string toNCR(string rawString)
   2:  {
   3:      StringBuilder sb = new StringBuilder();
   4:      Encoding big5 = Encoding.GetEncoding("big5");
   5:      foreach (char c in rawString)
   6:      {
   7:          //強迫轉碼成Big5,看會不會變成問號
   8:          string cInBig5 = big5.GetString(big5.GetBytes(new char[] {c}));
   9:          //原來不是問號,轉碼後變問號,判定為難字
  10:          if (c!='?' && cInBig5=="?")
  11:              sb.AppendFormat("&#{0};", Convert.ToInt32(c));
  12:          else
  13:              sb.Append(c);
  14:      }
  15:      return sb.ToString();
  16:  }                                                                          *
 
**寫這段範例的同時,忽然想到它可以解決我的困擾。

有時我在VS 2005/VS.NET 2003存檔時,會出現如下的警告:                                   **
 
**有時這的確是因為我在Source Code中輸入Big5難字所引起,但更多時候卻是因為中文輸入時--
打錯字或選字不當引起,例如: 我就常常把"拋"輸入成"抛"。存檔時VS 2005警告檔案有難字,
一臉無辜的我就知道糟了,又打錯字了,可是剛才改了幾十個地方,到底是哪一個字打錯?? 
明知有錯字卻放著不改,對我來說,就像明知臉上沾著飯粒還要去約會一樣讓人不自在...
可是連哪一個字打錯都不確定,即使VS 2005有強大的Find功能,還是不知從何找起? ***

**有了這台潛盾機,把臉擦乾淨就不是什麼困難的事了~^哈..**
================================================================================END>===

**下回分解....**
**











*下下回分曉....^^*






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

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                                              ************