QQ向陌生人聊天的autoit脚本

View Code

 1  #include  < GUIConstants.au3 >  
 2  #include  < Process.au3 >  
 3  Global $GUIWidth 
 4  Global $GUIHeight 
 5  $GUIWidth  =   160  
 6  $GUIHeight  =   100  
 7  $maingui  =  GUICreate( " 与陌生QQ联络 " ,$GUIWidth, $GUIHeight) 
 8  $Status  =  GUICtrlCreateLabel( " Nothing to Undo " ,  0 ,  67 ,  160 ,  14 , BitOR($SS_SUNKEN, $SS_CENTER)) 
 9  GUICtrlSetData($Status,  " 脚本之家-QQ联络陌生人 " , " 1111 " ) 
10  $helpmenu  =  GuiCtrlCreateMenu ( " 菜单[&F] " ) 
11  $aboutitem  =  GuiCtrlCreateMenuitem ( " 关于[&A] " ,$helpmenu) 
12  $separator1  =  GuiCtrlCreateMenuitem ( "" ,$helpmenu) 
13  $exititem  =  GuiCtrlCreateMenuitem ( " 退出[&X] " ,$helpmenu) 
14 
15  $okbutton  =  GuiCtrlCreateButton ( " 对话 " , 20 , 35 , 50 , 20 ) 
16  $cancelbutton  =  GuiCtrlCreateButton ( " 退出 " , 90 , 35 , 50 , 20 ) 
17 
18  GuiSetState() 
19 
20  GUICtrlCreateLabel ( " 对方QQ： " ,  20 ,  10 ) 
21  $QQ  =  GUICtrlCreateInput ( " 461478385 " , 70 , 7 , 70 , 20 ) 
22  GUICtrlSetTip( - 1 , " 输入对方的QQ号码 " ) 
23  GUICtrlSetLimit

转载于:https://www.cnblogs.com/gredswsh/archive/2011/06/02/autoit_qq_chat.html