微信后臺視頻圖片消息發(fā)送的代碼
此功能需要加載精易模塊5.6
.版本 2.支持庫 spec.支持庫 internet.程序集 程序集1.子程序 _啟動子程序, 整數(shù)型, , 請在本子程序中放置動態(tài)鏈接庫初始化代碼_臨時子程序 ()返回 (0).子程序 _臨時子程序.局部變量 handle, 整數(shù)型, , "0".局部變量 i, 整數(shù)型' 本名稱子程序用作測試程序用,僅在開發(fā)及調試環(huán)境中有效,編譯發(fā)布程序前將被系統(tǒng)自動清空,請將所有用作測試的臨時代碼放在本子程序中。 注意不要修改本子程序的名稱、參數(shù)及返回值類型。窗口_模糊遍歷窗口 (, “ChatWnd”, , handle)' 請打開微信群 不要合并.計次循環(huán)首 (取數(shù)組成員數(shù) (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.companysz.com”) ' 消息.計次循環(huán)尾 ()調試輸出 (getwechatgroup ()).子程序 sendfile, , 公開.參數(shù) name, 文本型.參數(shù) file, 文本型.局部變量 a, 文本型, , "0".局部變量 handle, 整數(shù)型.如果真 (文件是否存在 (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).子程序 昵稱取句柄, 整數(shù)型.參數(shù) name, 文本型.局部變量 handle, 整數(shù)型, , "0".局部變量 i, 整數(shù)型窗口_模糊遍歷窗口 (, “ChatWnd”, , handle).計次循環(huán)首 (取數(shù)組成員數(shù) (handle), i) .如果真 (窗口_取標題 (handle [i]) = name) 返回 (handle [i]) .如果真結束.計次循環(huán)尾 ()返回 (0).子程序 sendimg, , 公開.參數(shù) name, 文本型.參數(shù) file, 文本型.局部變量 handle, 整數(shù)型.局部變量 img, 字節(jié)集.如果真 (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, , 公開.參數(shù) name, 文本型.參數(shù) text, 文本型.局部變量 handle, 整數(shù)型.如果真 (text = “”) 返回 ().如果真結束handle = 昵稱取句柄 (name)窗口_強制顯示 (handle, 真)鼠標_單擊 (handle, 10, 580, 1)剪輯板_置文本 (text).判斷循環(huán)首 (剪輯板_取文本 () = “”) 剪輯板_置文本 (text).判斷循環(huán)尾 ()鍵盤_單擊 (#Ctrl鍵, 1)程序_延時 (1000)鍵盤_消息 (handle, #V鍵, 5, 假)鍵盤_單擊 (#Ctrl鍵, 2)程序_延時 (1000)PostMessageA (handle, 256, #回車鍵, 0)窗口_最小化 (handle).子程序 getwechatgroup, 文本型, 公開.局部變量 handle, 整數(shù)型, , "0".局部變量 title, 文本型.局部變量 i, 整數(shù)型窗口_模糊遍歷窗口 (, “ChatWnd”, , handle).計次循環(huán)首 (取數(shù)組成員數(shù) (handle), i) .判斷開始 (title = “”) title = 窗口_取標題 (handle [i]) .默認 title = title + #換行符 + 窗口_取標題 (handle [i]) .判斷結束.計次循環(huán)尾 ().如果真 (title = “”) 信息框 (“未檢測到群列表,如已登錄 請打開微信群 不要合并”, 0 + 64, , ).如果真結束返回 (title).子程序 version, 文本型, 公開返回 (“666”)
運行結果:
總結
以上就是這篇文章的全部內(nèi)容了,希望本文的內(nèi)容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對VeVb武林網(wǎng)的支持。
新聞熱點
疑難解答