QQ自动登陆实例.docVIP

实例 Dim $QQPath $QQPath=RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\1,TypePath) Run($QQPath) Sleep(1000) Send(+{TAB 1}) Send Sleep(1000) Send({TAB}) Send(QQ密码) Send({enter}) Sleep(4000) $QQPath=RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\1,TypePath) Run($QQPath) Sleep(1000) Send(+{TAB 1}) Send(372003758) Sleep(1000) Send({TAB}) Send(QQ密码) Send({enter}) Sleep(4000) $QQPath=RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\1,TypePath) Run($QQPath) Sleep(1000) Send(+{TAB 1}) Send(451395750) Sleep(1000) Send({TAB}) Send(QQ密码) Send({enter}) Sleep(5000) $QQPath=RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\1,TypePath) Run($QQPath) Sleep(1000) Send(+{TAB 1}) Send(979588163) Sleep(1000) Send({TAB}) Send(QQ密码) Send({enter}) Sleep(5000) $QQPath=RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\1,TypePath) Run($QQPath) Sleep(1000) Send(+{TAB 1}) Send(906551899) Sleep(1000) Send({TAB}) Send(QQ密码) Send({enter}) Sleep(5000) $QQPath=RegRead(HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\1,TypePath) Run($QQPath) Sleep(1000) Send(+{TAB 1}) Send(QQ号) Sleep(1000) Send({TAB}) Send(QQ密码) Send({enter}) Sleep(3000) Send() 　　功能向窗口发送指定的消息并立即执行相应的事件处理程序。 　　语法Send( handle, messageno, word, long ) 　　参数handle：long类型，指定窗口的系统句柄，将向该窗口发送消息messageno：UnsignedInteger类型，指定要发送的消息号word：long类型，指定与消息一起发送的word类参数值。如果messageno参数指定的消息不使用该参数，那么将这个参数的值设置为0long：long类型或string，指定与消息一起发送的long型参数值或字符串返回值Long。函数执行成功时返回Windows系统调用SendMessage()的返回值，发生错误时返回-1。如果任何参数的值为NULL，Send()函数返回NULL。 　　用法Send()函数用于向窗口发送非PowerBuilder预定义事件的消息，这个窗口可以是PowerBuilder应用的窗口，也可以是其它应用的窗口。Send()函数直接触发指定窗口相应的事件，执行事件处理程序后返回到调用应用中，这一点与Post()函数不同，Post()函数把发送的消息放置在指定窗口消息队列的尾部，然后返回到应用程序中，它并不等待相应事件事件处理程序的执行。因此，我们说Post()函数采用的是异步方式，Send()函数采用的是同步方式。Send()函数的参数handle指定接收消息的窗口句柄，对PowerBuilder窗口来说，使用Handle()函数可以得到该句柄。对其它应用程序的窗口来说，可以调用系统API函数查找窗口并得到相应窗口的句柄。实际上，Send()函数把它的各个参数直接传送给Windows的系统调用SendMessage()。在各种C++开发工具的WINDOWS.H文件中可以查到各消息编号。如果应用程序要发送PowerBu