林林总总的电脑版QQ操作整理(正在学习中)

; Author: Mono
; Time: 2022.08.08
; 前提: 打开自己qq

; QQ Func
; 用于添加好友
Add_Friend(QQ_Number)
{
    Run("tencent://AddContact/?fromId=45&fromSubId=1&subcmd=all&uin=" QQ_Number)
}

; 用于打开对话栏
Chat_With(QQ_Number)
{
    Run("tencent://snsapp/?cmd=3&ver=1&uin=" QQ_Number)
}

; 用于获取QQ头像图片
Get_Logo(QQ_Number, Size := 100)
{
    Lst_Size := [1, 2, 3, 4, 5, 40, 100]
    
    if !inarr(Size, Lst_Size)
        Size := 100
    
    Run("http://q1.qlogo.cn/g?b=qq&nk=" QQ_Number "&s=" Size)
}

; 用于打开资料卡
Index_Card(QQ_Number)
{
    Run("tencent://snsapp/?cmd=2&ver=1&uin=" QQ_Number)
}

; 用于打开自己的资料卡
MyIndex_Card()
{
    Run("tencent://snsapp/?cmd=1&ver=1")
}

; 用于随机打开一名好友的资料卡
RandomIndex_Card()
{
    Run("tencent://snsapp/?cmd=5&ver=1")
}

; 利用QQ截图dll进行截图
; **注意若截图界面出现大小变动,
; **则前往显示器设置修改自己显示比例为100%
SnapShot()
{
    Run("rundll32 CameraDll.dll,CameraSubArea")
}


; 基础函数
equal(item1, item2)
{
    if Type(item1) !== Type(item2)
        Return 0
    if Type(item1) == "Array"
    {
        if item1.Length !== item2.Length
            Return 0
        loop item1.Length
        {
            if !equal(item1[A_Index], item2[A_Index])
                Return 0
        }
    }
    Return item1 == item2
}

inarr(item, arr)
{
    flag := 0
    for i in arr
    {
        if equal(i, item)
        {
            flag := 1
            Break
        }
    }
    Return flag
}

; 备用爬虫函数
Network_Work(Url, Mode := "GET", Body := "")
{
    if Mode != "GET" || Mode != "POST"
        Mode := "GET"
    
    Whr := ComObject("WinHttp.WinHttpRequest.5.1")
    Whr.Open(Mode, Url, True)
    Whr.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.150 Safari/537.36")
    Whr.SetRequestHeader("Accept", "text/html,application/xhtml xml,application/xml;q=0.9,Img/avif,Img/webp,Img/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9")
    Whr.SetRequestHeader("Referer", Url)
    Whr.Send(Body)
    Whr.WaitForResponse()
    
    Return Whr.ResponseText
}

QQ截图所需Dll

提取码:mono复制
解压码:无

给TA捐赠
共{{data.count}}人
人已捐赠
其他

影子输入法day2

2022-8-8 19:55:04

其他

汉化版的ahk2exe编译错误

2022-8-9 10:11:32

5 条回复 A文章作者 M管理员
  1. hexuren

    配上说明和图示更好些

  2. hexuren
    1河许人给您打赏了¥2
  3. hexuren

    还有获取消息啥的

    • 陌诺Mono

      还没什么实质性的东西,这个就是先观望,后续找到更有用的东西会补充细节

  4. dbgba
    dbgba给您打赏了¥2
个人中心
购物车
优惠劵
有新私信 私信列表
搜索