master

分支 (1)

标签 (1)

管理

管理

master

20220519

wxauto
/
WXAuto.au3

#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=E:\网虫科技\tianyancha\企业微信自动加好友\SCRIPT\logo.ico
#PRE_Outfile=WXAuto.exe
#PRE_Outfile_x64=WXAuto_x64.exe
#PRE_UseUpx=n
#PRE_UseX64=n
#PRE_Res_Comment=老张企业微信助手，自动批量加好友神器
#PRE_Res_Description=laozhang_soft
#PRE_Res_Fileversion=2.0.0.0
#PRE_Res_LegalCopyright=老张软件
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <GuiListView.au3>
#include <ListViewConstants.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <WinAPIGdi.au3>
#include <Crypt.au3>
#include <Clipboard.au3>
#include <Inet.au3>
#include <ColorConstants.au3>
#include <GuiEdit.au3>
#include <String.au3>
#include <GuiImageList.au3>
#include <GuiToolbar.au3>
#include <Constants.au3>
#include <Excel.au3>
#include 'include/WinHttp.au3'
#Region ### START Koda GUI section ### Form=E:\企业微信自动加好友\GUI\FrmMain.kxf
Opt("GUIOnEventMode", 1)
Opt("TrayIconHide", 1)
Opt("TrayAutoPause", 0)
Global $curver = ""
Global $agentid = "0"
Global $brandname = "老张软件"
Global $apptit = "老张企业微信自动加好友助手"
Global $agenttel = ""
Global $qqnumber = ""

Global $wxworkver = ""

$Form1 = GUICreate($apptit, 737, 617, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")
GUISetFont(10, 400, 0, "微软雅黑")
$frm1_MenuFile = GUICtrlCreateMenu("文件")
$frm1_MItemInput = GUICtrlCreateMenuItem("导入Txt", $frm1_MenuFile)
$frm1_MItemExcel = GUICtrlCreateMenuItem("导入Excel", $frm1_MenuFile)
$frm1_MenuItem3 = GUICtrlCreateMenuItem("", $frm1_MenuFile)
$frm1_MItemOutput = GUICtrlCreateMenuItem("导出文件", $frm1_MenuFile)
$frm1_MenuItem3 = GUICtrlCreateMenuItem("", $frm1_MenuFile)
$frm1_MItemExit = GUICtrlCreateMenuItem("退出", $frm1_MenuFile)
$frm1_MenuSet = GUICtrlCreateMenu("设置")
$frm1_MItemAppset = GUICtrlCreateMenuItem("程序设置", $frm1_MenuSet)
$frm1_MItemWordset = GUICtrlCreateMenuItem("术语设置", $frm1_MenuSet)
$frm1_MenuHelp = GUICtrlCreateMenu("帮助")
$frm1_MItemDoc = GUICtrlCreateMenuItem("使用说明", $frm1_MenuHelp)
$frm1_MenuItem6 = GUICtrlCreateMenuItem("", $frm1_MenuHelp)
$frm1_MItemRegister = GUICtrlCreateMenuItem("在线注册", $frm1_MenuHelp)

GUICtrlSetOnEvent($frm1_MItemInput, "GUICtrlMsg")
GUICtrlSetOnEvent($frm1_MItemExcel, "GUICtrlMsg")
GUICtrlSetOnEvent($frm1_MItemOutput, "GUICtrlMsg")
GUICtrlSetOnEvent($frm1_MItemExit, "GUICtrlMsg")
GUICtrlSetOnEvent($frm1_MItemAppset, "GUICtrlMsg")
GUICtrlSetOnEvent($frm1_MItemWordset, "GUICtrlMsg")
GUICtrlSetOnEvent($frm1_MItemDoc, "GUICtrlMsg")
GUICtrlSetOnEvent($frm1_MItemRegister, "GUICtrlMsg")

$frm1_Group1 = GUICtrlCreateGroup("", 0, -8, 735, 49)

$frm1_BtnTopGroupTop = GUICtrlCreateButton("", 2, 3, 70, 35, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\images\grouptop.ico", -1)
GUICtrlSetOnEvent($frm1_BtnTopGroupTop, "GUICtrlMsg")
$frm1_BtnTopGroupAdd = GUICtrlCreateButton("", 72, 3, 70, 35, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\images\group.ico", -1)
GUICtrlSetOnEvent($frm1_BtnTopGroupAdd, "GUICtrlMsg")
$frm1_BtnTopLoad = GUICtrlCreateButton("", 142, 3, 70, 35, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\images\input.ico", -1)
GUICtrlSetOnEvent($frm1_BtnTopLoad, "GUICtrlMsg")
$frm1_BtnTopExcel = GUICtrlCreateButton("", 212, 3, 70, 35, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\images\excel.ico", -1)
GUICtrlSetOnEvent($frm1_BtnTopExcel, "GUICtrlMsg")
$frm1_BtnTopSet = GUICtrlCreateButton("", 282, 3, 70, 35, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\images\set.ico", -1)
GUICtrlSetOnEvent($frm1_BtnTopSet, "GUICtrlMsg")
$frm1_BtnTopReg = GUICtrlCreateButton("", 352, 3, 70, 35, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\images\reg.ico", -1)
GUICtrlSetOnEvent($frm1_BtnTopReg, "GUICtrlMsg")
$frm1_BtnTopExit = GUICtrlCreateButton("", 422, 3, 70, 35, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir & "\images\exit.ico", -1)
GUICtrlSetOnEvent($frm1_BtnTopExit, "GUICtrlMsg")
$frm1_LblDocment = GUICtrlCreateLabel("★使用教程★", 640, 11, 86, 23)
GUICtrlSetFont(-1, 10, 400, 4, "微软雅黑")
GUICtrlSetColor(-1, 0x3399FF)
GUICtrlSetCursor(-1, 0)
GUICtrlSetOnEvent($frm1_LblDocment, "GUICtrlMsg")
$frm1_LblNoted = GUICtrlCreateLabel("★请先读我★", 542, 11, 86, 23)
GUICtrlSetFont(-1, 10, 400, 4, "微软雅黑")
GUICtrlSetColor(-1, 0xFF00FF)
GUICtrlSetCursor(-1, 0)
GUICtrlSetOnEvent($frm1_LblNoted, "GUICtrlMsg")
#cs
$frm1_LblAdvert = GUICtrlCreateLabel("★年终五折优惠，机会不容错过★", 420, 45, 206, 23)
GUICtrlSetFont(-1, 10, 400, 4, "微软雅黑")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetCursor(-1, 0)
GUICtrlSetOnEvent($frm1_LblAdvert, "GUICtrlMsg")
GUICtrlCreateGroup("", -99, -99, 1, 1)
#ce
$frm1_LblLoadCount = GUICtrlCreateLabel("共导入0条数据", 16, 45, 250, 23)
$frm1_BtnDel = GUICtrlCreateButton("删除全部", 642, 42, 81, 26)
GUICtrlSetOnEvent($frm1_BtnDel, "GUICtrlMsg")
$frm1_ListView1 = GUICtrlCreateListView("序号|手机|称呼|公司|状态|提示", 16, 70, 705, 435)
_GUICtrlListView_SetExtendedListViewStyle($frm1_ListView1, BitOR($LVS_EX_DOUBLEBUFFER, $LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 120)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 200)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 4, 40)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 5, 200)
$frm1_Progress1 = GUICtrlCreateProgress(16, 508, 704, 17)
$frm1_Label2 = GUICtrlCreateLabel("邀请术语：", 16, 539, 69, 23)
$frm1_InputWord = GUICtrlCreateInput("", 88, 537, 489, 27, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY))
$frm1_BtnSet = GUICtrlCreateButton("设置", 577, 535, 44, 30)
GUICtrlSetOnEvent($frm1_BtnSet, "GUICtrlMsg")
$frm1_BtnStart = GUICtrlCreateButton("开始发送", 632, 534, 91, 33)
GUICtrlSetOnEvent($frm1_BtnStart, "GUICtrlMsg")
$frm1_StatusBar1 = _GUICtrlStatusBar_Create($Form1)
Dim $frm1_StatusBar1_PartsWidth[4] = [120, 220, 150, -1]
_GUICtrlStatusBar_SetParts($frm1_StatusBar1, -1, $frm1_StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($frm1_StatusBar1, $brandname & "(免费版)", 0)
_GUICtrlStatusBar_SetText($frm1_StatusBar1, "空闲中...", 1)
_GUICtrlStatusBar_SetText($frm1_StatusBar1, "", 2)
_GUICtrlStatusBar_SetText($frm1_StatusBar1, "", 3)
$Form2 = GUICreate("注册说明", 465, 291, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")
GUISetFont(10, 400, 0, "微软雅黑")
$frm2_BtnRegister = GUICtrlCreateButton("注册", 119, 228, 75, 30)
GUICtrlSetOnEvent($frm2_BtnRegister, "GUICtrlMsg")
$frm2_LblVer = GUICtrlCreateLabel("您使用的是免费版程序", 112, 24, 174, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$frm2_LblSerial = GUICtrlCreateLabel("机器码：", 112, 56, 232, 23)
$frm2_LblNoted = GUICtrlCreateLabel("免费版：每天最多发送20次邀请请求；" & @CRLF & "注册版：每天邀请数量没有限制，宏定义邀请术语，自动保存上次邀请记录，邀请记录导入，邀请记录筛选，程序免费升级，更多功能敬请期待！", 16, 112, 432, 73)
$frm2_LblOutMsg = GUICtrlCreateLabel("过期提醒：过期后只能享受免费版功能", 16, 174, 225, 23)
GUICtrlSetColor($frm2_LblOutMsg, $COLOR_RED)
GUICtrlSetState($frm2_LblOutMsg, $GUI_HIDE)
$frm2_GroupBox1 = GUICtrlCreateGroup("", 16, 8, 81, 89)
$frm2_Pic2 = GUICtrlCreatePic("key.jpg", 32, 32, 50, 50)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$frm2_BtnActive = GUICtrlCreateButton("授权查询", 369, 228, 75, 30)
GUICtrlSetOnEvent($frm2_BtnActive, "GUICtrlMsg")
$frm2_Graphic1 = GUICtrlCreateGraphic(16, 208, 433, 1, BitOR($GUI_SS_DEFAULT_GRAPHIC, $WS_BORDER))
$frm2_Label2 = GUICtrlCreateLabel("尚未注册？", 20, 232, 99, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$frm2_Label3 = GUICtrlCreateLabel("已经注册？", 270, 232, 99, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$frm2_BtnOK = GUICtrlCreateButton("确定", 369, 22, 75, 30)
GUICtrlSetOnEvent($frm2_BtnOK, "GUICtrlMsg")
$frm2_BtnCopy = GUICtrlCreateButton("复制", 369, 57, 75, 30)
GUICtrlSetOnEvent($frm2_BtnCopy, "GUICtrlMsg")
$frm2_LblEndDate = GUICtrlCreateLabel("到期时间：", 112, 76, 232, 23)

$Form3 = GUICreate("邀请术语宏定义", 395, 296, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")
GUISetFont(10, 400, 0, "微软雅黑")
$frm3_EdtWord = GUICtrlCreateEdit("", 16, 152, 353, 73, $ES_WANTRETURN)
GUICtrlSetData(-1, StringFormat("您好{name|1}总，在网上看到贵公司资料，希望进\r\n一步沟通"))
$frm3_BtnSave = GUICtrlCreateButton("确定", 144, 240, 91, 33)
GUICtrlSetOnEvent($frm3_BtnSave, "GUICtrlMsg")
$frm3_Label1 = GUICtrlCreateLabel("姓名长度：", 16, 26, 69, 23)
$frm3_IptNameLen = GUICtrlCreateInput("1", 96, 24, 60, 27)
$frm3_BtnInsertName = GUICtrlCreateButton("插入", 160, 24, 75, 28)
GUICtrlSetOnEvent($frm3_BtnInsertName, "GUICtrlMsg")
$frm3_Label2 = GUICtrlCreateLabel("手机长度：", 16, 64, 69, 23)
$frm3_IptTelLen = GUICtrlCreateInput("0", 96, 64, 60, 27)
$frm3_BtnInserTel = GUICtrlCreateButton("插入", 160, 64, 75, 28)
GUICtrlSetOnEvent($frm3_BtnInserTel, "GUICtrlMsg")
$frm3_Label3 = GUICtrlCreateLabel("公司长度：", 16, 104, 69, 23)
$frm3_IptComLen = GUICtrlCreateInput("0", 96, 104, 60, 27)
$frm3_BtnInsertCom = GUICtrlCreateButton("插入", 160, 104, 75, 28)
GUICtrlSetOnEvent($frm3_BtnInsertCom, "GUICtrlMsg")
$frm3_Label4 = GUICtrlCreateLabel("提示：不截取请填“0”", 248, 26, 142, 23)
$frm3_BtnDocument = GUICtrlCreateButton("使用教程", 272, 80, 91, 33)
GUICtrlSetOnEvent($frm3_BtnDocument, "GUICtrlMsg")

$Form4 = GUICreate("程序设置", 480, 592, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "GUICtrlMsg")
GUISetFont(10, 400, 0, "微软雅黑")

$frm4_Group1 = GUICtrlCreateGroup("号码添加设置", 16, 14, 442, 130)
$frm4_CBoxAddOne = GUICtrlCreateCheckbox("添加个人微信", 34, 42, 105, 17)
GUICtrlSetOnEvent($frm4_CBoxAddOne, "GUICtrlMsg")
$frm4_Label1 = GUICtrlCreateLabel("说明：若选中“只检测是否开通企业微信”选项则不做任何添加动作，只检查号码是否开通了企业微信", 36, 92, 405, 43)
$frm4_CBoxAddTwo = GUICtrlCreateCheckbox("添加企业微信", 146, 42, 105, 17)
GUICtrlSetOnEvent($frm4_CBoxAddTwo, "GUICtrlMsg")
$frm4_CBoxAddMark = GUICtrlCreateCheckbox("自动加备注", 258, 42, 105, 17)
GUICtrlSetOnEvent($frm4_CBoxAddMark, "GUICtrlMsg")
$frm4_CBoxOnlyCheck = GUICtrlCreateCheckbox("只检测是否开通企业微信", 34, 67, 177, 17)
GUICtrlSetOnEvent($frm4_CBoxOnlyCheck, "GUICtrlMsg")
$frm4_CBoxGetAccountName = GUICtrlCreateCheckbox("获取账号名称", 215, 67, 125, 17)
GUICtrlSetOnEvent($frm4_CBoxGetAccountName, "GUICtrlMsg")
GUICtrlCreateGroup("", -99, -99, 1, 1)

$frm4_Group2 = GUICtrlCreateGroup("智能防封设置(时间单位：秒)", 16, 150, 441, 97)
$frm4_Label2 = GUICtrlCreateLabel("添加间隔：", 36, 184, 69, 23)
$frm4_AddInterval1 = GUICtrlCreateInput("5", 108, 181, 40, 27, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlSetLimit(-1, 3)
$frm4_Label5 = GUICtrlCreateLabel("-", 152, 184, 10, 23)
$frm4_AddInterval2 = GUICtrlCreateInput("5", 163, 181, 50, 27, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlSetLimit(-1, 4)
$frm4_Label3 = GUICtrlCreateLabel("最大添加次数：", 220, 184, 95, 23)
$frm4_AddTimes = GUICtrlCreateInput("0", 316, 181, 60, 27)
$frm4_Label4 = GUICtrlCreateLabel("说明：最大添加次数 > 0，则达到数量停止添加，=0自动停止", 35, 214, 360, 23)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$frm4_Group3 = GUICtrlCreateGroup("群加好友设置", 16, 254, 441, 135)
$frm4_CBoxGroupAdd1 = GUICtrlCreateCheckbox("添加个人微信", 34, 285, 105, 17)
$frm4_CBoxGroupAdd2 = GUICtrlCreateCheckbox("添加企业微信", 146, 285, 105, 17)
$frm4_CBoxAddMaster = GUICtrlCreateCheckbox("添加管理员", 258, 286, 89, 17)
$frm4_CBoxErrend = GUICtrlCreateCheckbox("异常终止", 354, 286, 80, 17)
$frm4_RadioMutiGroup = GUICtrlCreateRadio("自动切换群", 256, 256, 97, 17)
$frm_RadioSingleGroup = GUICtrlCreateRadio("单群添加", 360, 256, 81, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$frm4_Label11 = GUICtrlCreateLabel("添加间隔：", 36, 315, 69, 23)
$frm4_AddInterval3 = GUICtrlCreateInput("5", 108, 312, 40, 27, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlSetLimit(-1, 3)
$frm4_Label12 = GUICtrlCreateLabel("-", 152, 315, 10, 23)
$frm4_AddInterval4 = GUICtrlCreateInput("5", 163, 312, 50, 27, BitOR($GUI_SS_DEFAULT_INPUT, $ES_NUMBER))
GUICtrlSetLimit(-1, 4)
$Frm4_Label6 = GUICtrlCreateLabel("邀请术语：", 36, 350, 69, 23)
$frm4_GroupWord = GUICtrlCreateInput("你好，朋友推荐的，通过一下", 108, 347, 332, 27)
GUICtrlSetLimit(-1, 50)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$frm4_Group4 = GUICtrlCreateGroup("群内消息置顶设置", 16, 395, 441, 97)
$frm4_CBoxGroupReplace = GUICtrlCreateCheckbox("替换已有置顶内容", 34, 430, 205, 17)
$Frm4_Label7 = GUICtrlCreateLabel("置顶内容：", 36, 460, 69, 23)
$frm4_GroupTopWord = GUICtrlCreateInput("企业微信自动加好友，日加千人，免费试用qi114.cn", 108, 457, 332, 27)
GUICtrlCreateGroup("", -99, -99, 1, 1)

$frm4_CBoxAutoClose = GUICtrlCreateCheckbox("任务结束关闭电脑", 20, 506, 129, 17)
$frm4_BtnSave = GUICtrlCreateButton("确定", 16, 530, 442, 40)
GUICtrlSetOnEvent($frm4_BtnSave, "GUICtrlMsg")

GUISwitch($Form1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $regtypename = "免费"

Global $appfilename = ""

Global Const $lastfile = @ScriptDir & "\last.txt"
Global Const $configfile = @ScriptDir & "\config.ini"
Global Const $readmefile = @ScriptDir & "\readme.txt"
Global Const $logfile = @ScriptDir & "\log.txt"
Global Const $GroupLogfile = @ScriptDir & "\groupadd.txt"

Global $paused = False ;暂停运行
Global $regurl = "http://www.qi114.cn/reginfo/wxauto/"
Global $geturl = "http://www.qi114.cn/reginfo/wxsearch/"
Global $searchurl = "http://www.qi114.cn/reginfo/authinfo/"
Global $downurl = "http://www.qi114.cn/download/"
Global $sendoverurl = "http://www.qi114.cn/reginfo/todaysend/"
Global $yqdocurl = "http://www.qi114.cn/exchange/34.html"
Global $docliucheng = "http://www.qi114.cn/exchange/36.html"
Global $feedurl = "http://www.qi114.cn/contact"
Global $docurl = "http://www.qi114.cn/document"
Global $returnmsg = ""
HotKeySet("{ESC}", "PauseTask")
OnFormShow()
While 1
	#cs;Switch @GUI_CtrlId;选择事件ID或控件ID
		$nMsg = GUIGetMsg()
		Switch $nMsg
		EndSwitch
	#ce
	Sleep(1000)
WEnd
Func GUICtrlMsg()
	Switch @GUI_CtrlId ;选择事件ID或控件ID
		Case $GUI_EVENT_CLOSE ;如果点下的是$GUI_EVEHT_CLOSE{关闭>
			;ConsoleWrite('$GUI_EVENT_CLOSE: ' & @GUI_WinHandle & @CRLF)
			If @GUI_WinHandle = $Form1 Then
				OnFormClose()
				Exit
			EndIf
			If @GUI_WinHandle = $Form2 Then
				GUISetState(@SW_HIDE, $Form2)
			EndIf
			If @GUI_WinHandle = $Form3 Then
				GUISetState(@SW_HIDE, $Form3)
			EndIf
			If @GUI_WinHandle = $Form4 Then
				GUISetState(@SW_HIDE, $Form4)
			EndIf
		Case $frm1_MItemInput

		Case $frm1_MItemExcel

		Case $frm1_MItemOutput

		Case $frm1_MItemExit
			OnFormClose()
			Exit
		Case $frm1_MItemAppset
			GUISetState(@SW_SHOW, $Form4)

		Case $frm1_MItemWordset
			GUISetState(@SW_SHOW, $Form3)


		Case $frm1_MItemDoc
			Run("explorer.exe " & $readmefile)
		Case $frm1_MItemRegister
			GUISetState(@SW_SHOW, $Form2)
		Case $frm1_BtnTopGroupTop

		Case $frm1_BtnTopLoad

		Case $frm1_BtnTopExcel

		Case $frm1_BtnTopGroupAdd

		Case $frm1_BtnTopSet
			GUISetState(@SW_SHOW, $Form4)

		Case $frm1_BtnTopReg
			GUISetState(@SW_SHOW, $Form2)
		Case $frm1_BtnTopExit
			OnFormClose()
			Exit
		Case $frm1_BtnSet
			GUISetState(@SW_SHOW, $Form3)

		Case $frm1_BtnStart

		Case $frm1_LblDocment
			Run("explorer.exe " & $docliucheng)
		Case $frm1_LblNoted
			Run("explorer.exe " & $readmefile)
		#cs
		Case $frm1_LblAdvert
			Run("explorer.exe " & $regurl & $regcode)
		#ce
		Case $frm1_BtnDel

		Case $frm2_BtnOK
			GUISetState(@SW_HIDE, $Form2)
		Case $frm2_BtnCopy

		Case $frm2_BtnRegister

		Case $frm2_BtnActive


		Case $frm3_BtnSave

			GUISetState(@SW_HIDE, $Form3)
		Case $frm3_BtnInsertName

		Case $frm3_BtnInserTel

		Case $frm3_BtnInsertCom

		Case $frm3_BtnDocument
			Run("explorer.exe " & $yqdocurl)
		Case $frm4_CBoxAutoClose

		Case $frm4_CBoxAddOne

		Case $frm4_CBoxAddTwo

		Case $frm4_CBoxAddMark

		Case $frm4_CBoxOnlyCheck

		Case $frm4_CBoxGetAccountName

		Case $frm4_BtnSave

			GUISetState(@SW_HIDE, $Form4)
		Case Else
			;ConsoleWrite('GUICtrlMsg: ' & @GUI_CtrlId & @CRLF)
	EndSwitch
EndFunc   ;==>GUICtrlMsg
Func PauseTask()
	$paused = True
	;ConsoleWrite('PauseTask:  Esc keypress down@!' & PauseTask & @CRLF)
	GUICtrlSetData($frm1_BtnStart, "开始发送")
EndFunc   ;==>PauseTask
Func OnFormShow()

EndFunc   ;==>OnFormShow

Func OnFormClose()
	GUIDelete()
EndFunc   ;==>OnFormClose