fan62

回復  fan62


    護送3次可是在00:03分時護送第一次
     後面00:2X分開始就沒有第二次護送了
     當時 ...
bjaa6789 發表於 2012-2-20 16:10

你好,後台功能,不能將網頁縮小,你看網頁影片時,掛機用的瀏覽器請勿縮小化,你看影片的程式或瀏覽器可以在上層最大化,蓋住掛機用的瀏覽器,掛機的瀏覽器則放在後層,可是不能最小化或更動視窗大小!!

fan62

1. //測試OK
   
2. Dim MyArray
   
3. //=================================================================================
   
4. //[[以下是測試後台模擬鼠標取色找色操作]]
   
5. //=================================================================================
   
6. Call RunApp("mspaint.exe")
   
7. Delay 1000
   
8. //=================================================================================
   
9. //找畫圖區句柄
   
10. Hwnd=Plugin.Window.Find(0,"未命名 - 畫圖")
    
11. Hwnd=Plugin.Window.FindEx(Hwnd, 0, "AfxFrameOrView42u", 0)
    
12. Hwnd=Plugin.Window.FindEx(Hwnd, 0, "Afx:1000000:8", 0)
    
13. TracePrint "畫圖區句柄=" & Hwnd
    
14. //=================================================================================
    
15. //下面這句用於向後台窗口句柄(變量：Hwnd)的客戶區域(坐標：5, 5)處發送一個鼠標左鍵單擊
    
16. Call Plugin.Bkgnd.LeftClick(Hwnd, 5, 5)
    
17. TracePrint "鼠標在後台窗口(坐標：5, 5)處的單擊"
    
18. //=================================================================================
    
19. //下面這句用於向後台窗口句柄(變量：Hwnd)的客戶區域(坐標：10, 10)處發送一個鼠標左鍵雙擊
    
20. Call Plugin.Bkgnd.LeftDoubleClick(Hwnd, 10, 10)
    
21. TracePrint "鼠標在後台窗口(坐標：10, 10)處的雙擊"
    
22. //=================================================================================
    
23. //下面這句取窗口句柄(變量：Hwnd)窗口的客戶區(坐標：5, 5)處的顏色
    
24. Color1 = Plugin.Bkgnd.GetPixelColor(Hwnd, 5, 5)
    
25. TracePrint "後台窗口(坐標：5, 5)處的顏色=" & Color1
    
26. //=================================================================================
    
27. //下面這句按從左到右，從上到下的順序查找窗口句柄(變量：Hwnd)窗口的指定矩形區域內指定顏色
    
28. XY = Plugin.Bkgnd.FindColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
    
29. //下面這句用於分割字符串,將橫坐標和縱坐標分成兩個字符串
    
30. MyArray = Split(XY, "|")
    
31. //下面這句將字符串轉換成數值
    
32. X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    
33. TracePrint "後台窗口顏色X坐標=" & X & "    Y坐標=" & Y
    
34. //=================================================================================
    
35. //下面這句按(從左到右從上到下的順序找色)模糊查找窗口句柄(變量：Hwnd)窗口的指定矩形區域內指定顏色
    
36. XY = Plugin.Bkgnd.FindColorEx(Hwnd, 0, 0, 20, 20, "FFFFFF", 0, 0.9)
    
37. //下面這句用於分割字符串
    
38. MyArray = Split(XY, "|")
    
39. //下面這句將字符串轉換成數值
    
40. X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    
41. TracePrint "後台窗口顏色X坐標=" & X & "    Y坐標=" & Y
    
42. //=================================================================================
    
43. //下面這句按從中間到四周的順序查找窗口句柄(變量：Hwnd)窗口的指定的矩形區域內指定顏色
    
44. XY = Plugin.Bkgnd.FindCenterColor(Hwnd, 0, 0, 20, 20, "FFFFFF")
    
45. //下面這句用於分割字符串,將橫坐標和縱坐標分成兩個字符串
    
46. MyArray = Split(XY, "|")
    
47. //下面這句將字符串轉換成數值
    
48. X = CInt(MyArray(0)): Y = CInt(MyArray(1))
    
49. TracePrint "後台窗口顏色X坐標=" & X & "    Y坐標=" & Y
    
50. //=================================================================================
    
51. Hwnd = Plugin.Window.Find(0, "未命名 - 畫圖")
    
52. MessageBox "查找到的父窗口句柄為：" & Hwnd
    
53. //下面這句是關閉窗口
    
54. Call Plugin.Window.Close(Hwnd)
    
55. MessageBox "退出畫圖窗口"
    
56. //=================================================================================
    
57. //[[以下是測試後台模擬鍵盤操作]]
    
58. //=================================================================================
    
59. Call RunApp("notepad.exe")
    
60. Delay 1000
    
61. //=================================================================================
    
62. //找記事本輸入區句柄
    
63. Hwnd=Plugin.Window.Find(0,"無標題 - 記事本")
    
64. Hwnd=Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
    
65. TracePrint "記事本輸入區句柄=" & Hwnd
    
66. //=================================================================================
    
67. //下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：65)按鍵
    
68. Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
    
69. TracePrint "在後台窗口輸入A鍵"
    
70. //下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：66)按下
    
71. Call Plugin.Bkgnd.KeyDown(Hwnd, 66)
    
72. //下面這句用於向後台窗口句柄(變量：Hwnd)發送一個鍵盤(掃瞄碼：66)按下
    
73. Call Plugin.Bkgnd.KeyDown(Hwnd, 66)
    
74. TracePrint "在後台窗口輸入B鍵"
    
75. //下面這句用於向後台窗口句柄(變量：Hwnd)發送一個文本消息(內容："內容")到客戶區
    
76. Call Plugin.Bkgnd.SendString(Hwnd, "內容")
    
77. TracePrint "發送一個文本消息(內容)"
    
78. //=================================================================================
    
79. Hwnd = Plugin.Window.Find(0, "無標題 - 記事本")
    
80. MessageBox "查找到的父窗口句柄為：" & Hwnd
    
81. //下面這句是關閉窗口
    
82. Call Plugin.Window.Close(Hwnd)
    
83. MessageBox "退出記事本窗口"
    
84. //=================================================================================
    
85. Sub OnScriptExit()
    
86.         MessageBox "腳本已經停止！"
    
87. End Sub

複製代碼