微信后臺視頻圖片消息發送的代碼
此功能需要加載精易模塊5.6
.版本 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.49028c.com”) ' 消息.計次循環尾 ()調試輸出 (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”)
運行結果:
總結
以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網的支持。
新聞熱點
疑難解答