扣扣发消息

最新推荐文章于 2022-12-20 16:36:34 发布

原创最新推荐文章于 2022-12-20 16:36:34 发布 · 153 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#QQ

小东东专栏收录该内容

1 篇文章

订阅专栏

自己闲着没事，用按键精灵制作了 QQ 连续发消息 software，用完之后，感觉还是比较容易上手，以前觉得 E语言比较难搞，为什么呢，因为我是做Java的，敲的都是abc.... 突然给你整个中文的，感觉有点接受不了。但是做完这个，对Vb6.0 有点了解，最好的是以前对 E语言很迷惑，今天就突然豁然开朗，好像明白了其中的奥秘。嘿嘿。。。

源码：

 
//定义变量 
//param  isManager  标识是否发送消息
//param  isTipManager  标识是否提示停止 或开始
DimEnv  isManager ,isTipManager
//开启一个线程
BeginThread start
  While True
     //检测上次按键
     m = GetLastKey()
      if m = 40 Then  // 40 标识 向下的箭头
         If isManager 
             isManager  = False //不发送消息
             If isTipManager
			   isTipManager = True //不提示消息
             End If
         End If 
       ElseIf m = 38   // 38 标识 向上的箭头
            isManager  = True //发送消息
           	If isTipManager
			 	isTipManager = False  //提示消息
           	End If
     End If
     //判断是否提示
     If  isManager  
        If Not isTipManager
        	Call tipManager("Start....")
        	isTipManager = True
        End If
      Else 
        If  isTipManager
        	Call tipManager("Stop....")
        	isTipManager = False
        End If
     End If
    //延迟半秒
    Delay 10
    ///  Clipboard = Plugin.Sys.GetCLB()   
    // Msgbox "获得剪切板内容："&Clipboard  
  Wend
Sub start()
    //默认发送的文本
    UserVar listTxt="测试" "发出的文本"
    //默认发送的时间间隔
    UserVar txtsd="100"  "速度"
    //是不是扣扣的聊天窗体
   qqIdentifier = True
   While True
      //得到当前最前面的窗口句柄
      Hwnd = Plugin.Window.Foreground()
      //得到窗口句柄的类名
      sClass = Plugin.Window.GetClass(Hwnd)
      If sClass = "TXGuiFoundation" 
			Mouse=GetLastClick()  
			If  Mouse = 0 And qqIdentifier And isManager Then
    			  Call send(Hwnd,listTxt)
            ElseIf Mouse =32769 Then
                   qqIdentifier = False
			ElseIf Mouse = 32770 Then
			     qqIdentifier = True
			End If
      End If
      //延迟
      Delay txtsd
   Wend
End Sub
// 调用函数发送消息
Sub send(Hwnd,msgs)  
    	Call Plugin.Window.SendString(Hwnd, msgs)
    	//模拟 Alt + s  发送消息
    	KeyDown 18, 1
    	KeyPress 83, 1
    	KeyUp 18, 1  
End Sub
//发送提示消息
Sub tipManager(msg1)
	//显示气泡提示信息
	Call Plugin.Msg.Tips(msg1)
	//在屏幕上范围位置(0, 0, 1024, 768)进行输出内容("屏幕内容填写")
	//Call Plugin.Msg.ShowScrTXT(512, 12, 1024, 768, m , "0000FF"
End Sub