欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

易語言QQ群發(fā)支持圖片文字?jǐn)?shù)據(jù)一起發(fā)送的工具

 更新時(shí)間：2018年12月03日 15:52:29   作者：易語言源碼教程  
今天小編就為大家分享一篇關(guān)于易語言QQ群發(fā)支持圖片文字?jǐn)?shù)據(jù)一起發(fā)送的工具，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧

DLL命令表

.版本 2
.DLL命令 OpenClipboard, 邏輯型, "user32", "OpenClipboard", , 打開CLIPBOARD
  .參數(shù) hwnd, 整數(shù)型
.DLL命令 GetClipboardData, 整數(shù)型, "user32", "GetClipboardData", , 返回剪貼板數(shù)據(jù)的句柄
  .參數(shù) wFormat, 整數(shù)型
.DLL命令 RegisterClipboardFormat, 整數(shù)型, "user32", "RegisterClipboardFormatA", , 登記新的CLIPBOARD格式
  .參數(shù) lpString, 文本型
.DLL命令 GlobalSize, 整數(shù)型, "kernel32", "GlobalSize", , 返回全局內(nèi)存塊大小
  .參數(shù) hMem, 整數(shù)型
.DLL命令 GlobalLock, 整數(shù)型, "kernel32", "GlobalLock", , 鎖定內(nèi)存對(duì)象并返回一個(gè)指針
  .參數(shù) hMem, 整數(shù)型
.DLL命令 CloseClipboard, 整數(shù)型, "user32", "CloseClipboard", , 關(guān)閉剪貼板
.DLL命令 GlobalAlloc, 整數(shù)型, "kernel32", "GlobalAlloc", , 在堆中分配內(nèi)存
  .參數(shù) wFlags, 整數(shù)型
  .參數(shù) dwBytes, 整數(shù)型
.DLL命令 GlobalUnlock, 整數(shù)型, "kernel32", "GlobalUnlock", , 開鎖全局內(nèi)存塊
  .參數(shù) hMem, 整數(shù)型
.DLL命令 EmptyClipboard, 邏輯型, "user32", "EmptyClipboard", , 清空剪貼板并釋放數(shù)據(jù)句柄
.DLL命令 SetClipboardData, 整數(shù)型, "user32", "SetClipboardData", , 設(shè)置剪貼板中數(shù)據(jù)
  .參數(shù) wFormat, 整數(shù)型
  .參數(shù) hMem, 整數(shù)型
.DLL命令 CreateThread, 整數(shù)型, "kernel32.dll", "CreateThread", , 創(chuàng)建一個(gè)新的線程，創(chuàng)建完畢會(huì)立即返回。成功則返回新線程的句柄，零表示失敗
  .參數(shù) lpThreadAttributes, 整數(shù)型, , 指向一個(gè)SECURITY_ATTRIBUTES結(jié)構(gòu),主要用來指定句柄是否可以被繼承,如果讓線程使用默認(rèn)的安全屬性,可以將此值設(shè)為 NULL
  .參數(shù) dwStackSize, 整數(shù)型, , 線程堆棧大小,如果為0,那么線程的堆棧大小和主線程使用的大小相同
  .參數(shù) lpStartAddress, 子程序指針, , 線程的開始執(zhí)行地址,指向一個(gè)新線程函數(shù)(過程)的指針
  .參數(shù) lpParameter, 整數(shù)型, , 傳遞給自定義參數(shù),傳遞給子線程的參數(shù),0為無限止
  .參數(shù) dwCreationFlags, 整數(shù)型, , 設(shè)置線程被創(chuàng)建后的狀態(tài),如果為0表示,創(chuàng)建后立即運(yùn)行,如果為CREATE_SUSPENDED標(biāo)志,表示線程被創(chuàng)建后處于掛志狀態(tài),直到使用ResumeThread函數(shù)顯式地啟動(dòng)線程為止
  .參數(shù) lpThreadId, 整數(shù)型, , 指向一個(gè)雙字節(jié)變量,用來接收函數(shù)返回的線程ID.線程ID在系統(tǒng)范圍內(nèi)是唯一的.

常量數(shù)據(jù)表

.版本 2
.常量 Fmt_Head, "<文本長度: 46>", , <QQRichEditFormat><Info version="1001"></Info>
.常量 Str_Head, "<文本長度: 31>", , <EditElement type="0"><![CDATA[
.常量 Img_Head, "<文本長度: 32>", , <EditElement type="1" filepath="
.常量 Img_End, "<文本長度: 28>", , " shortcut=""></EditElement>
.常量 Face_Head, "<文本長度: 36>", , <EditElement type="2" sysfaceindex="
.常量 Face_End, "<文本長度: 40>", , " filepath="" shortcut=""></EditElement>
.常量 GMEM_MOVEABLE, "2"
.常量 GMEM_ZEROINIT, "64"

QQ群發(fā)助手

此功能需要加載精易模塊5.6

.版本 2
.支持庫 eAPI
.支持庫 iext
.程序集 窗口程序集1
.程序集變量 聊天句柄數(shù)組, 整數(shù)型, , "0"
.程序集變量 線程句柄, 整數(shù)型
.程序集變量 停止, 邏輯型
.程序集變量 QQ剪輯板標(biāo)志, 整數(shù)型
.子程序 _添加文本按鈕_被單擊
.局部變量 Str, 文本型
.如果真 (輸入框 (“請(qǐng)輸入文本”, “輸入框”, “請(qǐng)輸入內(nèi)容[QQ剪輯板格式]”, Str, #輸入文本))
  列表框1.加入項(xiàng)目 (Str, 0)
.如果真結(jié)束
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
QQ剪輯板標(biāo)志 ＝ RegisterClipboardFormat (“QQ_RichEdit_Format”)
.子程序 _添加圖片按鈕_被單擊
.如果真 (通用對(duì)話框1.打開 ())
  列表框1.加入項(xiàng)目 (通用對(duì)話框1.文件名, 1)
.如果真結(jié)束
.子程序 _添加表情按鈕_被單擊
.局部變量 Str, 整數(shù)型
.如果真 (輸入框 (“表情代碼[整數(shù)]”, “輸入框”, “請(qǐng)輸入表情代碼”, Str, #輸入整數(shù)))
  列表框1.加入項(xiàng)目 (到文本 (Str), 2)
.如果真結(jié)束
.子程序 _合成置入按鈕_被單擊
.局部變量 Str, 文本型
.局部變量 mStr, 整數(shù)型
.局部變量 lpMem, 整數(shù)型
.如果真 (列表框1.取項(xiàng)目數(shù) () ＝ 0)
  信息框 (“數(shù)據(jù)不能為空”, 0, )
.如果真結(jié)束
Str ＝ 合成QQ剪輯板代碼 ()
mStr ＝ GlobalAlloc (位或 (#GMEM_MOVEABLE, #GMEM_ZEROINIT), 取文本長度 (Str) ＋ 1)
.如果真 (mStr ≠ 0)
  lpMem ＝ GlobalLock (mStr)
  .如果真 (lpMem ≠ 0)
    寫到內(nèi)存 (Str, lpMem, )
    GlobalUnlock (mStr)
    .如果真 (mStr ≠ 0)
      .如果真 (OpenClipboard (0))
        .如果真 (EmptyClipboard ())
          SetClipboardData (QQ剪輯板標(biāo)志, mStr)
        .如果真結(jié)束
        CloseClipboard ()
      .如果真結(jié)束
    .如果真結(jié)束
  .如果真結(jié)束
.如果真結(jié)束
.子程序 合成QQ剪輯板代碼, 文本型
.局部變量 Code, 文本型
.局部變量 i, 整數(shù)型
Code ＝ #Fmt_Head
.計(jì)次循環(huán)首 (列表框1.取項(xiàng)目數(shù) (), i)
  .判斷開始 (列表框1.取項(xiàng)目數(shù)值 (i － 1) ＝ 0) ' 文本
    Code ＝ Code ＋ #Str_Head ＋ 列表框1.取項(xiàng)目文本 (i － 1) ＋ “]]></EditElement>”
  .判斷 (列表框1.取項(xiàng)目數(shù)值 (i － 1) ＝ 1) ' 圖片
    Code ＝ Code ＋ #Img_Head ＋ 列表框1.取項(xiàng)目文本 (i － 1) ＋ #Img_End
  .判斷 (列表框1.取項(xiàng)目數(shù)值 (i － 1) ＝ 2) ' 系統(tǒng)表情
    Code ＝ Code ＋ #Face_Head ＋ 列表框1.取項(xiàng)目文本 (i － 1) ＋ #Face_End
  .默認(rèn)
  .判斷結(jié)束
.計(jì)次循環(huán)尾 ()
Code ＝ Code ＋ “</QQRichEditFormat>”
返回 (Code)
.子程序 發(fā)消息
.局部變量 計(jì)次, 整數(shù)型
.判斷循環(huán)首 (取反 (停止))
  清除數(shù)組 (聊天句柄數(shù)組)
  獲取并過濾窗口信息 ()
  .計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (聊天句柄數(shù)組), 計(jì)次)
    窗口_總在最前 (聊天句柄數(shù)組 [計(jì)次], 真)
    模擬按鍵 (#Ctrl鍵, #V鍵, )
    程序_延時(shí) (1000)
    鍵盤_消息 (聊天句柄數(shù)組 [計(jì)次], #回車鍵, 5)
    窗口_總在最前 (聊天句柄數(shù)組 [計(jì)次], 假)
    程序_延時(shí) (1500)
  .計(jì)次循環(huán)尾 ()
  程序_延時(shí) (到整數(shù) (間隔時(shí)間編輯框.內(nèi)容) × 1000)
.判斷循環(huán)尾 ()
.子程序 獲取并過濾窗口信息
.局部變量 數(shù)組, 整數(shù)型, , "0"
.局部變量 計(jì)次, 整數(shù)型
.局部變量 索引, 整數(shù)型
.局部變量 A, 整數(shù)型
A ＝ 0
窗口_枚舉子窗口 (, 數(shù)組, “TXGuiFoundation”)
超級(jí)列表框1.全部刪除 ()
.計(jì)次循環(huán)首 (取數(shù)組成員數(shù) (數(shù)組), 計(jì)次)
  .如果真 (窗口_是否可見 (數(shù)組 [計(jì)次]))
    .如果真 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]) ≠ “QQ”)
      .如果真 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]) ≠ “騰訊微云”)
        .如果真 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]) ≠ “查找”)
          .如果真 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]) ≠ “系統(tǒng)設(shè)置”)
            .如果真 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]) ≠ “消息管理器”)
              .如果真 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]) ≠ “應(yīng)用寶”)
                .如果真 (倒找文本 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]), “的資料”, , 假) ＝ -1)
                  .如果真 (倒找文本 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]), “的 收藏”, , 假) ＝ -1)
                    .如果真 (倒找文本 (窗口_取標(biāo)題 (數(shù)組 [計(jì)次]), “的 文件助手”, , 假) ＝ -1)
                      A ＝ A ＋ 1
                      索引 ＝ 超級(jí)列表框1.插入表項(xiàng) (0, 到文本 (A), 1, , , )
                      超級(jí)列表框1.置標(biāo)題 (索引, 1, 窗口_取標(biāo)題 (數(shù)組 [計(jì)次]))
                      加入成員 (聊天句柄數(shù)組, 數(shù)組 [計(jì)次])
                    .如果真結(jié)束
                  .如果真結(jié)束
                .如果真結(jié)束
              .如果真結(jié)束
            .如果真結(jié)束
          .如果真結(jié)束
        .如果真結(jié)束
      .如果真結(jié)束
    .如果真結(jié)束
  .如果真結(jié)束
.計(jì)次循環(huán)尾 ()
.子程序 _發(fā)送按鈕_被單擊
.如果 (發(fā)送按鈕.標(biāo)題 ＝ “開始發(fā)送”)
  停止 ＝ 假
  線程句柄 ＝ 線程_啟動(dòng) (&發(fā)消息)
  發(fā)送按鈕.標(biāo)題 ＝ “停止發(fā)送”
.否則
  發(fā)送按鈕.標(biāo)題 ＝ “開始發(fā)送”
  停止 ＝ 真
  線程_銷毀 (線程句柄)
.如果結(jié)束
.子程序 線程_啟動(dòng), 整數(shù)型, 公開, 成功返回線程句柄，失敗返回0
.參數(shù) 要啟動(dòng)的子程序, 子程序指針
.參數(shù) 要傳去子程序的參數(shù), 整數(shù)型, 可空, 往子程序里面?zhèn)鬟f一個(gè)整數(shù)型的參數(shù)
.參數(shù) 線程ID, 整數(shù)型, 參考 可空, 請(qǐng)?zhí)峁┮粋€(gè)整數(shù)型的變量，用于存放新創(chuàng)建的線程ID。
返回 (CreateThread (0, 0, 要啟動(dòng)的子程序, 要傳去子程序的參數(shù), 0, 線程ID))
.子程序 _清空數(shù)據(jù)按鈕_被單擊
列表框1.清空 ()

運(yùn)行結(jié)果：

總結(jié)

以上就是這篇文章的全部內(nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接

相關(guān)文章

  • 易語言求正玄值方法

    易語言求正玄值方法

    在本篇內(nèi)容里小編給大家分享的是關(guān)于易語言求正玄值方法和操作步驟，需要的朋友們可以跟著學(xué)習(xí)下。
    2018-12-12
  • 易語言取整命令使用講解

    易語言取整命令使用講解

    今天小編就為大家分享一篇關(guān)于易語言取整命令使用講解，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言調(diào)用ESPI11.dll實(shí)現(xiàn)禁止指定程序訪問網(wǎng)絡(luò)的代碼

    易語言調(diào)用ESPI11.dll實(shí)現(xiàn)禁止指定程序訪問網(wǎng)絡(luò)的代碼

    今天小編就為大家分享一篇關(guān)于易語言調(diào)用ESPI11.dll實(shí)現(xiàn)禁止指定程序訪問網(wǎng)絡(luò)的代碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言注冊(cè)機(jī)生成永久或限時(shí)注冊(cè)碼的寫法

    易語言注冊(cè)機(jī)生成永久或限時(shí)注冊(cè)碼的寫法

    今天小編就為大家分享一篇關(guān)于易語言注冊(cè)機(jī)生成永久或限時(shí)注冊(cè)碼的寫法，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
    2018-11-11
  • 易語言編寫窗口抖動(dòng)程序教學(xué)

    易語言編寫窗口抖動(dòng)程序教學(xué)

    在本篇內(nèi)容里小編給大家分享了關(guān)于易語言編寫窗口抖動(dòng)程序教學(xué)的相關(guān)內(nèi)容，有需要的朋友們學(xué)習(xí)下。
    2018-12-12
  • 易語言中的命令及操作符知識(shí)點(diǎn)總結(jié)

    易語言中的命令及操作符知識(shí)點(diǎn)總結(jié)

    在本篇文章里小編給各位整理的是關(guān)于易語言中的命令及操作符知識(shí)點(diǎn)總結(jié)內(nèi)容，有需要的朋友們可以參考下。
    2020-03-03
  • 易語言讀取Word文檔方法

    易語言讀取Word文檔方法

    在本篇內(nèi)容里小編為大家分享的是關(guān)于易語言讀取Word文檔內(nèi)容的方法，需要的朋友們可以學(xué)習(xí)下。
    2018-12-12
  • 易語言制作酷狗付費(fèi)音樂解析下載工具

    易語言制作酷狗付費(fèi)音樂解析下載工具

    今天小編就為大家分享一篇關(guān)于易語言制作酷狗付費(fèi)音樂解析下載工具，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
    2018-12-12
  • 易語言程序界面介紹

    易語言程序界面介紹

    在本篇內(nèi)容里小編給大家?guī)硪黄P(guān)于易語言程序界面的介紹內(nèi)容，需要的跟著學(xué)習(xí)下。
    2018-12-12
  • 易語言寫內(nèi)存字節(jié)集方法

    易語言寫內(nèi)存字節(jié)集方法

    在本篇內(nèi)容中小編給大家分享的是關(guān)于易語言寫內(nèi)存字節(jié)集的方法步驟，需要的朋友們參考下。
    2018-12-12

最新評(píng)論