qq.message.vbs

'向每个qq发送若干个信息 '利用一个网站;http://wpa.qq.com/msgrd?V=1&Uin=112426112

set WshShell = WScript.CreateObject("WScript.Shell")

qq =10000

message = "我要找一个人；她是xxx

do while qq <= 999999999      

qq = qq + 1   

set ie = WshShell.Exec("c:\program files\internet explorer\iexplore.exe )      

for i=1 to 9      

WshShell.SendKeys "我要找一个人；她是xxx"      

WshShell.SendKeys message      

WshShell.SendKeys "%s"    

next

WshShell.AppActivate "qq"   

WshShell.AppActivate "与 XXX 交谈中"   

ie.Terminate()      

WScript.Sleep 9000   

loop

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''   

'ie = WshShell.run("iexplore.exe http://wpa.qq.com/msgrd?V=1&Uin=qq")   

'WScript.Sleep 1000   

'WshShell.AppActivate app   

'WshShell.SendKeys "+{TAB}"   

'WshShell.SendKeys "www.163.com"   

'WshShell.SendKeys "{ENTER}"