复制代码 代码如下:#include<GUIConstants.au3> #include<Process.au3> Global$GUIWidth Global$GUIHeight $GUIWidth=160 $GUIHeight=100 $maingui=GUICreate(\”与陌生QQ联络\”,$GUIWidth,$GUIHeight) $Status=GUICtrlCreateLabel(\”NothingtoUndo\”,0,67,160,14,BitOR($SS_SUNKEN,$SS_CENTER)) GUICtrlSetData($Status,\”悠久资源网-QQ联络陌生人\”,\”1111\”) $helpmenu=GuiCtrlCreateMenu(\”菜单[&F]\”) $aboutitem=GuiCtrlCreateMenuitem(\”关于[&A]\”,$helpmenu) $separator1=GuiCtrlCreateMenuitem(\”\”,$helpmenu) $exititem=GuiCtrlCreateMenuitem(\”退出[&X]\”,$helpmenu) $okbutton=GuiCtrlCreateButton(\”对话\”,20,35,50,20) $cancelbutton=GuiCtrlCreateButton(\”退出\”,90,35,50,20) GuiSetState() GUICtrlCreateLabel(\”对方QQ:\”,20,10) $QQ=GUICtrlCreateInput(\”461478385\”,70,7,70,20) GUICtrlSetTip(-1,\”输入对方的QQ号码\”) GUICtrlSetLimit($QQ,10,5) While1 $msg=GUIGetMsg() Select Case$msg=$GUI_EVENT_CLOSEOr$msg=$cancelbutton ExitLoop Case$msg=$exititem ExitLoop Case$msg=$okbutton $rc=_RunDos(\”explorer.exe\”&chr(\”34\”)&\”tencent://Message/?menu=yes&exe=&uin=\”&GUICtrlRead($QQ)&\”&websiteName=未知区域\”&chr(\”34\”)&\”\”) Case$msg=$aboutitem MsgBox(32,\”悠久资源网\”,\”悠久资源网www.jb51.net欢迎你\”) EndSelect WEnd GUIDelete() Exit保存为qq.au3,运行前你必须保证你的电脑有autoit3的程序,具体下载地址上一篇文章autoit在线手册