文章摘要
这篇文章介绍了如何使用QB64编写一个简短的脚本，用于创建一个简短的用户界面，实现与对方QQ的自动联络。通过定义窗口尺寸和创建界面元素（如输入框和按钮），脚本能够接收用户输入的QQ号码，并通过事件处理实现与对方的对话（使用explorer.exe打开聊天窗口）。界面包含退出按钮和帮助菜单项，用户可以通过点击按钮或输入退出来退出程序。整个脚本简洁明了，核心功能是实现简短的自动化QQ联络功能。
#include
#include
Global $GUIWidth
Global $GUIHeight
$GUIWidth = 160
$GUIHeight = 100
$maingui = GUICreate(“与陌生QQ联络”,$GUIWidth, $GUIHeight)
$Status = GUICtrlCreateLabel(“Nothing to Undo”, 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)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE Or $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
© 版权声明
文章版权归作者所有，未经允许请勿转载。
