QQ to chat with strangers AutoIt script _autoit

Copy Code code as follows:

#include <GUIConstants.au3>
#include <Process.au3>
Global $GUIWidth
Global $GUIHeight
$GUIWidth = 160
$GUIHeight = 100
$maingui = Guicreate ("Contact with unfamiliar QQ", $GUIWidth, $GUIHeight)
$Status = Guictrlcreatelabel ("Nothing to Undo", 0, 160, Bitor ($SS _sunken, $SS _center))
Guictrlsetdata ($Status, "cloud-dwelling community-qq contact Strangers", "1111")
$helpmenu = Guictrlcreatemenu ("menu [&f]")
$aboutitem = Guictrlcreatemenuitem ("About [&a]", $helpmenu)
$separator 1 = Guictrlcreatemenuitem ("", $helpmenu)
$exititem = Guictrlcreatemenuitem ("Exit [&x]", $helpmenu)

$okbutton = Guictrlcreatebutton ("dialogue", 20,35,50,20)
$cancelbutton = Guictrlcreatebutton ("Exit", 90,35,50,20)

Guisetstate ()

Guictrlcreatelabel ("The Other side QQ:", 20, 10)
$QQ = Guictrlcreateinput ("461478385", 70,7,70,20)
Guictrlsettip (-1, "Enter each other'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 ("explorer.exe" &AMP;CHR) & "tencent://message/?menu=yes&exe=&uin=" & Guictrlread ($ QQ) & "&websitename= unknown area" &AMP;CHR ("") & "")
Case $msg = $aboutitem
MsgBox (32, "cloud-dwelling community", "cloud-dwelling community www.jb51.net welcome You")
Endselect
Wend
Guidelete ()
Exit

Save As QQ.AU3, before running you must ensure that your computer has a AUTOIT3 program, the specific download address
Previous article
AutoIt Online Handbook