QQ向陌生人聊天的autoit脚本

 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