微信后臺視頻圖片消息發送的代碼
此功能需要加載精易模塊5.6
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
.版本 2.支持庫 spec.支持庫 internet.程序集 程序集1.子程序 _啟動子程序, 整數型, , 請在本子程序中放置動態鏈接庫初始化代碼_臨時子程序 ()返回 (0).子程序 _臨時子程序.局部變量 handle, 整數型, , "0".局部變量 i, 整數型' 本名稱子程序用作測試程序用，僅在開發及調試環境中有效，編譯發布程序前將被系統自動清空，請將所有用作測試的臨時代碼放在本子程序中。 注意不要修改本子程序的名稱、參數及返回值類型。窗口_模糊遍歷窗口 (, “ChatWnd”, , handle)' 請打開微信群 不要合并.計次循環首 (取數組成員數 (handle), i) 調試輸出 (窗口_取標題 (handle [i])) sendfile (窗口_取標題 (handle [i]), “C:\Documents and Settings\Administrator\桌面\2.mp4”) ' 視頻 sendimg (窗口_取標題 (handle [i]), “C:\Documents and Settings\Administrator\桌面\1.jpg”) ' 圖片 sendtext (窗口_取標題 (handle [i]), “www.ythuaji.com.cn”) ' 消息.計次循環尾 ()調試輸出 (getwechatgroup ()).子程序 sendfile, , 公開.參數 name, 文本型.參數 file, 文本型.局部變量 a, 文本型, , "0".局部變量 handle, 整數型.如果真 (文件是否存在 (file) ＝ 假) 返回 ().如果真結束handle ＝ 昵稱取句柄 (name)窗口_強制顯示 (handle, 真)鼠標_單擊 (handle, 10, 580, 1)加入成員 (a, file)剪輯板_置文件 (a)鍵盤_單擊 (#Ctrl鍵, 1)程序_延時 (1000)鍵盤_消息 (handle, #V鍵, 5, 假)鍵盤_單擊 (#Ctrl鍵, 2)程序_延時 (1000)PostMessageA (handle, 256, #回車鍵, 0)窗口_最小化 (handle).子程序 昵稱取句柄, 整數型.參數 name, 文本型.局部變量 handle, 整數型, , "0".局部變量 i, 整數型窗口_模糊遍歷窗口 (, “ChatWnd”, , handle).計次循環首 (取數組成員數 (handle), i) .如果真 (窗口_取標題 (handle [i]) ＝ name) 返回 (handle [i]) .如果真結束.計次循環尾 ()返回 (0).子程序 sendimg, , 公開.參數 name, 文本型.參數 file, 文本型.局部變量 handle, 整數型.局部變量 img, 字節集.如果真 (file ＝ “”) 返回 ().如果真結束.如果真 (尋找文本 (file, “http”, , 假) ＝ -1) .如果真 (文件是否存在 (file) ＝ 假) 返回 () .如果真結束.如果真結束handle ＝ 昵稱取句柄 (name)窗口_強制顯示 (handle, 真)鼠標_單擊 (handle, 10, 580, 1).如果 (尋找文本 (file, “http”, , 假) ≠ -1) img ＝ HTTP讀文件 (file).否則 img ＝ 讀入文件 (file).如果結束剪輯板_置圖片 (img)鍵盤_單擊 (#Ctrl鍵, 1)程序_延時 (1000)鍵盤_消息 (handle, #V鍵, 5, 假)鍵盤_單擊 (#Ctrl鍵, 2)程序_延時 (1000)PostMessageA (handle, 256, #回車鍵, 0)窗口_最小化 (handle).子程序 sendtext, , 公開.參數 name, 文本型.參數 text, 文本型.局部變量 handle, 整數型.如果真 (text ＝ “”) 返回 ().如果真結束handle ＝ 昵稱取句柄 (name)窗口_強制顯示 (handle, 真)鼠標_單擊 (handle, 10, 580, 1)剪輯板_置文本 (text).判斷循環首 (剪輯板_取文本 () ＝ “”) 剪輯板_置文本 (text).判斷循環尾 ()鍵盤_單擊 (#Ctrl鍵, 1)程序_延時 (1000)鍵盤_消息 (handle, #V鍵, 5, 假)鍵盤_單擊 (#Ctrl鍵, 2)程序_延時 (1000)PostMessageA (handle, 256, #回車鍵, 0)窗口_最小化 (handle).子程序 getwechatgroup, 文本型, 公開.局部變量 handle, 整數型, , "0".局部變量 title, 文本型.局部變量 i, 整數型窗口_模糊遍歷窗口 (, “ChatWnd”, , handle).計次循環首 (取數組成員數 (handle), i) .判斷開始 (title ＝ “”) title ＝ 窗口_取標題 (handle [i]) .默認 title ＝ title ＋ #換行符 ＋ 窗口_取標題 (handle [i]) .判斷結束.計次循環尾 ().如果真 (title ＝ “”) 信息框 (“未檢測到群列表,如已登錄 請打開微信群 不要合并”, 0 ＋ 64, , ).如果真結束返回 (title).子程序 version, 文本型, 公開返回 (“666”) |
運行結果：
總結
以上就是這篇文章的全部內容了，希望本文的內容對大家的學習或者工作具有一定的參考學習價值，謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接
