qq协助

今天和一个朋友开完笑说让我进他的电脑，从而出现这篇文章！！！！

 

目前的QQ版本支持远程协助，所以想到通过两个QQ号码完成对另一台电脑的控制
第一台电脑：
1.自动登录QQ
2.打开另一个QQ号码窗口
3.循环判断"文字图形命令"(比如启动)
4.清屏防止同一命令反复执行
5.根据命令选择对应功能按钮点，单击启动对应功能
第二台电脑
给第一台电脑的QQ号发文字命令

注意事项，两个QQ最好采用同一版本，注意发送和截取文字命令的字体和大小，保证图形文字命令被识别

程序没什么难点写着玩的，在家控制单位电脑，

xxxx.bmp          //用户QQ中的名字或者头像图形
qidong.bmp       //启动命令文字比如宋体9号的"启动"，将文字截图
yuancheng.bmp //远程协助图标截图
stop.bmp          //启动命令文字比如宋体9号的"停止"，将文字截图


代码如下：

UserVar Hao=xxxxxxxx "输入账号"  
UserVar Ma="xxxxxxxx" "输入密码"  
UserVar Lj="C:Program FilesTencent" "QQ所在路径" 
RunApp Lj & "BinQQ.exe"
Delay 2000        
Hwnd = Plugin.Window.Find(0, "QQ2012")
Call Plugin.Window.Move(Hwnd, 0, 0)  
Call Plugin.Window.Active(Hwnd)  
Delay 500  
MoveTo 123, 153  
Delay 222  
LeftClick 1  
Delay 222  
SayString Hao  
Delay 400  
KeyPressS "Tab", 1  
Delay 444  
a=1  
For len(Ma)  
           key=Asc(UCase(Mid(ma,a,1)))  
           KeyPressS key,1  
           Delay 10  
           a=a+1  
EndFor
Delay 444  
KeyPress "Enter", 1  
Delay 500  
Call Plugin.Msg.Tips("自动登录完毕！")
//打开用户
Delay 5000
Hwnd = Plugin.Window.Find(0, "QQ2012")
Call Plugin.Window.Move(Hwnd, 0, 0)  
Call Plugin.Window.Active(Hwnd)  

FindPic 0,0,800,600,"Attachment:xxxx.bmp",0.9,intX,intY
If intX > 0 and intY > 0 Then 
        MoveTo intX,intY
        LeftDoubleClick 1
        
        Call Plugin.Window.Hide

        Delay 3000
        
        Hwnd_1 = Plugin.Window.Find(0, "xxxx")
        Call Plugin.Window.Move(Hwnd_1,887 , 0)  
        Call Plugin.Window.Active(Hwnd_1)
        
        Call SayQQ("连接成功")

        i = 1
        While i > 0
                
                intX = 0
                intY = 0
                intX_1 = 0
                intY_1 = 0
                        
                //启动远程协助 
                FindPic 887, 0, 1440, 520, "Attachment:qidong.bmp", 0.8, intX, intY
                If intX > 0 and intY > 0 Then                         
                        FindPic 887, 0, 1440, 520, "Attachment:yuancheng.bmp", 0.8, intX_1, intY_1
                        If intX_1 > 0 and intY_1 > 0 Then 
                                Call Plugin.Msg.Tips("远程协助启动！") 
                                MoveTo intX_1, intY_1
                                Delay 100
                                LeftClick 1
                                Delay 500
                                
                                Call ClearScreen(intX,intY)        
                                
                        End If        
                End If
                
                intX = 0
                intY = 0
                
                //启动摄像头 
                FindPic 887, 0, 1440, 520, "Attachment:sxtstart.bmp", 0.8, intX, intY
                If intX > 0 and intY > 0 Then 
                        FindPic 887, 0, 1440, 520, "Attachment:sxt.bmp", 0.8, intX_1, intY_1
                        If intX_1 > 0 and intY_1 > 0 Then 
                                Call Plugin.Msg.Tips("摄像头启动！") 
                                MoveTo intX_1, intY_1
                                Delay 100
                                LeftClick 1
                                Delay 500
                                
                                Call ClearScreen(intX, intY)
                        End If        
                End If
                
                intX = 0
                intY = 0
                
                //停止远程协助 
                FindPic 887, 0, 1440, 520, "Attachment:stop.bmp", 0.8, intX, intY
                If intX > 0 and intY > 0 Then 
                        i = 0
                        Call SayQQ("连接终止")
                        
                        Call Plugin.Msg.Tips("远程协助终止！")
                        
                        Call ClearScreen(intX,intY)
                End If
                Delay 1000
        Wend        
End If

Sub ClearScreen(xx,yy)
        //清屏
        MoveTo xx,yy
        RightClick 1
        Delay 100
        FindPic 887, 0, 1440, 520, "Attachment:cls.bmp", 0.9, intX, intY
        If intX > 0 and intY > 0 Then 
                MoveTo intX, intY                                
                LeftClick 1
                Delay 500
        End If
End Sub

Sub SayQQ(say)
        Delay 500
        SayString say
        KeyDown 18, 1
        KeyPress 83, 1
        KeyUp 18, 1
        Delay 500
End Sub