#include <GUIConstants.au3>
#include <Process.au3>
Global $GUIWidth
Global $GUIHeight
$GUIWidth = 160
$GUIHeight = 100
$maingui = GUICreate("Contact with strange QQ", $GUIWidth, $GUIHeight)
$Status = GUICtrlCreateLabel("Nothing to Undo", 0, 67, 160, 14, BitOR($SS_SUNKEN, $SS_CENTER))
GUICtrlSetData($Status, "I-QQ Contact Stranger","1111")
$helpmenu = GuiCtrlCreateMenu ("Menu[&F]")
$aboutitem = GuiCtrlCreateMenuitem("About [&A]",$helpmenu)
$separator1 = GuiCtrlCreateMenuitem ("",$helpmenu)
$exititem = GuiCtrlCreateMenuitem("Exit[&X]",$helpmenu)
$okbutton = GuiCtrlCreateButton("Dialogue",20,35,50,20)
$cancelbutton = GuiCtrlCreateButton("Exit",90,35,50,20)
GuiSetState()
GUICtrlCreateLabel ("Opinion QQ:", 20, 10)
$QQ = GUICtrlCreateInput ("461478385",70,7,70,20)
GUICtrlSetTip(-1,"Enter the other party's QQ number")
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(" " &chr("34")& "tencent://Message/?menu=yes&exe=&uin=" & GUICtrlRead($QQ) & "&websiteName=Unknown area" &chr("34")& ")
Case $msg = $aboutitem
MsgBox(32, "Me", "I Welcome")
EndSelect
WEnd
GUIDelete()
Exit