AU3-QQ临时会话工具
写个小东西..只是为了练习AU3单行输入筐的用法.By 冰心痴
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.1.1.0
Author: myName
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#NoTrayIcon
#include <GUIConstants.au3>
global $bxwl
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("QQ临时会话", 200, 118, 457, 276)
$Input1 = GUICtrlCreateInput("", 64, 24, 121, 21)
$Label1 = GUICtrlCreateLabel("QQ号码", 8, 24, 43, 17)
$Button1 = GUICtrlCreateButton("退出", 8, 80, 75, 25, 0)
$Button2 = GUICtrlCreateButton("会话", 112, 80, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Select
Case $nMsg = $GUI_EVENT_CLOSE
Exit
Case $nmsg = $Button2
$rul= GUICtrlRead($Input1)
ConsoleWrite($rul)
$bxwl="http://wpa.qq.com/msgrd?V=1&Uin=" & $rul &"site=ioshenmue&Menu=yes"
run(@ProgramFilesDir & "\\Internet Explorer\\IEXPLORE.EXE -new " & $bxwl)
Case $nmsg = $Button1
Exit
EndSelect
WEnd
页:
[1]