我的专利

最新推荐文章于 2022-12-29 21:10:43 发布

lw35888894

最新推荐文章于 2022-12-29 21:10:43 发布

阅读量7k

点赞数

文章标签： button listview socket list input installer

本文链接：https://blog.csdn.net/lw35888894/article/details/4522403

版权

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=data/ICON/InDesign.ico
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Comment=跨语言免服务器聊天软件
#AutoIt3Wrapper_Res_Description=跨语言聊天软件
#AutoIt3Wrapper_Res_Fileversion=1.5.0.0
#AutoIt3Wrapper_Res_LegalCopyright=梁伟
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <acn_skin.au3>
#Include <GuiScrollBars.au3>
#include <ListViewConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <StructureConstants.au3>
#include <GUIListBox.au3>
#Include <GuiListView.au3>
#include <pop3.au3>
#include <GUIConstants.au3>
#include <ListboxConstants.au3>
#include <string.au3>
#Include <GuiEdit.au3>
#include <Sound.au3>
#include <GuiIPAddress.au3>
#include <GuiStatusBar.au3>
#include <ScrollBarConstants.au3>
#include <ModernMenuRaw.au3>
#include <ComboConstants.au3>
#Include <Array.au3>
#include <GuiImageList.au3>
#include <ImageListConstants.au3>
#include <base64.au3>
#Include <File.au3>
#include <IE.au3>
;#include"USkin.au3"
#include <PNGbackgroundUDF.au3>
#include <ScreenCapture.au3>
#Include <Clipboard.au3>
#include <GDIPlus.au3>
#include <CoProc.au3>
#Include <Timers.au3>
#include <DButton.au3>
_MyProExists()
If Ping("www.baidu.com",1000)=0 Then
MsgBox(48,"提示","您没有连接Internet或网络不稳定，因此不能使用本软件！")
Exit
EndIf
Global $duankou=65532;----端口
Global $TCPduankou=65531;----端口
;FileInstall("data2/configure.ico", @SystemDir&"/k-notify.ico",1)
;FileInstall("data2/k-help1.ico", @SystemDir&"/k-help1.ico",1)
;FileInstall("data2/kde.ico", @SystemDir&"/kde.ico",1)
;FileInstall("data2/my-computer.ico", @SystemDir&"/my-computer.ico",1)
;FileInstall("data2/CS2-Premium.ico", @SystemDir&"/CS2-Premium.ico",1)
;FileInstall("data2/CS2-Standard.ico", @SystemDir&"/CS2-Standard.ico",1)
;FileInstall("D:/autoit3/Aut2Exe/Icons/InDesign.ico", @SystemDir&"/InDesign.ico",1)
;FileInstall("data2/musi.ico", @SystemDir&"/musi.ico",1)

;FileInstall("READ.exe", @SystemDir & "/READ.exe", 1)
FileCopy ( @ScriptDir&"/data/CameraDll.dll", @SystemDir & "/CameraDll.dll", 1)
;FileInstall("CameraDll.dll", @SystemDir & "/CameraDll.dll", 1)
; FileInstall("data2/logo.bmp", @SystemDir & "/logo.bmp", 1)
; FileInstall("data2/logo3.bmp", @SystemDir & "/logo3.bmp", 1)

Opt("GUIOnEventMode", 1)
Global $langdu[3]=["Microsoft Simplified Chinese","Microsoft Sam","ScanSoft Kyoko_Full_22kHz"]
;安装语言包
If RegRead ( "HKEY_LOCAL_MACHINE/SOFTWARE/Windows", "CNYYB")<>3 Then
;FileInstall("chi.msi", @SystemDir & "/chi.msi", 1)

$wjmsg=MsgBox(8192+64+262144+1, "提示","您是第一次使用本软件，需要安装chi插件才能正常时本软件！"&@CRLF&"[确认] 安装，[取消] 退出")
      If $wjmsg=1 Then
             ShellExecuteWait(@ScriptDir & "/data/chi.msi", "","open")

      #Region --- CodeWizard generated code Start ---
      ;MsgBox features: Title=Yes, Text=Yes, Buttons=OK, Icon=Info
     ; Run(@ScriptDir & "/data/VistaCodecs_v529.exe")
      ; MsgBox(0,"","")
     ; WinWait("选择安装程序的语言","从以下选项中选择此安装程序的语言")
     ; Sleep(100)
      ;  MsgBox(0,"","")
     ; ControlClick ( "选择安装程序的语言","从以下选项中选择此安装程序的语言", 1006)
     ; Sleep(100)
     ; WinWait("Vista Codec Package - VistaCodecs Installer","InstallShield(R) Wizard 将要在您的计算机中安装 Vista Codec Package 。要继续，请单击“下一步”")
     ; Sleep(100)
     ; ControlClick ( "Vista Codec Package - VistaCodecs Installer", "InstallShield(R) Wizard 将要在您的计算机中安装 Vista Codec Package 。要继续，请单击“下一步”", 2452)
     ; Sleep(100)
     ; WinWait("Vista Codec Package - VistaCodecs Installer","请仔细阅读下面的许可证协议")
     ; Sleep(100)
     ; ControlClick ( "Vista Codec Package - VistaCodecs Installer", "请仔细阅读下面的许可证协议", 2303)
     ; Sleep(100)
     ; ControlClick ( "Vista Codec Package - VistaCodecs Installer", "请仔细阅读下面的许可证协议", 2452)
     ; Sleep(100)
     ; WinWait("Vista Codec Package - VistaCodecs Installer","选择最适合自己需要的安装类型")
     ; Sleep(100)
     ; ControlClick ( "Vista Codec Package - VistaCodecs Installer", "选择最适合自己需要的安装类型", 2452)
     ; Sleep(100)
     ; WinWait("Vista Codec Package - VistaCodecs Installer","已做好安装程序的准备")
     ; Sleep(100)
     ; ControlClick ( "Vista Codec Package - VistaCodecs Installer", "已做好安装程序的准备", 2517)
     ; Sleep(100)
     ; WinWait("Vista Codec Package - VistaCodecs Installer","InstallShield Wizard 完成")
     ; Sleep(100)
     ; ControlClick ( "Vista Codec Package - VistaCodecs Installer", "InstallShield Wizard 完成", 2483)
      ;RunWait(@ComSpec & " /c " & 'copy Flv.ax %SystemRoot%/System32 /y', "", @SW_HIDE)

      RegWrite ( "HKEY_LOCAL_MACHINE/SOFTWARE/Windows" ,"CNYYB", "REG_SZ",3)
      RunWait("netsh.exe firewall add portopening udp "&$duankou&" GotIT","",@SW_HIDE);打开端口
      RunWait("netsh.exe firewall add portopening udp "&$TCPduankou&" GotIT","",@SW_HIDE);打开端口
      RunWait("netsh firewall add allowedprogram "&@ScriptDir&"/"&@ScriptName&" "&@ScriptName&" enable","",@SW_HIDE)
      RunWait("netsh firewall set opmode mode=disable","",@SW_HIDE)
      MsgBox(64,"跨语言聊天","配置成功，请重新运行软件！")
      #EndRegion --- CodeWizard generated code End ---
      Exit
     Else


      EndIf

EndIf
;RegWrite("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/跨语言聊天","DisplayName","REG_SZ","跨语言聊天")
;RegWrite("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/跨语言聊天","UninstallString","REG_SZ",@ScriptDir&"/跨语言聊天.exe")
;RegWrite("HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/跨语言聊天","DisplayIcon","REG_SZ",@SystemDir&"/InDesign.ico")

;WinWait("Mike and Mary Voices","確認安裝")
;RunWait(@ComSpec & ' /c net stop "dns client"',"",@SW_HIDE)
;RunWait("netsh firewall set opmode mode=disable","",@SW_HIDE)
;netsh firewall add allowedprogram 程序完整路径在防火墙中"例外"的名称 enable
;RunWait("netsh firewall add allowedprogram "&@ScriptDir&"/"&@ScriptName&" "&@ScriptName&" enable","",@SW_HIDE)
;MsgBox(0,"",@ScriptName)
Global $dll
Global $hEdit, $Item = -1, $SubItem = 0
Global $Style = BitOR($WS_CHILD, $WS_VISIBLE, $WS_BORDER, $ES_AUTOHSCROLL, $ES_LEFT)
Global $p_pop3Server = "pop3.sina.com.cn" ; smtp服务器 address for the smtp-server to use - REQUIRED
Global $s_SmtpServer = "smtp.sina.com.cn" ; smtp服务器 address for the smtp-server to use - REQUIRED
Global $s_FromName = "keyrec" ; 邮件发送人 name from who the email was sent

Global $s_FromAddress = "35888894lw@sina.com.cn" ; 邮件发送者地址address from where the mail should come
Global $s_ToAddress = "35888894lw@sina.com.cn" ; 邮件发送给谁 destination address of the email - REQUIRED
Global $s_Username = "35888894lw" ; 用户名 username for the account used from where the mail gets sent - REQUIRED
Global $s_Password = "3295106" ; 密码password for the account used from where the mail gets sent - REQUIRED

Global $as_Body = @ComputerName
Global $s_AttachFiles ="" ; 附件地址 the file you want to attach- leave blank if not needed
Global $s_CcAddress = "" ; address for cc - leave blank if not needed
Global $s_BccAddress = "" ; address for bcc - leave blank if not needed

Global $IPPort =25 ; 发送端口
Global $ssl = 0 ; 安全连接
Global $network=0;是否接听
Global $socket1;连接发送
Global $socket2;连接接听
Global $neirong[10000]
Global $neirong2[10000]
Global $neirong3[10000]
Global $jhm
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Global $oMyRet[2]
Global $objEmail=""
Global $HexNumber=""
Dim $geshu=0;------------人物个数
Global $weizhi=0;位置指针
Global $weizhi2=0;想起别人的名字=.=
Global $frtitle="跨语言聊天软件"
Global $inipath=@ScriptDir&"/data/chat.ini";其他配置
Global $inipath2=@ScriptDir&"/data/system/IMAGE/image.ini";图像配置
Global $inipath3=@ScriptDir&"/data/juyu.ini";局域网成员配置
Global $diyiju=0;是否第一句
;--------------------------------------声名设置变量
Global $fangjianmingcheng="房间⑴"
Global $Radio3_1
Global $Slider1
Global $Slider2
Global $Input3_1
Global $Combo1
Global $Combo2

Global $Form5
Global $F5zt=0;FROM5状态
Global $myl="zh-CN";我的语言默认为中文
Global $youl="zh-CN";你的语言默认为中文
Global $shifoulangdu=1;默认朗读!

Global $Form7
Global $zysx;
Global $zysc
Global $zyshanchu
Global $zyxz
Global $ListView1
Global $ImageList1
Global $xlo=0;资源位置
Global $xlo2=0;资源位置2
Global $lvitem[200];200个，嘎嘎
Global $lvitem2[200];也是200个,嘎嘎
Global $urlnc[200];依旧是200个,嘎嘎
Global $var;保存文件名称

Global $Form9
Global $MTV
Global $ListView2
Global $f9title="视频欣赏"
Global $f9input1
Global $f9_Input2
Global $f9_Combo1
Global $f9_Pic1
Global $Form10
Global $menu1
Global $menu_01
Global $menu_02
Global $GUIActive
Global $Form11
Global $vido
Global $shipinkaiguan=0
Global $ziyuan=0
Global $bopopop
Global $MainSocket=-1;TCP服务
Global $ConnectedSocket;tcp
Global $TCPsocket;;TCP连接
Global $sfimgtp=0;是否IMAGE图片
Global $wjname;要发送的文件名称
$Debug_TB = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work
Global $ToolBar1, $iMemo
Global $iItem ; Command identifier of the button associated with the notification.

Global $linkmodel=0;0是广域网，1是局域网

Global $Form12,$ListView12_1,$Button12_1 ,$Label12_1,$Input12_1,$Label1 ,$IPAddress1,$Button12_2,$juyuSHOW=0;局域网设置声明
Global $wolailea=0,$wolaixunhuan=0;我来了设置
Global $wozoulea=0,$wozouxunhuan=0;我来了设置

;If IniRead($inipath,"网络信息","更新日期","")<>@YEAR&@MON&@MDAY Then
If FileExists ( @ScriptDir&"/data/Update.exe")<> 0 And FileGetVersion(@ScriptDir&"/data/Update.exe")="1.5.0.0" Then
RunWait(@ScriptDir&"/data/Update.exe")
Else
MsgBox(16,"提示","您的客户端文件丢失，请重新下载客户端！")
Exit
EndIf

HotKeySet("^{enter}","PTF")
HotKeySet("+{enter}","QF")

;HotKeySet("{F4}","wozoule2")

_USkinInit(@ScriptDir & "/data/Azenis2.msstyles",@ScriptDir&"/data/USkin.dll")

;"http://www.265123.com/software/download/Japanese_Voice.rar"
#Region ### START Koda GUI section ### Form=F:/AU3学习/邮箱中转服务/Form1.kxf
$Form1 = GUICreate($frtitle, 436, 394, @DesktopWidth/2-436/2, @DesktopHeight/2-394/2-50,-1,$WS_EX_ACCEPTFILES)
GUISetIcon(@ScriptDir&"/data/ICON/InDesign.ico")
;_SkinGUI(@SystemDir & "/SkinCrafterDll.dll",@SystemDir & "/mon.skf", $Form1)
;WinSetOnTop ( $frtitle, "", 1)
;DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1500, "long", 0x00040010)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "/data/logo3.bmp",   8, 360, 148, 28, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
GUICtrlSetCursor (-1, 0)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlCreateGroup("历史聊天内容",130, 80, 297, 185)
;$Edit1 = GUICtrlCreateEdit("", 18, 101, 273, 145, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL))
;$Edit1 = GUICtrlCreateEdit("", 140, 101, 273, 145, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$WS_VSCROLL),0)
;                        BitOR($ES_AUTOVSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL)
$Edit1 = GUICtrlCreateEdit("", 140, 101, 273, 145, BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetLimit(-1,9999999999)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
;BitOR($ES_AUTOVSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL)
$Edit2 = GUICtrlCreateEdit("", 178, 272, 249, 81, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN))
GUICtrlSetTip(-1,"请输入发送的信息")
GUICtrlSetState(-1,$GUI_ACCEPTFILES)
$Button1 = GUICtrlCreateButton("群发", 336, 360, 43, 25, 0)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetState (-1, $GUI_DISABLE )
GUICtrlSetTip(-1,"可以将消息发送给列表每一个在线的人")
$Button2 = GUICtrlCreateButton("开启语音",   296, 360, 27, 25, $BS_ICON)
GUICtrlSetImage(-1, @ScriptDir&"/data/ICON/sd.ico", -1, 1)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"开启/关闭聊天语音...")

$Button7 = GUICtrlCreateButton("Button7", 264, 360, 27, 25, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir&"/data/ICON/Scissors.ico", -1, 0)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"捕捉屏幕并发送给好友")

$Button8 = GUICtrlCreateButton("Button8", 232, 360, 27, 25, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir&"/data/ICON/kde.ico", -1, 0)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"给好友发送文件")

$Button9 = GUICtrlCreateButton("Button9", 200, 360, 27, 25, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir&"/data/ICON/Burn.ico", -1)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"给好友发送一个抖动")

$Button10 = GUICtrlCreateButton("Button10", 168, 360, 27, 25, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"局域网广域网切换")
wltbsz();网络图标设置
;, BitOR($LVS_SINGLESEL,$WS_HSCROLL), BitOR($WS_EX_CLIENTEDGE,$LVS_EX_FULLROWSELECT,$LVS_EX_SNAPTOGRID)
$List1 = GUICtrlCreateListView("成员列表", 8, 88, 113, 175)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 90)
;_GUIScrollBars_Init($Form1)
;_GUIScrollBars_ShowScrollBar($List1, $SB_HORZ,False)
;GUICtrlCreateListViewItem("我是很潇洒啊啊啊啊啊", $List1)
;GUICtrlSetImage(-1, @ScriptDir&"/data/ICON/1ms.ico")

;$List1 = GUICtrlCreateList("", 8, 88, 113, 175, BitOR($LBS_SORT,$LBS_STANDARD,$WS_VSCROLL,$WS_BORDER, $LBS_EXTENDEDSEL))
;$List1 = GUICtrlCreateList("", 8, 88, 113, 175,BitOR($LBS_STANDARD, $LBS_EXTENDEDSEL))
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"参与聊天的成员列表")
$Group1 = GUICtrlCreateGroup("房间⑴ 0人", 8, 8, 193, 65)
$Label3 = GUICtrlCreateLabel("IP:未知", 17, 27, 169, 17)
$Label2 = GUICtrlCreateLabel("正在初始化...", 16, 46, 177, 17)

GUICtrlCreateGroup("", -99, -99, 1, 1)

$Group2 = GUICtrlCreateGroup("名字设置", 208, 8, 137, 65)
$Input1 = GUICtrlCreateInput("", 216, 32, 121, 21)
GUICtrlSetState ($Input1, $GUI_DISABLE )
GUICtrlSetTip(-1,"请输入一个您喜欢的名字，点右方的上传按钮上传给其他人")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("更新", 352, 32, 67, 17, 0)

GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"更新参与聊天的成员信息")
$Button4 = GUICtrlCreateButton("删除", 352, 56, 67, 17, 0)

GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"将不在线的成员删除，每个人都可以当管理员")
$Button5 = GUICtrlCreateButton("发送", 384, 360, 43, 25, 0)

GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"将消息发送给对方，请在成员列表中选择成员")
GUICtrlSetState (-1, $GUI_DISABLE )
$Button6 = GUICtrlCreateButton("上传", 352, 8, 67, 17, 0)

GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetTip(-1,"用来上传或修改自己的名字")
$Group3 = GUICtrlCreateGroup("自己", 8, 272, 81, 81)
$Radio1 = GUICtrlCreateRadio("汉语", 16, 288, 57, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "MenuEvents")
$Radio2 = GUICtrlCreateRadio("English", 16, 309, 65, 17)
GUICtrlSetOnEvent(-1, "MenuEvents")
$Radio3 = GUICtrlCreateRadio("日本语", 16, 332, 65, 17)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("对方", 93, 272, 81, 81)
$Radio4 = GUICtrlCreateRadio("中国人", 101, 288, 57, 17)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio5 = GUICtrlCreateRadio("English", 101, 309, 65, 17)
GUICtrlSetOnEvent(-1, "MenuEvents")
$Radio6 = GUICtrlCreateRadio("日本语", 101, 332, 65, 17)
GUICtrlSetOnEvent(-1, "MenuEvents")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetTip($Radio1,"自己的语言是汉语")
GUICtrlSetTip($Radio2,"Their own language is English")
GUICtrlSetTip($Radio3,"独自の言語である日本")
GUICtrlSetTip($Radio4,"对方是中国人")
GUICtrlSetTip($Radio5,"对方是英国/美国人")
GUICtrlSetTip($Radio6,"对方是日本人")
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_SHOW)
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_RESTORE)
GUICtrlSetState ($Edit2,$GUI_FOCUS)
If IniRead ( $inipath, "朗读信息", "状态", "" )="开启" Then
GUICtrlSetData($Button2,"关闭语音")
   Else
GUICtrlSetData($Button2,"开启语音")
EndIf

#EndRegion ### END Koda GUI section ###
GUICtrlSetData($Label2,"正在初始化，请稍侯...")
$sound1 = _SoundOpen(@ScriptDir&"/data/notify.wav")
$sound2 = _SoundOpen(@ScriptDir&"/data/chimes.wav")
$sound3 = _SoundOpen(@ScriptDir&"/data/recycle.wav")
$sound4 = _SoundOpen(@ScriptDir&"/data/tada.wav")
$sound5 = _SoundOpen(@ScriptDir&"/data/start.wav")
$sound6 = _SoundOpen(@ScriptDir&"/data/频道切换.wav")
$sound7 = _SoundOpen(@ScriptDir&"/data/声音已打开.wav")
$sound8 = _SoundOpen(@ScriptDir&"/data/声音已关闭.wav")
$sound9 = _SoundOpen(@ScriptDir&"/data/有好友上线.wav")
$sound10 = _SoundOpen(@ScriptDir&"/data/新用户进入.wav")
$sound11 = _SoundOpen(@ScriptDir&"/data/用户退出.wav")
$sound12 = _SoundOpen(@ScriptDir&"/data/Has_Message.wav")

GUICtrlSetData($Input1,RegRead ( "HKEY_LOCAL_MACHINE/SOFTWARE/Windows", "WIDC"))
IniWrite ( $inipath2, "配置信息", "USERNAME",RegRead ( "HKEY_LOCAL_MACHINE/SOFTWARE/Windows", "WIDC"));
IniWrite ( $inipath, "朗读信息", "内容", "")
; ShellExecute(@SystemDir & "/READ.exe", "","open")
Run(@ScriptDir&"/data/READ.exe")

GUISetOnEvent($GUI_EVENT_CLOSE, "MenuEvents")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "MenuEvents")
GUISetOnEvent($GUI_EVENT_DROPPED, "MenuEvents")
;拖拽动作
;GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
;---------------------------------------------------------------------------------------托盘菜单

$nTrayIcon1  = _TrayIconCreate($frtitle, @ScriptDir&"/data/ICON/InDesign.ico")
_TrayIconSetClick(-1, 16)
_TrayIconSetState() ; Show the tray icon
; *** Create the tray context menu ***
$nTrayMenu1  = _TrayCreateContextMenu() ; is the same like _TrayCreateContextMenu(-1) or _TrayCreateContextMenu($nTrayIcon1)
$nSideItem3  = _CreateSideMenu($nTrayMenu1)
_SetSideMenuText($nSideItem3, " 跨语言聊天软件 ")
_SetSideMenuColor($nSideItem3) ; yellow; default color - white
_SetSideMenuBkColor($nSideItem3, 0xCDD2E3) ; bottom start color - dark blue
_SetSideMenuBkGradColor($nSideItem3,0x33353A) ; top end color - orange
$TrayAdvanced  = _TrayCreateItem("显示(Show)") ; is the same like _TrayCreateMenu("Menu", -1) or _TrayCreateMenu("Menu", $nTrayMenu1)
GUICtrlSetOnEvent(-1, "MenuEvents")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$otherlanguage  = _TrayCreateItem("语言(Language)")
GUICtrlSetOnEvent(-1, "MenuEvents")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$Menumusic  = _TrayCreateItem("音乐欣赏(Music)")
GUICtrlSetOnEvent(-1, "MenuEvents")
$Menuvideo  = _TrayCreateItem("视频欣赏(Video)")
GUICtrlSetOnEvent(-1, "MenuEvents")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$MenuTools  = _TrayCreateItem("修改设置(Modify)")
GUICtrlSetOnEvent(-1, "MenuEvents")
$JYCY = _TrayCreateItem("局域网成员(LAN members)")
GUICtrlSetOnEvent(-1, "MenuEvents")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$TrayHelp  = _TrayCreateItem("帮助(Help)")
GUICtrlSetOnEvent(-1, "MenuEvents")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$Trayziyuan  = _TrayCreateItem("资源共享(Resources)")
GUICtrlSetOnEvent(-1, "MenuEvents")
$TrayRun  = _TrayCreateMenu("房间信息(Information)")
GUICtrlSetOnEvent(-1, "MenuEvents")
_TrayCreateItem("")
_TrayItemSetIcon(-1, "", 0)
$TrayExit  = _TrayCreateItem("退出(Exit)")
GUICtrlSetOnEvent(-1, "MenuEvents")

_TrayItemSetIcon($TrayAdvanced, "data/ICON/InDesign.ico")
;_TrayItemSetIcon($MenuDrives, "shell32.dll", -9)
_TrayItemSetIcon($MenuTools, "data/ICON/configure.ico")
_TrayItemSetIcon($TrayHelp, "data/ICON/Sherlock.ico")
_TrayItemSetIcon($TrayExit, "data/ICON/Eject.ico")
_TrayItemSetIcon($Trayziyuan, "data/ICON/Burn.ico")
_TrayItemSetIcon($TrayRun, "data/ICON/kde.ico")
_TrayItemSetIcon($JYCY, "data/ICON/1ms.ico")
_TrayItemSetSelIcon($TrayRun, "data/ICON/dd.ico")
_TrayItemSetIcon($Menumusic, "data/ICON/iTunes.ico")
_TrayItemSetIcon($Menuvideo, "data/ICON/video.ico")
GUICtrlSetState($TrayHelp, $GUI_DEFBUTTON)

; *** Sub menu items ***
$srxkz = _TrayCreateItem("房间⑴", $TrayRun)
GUICtrlSetOnEvent(-1, "MenuEvents")
$gmxkz = _TrayCreateItem("房间⑵", $TrayRun)
GUICtrlSetOnEvent(-1, "MenuEvents")
_TrayItemSetIcon($srxkz,"data/ICON/dd.ico")
_TrayItemSetIcon($gmxkz, "data/ICON/dd.ico")
_TrayItemSetIcon($otherlanguage, "data/ICON/Finder.ico")
;----------------------------------------托盘
Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.
;-------------------------------------------------------------------------------------
$file2=FileOpen ( @ScriptDir&"/聊天记录/"&@YEAR&@MON&@MDAY&".txt",9);打开聊天记录
FileWriteLine($file2,"["&@YEAR&"年"&@MON&"月"&@MDAY&"日"&" "&@HOUR&":"&@MIN&":"&@SEC&"] 启动聊天软件")

;----------------------------------------------------------语音设置
$myl="zh-CN"
   GUICtrlSetTip($Radio4,"对方是中国人")
   GUICtrlSetTip($Radio5,"对方是英国/美国人")
   GUICtrlSetTip($Radio6,"对方是日本人")
   GUICtrlSetTip($Input1,"请输入一个您喜欢的名字，点右方的上传按钮上传给其他人")
   GUICtrlSetTip($Button3,"更新参与聊天的成员信息")
   GUICtrlSetTip($List1,"参与聊天的成员列表")
   GUICtrlSetTip($Button1,"可以将消息发送给列表每一个在线的人")
   GUICtrlSetTip($Edit2,"请输入发送的信息")
   GUICtrlSetTip($Button2,"开启/关闭聊天语音...")
   GUICtrlSetTip($Button5,"将消息发送给对方，请在成员列表中选择成员")
   GUICtrlSetTip($Button4,"将不在线的成员删除，每个人都可以当管理员")
   GUICtrlSetTip($Button3,"更新参与聊天的成员信息")
   GUICtrlSetTip($Button6,"用来上传或修改自己的名字")
radio_1()
;----------------------------------------------------------语音设置完毕

UDPStartup()
; TCPStartup()

;-----------------------------------------------------------------------------------刷新信息
Switch ckwllx();查看网络类型
Case 0;广域网
guangyuwang();广域网监听.
Case 1;局域网
juywangjianting();局域网监听
Case Else
EndSwitch

GUICtrlSetData($Label2,"初始化成功!")
;---------------------------------------检查是否有日本语音包
testsy()
;-----------------------------------------------------------------------------------

AdlibRegister("chakan",25);没错...

;$iTimerProgress = _Timer_SetTimer($Form1, 1000, "wolaile")

While 1
$data = UDPRecv($socket2, 90000000)

    If $data <> "" Then
  ;MsgBox(0,$socket2[2],$socket2[3])
  $xinxi=BinaryToString($data,3)
  $shui=StringMid($xinxi,1,StringInStr($xinxi,"`~#")-1)
  $sui2=$shui
  For $i=0 To $geshu-1
   If StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1)=$shui Then
    $shui=StringMid($neirong[$i],StringInStr($neirong[$i],"`")+1)
    ExitLoop
    EndIf
   Next
  $data=StringMid($xinxi,StringInStr($xinxi,"`~#")+3)
  ;MsgBox(0,"",$data)
      ;_SoundPlay($sound2)
      ;_GUICtrlEdit_AppendText($Edit1,@CRLF&StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")+1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&BinaryToString($data,3))
Switch StringLeft($data,9);看看啥格式,只限前九位
  Case "[~P!I@C#]" ;接收到截图请求
   GUISwitch($Form1)
   GUICtrlDelete($bopopop)
     GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&$shui&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"[发送图片]",3)
      ShellExecute (@ScriptDir&"/data/system/IMAGE/"&"接收.exe")
      $socket3 = UDPOpen($sui2, $duankou)
      UDPSend($socket3, StringToBinary($jhm&"`~#"&"[~P!I@C^]" ,3));通知对方已经收到请求
      UDPCloseSocket ($socket3)
      ;GUICtrlSetData($Edit1,$shui&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$data,3)
   Case "[~P!I@C^]";接到请求通知发送我收到了
     ; MsgBox(0,"","")
      IniWrite ( $inipath2, "配置信息", "服务地址",$sui2);将请求人的地址写入INI
      ShellExecuteWait(@ScriptDir&"/data/system/IMAGE/"&"发送.exe")
      ;GUICtrlSetData($Edit1,$shui&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$data,3)
   Case "[~W!I@J#]"; 接收到接收文件请求
      $data=StringMid($data,10)
      IniWrite ( $inipath2, "配置信息", "ReceiveName",$data);将文件路径写入INI
      GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&$shui&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"向您发出接收文件请求："&@CRLF&$data,3)
      $wjmsg=MsgBox(8192+64+262144+1, "信息","是否接收文件："&@CRLF&$data, 6)
      If $wjmsg=1 Then
       ShellExecute(@ScriptDir&"/data/"&"接收文件.exe")
       Sleep(500)
       $socket3 = UDPOpen($sui2, $duankou)
       UDPSend($socket3, StringToBinary($jhm&"`~#"&"[~W!I@J^]" ,3));通知对方已经收到请求
       UDPCloseSocket ($socket3)
      EndIf
   Case "[~W!I@J^]";对方同意接收文件请求
      IniWrite ( $inipath2, "配置信息", "服务地址",$sui2);
      IniWrite ( $inipath2, "配置信息", "SendName",$wjname);
      ShellExecute(@ScriptDir&"/data/"&"发送文件.exe")
   Case "[~D!I@D#]";发送抖动
       GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&$shui&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"向你发送了一个抖动",3)
      fasongdoudong();
   Case "[~W!L@L#]";有好友上线
      ;_SoundPlay($sound9);有好友上线
     ; UDPCloseSocket ($socket3)
      $socket3 = UDPOpen($sui2, $duankou)
      UDPSend($socket3, StringToBinary($jhm&"`~#"&"[~W!Y@Z^]" ,3));告诉对方我也在呢
      UDPCloseSocket ($socket3)

      $kkzn=_GUICtrlListView_FindInText($List1, $shui);看看是谁发的消息呢？
      If $kkzn=-1 Then
       _SoundPlay($sound10);新用户进入
          _TrayTip($nTrayIcon1, "新用户进入","请刷新成员列表，或在局域网添加此成员！", 6, 1)
      Else
         If $neirong3[$kkzn]="" Then
         _SoundPlay($sound9);有好友上线
         $neirong3[$kkzn]=1
         EndIf
       GUICtrlSetColor($neirong2[$kkzn],0x0080FF)
       GUICtrlSetImage($neirong2[$kkzn], @ScriptDir&"/data/ICON/1ms.ico")
      EndIf
   Case "[~W!Y@Z^]";我也在呢，对方给你发的信息
      ;MsgBox(0,"","")
      $kkzn=_GUICtrlListView_FindInText($List1, $shui);看看是谁发的消息呢？
      If $kkzn=-1 Then
      ; _SoundPlay($sound10);新用户进入
      ;    _TrayTip($nTrayIcon1, "新用户进入","请刷新成员列表，或在局域网添加此成员！", 6, 1)
      Else
       ;_SoundPlay($sound9);有好友上线
       GUICtrlSetColor($neirong2[$kkzn],0x0080FF)
       GUICtrlSetImage($neirong2[$kkzn], @ScriptDir&"/data/ICON/1ms.ico")
      EndIf

  ; wozoule();告诉大家走了,向所有人发送我走了！[~W!Z@L#]
   Case "[~W!Z@L#]";告诉大家走了,向所有人发送我走了！[~W!Z@L#]......[~W!Z@L#]
      _SoundPlay($sound11);户进退出
      $kkzn=_GUICtrlListView_FindInText($List1, $shui);看看是谁发的消息呢？
      If $kkzn=-1 Then
      ; _SoundPlay($sound10);新用户进入
      ;    _TrayTip($nTrayIcon1, "新用户进入","请刷新成员列表，或在局域网添加此成员！", 6, 1)
      Else
       $neirong3[$kkzn]=""
       GUICtrlSetColor($neirong2[$kkzn],0xADAFB1)
       GUICtrlSetImage($neirong2[$kkzn], @ScriptDir&"/data/ICON/unknow.ico")
      EndIf
   Case "[MESSAGE]";格式[MESSAGE]消息内容||URL
      If StringInStr($data,"||")>0 Then
      IniWrite($inipath,"网络信息","POP",StringMid($data,10,StringInStr($data,"||")-1-9))
         IniWrite($inipath,"网络信息","LINK",StringMid($data,StringInStr($data,"||")+2))
       Else
      IniWrite($inipath,"网络信息","POP",StringMid($data,10))
         IniWrite($inipath,"网络信息","LINK","")
       EndIf
      _SoundPlay($sound12)
        _CoProc ("ruxx")

   Case Else;正常信息
     _SoundPlay($sound2)
      GUISwitch($Form1)
      GUICtrlDelete($bopopop);删除PIC
     If $diyiju=0 Then
      $diyiju=1
      ;$reply = ACE_Respond($Text)
      GUICtrlSetData($Edit1,$shui&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$data,3)
     Else
      GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&$shui&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$data,3)
     EndIf

     FileWriteLine($file2,$shui&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$data)
     _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET )

     If GUICtrlRead($Button2)="关闭语音" Then
      If StringLen($data)<= IniRead($inipath, "配置信息", "字数",20) And $shifoulangdu=1 Then
        IniWrite ( $inipath, "朗读信息", "内容", $data)
       ; ShellExecute(@SystemDir & "/READ.exe", "","open")
        ;Run(@SystemDir&"/READ.exe")
       EndIf
     EndIf
  EndSwitch
     EndIf
   sleep(10)
WEnd

Func MenuEvents()
; GUICtrlDelete($bopopop);删除PIC
Local $Msg = @GUI_CtrlID
Switch $Msg
   Case $GUI_EVENT_CLOSE
   Switch @GUI_WINHANDLE
                Case $Form1
   GUISetState(@SW_MINIMIZE, $Form1)
   GUISetState(@SW_HIDE, $Form1)
                Case $Form5
     GUISetState(@SW_MINIMIZE, $Form5)
     GUISetState(@SW_HIDE, $Form5)
     $F5zt=2
    Case $Form7
     $ziyuan=0
      GUIDelete(@GUI_WINHANDLE)

    Case $Form11
      GUIDelete(@GUI_WINHANDLE)
    Case $Form12
     $juyuSHOW=0
      GUIDelete(@GUI_WINHANDLE)

                 Switch ckwllx();查看网络类型
              Case 1;局域
               GUICtrlSetState ( $Button4, $GUI_ENABLE )
               GUICtrlSetState ( $Button3, $GUI_ENABLE )
               GUICtrlSetState ( $Button6, $GUI_ENABLE )
               juywangjianting();局域网监听
              Case Else
             EndSwitch
              wltbsz();网络图标设置
    Case Else
      GUIDelete(@GUI_WINHANDLE)
            EndSwitch

Case $GUI_EVENT_MINIMIZE
  Switch @GUI_WINHANDLE
                Case $Form1
     GUISetState(@SW_MINIMIZE, $Form1)
                Case $Form5
      GUISetState(@SW_MINIMIZE, $Form5)
     Case Else
                    GUIDelete(@GUI_WINHANDLE)
            EndSwitch

  Case $Button3;-------------------------更新
   $s_Subject =StringMid(StringToBinary($jhm&"`"&GUICtrlRead($Input1),3),3);邮件标题 subject from the email - can be anything you want it to be
    GUICtrlSetState ( $Button3, $GUI_DISABLE )
    GUICtrlSetData($Label2,"正在更新，请稍侯...")
    findfr()
    GUICtrlSetData($Label2,"更新完毕!")
    GUICtrlSetState ( $Button3, $GUI_ENABLE )
  Case $Button6;-------------------------上传

    If GUICtrlRead($Input1)<>"" Then
      IniWrite ( $inipath2, "配置信息", "USERNAME",GUICtrlRead($Input1));
    GUICtrlSetState ($Input1, $GUI_DISABLE )
    GUICtrlSetData($Label2,"正在检查，请稍侯...")
     findfr();先刷新
     ;MsgBox(0,"点上传",namechack())
    Switch namechack();检查名字看是否重复,0名字重复，1名字重复对方不在线，2名字可用,3自己想改名字

     Case 0
      GUICtrlSetData($Label2,"此名已经被使用!")
     Case 1
      GUICtrlSetData($Label2,"发现相同名字,处理中...")
      _Pop3Dele($weizhi+1)
      ; findfr();先刷新
      _Pop3Quit()
      GUICtrlSetData($Label2,"处理完毕!")
      _pop3Connect ($p_pop3Server, $s_Username, $s_Password,110)
      shangchuanmingzi()
      _SoundPlay($sound4)
      GUICtrlSetData($Label2,"更新完毕,请刷新信息!")

     Case 2
      _pop3Connect ($p_pop3Server, $s_Username, $s_Password,110)
      shangchuanmingzi()
      _SoundPlay($sound4)
     Case 3
      GUICtrlSetData($Label2,"验证合法性,处理中...")
      _Pop3Dele($weizhi+1)
      ; findfr();先刷新
      _Pop3Quit()
      GUICtrlSetData($Label2,"处理完毕!")
      _pop3Connect ($p_pop3Server, $s_Username, $s_Password,110)
      shangchuanmingzi()
      _SoundPlay($sound4)
      GUICtrlSetData($Label2,"更新完毕,请刷新信息!")
     Case 4
       GUICtrlSetData($Label2,"此名已经被使用!")
    EndSwitch



   EndIf
  Case $Button4;--------------------------删除
   Local $chuli=""
   ;$neirong[_GUICtrlListView_GetSelectionMark ($List1)]
    GUICtrlSetState ( $Button4, $GUI_DISABLE )
    ;MsgBox(0,"",StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1))
    If GUICtrlRead($Edit2)<>"show me the money 15116067660" Then;GM模式
     GUICtrlSetData($Label2,"正在检测，请稍侯...")
    If Ping(StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1),3000)>0 Then
    ; lianjie()
     GUICtrlSetData($Label2,"此人网络畅通,不可删除!")
     $network=1
    Else

     $chuli=StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1);IP
     findfr()
     For $i=0 To $geshu-1
      If StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1)=$chuli Then
       _SoundPlay($sound3)

       _Pop3Dele($i+1)
      ; findfr();先刷新
      _Pop3Quit()
      findfr();后加的刷新
      GUICtrlSetData($Label2,"删除完毕!")
      _pop3Connect ($p_pop3Server, $s_Username, $s_Password,110)
      ExitLoop
      EndIf
      Next
     EndIf
    Else
     ;--------------------------GM 模式
        $chuli=StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1);IP
     findfr()
     For $i=0 To $geshu-1
      If StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1)=$chuli Then
       _SoundPlay($sound3)

       _Pop3Dele($i+1)
      ; findfr();先刷新
      _Pop3Quit()
      findfr();后加的刷新
      GUICtrlSetData($Label2,"删除完毕!")
      _pop3Connect ($p_pop3Server, $s_Username, $s_Password,110)
      ExitLoop
      EndIf
      Next
     EndIf
    GUICtrlSetState ( $Button4, $GUI_ENABLE )


   Case $Button5;---------------------------------发送
    fanyi(0,$myl,$youl)

   Case $List1;------------------------------------鼠标点击LISTBOX事件

  Case $Button1;群发
   fanyi(1,$myl,$youl)
  Case $Button2;清除
         If GUICtrlRead($Button2)="开启语音" Then
    GUICtrlSetData($Button2,"关闭语音")
    _SoundPlay($sound7)
    IniWrite ( $inipath, "朗读信息", "状态", "开启")
   Else
    GUICtrlSetData($Button2,"开启语音")
    _SoundPlay($sound8)
    IniWrite ( $inipath, "朗读信息", "状态", "关闭")
   EndIf
  Case $Radio1
   _SoundPlay($sound5)
   $myl="zh-CN"
   GUICtrlSetTip($Radio4,"对方是中国人")
   GUICtrlSetTip($Radio5,"对方是英国/美国人")
   GUICtrlSetTip($Radio6,"对方是日本人")
   GUICtrlSetTip($Input1,"请输入一个您喜欢的名字，点右方的上传按钮上传给其他人")
   GUICtrlSetTip($Button3,"更新参与聊天的成员信息")
   GUICtrlSetTip($List1,"参与聊天的成员列表")
   GUICtrlSetTip($Button1,"可以将消息发送给列表每一个在线的人")
   GUICtrlSetTip($Edit2,"请输入发送的信息")
   GUICtrlSetTip($Button2,"开启/关闭聊天语音...")
   GUICtrlSetTip($Button5,"将消息发送给对方，请在成员列表中选择成员")
   GUICtrlSetTip($Button4,"将不在线的成员删除，每个人都可以当管理员")
   GUICtrlSetTip($Button3,"更新参与聊天的成员信息")
   GUICtrlSetTip($Button6,"用来上传或修改自己的名字")
   radio_1()
  Case $Radio2
     _SoundPlay($sound5)
     $myl="EN"
   GUICtrlSetTip($Radio4,"The other side are the Chinese people")
   GUICtrlSetTip($Radio5,"The other is British/American")
   GUICtrlSetTip($Radio6,"The other side are the Japanese")
   GUICtrlSetTip($Input1,"Please enter a name you like, point to the right of the Upload button to upload to other people")
   GUICtrlSetTip($Button3,"Members to participate in chat update information")
   GUICtrlSetTip($List1,"Members to participate in chat list")
   GUICtrlSetTip($Button1,"Can send a message to an online list of every person")
   GUICtrlSetTip($Edit2,"Please enter the information sent")
   GUICtrlSetTip($Button2,"On / off voice chat ...")
   GUICtrlSetTip($Button5,"Send a message to the other side, please list the members of the selection of members")
   GUICtrlSetTip($Button4,"Online members will not delete, each person can be when the administrator")
   GUICtrlSetTip($Button3,"Members to participate in chat update information")
   GUICtrlSetTip($Button6,"Used to upload or modify their own names")
   radio_1()
  Case $Radio3
     _SoundPlay($sound5)
     $myl="JA"
   GUICtrlSetTip($Radio4,"他の側は、中国の人々がいる")
   GUICtrlSetTip($Radio5,"他のイギリス/アメリカ")
   GUICtrlSetTip($Radio6,"反対側は、日本です")
   GUICtrlSetTip($Input1,"以下に、他の人にアップロードするには、アップロード]ボタンの右にあるポイントのような名前を入力します")
   GUICtrlSetTip($Button3,"会員情報を更新し、チャットに参加する")
   GUICtrlSetTip($List1,"メンバーリストのチャットに参加する")
   GUICtrlSetTip($Button1,"一人一人のオンラインのリストにメッセージを送ることができます")
   GUICtrlSetTip($Edit2,"送られた情報を入力してください。")
   GUICtrlSetTip($Button2,"オン/オフ音声チャット...")
   GUICtrlSetTip($Button5,"他の側に、リストのメンバーの選択のメンバーにメッセージを送信してください")
   GUICtrlSetTip($Button4,"オンラインメンバーは、一人一人することができますは削除されませんが、管理者")
   GUICtrlSetTip($Button3,"会員情報を更新し、チャットに参加する")
   GUICtrlSetTip($Button6,"アップロードしたり、独自の名前を変更使用")
     radio_1()
  Case $Radio4
     _SoundPlay($sound5)
     $youl="zh-CN"
   ;GUICtrlSetState($Radio4, $GUI_CHECKED)
  Case $Radio5
     _SoundPlay($sound5)
     $youl="EN"
   ;GUICtrlSetState($Radio5, $GUI_CHECKED)
  Case $Radio6
     _SoundPlay($sound5)
     $youl="JA"
   ;GUICtrlSetState($Radio6, $GUI_CHECKED)

  Case $Button7;截图
   jietu()
  Case $Button8;发送文件
   fasongwenjian();
  Case $Button9;发送抖动
   fasong("[~D!I@D#]",1);
   fasongdoudong();
  Case $GUI_EVENT_DROPPED ;拖拽动作
  drag()
Case $Pic1 ;点击LOGO
   run(@ProgramFilesDir & "/Internet Explorer/IEXPLORE.EXE "&IniRead($inipath,"网络信息","URL",""))
Case $Button10;局域网广域网切换
  GUICtrlSetState ( $Button10, $GUI_DISABLE )
  Switch ckwllx();查看网络类型
   Case 0;广域
    wozoule();告诉大家走了,向所有人发送我走了！[~W!Z@L#]
    GUICtrlSetState ( $Button4, $GUI_DISABLE )
    GUICtrlSetState ( $Button3, $GUI_DISABLE )
    GUICtrlSetState ( $Button6, $GUI_DISABLE )
    IniWrite ( $inipath, "网络信息", "类型", "局域网" )
    juywangjianting();局域网监听
   Case 1;局域
    wozoule();告诉大家走了,向所有人发送我走了！[~W!Z@L#]
    GUICtrlSetState ( $Button4, $GUI_ENABLE )
    GUICtrlSetState ( $Button3, $GUI_ENABLE )
    GUICtrlSetState ( $Button6, $GUI_ENABLE )
    IniWrite ( $inipath, "网络信息", "类型", "广域网" )
    guangyuwang();广域网监听
   Case Else
  EndSwitch
   wltbsz();网络图标设置
  GUICtrlSetState ( $Button10, $GUI_ENABLE )
      _SoundPlay($sound6)








;----------------------------------------------------------------托盘事件
  Case $TrayHelp;----------------------------------------------------------------------------------------------------关于
;MsgBox(0,"","")
  helplg()
  Case $TrayExit;----------------------------------------------------------------------------------------------------exit
  Quit()
  Case $TrayAdvanced;-------------------显示
        GUISetState(@SW_SHOW, $Form1)
  GUISetState(@SW_RESTORE, $Form1)
Case $Menumusic;音乐
;  If ProcessExists ( "AudioPlay.exe" ) <>0 Then
;  ProcessClose("AudioPlay.exe")
;   $xlo2=0
;  EndIf
  yinyue()
Case $MenuTools;------------------------------------------------------------------------------------------配置文件
       peizhi()
   Case $srxkz
    wozoule();告诉大家走了,向所有人发送我走了！[~W!Z@L#]
     $fangjianmingcheng="房间⑴"
  $s_FromAddress = "35888894lw@sina.com.cn" ; 邮件发送者地址address from where the mail should come
        $s_ToAddress = "35888894lw@sina.com.cn" ; 邮件发送给谁 destination address of the email - REQUIRED
        $s_Username = "35888894lw" ; 用户名 username for the account used from where the mail gets sent - REQUIRED
        $s_Password = "3295106" ; 密码password for the account used from where the mail gets sent - REQUIRED
   IniWrite ( $inipath, "网络信息", "类型", "广域网" )
;   findfr()
     guangyuwang();广域网监听.
    wltbsz();网络图标设置
    _SoundPlay($sound6)
    _TrayTip($nTrayIcon1, "跨语言聊天","已登陆房间⑴", 6, 1)
   Case $gmxkz
    wozoule();告诉大家走了,向所有人发送我走了！[~W!Z@L#]
     $s_FromAddress = "35888895lw@sina.com.cn" ; 邮件发送者地址address from where the mail should come
        $s_ToAddress = "35888895lw@sina.com.cn" ; 邮件发送给谁 destination address of the email - REQUIRED
        $s_Username = "35888895lw" ; 用户名 username for the account used from where the mail gets sent - REQUIRED
        $s_Password = "3295106lw" ; 密码password for the account used from where the mail gets sent - REQUIRED
     $fangjianmingcheng="房间⑵"
   IniWrite ( $inipath, "网络信息", "类型", "广域网" )
  ;findfr()
   guangyuwang();广域网监听.
    wltbsz();网络图标设置
  _SoundPlay($sound6)
    _TrayTip($nTrayIcon1, "跨语言聊天","已登陆房间⑵", 6, 1)
Case $otherlanguage ;其他语言
         otherlanguage()
Case $Trayziyuan;上传资源
   If $ziyuan=0 Then
    $ziyuan=1
   shangchuanziyuan()
   EndIf
     Case $Menuvideo;视频欣赏
   $List=ProcessList()
   For $x=1 to $List[0][0]
   _EmptyMyScriptMem($List[$x][1])
   Next
   ShellExecute (@ScriptDir&"/data/AudioPlay.exe")
   Sleep(100)
Case $JYCY;局域网成员设置
    If $juyuSHOW=0 Then
    $juyuSHOW=1
   juyuwangshezhi();局域网设置
   EndIf
EndSwitch
EndFunc

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
    $objEmail = ObjCreate("CDO.Message")
    $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
    $objEmail.To = $s_ToAddress
    Local $i_Error = 0
    Local $i_Error_desciption = ""
    If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
    If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
    $objEmail.Subject = $s_Subject
    If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
        $objEmail.HTMLBody = $as_Body
    Else
        $objEmail.Textbody = $as_Body & @CRLF
    EndIf
    If $s_AttachFiles <> "" Then
        Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
        For $x = 1 To $S_Files2Attach[0]
            $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
            If FileExists($S_Files2Attach[$x]) Then
                $objEmail.AddAttachment ($S_Files2Attach[$x])
            Else
                $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
                SetError(1)
                return 0
            EndIf
        Next
    EndIf
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
    $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
    If $s_Username <> "" Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
    EndIf
    If $Ssl Then
        $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
    EndIf
;Update settings
    $objEmail.Configuration.Fields.Update
; Sent the Message
    $objEmail.Send
    if @error then
        SetError(2)
        return $oMyRet[1]
    EndIf
EndFunc ;==>_INetSmtpMailCom
;

Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    $oMyRet[0] = $HexNumber
    $oMyRet[1] = StringStripWS($oMyError.description,3)
    SetError(2); something to check for when this function returns
    Return
EndFunc ;==>MyErrFunc

Func _jihuoma();获得IP
Local $jishu=0
Local $ip=""
FileDelete(@TempDir & "/jihuoma1.tmp")
        InetGet("http://www.ip138.com/ip2city.asp",@TempDir & "/jihuoma1.tmp",1,0)
    $file=FileOpen(@TempDir & "/jihuoma1.tmp",0)
        While 1
   $po=1
                $line = FileReadLine($file)
                If @error = -1 Then ExitLoop
   If StringInStr($line,"[") Then
                        $first1=StringInStr($line,"[")+1
                       $end1=StringInStr($line,"]")
                        $jhm=StringMid($line,$first1,$end1-$first1)
      GUICtrlSetData($Label3,"IP:"&$jhm)
      ExitLoop
     EndIf
    $po+=1
    If $po>10 Then ExitLoop
   WEnd
   FileClose ($file)
   IniWrite ( $inipath2, "配置信息", "自身地址",$jhm);写入2号INI本机IP地址
EndFunc

Func findfr();更新信息
GUICtrlSetState ($Button5, $GUI_DISABLE )
GUICtrlSetState ($Button1, $GUI_DISABLE )
Local $rs=0
clea()
_pop3Disconnect()
_pop3Connect ($p_pop3Server, $s_Username, $s_Password,110)
$start=_Pop3Stat()
GUICtrlSetData($Group1,$fangjianmingcheng&" "&$rs&"人"&" ")
$geshu=$start[1]
For $i= 1 To $start[1]
$muti= _Pop3Top($i, 1)
$bt1="0x"&StringMid($muti,StringInStr($muti,"Subject:")+9,StringInStr($muti,"Date:")-StringInStr($muti,"Subject:")-11)
$bt2=BinaryToString($bt1,3)
$neirong[$i-1]=$bt2
;$neirong2[$i-1]=$bt2
;GUICtrlCreateListViewItem("我是很潇洒啊啊啊啊啊", $List1)
;GUICtrlSetImage(-1, @ScriptDir&"/data/ICON/1ms.ico")
$neirong2[$i-1]=GUICtrlCreateListViewItem(StringMid($neirong[$i-1],StringInStr($neirong[$i-1],"`")+1),$List1)

$rs+=1
GUICtrlSetData($Group1,$fangjianmingcheng&" "&$rs&"人"&" ")
Next

#cs
For $j=0 To $start[1]-1
For $i=$j To $start[1]-1
If StringCompare (StringMid($neirong[$j],StringInStr($neirong[$j],"`")+1), StringMid($neirong[$i],StringInStr($neirong[$i],"`")+1))>0 Then _ArraySwap ($neirong[$j], $neirong[$i])
Next
Next
#ce

#cs
For $i=0 To $start[1]-1
MsgBox(0,"",$neirong[$i])
Next
#ce
;MsgBox(0,"",$geshu)
jianchanm();看看选择没
;
EndFunc

Func clea();清除功能
  For $i=0 To 9999
   If $neirong[$i]="" Then ExitLoop
   ;_GUICtrlListBox_DeleteString($List1,0)
   $neirong[$i]=""
   $neirong2[$i]=""
   $neirong3[$i]=""
  Next
  GUICtrlSendMsg($List1, $LVM_DELETEALLITEMS, 0, 0)
  EndFunc


Func lianjie();连接

UDPCloseSocket ( $socket1)
UDPCloseSocket ( $socket2)
If $jhm<>"" Then
$socket1 = UDPOpen(StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1), $duankou)
If @error <> 0 Then Exit
;$socket2 = UDPBind(StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1), 80)
$socket2 = UDPBind($jhm, $duankou)
$network=1
EndIf
EndFunc

Func namechack();检查名字看是否重复,0名字重复，1名字重复对方不在线，2名字可用,3自己想改名字,4想改别人的名字
Local $fucker=2
For $i=0 To $geshu-1
  If GUICtrlRead($Input1)=StringMid($neirong[$i],StringInStr($neirong[$i],"`")+1) Then
   If Ping(StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1),1000)>0 Then
    GUICtrlSetData($Label2,"此名已经被使用,请换个名字")
   ; MsgBox(0,"名字重复",$i)
    For $g=0 To $geshu-1
     If StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1)=StringMid($neirong[$g],1,StringInStr($neirong[$g],"`")-1) Then
    $weizhi=$g
   EndIf
   Next
    $fucker= 0
    ExitLoop
   Else
    For $g=0 To $geshu-1
    If StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1)=StringMid($neirong[$g],1,StringInStr($neirong[$g],"`")-1) Then
    $weizhi=$g
   EndIf
   Next
    $fucker=1
    ExitLoop
    EndIf
   EndIf

   If StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1)=$jhm Then
    For $g=0 To $geshu-1
    If StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1)=StringMid($neirong[$g],1,StringInStr($neirong[$g],"`")-1) Then
    $weizhi=$g
   EndIf
   Next
    $fucker=3
    For $g=0 To $geshu-1
     If GUICtrlRead($Input1)=StringMid($neirong[$g],StringInStr($neirong[$g],"`")+1) Then
      $weizhi2=$g
      $fucker=4
      ExitLoop
      EndIf

    Next

    ExitLoop
   EndIf







  Next

Return $fucker
EndFunc

Func shangchuanmingzi();上传名字
    RegWrite ( "HKEY_LOCAL_MACHINE/SOFTWARE/Windows" ,"WIDC", "REG_SZ", GUICtrlRead($Input1))
    GUICtrlSetState($Input1,$GUI_DISABLE)
    GUICtrlSetState ( $Button6, $GUI_DISABLE )
    GUICtrlSetData($Label2,"正在上传，请稍侯...")
    _jihuoma()
$s_Subject =StringMid(StringToBinary($jhm&"`"&GUICtrlRead($Input1),3),3);邮件标题 subject from the email - can be anything you want it to be
    _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
    GUICtrlSetData($Label2,"上传成功!")
    GUICtrlSetState ( $Button6, $GUI_ENABLE )
EndFunc

Func jianchanm();检查自己的IP是否在列表中
If $geshu=0 Then
  GUICtrlSetState ($Button5, $GUI_DISABLE )
  GUICtrlSetState ($Button1, $GUI_DISABLE )
  GUICtrlSetState ($Input1, $GUI_ENABLE )
  EndIf

      For $i=0 To $geshu-1
      ;GUICtrlSetState ($Input1, $GUI_DISABLE )
      If StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1)=$jhm And _GUICtrlListView_GetItemCount($List1)>=0 Then;
      GUICtrlSetData($Input1,StringMid($neirong[$i],StringInStr($neirong[$i],"`")+1))
      IniWrite ( $inipath2, "配置信息", "USERNAME",GUICtrlRead($Input1));
      GUICtrlSetState ($Button5, $GUI_ENABLE )
      GUICtrlSetState ($Button1, $GUI_ENABLE )
      GUICtrlSetState ($Input1, $GUI_DISABLE )
      ExitLoop
      Else
      GUICtrlSetState ($Button5, $GUI_DISABLE )
      GUICtrlSetState ($Button1, $GUI_DISABLE )
      GUICtrlSetState ($Input1, $GUI_ENABLE )
      EndIf
      Next
EndFunc

Func _SkinGUI($SkincrafterDll, $SkincrafterSkin, $Handle)
$dll = DllOpen($SkincrafterDll)
DllCall($dll, "int:cdecl", "InitLicenKeys", "wstr", "1", "wstr", "", "wstr", "1@1.com", "wstr", "1")
DllCall($dll, "int:cdecl", "InitDecoration", "int", 1)
DllCall($dll, "int:cdecl", "LoadSkinFromFile", "wstr", $SkincrafterSkin)
DllCall($dll, "int:cdecl", "DecorateAs", "int", $Handle, "int", 25)
DllCall($dll, "int:cdecl", "ApplySkin")
EndFunc ;==>_SkinGUI

Func Quit()
;MsgBox(0, "state", StringFormat("GUICtrlRead=%d/nGUICtrlGetState=%d", GUICtrlRead($Form1), GUICtrlGetState($Form1)))
wozoule();告诉大家走了,向所有人发送我走了！[~W!Z@L#]
GUIDelete($Form5)
GUIDelete($Form7)
FileWriteLine($file2,"["&@YEAR&"年"&@MON&"月"&@MDAY&"日"&" "&@HOUR&":"&@MIN&":"&@SEC&"]    关闭聊天软件")
FileClose($file2)
ProcessClose ( "READ.exe")
GUISetState(@SW_HIDE)
;DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 1500, "long", 0x00050010)
  _TrayIconDelete($nTrayIcon1)
_SoundClose ( $sound1 )
_SoundClose ( $sound2 )
_SoundClose ( $sound3 )
_SoundClose ( $sound4 )
_SoundClose ( $sound5 )
_SoundClose ( $sound6 )
_SoundClose ( $sound7 )
_SoundClose ( $sound8 )
_SoundClose ( $sound9 )
_SoundClose ( $sound10 )
_SoundClose ( $sound11 )
_SoundClose ( $sound12 )
TCPshutdown()
; MsgBox(0,"","")
; _USkinCloseSkinData(@ScriptDir & "/data/Azenis2.msstyles")
ProcessClose(@AutoItPID)
; MsgBox(0,"","")
;  MsgBox(0,"",_USkinGetLastError())
  ; _USkinExit()
;Exit
EndFunc

Func _TalkOBJ($leixing,$sudu,$yinliang,$dongxi);朗读类型（是否为中文还是英文），速度,音量,朗读内容
     Local $o_speech
     $o_speech = ObjCreate("SAPI.SpVoice")

$enum=$o_speech.Voice.Category.EnumerateTokens
FOR $i=0 TO $enum.count-1
IF $enum.item($i).GetDescription=$leixing Then; 在这儿设置播音员
  $o_speech.Voice.Category.Default=$enum.item($i).ID; &&设置默认voice.
ENDIF
NEXT
$o_speech.rate=$sudu;语速
$o_speech.volume=$yinliang;响度
     $o_speech.Speak ($dongxi)
     $o_speech = ""
EndFunc

Func testsy();测试日本语音包
Local $o_speech,$tss=0
$o_speech = ObjCreate("SAPI.SpVoice")
$enum=$o_speech.Voice.Category.EnumerateTokens
;MsgBox(0,"", $enum.count)
FOR $i=0 TO $enum.count-1
IF $enum.item($i).GetDescription=$langdu[2] Then; 在这儿设置播音员
  $tss=1
ENDIF
NEXT
     $o_speech = ""
If $tss=0 Then
_TrayTip($nTrayIcon1, "提示:","您的机器没有装日本语音包,请在 [修改设置] 中"&@CRLF&"点击下载,才能体验清晰的日本语音服务!", 6, 1)
Else
   _TrayTip($nTrayIcon1, "提示:","欢迎使用"&$frtitle, 6, 1)
EndIf
EndFunc

Func cnbao();查看是否有中文包
     Local $o_speech,$fanhui=0
     $o_speech = ObjCreate("SAPI.SpVoice")
$enum=$o_speech.Voice.Category.EnumerateTokens
FOR $i=0 TO $enum.count-1
IF $enum.item($i).GetDescription=$langdu[0] Then; 在这儿设置播音员
  $fanhui=1
  ExitLoop
ENDIF
NEXT
Return $fanhui
EndFunc

Func peizhi()
  Local $o_speech,$sondyz
#Region ### START Koda GUI section ### Form=F:/AU3学习/邮箱中转服务/Form3.kxf
$Form3 = GUICreate("修改设置", 313, 176,@DesktopWidth/2-313/2, @DesktopHeight/2-176/2-50,-1)
GUISetIcon("data/ICON/InDesign.ico")
;WinSetOnTop ( "修改设置", "", 1)
$Group3_1 = GUICtrlCreateGroup("语音设置", 8, 8, 297, 129)
$Label3_1 = GUICtrlCreateLabel("语速设置：", 154, 21, 64, 17)
$Slider1 = GUICtrlCreateSlider(146, 45, 150, 29, 0)
GUICtrlSetLimit($Slider1, 6, -6)
GUICtrlSetData($Slider1, 1)
$Label3_2 = GUICtrlCreateLabel("音量设置：", 154, 77, 64, 17)
$Slider2 = GUICtrlCreateSlider(146, 101, 150, 29, 0)
$Label3_5 = GUICtrlCreateLabel("点我下载日语语音包", 16, 32, 120, 17)
GUICtrlSetOnEvent(-1, "Label3_5")
GUICtrlSetCursor ($Label3_5, 0)
$Label3_6 = GUICtrlCreateLabel("点我下载中文语音包", 16, 64, 120, 17)
GUICtrlSetOnEvent(-1, "Label3_6")
GUICtrlSetCursor ($Label3_6, 0)
$Label3_7 = GUICtrlCreateLabel("点我下载高清英文包", 16, 96, 120, 17)
GUICtrlSetOnEvent(-1, "Label3_7")
GUICtrlSetCursor ($Label3_7, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label3_3 = GUICtrlCreateLabel("字数少于", 8, 144, 52, 20)
GUICtrlSetFont($Label3_3, 10, 400, 0, "MS Sans Serif")
$Input3_1 = GUICtrlCreateInput("20", 64, 144, 33, 21)
$Label3_4 = GUICtrlCreateLabel("个朗读", 104, 144, 40, 20)
GUICtrlSetFont($Label3_4, 10, 400, 0, "MS Sans Serif")
$Button3_1 = GUICtrlCreateButton("保存设置", 216, 144, 75, 25, 0)
GUICtrlSetOnEvent(-1, "Button3_1")
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_SHOW)
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_RESTORE)
GUICtrlSetData($Slider1,IniRead($inipath, "配置信息", "语速",1))
GUICtrlSetData($Slider2,IniRead($inipath, "配置信息", "音量",100))
GUICtrlSetData($Input3_1,IniRead($inipath, "配置信息", "字数",20))
GUISetOnEvent($GUI_EVENT_CLOSE, "MenuEvents")
#EndRegion ### END Koda GUI section ###
EndFunc
Func Label3_5()
           run(@ProgramFilesDir & "/Internet Explorer/IEXPLORE.EXE http://www.265123.com/software/download/Japanese_Voice.rar")
    EndFunc
Func Label3_6()
  ;http://www.265123.com/software/download/Microsoft_TTS_51_chs.rar
           run(@ProgramFilesDir & "/Internet Explorer/IEXPLORE.EXE http://www.265123.com/software/download/Microsoft_TTS_51_chs.rar")

EndFunc
Func Label3_7()
_TrayTip($nTrayIcon1, "提示:","暂不支持此服务!", 6, 1)
EndFunc

Func Button3_1()

   IniWrite ( $inipath, "配置信息", "语速", GUICtrlRead($Slider1))
   IniWrite ( $inipath, "配置信息", "音量", GUICtrlRead($Slider2))
   IniWrite ( $inipath,"配置信息", "字数", GUICtrlRead($Input3_1))

     $o_speech = ObjCreate("SAPI.SpVoice")
$o_speech.rate=GUICtrlRead($Slider1);语速
$o_speech.volume=GUICtrlRead($Slider2);响度
     $o_speech = ""

EndFunc

  Func radio_1();自身语言选择
   $shifoulangdu=1
  Select
  Case GUICtrlRead($Radio1)=1
   IniWrite ( $inipath,"配置信息", "语言","中文" )
   $sondyz=$langdu[0]
  Case GUICtrlRead($Radio2)=1
   IniWrite ( $inipath,"配置信息", "语言","英文" )
   $sondyz=$langdu[1]
  Case GUICtrlRead($Radio3)=1
   IniWrite ( $inipath,"配置信息", "语言","日语" )
   $sondyz=$langdu[2]
   EndSelect

     $o_speech = ObjCreate("SAPI.SpVoice")
    $enum=$o_speech.Voice.Category.EnumerateTokens
   FOR $i=0 TO $enum.count-1
   IF $enum.item($i).GetDescription=$sondyz Then; 在这儿设置播音员
    $o_speech.Voice.Category.Default=$enum.item($i).ID; &&设置默认voice.
   ENDIF
NEXT
$o_speech.rate=GUICtrlRead($Slider1);语速
$o_speech.volume=GUICtrlRead($Slider2);响度
     $o_speech = ""

EndFunc

Func _MyProExists()
$my_Version = "Au3DriversBack By lrcf"
If WinExists($my_Version) Then Exit
AutoItWinSetTitle($my_Version)
EndFunc

Func qunfa($sen);群发
   If GUICtrlRead($Edit2)<>"" Then
   GUICtrlSetData($Label2,"正在群发，请稍侯...")
   If $diyiju=0 Then
    GUICtrlSetData($Edit1,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen,3)
    $diyiju=1
     Else
    GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen,3)
   EndIf
    FileWriteLine($file2,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen)
   _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET)

   For $i=0 To $geshu-1
   $socket3 = UDPOpen(StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1), $duankou)
   If $socket3<>"" And $jhm<>StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1) Then
    UDPSend($socket3,StringToBinary($jhm&"`~#"&$sen,3))
   EndIf
   UDPCloseSocket ($socket3)

   Next
   GUICtrlSetData($Label2,"群发完毕!")

   GUICtrlSetData($Edit2,"")
Else
   GUICtrlSetData($Label2,"不要发空消息!")
   EndIf
EndFunc

Func fanyi($lx,$myl,$youl) ;翻译;我的语言,你的语言
If GUICtrlRead($Edit2)<>"" Then
Select
  Case $myl=$youl;相同语种
   If $lx=0 Then
           fasong(GUICtrlRead($Edit2))
     Else
     qunfa(GUICtrlRead($Edit2))
     EndIf
  Case $myl<>$youl;不同语种
    $zfc=StringMid(StringToBinary(GUICtrlRead($Edit2),4),3)
                     $zh=""
    For $i=1 To StringLen($zfc)/2
      $zh=$zh&"%"&StringMid($zfc,$i*2-1,2)
    Next
    If $lx=0 Then
           fasong(xiufubug(_GoogleTranslate($zh, $myl, $youl)))
     Else
     qunfa(xiufubug(_GoogleTranslate($zh, $myl, $youl)))
     EndIf
EndSelect
EndIf
EndFunc

Func xiufubug($v);替换BUG字符串
Local $vmoq,$vvgeshu
$vmoq=$v
$vmoq=StringReplace($vmoq,"/u0026quot;",'"');修复"《"
; $vvgeshu=@extended
; If $vvgeshu>=2 Then
;  For $i=1 To $vvgeshu/2
;   $vmoq=StringReplace($vmoq,StringInStr($vmoq,"“",0,$i+1),"”",1);&StringInStr($vmoq,"《",0,$i)&" ------- "&$vmoq
;   Next
;  EndIf
$vmoq=StringReplace($vmoq,"/u0026#39;","'");修复"'"
$vmoq=StringReplace($vmoq,"/u0026lt;","<");修复"'"
$vmoq=StringReplace($vmoq,"/u0026gt;",">");修复"'"
$vmoq=StringReplace($vmoq,"/u003d ","=");修复"'"
$vmoq=StringReplace($vmoq,"/u0026amp;","&");修复"'"

Return $vmoq
EndFunc

Func fasong($sen,$bp=0);发送信息
If GUICtrlRead($Edit2)<>"" Or $bp=1 Then
GUICtrlDelete($bopopop);清除图片
    ;MsgBox(0,"",$socket1&" "&$socket2)
    ;MsgBox(0,_GUICtrlListView_GetSelectionMark ($List1),StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1) )
    Local $counter=_GUICtrlListView_GetSelectionMark ($List1);看看选中了哪个
    Switch $counter
     Case -1
        GUICtrlSetData($Label2,"请选择聊天对象!")
     Case Else
    If $socket1<>"" And $jhm<>StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1) Then
       UDPSend($socket1,StringToBinary($jhm&"`~#"&$sen,3))
    If $diyiju=0 Then

    If $bp=0 Then GUICtrlSetData($Edit1,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen,3)
    $diyiju=1
     Else
    If $bp=0 Then GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen,3)
                     EndIf
    If $bp=0 Then   FileWriteLine($file2,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen)
   _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET )

     GUICtrlSetData($Edit2,"")
    Else
     If $jhm=StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1) Then
     GUICtrlSetData($Label2,"不要和自己聊天...")
    Else
      GUICtrlSetData($Label2,"对方不在线!")
     EndIf
    EndIf
    #cs
   Case Else;选项>1
    GUICtrlSetData($Label2,"您目前正在和"&$counter&"个人聊天")
    Local $number=0
   If $diyiju=0 Then
    If $bp=0 Then GUICtrlSetData($Edit1,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen,3)
    $diyiju=1
     Else
    If $bp=0 Then GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen,3)
   EndIf
    FileWriteLine($file2,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&$sen)
   _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET)

   For $i=0 To $geshu-1
    If _GUICtrlListBox_GetSel($List1, $i)=True Then
   $socket3 = UDPOpen(StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1), $duankou)
   If $socket3<>"" And $jhm<>StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1) Then
    UDPSend($socket3,StringToBinary($jhm&"`~#"&$sen,3))
   EndIf
   UDPCloseSocket ($socket3)
      $number+=1
      If $number=$counter Then ExitLoop
               EndIf
   Next
    GUICtrlSetData($Edit2,"")
    #ce
    EndSwitch
   Else
    GUICtrlSetData($Label2,"不要发空消息!")
   EndIf
EndFunc

Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "ja");翻译
    Local Const $FileName = "Translation.jsn"
    Local Const $Pattern = '"translatedText":"([^"]+)"'
    Local $GoogleURL = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=%s&langpair=%s%%7C%s"
    Local $File

    $GoogleURL = StringFormat($GoogleURL, $sText, $sFrom, $sTo)

    If Not InetGet($GoogleURL, $FileName, 1) Then Return SetError(1, 0, 0)

    $File = FileOpen($FileName, 4)
    FileGetSize($FileName)
    $Translation = FileRead($File, FileGetSize($FileName))
    FileClose($File)
    FileDelete($FileName)

    $Translation = BinaryToString($Translation, 4)

    If StringRegExp($Translation , $Pattern) Then
        $Translation = StringRegExp($Translation , $Pattern, 1)
        $Translation = $Translation[0]

        Return $Translation
    EndIf
EndFunc

Func PTF()
;MsgBox(0,"",GUICtrlGetState($Button5))
If GUICtrlGetState($Button5)=80 Then
GUISwitch($Form1)
fanyi(0,$myl,$youl)
EndIf
EndFunc
Func QF()
If GUICtrlGetState($Button1)=80 Then
GUISwitch($Form1)
fanyi(1,$myl,$youl)
EndIf
EndFunc

Func OK()
$shifoulangdu=0
Switch GUICtrlRead($Combo1)
  Case "Albanian"
   $myl="sq"
  Case "Arabic"
   $myl="AR"
   Case "Estonian"
   $myl="et"
   Case "Bulgarian"
   $myl="bg"
   Case "Polish"
   $myl="pl"
   Case "Korean"
   $myl="ko"
   Case "Danish"
   $myl="da"
   Case "German"
   $myl="de"
   Case "Russian"
   $myl="ru"
   Case "French"
   $myl="fr"
   Case "Tagalog"
   $myl="tl"
   Case "Finnish"
   $myl="fi"
   Case "Gaelic(Ireland)"
   $myl="gl"
   Case "Dutch"
   $myl="nl"
   Case "Czech"
   $myl="cs"
   Case "Catalan(Spain)"
   $myl="ca"
   Case "Croatian"
   $myl="hr"
   Case "Latvian"
   $myl="lv"
   Case "Lithuanian"
   $myl="lt"
   Case "Romanian"
   $myl="ro"
   Case "Maltese"
   $myl="mt"
   Case "Norwegian"
   $myl="no"
   Case "Portuguese"
   $myl="pt"
   Case "Japanese"
   $myl="ja"
   $shifoulangdu=1
   Case "Swedish"
   $myl="sv"
   Case "Serbian"
   $myl="sr"
   Case "Slovenian"
   $myl="sl"
   Case "Slovak"
   $myl="sk"
   Case "Thai"
   $myl="th"
   Case "Turkish"
   $myl="tr"
   Case "Ukrainian"
   $myl="uk"
   Case "Spanish"
   $myl="es"
   Case "Hebrew"
   $myl="iw"
   Case "Greek"
   $myl="el"
   Case "Hungarian"
   $myl="hu"
   Case "Italian"
   $myl="it"
   Case "Hindi"
   $myl="hi"
   Case "Indonesian"
   $myl="id"
   Case "English"
   $myl="en"
   $shifoulangdu=1
   Case "Vietnamese"
   $myl="vi"
   Case "Chinese(Simplified)"
   $myl="zh-CN"
   $shifoulangdu=1
   Case "Chinese(Traditional)"
   $myl="zh-TW"
EndSwitch
Switch GUICtrlRead($Combo2)
  Case "Albanian"
   $youl="sq"
  Case "Arabic"
   $youl="AR"
   Case "Estonian"
   $youl="et"
   Case "Bulgarian"
   $youl="bg"
   Case "Polish"
   $youl="pl"
   Case "Korean"
   $youl="ko"
   Case "Danish"
   $youl="da"
   Case "German"
   $youl="de"
   Case "Russian"
   $youl="ru"
   Case "French"
   $youl="fr"
   Case "Tagalog"
   $youl="tl"
   Case "Finnish"
   $youl="fi"
   Case "Gaelic(Ireland)"
   $youl="gl"
   Case "Dutch"
   $youl="nl"
   Case "Czech"
   $youl="cs"
   Case "Catalan(Spain)"
   $youl="ca"
   Case "Croatian"
   $youl="hr"
   Case "Latvian"
   $youl="lv"
   Case "Lithuanian"
   $youl="lt"
   Case "Romanian"
   $youl="ro"
   Case "Maltese"
   $youl="mt"
   Case "Norwegian"
   $youl="no"
   Case "Portuguese"
   $youl="pt"
   Case "Japanese"
   $youl="ja"
   Case "Swedish"
   $youl="sv"
   Case "Serbian"
   $youl="sr"
   Case "Slovenian"
   $youl="sl"
   Case "Slovak"
   $youl="sk"
   Case "Thai"
   $youl="th"
   Case "Turkish"
   $youl="tr"
   Case "Ukrainian"
   $youl="uk"
   Case "Spanish"
   $youl="es"
   Case "Hebrew"
   $youl="iw"
   Case "Greek"
   $youl="el"
   Case "Hungarian"
   $youl="hu"
   Case "Italian"
   $youl="it"
   Case "Hindi"
   $youl="hi"
   Case "Indonesian"
   $youl="id"
   Case "English"
   $youl="en"
   Case "Vietnamese"
   $youl="vi"
   Case "Chinese(Simplified)"
   $youl="zh-CN"
   Case "Chinese(Traditional)"
   $youl="zh-TW"
   EndSwitch
  EndFunc

  Func yinyue()
   $f1zb=WinGetPos($frtitle)

   If $f1zb[0]<0 Then
    $f1zb[0]=@DesktopWidth/2-300/2
    $f1zb[1]=@DesktopHeight/2-380/2-50
  EndIf
   Switch $F5zt
   Case 0
   If $Form9<>"" Then
   GUIDelete($Form9);删除FORM9
     $shipinkaiguan=0
   EndIf
    $Form5 = GUICreate("音乐欣赏", 300,380,$f1zb[0]-330,$f1zb[1]+10)
            WinSetOnTop ( "音乐欣赏", "", 1)
   $os = ObjCreate("Shell.Explorer.2")
          GUISetState(@SW_MINIMIZE)
           GUISetState(@SW_SHOW)
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_RESTORE)
    $GUIActiveX= GUICtrlCreateObj($os, 0,0 ,300,500)
    ;http://www.qianqian.com/player/index.php
    ;$os.navigate("http://music.sina.com.cn/iframe/yueku/msnshell/msnshellplayer.shtml")
    $os.navigate("http://music.sina.com.cn/iframe/yueku/msnshell/msnshellplayer.shtml")
    GUISetOnEvent($GUI_EVENT_CLOSE, "MenuEvents")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "MenuEvents")
   $F5zt=1
  Case 1
   GUISetState(@SW_HIDE, $Form5)
   $F5zt=2
  Case 2
    GUISetState(@SW_SHOW, $Form5)
   GUISetState(@SW_RESTORE, $Form5)
   $F5zt=1
   EndSwitch
   EndFunc

Func chakan()
;  $f1zb=WinGetPos($frtitle)
     ;_TrayTip($nTrayIcon1, $f1zb[0]&" "&$f1zb[1],6, 1)
;  If $f1zb[0]>=0 Then
;   WinMove("音乐欣赏","",$f1zb[0]-330,$f1zb[1]+10)
;  EndIf

  If IniRead ( $inipath2, "配置信息", "可用", "" )=1 Then
   imgpic()
   IniWrite ( $inipath2, "配置信息", "可用",0)
  EndIf
  If IniRead ( $inipath2, "配置信息", "发送", "" )=1 Then
   GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&"文件："&StringMid($wjname,StringInStr($wjname,"/",0,-1)+1)&"发送完毕",3)
   IniWrite ( $inipath2, "配置信息", "发送",0)
  EndIf
  If IniRead ( $inipath2, "配置信息", "接收", "" )=1 Then
   GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&"文件："&StringMid(IniRead ( $inipath2, "配置信息", "ReceiveName", "" ),1,StringInStr(IniRead ( $inipath2, "配置信息", "ReceiveName", "" ),"大小:")-1)&"接收完毕"&@CRLF&"文件保存在:"&@ScriptDir&"/download 文件夹中",3)
   IniWrite ( $inipath2, "配置信息", "接收",0)
  EndIf

;   If ProcessExists ( "AudioPlay.exe" ) <>0 Then
;    GUIDelete($Form5)
;     $xlo2=0
;   EndIf
wolaile()
  EndFunc

  Func shangchuanziyuan()
   $Form7 = GUICreate("资源列表", 387, 376, @DesktopWidth/2-387/2, @DesktopHeight/2-376/2-50)
   GUISetIcon(@ScriptDir&"/data/ICON/InDesign.ico")
   ;WinSetOnTop ( "资源列表", "", 1)
$ListView1 = GUICtrlCreateListView("资源名称|所有者|创建时间|大小", 4, 5, 378, 310)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 80)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 70)
$zysx = GUICtrlCreateButton("刷新", 8, 328, 43, 41, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, "data/ICON/1.ico", 0)
GUICtrlSetOnEvent(-1, "zysxClick")
GUICtrlSetTip(-1,"刷新资源列表")
$zysc = GUICtrlCreateButton("上传", 72, 329, 43, 41, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, "data/ICON/3.ico", 0)
GUICtrlSetOnEvent(-1, "zyscClick")
GUICtrlSetTip(-1,"上传资源")
$zyxz = GUICtrlCreateButton("下载", 136, 329, 43, 41, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, "data/ICON/2.ico", 0)
GUICtrlSetOnEvent(-1, "zyxzClick")
GUICtrlSetTip(-1,"下载资源")
$zyshanchu = GUICtrlCreateButton("删除", 200, 329, 43, 41, BitOR($BS_ICON,$WS_GROUP))
GUICtrlSetImage(-1, "data/ICON/4.ico", 0)
GUICtrlSetOnEvent(-1, "zyshanchuClick")
GUICtrlSetTip(-1,"删除资源")
GUISetOnEvent($GUI_EVENT_CLOSE, "MenuEvents")
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_SHOW)
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_RESTORE)
;_GUICtrlListView_SetImageList($ListView1, $ImageList1, 1)
#EndRegion ### END Koda GUI section ###
refthzy();更新资源
EndFunc

Func zyscClick();上传资源
Local $zyname
$zyname=FileOpenDialog ( "请选择要上传的文件", "我的电脑","上传资源(*.*)",1+4,"")
If $zyname<>"" And FileGetSize ( $zyname)<10000000 Then
_TrayTip($nTrayIcon1, "信息：","正在上传文件，请稍候...", 15, 1)
shangchanziyuan($zyname)
_TrayTip($nTrayIcon1, "信息：","文件上传完毕,请刷新列表更新信息！", 6, 1)
EndIf
If FileGetSize ( $zyname)>=10000000 Then _TrayTip($nTrayIcon1, "信息：","上传文件超过10M，请求被拒绝！", 6, 1)
EndFunc

Func zyshanchuClick();删除资源
_TrayTip($nTrayIcon1, "信息：","正在删除"&_GUICtrlListView_GetItemText($ListView1,_GUICtrlListView_GetSelectionMark($ListView1))&"，请稍候...", 6, 1)
_pop3Connect ("pop3.sina.com.cn", "35888894wl", "3295106",110)
;$start=_Pop3Stat()
;MsgBox(0,"",_GUICtrlListView_GetSelectionMark($ListView1)+1)
;MsgBox(0,"",)
_Pop3Dele(_GUICtrlListView_GetSelectionMark($ListView1)+1)
; _pop3Disconnect()
_Pop3Quit()
zysxClick()
_TrayTip($nTrayIcon1, "信息：","删除完毕！", 6, 1)
EndFunc

Func zysxClick();刷新资源
ziyuanqingkong()
refthzy()
EndFunc
Func zyxzClick();下载资源
$var = FileSaveDialog( "保存文件到","我的电脑", "保存文件(*.*)",1+4,_GUICtrlListView_GetItemText($ListView1,_GUICtrlListView_GetSelectionMark($ListView1)))
If @error Then

Else
  If FileExists($var)=1 Then
   #Region --- CodeWizard generated code Start ---
;MsgBox features: Title=Yes, Text=Yes, Buttons=OK and Cancel, Default Button=Second, Icon=Question
If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
$iMsgBoxAnswer = MsgBox(289,"系统信息：","已经存在，确定要覆盖吗？")
Select
Case $iMsgBoxAnswer = 1 ;OK
  xiazaifujian(_GUICtrlListView_GetSelectionMark($ListView1)+1)
Case $iMsgBoxAnswer = 2 ;Cancel

EndSelect
#EndRegion --- CodeWizard generated code End ---
Else
xiazaifujian(_GUICtrlListView_GetSelectionMark($ListView1)+1)

EndIf
EndIf

EndFunc

Func shangchanziyuan($v);上传资源
; FileCopy($v,@ScriptDir&"1.txt",1+8)

$s_SmtpServer9 = "smtp.sina.com.cn" ; smtp服务器 address for the smtp-server to use - REQUIRED
$s_FromName9 = "wind" ; 邮件发送人 name from who the email was sent
$s_FromAddress9 = "35888894wl@sina.com" ; 邮件发送者地址address from where the mail should come
$s_ToAddress9 = "35888894wl@sina.com" ; 邮件发送给谁 destination address of the email - REQUIRED
$s_Subject9 = "" ;邮件标题 subject from the email - can be anything you want it to be
$as_Body9 = 'nomessage'
$s_AttachFiles9 = $v; 附件地址 the file you want to attach- leave blank if not needed
$s_CcAddress9 = "" ; address for cc - leave blank if not needed
$s_BccAddress9 = "" ; address for bcc - leave blank if not needed
$s_Username9 = "35888894wl" ; 用户名 username for the account used from where the mail gets sent - REQUIRED
$s_Password9 = "3295106" ; 密码password for the account used from where the mail gets sent - REQUIRED
;标题
$s_Subject9=StringMid(StringToBinary(StringMid($v,StringInStr($v,"/",0,-1)+1)&"`~^"&GUICtrlRead($Input1)&"&)@"&@YEAR&"-"&@MON&"-"&@MDAY&")(#"&FileGetSize($v),3),3);邮件标题 subject from the email - can be anything you want it to be
  _INetSmtpMailCom($s_SmtpServer9, $s_FromName9, $s_FromAddress9, $s_ToAddress9, $s_Subject9, $as_Body9, $s_AttachFiles9, $s_CcAddress9, $s_BccAddress9, $s_Username9, $s_Password9, $IPPort, $ssl)
EndFunc

Func refthzy();更新资源
GUICtrlSetState($zysx,$GUI_DISABLE)
_TrayTip($nTrayIcon1, "信息：","正在更新资源，请稍候...", 6, 1)
;ziyuanqingkong();资源清空
_pop3Disconnect()
_pop3Connect ("pop3.sina.com.cn", "35888894wl", "3295106",110)
$start=_Pop3Stat()
$geshu=$start[1]
For $i= 1 To $start[1]
$muti= _Pop3Top($i, 1)
$bt3="0x"&StringMid($muti,StringInStr($muti,"Subject:")+9,StringInStr($muti,"Date:")-StringInStr($muti,"Subject:")-11)
$bt4=BinaryToString($bt3,3)
Local $bodyname,$ziyuanname,$riqi,$daxiao,$tbf,$tb
$ziyuanname=StringMid($bt4,1,StringInStr($bt4,"`~^")-1)
$bodyname=StringMid($bt4,StringInStr($bt4,"`~^")+3,StringInStr($bt4,"&)@")-StringInStr($bt4,"`~^")-3)
$riqi=StringMid($bt4,StringInStr($bt4,"&)@")+3,10)
$daxiao=StringMid($bt4,StringInStr($bt4,")(#")+3)
$daxiao=pddx($daxiao)
$lvitem[$i-1]= GUICtrlCreateListViewItem($ziyuanname&"|"&$bodyname&"|"&$riqi&"|"&$daxiao, $ListView1)
GUICtrlSetOnEvent(-1, "ListView1cilck")
#cs
$tbf=RegRead ( "HKEY_CLASSES_ROOT/"&StringMid($ziyuanname,StringInStr($ziyuanname,".",0,-1)), "" )
$tb=RegRead ( "HKEY_CLASSES_ROOT/"&$tbf&"/DefaultIcon", "" )
If StringInStr($tb,"shell32.dll")>0 Then
GUICtrlSetImage(-1,"shell32.dll",StringMid($tb,StringInStr($tb,",",0,-1)+1))
Else
$tb=StringRegExpReplace ($tb, '"', "")
GUICtrlSetImage(-1,StringMid($tb,1,StringInStr($tb,",",0,-1)-1),StringMid($tb,StringInStr($tb,",",0,-1)+1)-1,0)
EndIf
MsgBox(0,$tbf,StringMid($tb,1,StringInStr($tb,",",0,-1)-1)&"    "&StringMid($tb,StringInStr($tb,",",0,-1)+1))
#ce
GUICtrlSetImage (-1,ziyuangeshi(StringMid($ziyuanname,StringInStr($ziyuanname,".",0,-1))))
;MsgBox(0,StringMid($ziyuanname,StringInStr($ziyuanname,".")),ziyuangeshi(StringMid($ziyuanname,StringInStr($ziyuanname,"."))))
$xlo+=1
Next

#cs
For $i=0 To $start[1]-1
MsgBox(0,"",$neirong[$i])
Next
#ce
; jianchanm();看看选择没
GUICtrlSetState($zysx,$GUI_ENABLE)
_TrayTip($nTrayIcon1, "信息：","更新完毕!", 6, 1)
_pop3Disconnect()
EndFunc

Func pddx($v)
Select
  Case StringLen($v)<4
   Return $v&" Byte"
  Case StringLen($v)>=4 And StringLen($v)<7
   Return Round($v/1024,1)&" KB"
  Case StringLen($v)>=7
   Return Round($v/(1024*1024),1)&" MB"
  EndSelect
EndFunc

Func ziyuanqingkong();资源清空
For $i=0 To $xlo
GUICtrlDelete($lvitem[$xlo-$i])
$lvitem[$xlo-$i]=""
Next
$xlo=0
EndFunc

Func ziyuangeshi($v);资源格式
  Switch $v
   Case ".rar"
    Return "data/ICON/rar.bmp"
   Case ".torrent"
    Return "data/ICON/torrent.ico"
   Case ".zip"
    Return "data/ICON/winzip.ico"
   Case ".wav"
    Return "data/ICON/k-notify.ico"
   Case ".mp3"
    Return "data/ICON/k-notify.ico"
   Case ".wma"
    Return "data/ICON/k-notify.ico"
   Case ".avi"
    Return "data/ICON/WMP.ico"
   Case ".rmvb"
    Return "data/ICON/WMP.ico"
   Case ".rm"
    Return "data/ICON/WMP.ico"
   Case ".mpeg"
    Return "data/ICON/WMP.ico"
   Case ".mp4"
    Return "data/ICON/WMP.ico"
   Case ".flash"
    Return "data/ICON/flashplayer.ico"
   Case "flv"
    Return "data/ICON/flashplayer.ico"
   Case ".exe"
    Return "data/ICON/window-new.ico"
   Case ".au3"
    Return "data/ICON/filetype1.ico"
   Case ".bmp"
    Return "data/ICON/bmp.ico"
   Case ".gif"
    Return "data/ICON/gif.ico"
   Case ".jpg"
    Return "data/ICON/jpeg.ico"
   Case ".jpeg"
    Return "data/ICON/jpeg.ico"
   Case Else
               Return "data/ICON/filetype-blank.ico"
  EndSwitch

EndFunc

Func xiazaifujian($v);下载附件
  Local $arydyb,$kaishi=0
   GUICtrlSetState($zysx,$GUI_DISABLE)
_TrayTip($nTrayIcon1, "信息：","正在下载资源，请稍候...", 6, 1)
_pop3Disconnect()
_pop3Connect ("pop3.sina.com.cn", "35888894wl", "3295106",110)
$start=_Pop3Stat()
$dlc=_Pop3Retr($v)
_TrayTip($nTrayIcon1, "信息：","下载完毕，进行文件处理！", 6, 1)
;MsgBox(0,"","")
$cop=FileOpen(@ScriptDir&"/data2/1.ctm",2+8)
FileWrite ( $cop, $dlc)
FileClose($cop)
_FileReadToArray(@ScriptDir&"/data2/1.ctm",$arydyb)
$cop2=FileOpen(@ScriptDir&"/data2/2.ctm",2+8)
For $i=1 To $arydyb[0]-5
If StringInStr($arydyb[$i],"filename=")>0 Then
  $kaishi=1
  $i+=2
EndIf
If $kaishi=1 Then
  FileWriteLine($cop2,$arydyb[$i])
  EndIf
Next
FileClose($cop2)
$cop2=FileOpen ( @ScriptDir&"/data2/2.ctm",0)
$sc=FileRead($cop2)
$Decrypt = _Base64Decode($sc)
FileClose($cop2)
$fl2=FileOpen($var,2+8)
FileWrite($fl2,$Decrypt)
FileClose($fl2)
_pop3Disconnect()
GUICtrlSetState($zysx,$GUI_ENABLE)
  _TrayTip($nTrayIcon1, "信息：","处理完毕!", 6, 1)
EndFunc

Func ListView1cilck();发出声音
_SoundPlay($sound5)
EndFunc

Func SP_ErroHandler()
    If @error Then SetError(2,0,0)
EndFunc ; ==> ODBCJET_ErroHandler()

Func helplg()
$Form11 = GUICreate("软件帮助", 465, 416,@DesktopWidth/2-465/2, @DesktopHeight/2-416/2-50)
GUISetIcon(@ScriptDir&"/data/ICON/InDesign.ico")
;DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form11, "int", 500, "long", 0x00040010)
$bPic1 = GUICtrlCreatePic(@ScriptDir&"/data/logo.bmp", 24, 24, 297, 105, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$bGroupBox1 = GUICtrlCreateGroup("", 8, 8, 449, 369)
;$Image1 = GUICtrlCreatePic("F:/AU3学习/邮箱中转服务/data2/logo2.jpg", 16, 16, 297, 113, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$bLabel1 = GUICtrlCreateLabel("名称: 跨语言聊天", 336, 32, 112, 17, $WS_GROUP)
$bLabel2 = GUICtrlCreateLabel("版本: V1.5", 336, 56, 97, 17, $WS_GROUP)
$bLabel4 = GUICtrlCreateLabel("备注: 聊天软件", 336, 104, 98, 17, $WS_GROUP)
$bLabel3 = GUICtrlCreateLabel("版权: 梁伟", 336, 80, 98, 17, $WS_GROUP)
$bGroup1 = GUICtrlCreateGroup("", 16, 136, 433, 233)
$bLabel5 = GUICtrlCreateLabel("说明:本软件无须架设服务器就可进行远程连接,采用UDP协议进行聊天和数据传", 24, 152, 417, 17)
$bLabel6 = GUICtrlCreateLabel("送,以及对信息进行语音合成,本软件最大的特点就是跨语言聊天,可以让两个完", 24, 176, 417, 17)
$bLabel7 = GUICtrlCreateLabel("全不懂彼此语言的人进行正常的交谈,本软件采用无需架设服务器验证技术.", 24, 200, 419, 17)
$bLabel8 = GUICtrlCreateLabel("操作:不需要类似于QQ号码的东西,直接起个名字先上传,然后刷新,就可以在左", 24, 224, 412, 17)
$bLabel9 = GUICtrlCreateLabel("面的成员列表中找到自己的名字,然后就可以和其他人聊天了,支持局域网聊天", 24, 248, 419, 17)
$bLabel10 = GUICtrlCreateLabel("可以发送“抖动”发送图片甚至发送文件,可以进行单人聊天和多人聊天,可对", 24, 272, 413, 17)
$bLabel11 = GUICtrlCreateLabel("聊天列表所有人发送消息.鼠标右键点右下脚的托盘图表可进行参数设置,如语", 24, 296, 414, 17)
$bLabel12 = GUICtrlCreateLabel("音的发音设置等等,比较简单.本软件绝对是新概念的聊天软件!", 24, 320, 400, 17)
$bLabel13 = GUICtrlCreateLabel("                               联系电话:15116067660    QQ:181214403", 24, 344, 414, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bButton1 = GUICtrlCreateButton("关闭(&Q)", 176, 384, 107, 25)
GUICtrlSetOnEvent($bButton1, "zButton1click")
GUISetOnEvent($GUI_EVENT_CLOSE, "MenuEvents")
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_SHOW)
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_RESTORE)
#EndRegion ### END Koda GUI section ###

;WinSetOnTop ( "软件帮助", "", 1 )
EndFunc

Func zButton1click()
GUIDelete($Form11)
EndFunc

Func MyIEErrFunc()
    $HexNumber = Hex($oIEErrorHandler.number, 8)
    SetError(2) ; something to check for when this function returns
EndFunc   ;==>MyErrFunc

Func jietu();截图
Local $jqbq,$jqbh,$pngSrc,$hImage,$width=-1,$height=-1
    $jqbq=_ClipBoard_GetData($CF_BITMAP)
    RunWait("rundll32.exe CameraDll.dll,CameraSubArea",'',@SW_HIDE)
    $jqbh=_ClipBoard_GetData($CF_BITMAP);_ClipBoard_GetDataEx($CF_BITMAP)
   If $jqbq<>$jqbh Then
   $lfg=FileOpen(@ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "发送文件名称", "" ),2+8)
   FileClose($lfg)
   _ScreenCapture_SaveImage(@ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "发送文件名称", "" ),$jqbh)
   Sleep(200)
    $pngSrc=@ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "发送文件名称", "" )
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($pngSrc)
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height=_GDIPlus_ImageGetHeight($hImage)
     _GDIPlus_ImageDispose ($hImage)
    _GDIPlus_Shutdown()
    If $width>273-20 Then $width=273-20
    If $height>145-4 Then $height=145-4

  ; FileDelete( @ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "发送文件名称", "" ))
   ;_ImageResize(@ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "处理名称", "" ), @ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "发送文件名称", "" ), $width, $height)
    ; MsgBox(0,$width,$height)
   ;GUICtrlCreatePic ( 文件名, 左侧, 顶部 [, 宽度 [, 高度 [, 样式 [, 扩展样式]]]] )
     ;GUICtrlSetState($Edit1,$GUI_HIDE)
     Local $jiamipic,$dqtp,$filetp
     $filetp=FileOpen(@ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "发送文件名称", "" ),0)
     $dqtp=FileRead($filetp)
     FileClose($filetp)
  ; $jiamipic=_Base64Encode($dqtp)
;   MsgBox(0,"",$jiamipic)
   fasong("[~P!I@C#]",1);通知对方要发送图片了
    ; fasongpic("[~P!I@C#]"&$jiamipic);发送图片
     GUISwitch($Form1)
   GUICtrlDelete($bopopop)
   $bopopop=GUICtrlCreatePic (@ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "发送文件名称", "" ),142,103,$width,$height)
   GUICtrlSetState($bopopop,$GUI_show)
   EndIf
  EndFunc

  Func huanyuantupianxinxi($v);还原图片信息
   Local $fl3,$Decrypt1
   $pngSrc=@ScriptDir&"/data2/cul.jpg"
   $Decrypt1 = _Base64Decode($v)
   $fl3=FileOpen($pngSrc,2+8)
    FileWrite($fl3,$Decrypt1)
    FileClose($fl3)
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($pngSrc)
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height=_GDIPlus_ImageGetHeight($hImage)
     _GDIPlus_ImageDispose ($hImage)
    ;_WinAPI_DeleteObject ($hBitmap)
    _GDIPlus_Shutdown()
    If $width>273-20 Then $width=273-20
    If $height>145-4 Then $height=145-4
    GUISwitch($Form1)
    GUICtrlDelete($bopopop)
    Sleep(500)
    $bopopop=GUICtrlCreatePic ($pngSrc,142,103,$width,$height)
    GUICtrlSetState($bopopop,$GUI_show)

   EndFunc



  Func fasongpic($sen);发送图片信息
        Local $counter=_GUICtrlListBox_GetSelCount($List1);看看选中了哪个
    Switch $counter
     Case 0
        GUICtrlSetData($Label2,"请选择聊天对象!")
     Case 1
    If $socket1<>"" And $jhm<>StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1) Then
       UDPSend($socket1, StringToBinary($jhm&"`~#"&$sen,3))
    If $diyiju=0 Then
    GUICtrlSetData($Edit1,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"[发送图片]",3)
    $diyiju=1
     Else
    GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"[发送图片]",3)
                     EndIf
             FileWriteLine($file2,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"[发送图片]")
    _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET )
     GUICtrlSetData($Edit2,"")
    Else
     If $jhm=StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1) Then
     GUICtrlSetData($Label2,"不要和自己聊天...")
    Else
      GUICtrlSetData($Label2,"对方不在线!")
     EndIf
    EndIf
   Case Else;选项>1
    GUICtrlSetData($Label2,"您目前正在和"&$counter&"个人聊天")
    Local $number=0
   If $diyiju=0 Then
    GUICtrlSetData($Edit1,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"[发送图片]",3)
    $diyiju=1
     Else
    GUICtrlSetData($Edit1,@CRLF&@CRLF&@CRLF&GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"[发送图片]",3)
   EndIf
    FileWriteLine($file2,GUICtrlRead($Input1)&" "&@HOUR&":"&@MIN&":"&@SEC&@CRLF&"[发送图片]")
   _GUICtrlEdit_Scroll($Edit1, $SB_SCROLLCARET)
   For $i=0 To $geshu-1
   If _GUICtrlListBox_GetSel($List1, $i)=True Then
      $socket3 = UDPOpen(StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1), $duankou)
      If $socket3<>"" And $jhm<>StringMid($neirong[$i],1,StringInStr($neirong[$i],"`")-1) Then
      UDPSend($socket3, StringToBinary($jhm&"`~#"&$sen,3))

       EndIf
     UDPCloseSocket ($socket3)
      $number+=1
      If $number=$counter Then ExitLoop
    EndIf
             ; EndIf
   Next
EndSwitch
   ; TCPshutdown()
EndFunc

Func imgpic()
    $pngSrc=@ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "接收文件名称", "" )
    _GDIPlus_Startup()
    $hImage = _GDIPlus_ImageLoadFromFile($pngSrc)
    $width = _GDIPlus_ImageGetWidth($hImage)
    $height=_GDIPlus_ImageGetHeight($hImage)
     _GDIPlus_ImageDispose ($hImage)
    _GDIPlus_Shutdown()
    If $width>273-20 Then $width=273-20
    If $height>145-4 Then $height=145-4
    GUISwitch($Form1)
    GUICtrlDelete($bopopop)
    $bopopop=GUICtrlCreatePic (@ScriptDir&"/data/system/IMAGE/"&IniRead ( $inipath2, "配置信息", "接收文件名称", "" ),142,103,$width,$height)
    GUICtrlSetState($bopopop,$GUI_show)
   EndFunc

Func _EmptyMyScriptMem($PID);整理占用进程的内存

Local $ai_Handle = DllCall("kernel32.dll", 'int', 'OpenProcess', 'int', 0x1f0fff, 'int', False, 'int', $PID)

Local $ai_Return = DllCall("psapi.dll", 'int', 'EmptyWorkingSet', 'long', $ai_Handle[0])

DllCall("kernel32.dll" , 'int', 'CloseHandle', 'int', $ai_Handle[0])

EndFunc

Func drag();拖拽动作
;MsgBox(0,"",@GUI_DragFile)
If @GUI_DragFile<>"" Then
    Local $aArray
  MsgBox(0,"",@GUI_DragFile)
  EndIf
EndFunc

Func fasongwenjian();发送文件
Local $rname
$wjname=FileOpenDialog ( "请选择要给对方发送的文件", "我的电脑","发送资源(*.*)",1+4,"")
      If $wjname<>"" Then;pddx($v)
      $rname=StringMid($wjname,StringInStr($wjname,"/",0,-1)+1)
      fasong("[~W!I@J#]"&$rname&"大小:"&pddx(FileGetSize ( $wjname)),1);通知对方要发送文件了
      IniWrite ( $inipath2, "配置信息", "SendName",$wjname);将文件路径写入INI
      EndIf
EndFunc

Func fasongdoudong();发送抖动
Local $f1ck
$f1ck=WinGetPos($frtitle)
WinSetState ( "$frtitle", "", @SW_RESTORE)
WinSetOnTop($frtitle,"",1)
For $i=0 To 3
WinMove($frtitle,"",$f1ck[0]-5,$f1ck[1])
Sleep(50)
WinMove($frtitle,"",$f1ck[0],$f1ck[1])
Sleep(50)
WinMove($frtitle,"",$f1ck[0],$f1ck[1]+5)
Sleep(50)
WinMove($frtitle,"",$f1ck[0],$f1ck[1])
Sleep(50)
WinMove($frtitle,"",$f1ck[0]+5,$f1ck[1])
Sleep(50)
WinMove($frtitle,"",$f1ck[0],$f1ck[1])
Sleep(50)
WinMove($frtitle,"",$f1ck[0],$f1ck[1]-5)
Sleep(50)
WinMove($frtitle,"",$f1ck[0],$f1ck[1])
Sleep(50)
Next
WinSetOnTop($frtitle,"",0)
EndFunc

Func ckwllx();检查网络类型
Switch IniRead ( $inipath, "网络信息", "类型", "" )
  Case "广域网"
  ; GUICtrlSetState ( $Button4, $GUI_ENABLE )
   Return(0)
  Case "局域网"
  ; GUICtrlSetState ( $Button4, $GUI_DISABLE )
   Return(1)
  Case Else
EndSwitch
EndFunc

Func guangyuwang();广域网监听.
       _jihuoma()
       $s_Subject = "";邮件标题 subject from the email - can be anything you want it to be
       UDPCloseSocket ( $socket2)
       $socket2 = UDPBind($jhm, $duankou);创建接听
        GUICtrlSetData($Input1,RegRead ( "HKEY_LOCAL_MACHINE/SOFTWARE/Windows", "WIDC"))
        findfr()
       ;----------------------------------------------------------------------------------看看列表中有无自己的IP
        jianchanm();检查自己的名字是否在列表中
      ; MsgBox(0,"","" )
         $wolailea=1
EndFunc

Func juywangjianting();局域网监听
   $jhm=@IPAddress1
   GUICtrlSetData($Label3,"IP:"&$jhm)
   IniWrite ( $inipath2, "配置信息", "自身地址",$jhm);写入2号INI本机IP地址
   UDPCloseSocket ( $socket2)
   $socket2 = UDPBind($jhm, $duankou);创建接听
    findfr2();更新局域网信息
    jianchanm();检查自己的名字是否在列表中
   $wolailea=1
    GUICtrlSetState ( $Button4, $GUI_DISABLE )
    GUICtrlSetState ( $Button3, $GUI_DISABLE )
    GUICtrlSetState ( $Button6, $GUI_DISABLE )
EndFunc

Func findfr2();更新局域网信息
Local $fangjianmingcheng2="局域网大厅"
GUICtrlSetState ($Button5, $GUI_DISABLE )
GUICtrlSetState ($Button1, $GUI_DISABLE )
Local $rs=0
clea()
GUICtrlSetData($Group1,$fangjianmingcheng2&" "&$rs&"人"&" ")
$start = IniReadSectionNames($inipath3);枚举局域网人物名字
If @error Then
;错了就错了
;Else
; For $i = 1 To $var[0]
; MsgBox(4096, "", $var[$i])
; Next
EndIf

$geshu=$start[0]
For $i= 1 To $start[0]
$bt2=IniRead ( $inipath3, $start[$i], "IP", "" )&"`"& $start[$i];将局域网人物信息转化成和广域网信息同样的格式，即IP’名字
$neirong[$i-1]=$bt2
If @IPAddress1=IniRead ( $inipath3, $start[$i], "IP", "" ) Then GUICtrlSetData($Input1,$start[$i]);设置自己在局域网中的名字
;MsgBox(0,$bt2,StringMid($neirong[$i-1],StringInStr($neirong[$i-1],"`")+1))
$neirong2[$i-1]=GUICtrlCreateListViewItem(StringMid($neirong[$i-1],StringInStr($neirong[$i-1],"`")+1),$List1)
GUICtrlSetOnEvent($neirong2[$i-1], "List1cilck")

If $jhm=StringMid($neirong[$i-1],1,StringInStr($neirong[$i-1],"`")-1) Then
GUICtrlSetColor($neirong2[$i-1],0x8080FF)
GUICtrlSetImage($neirong2[$i-1], @ScriptDir&"/data/ICON/Toolbar _ Favorites.ico")
Else
GUICtrlSetColor($neirong2[$i-1],0xADAFB1)
GUICtrlSetImage($neirong2[$i-1], @ScriptDir&"/data/ICON/unknow.ico")
EndIf
$rs+=1
GUICtrlSetData($Group1,$fangjianmingcheng2&" "&$rs&"人"&" ")
Next
#cs
For $j=0 To $start[0]-1
For $i=$j To $start[0]-1
If StringCompare (StringMid($neirong[$j],StringInStr($neirong[$j],"`")+1), StringMid($neirong[$i],StringInStr($neirong[$i],"`")+1))>0 Then _ArraySwap ($neirong[$j], $neirong[$i])
Next
Next
#ce
#cs
For $i=0 To $start[1]-1
MsgBox(0,"",$neirong[$i])
Next
#ce
jianchanm();看看选择没
;
EndFunc

Func List1cilck();点击LISTVIEW动作事件
   If $jhm<>StringMid($neirong[_GUICtrlListView_GetSelectionMark($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark($List1)],"`")-1) Then
    GUICtrlSetColor($neirong2[_GUICtrlListView_GetSelectionMark($List1)],0xADAFB1)
     GUICtrlSetImage($neirong2[_GUICtrlListView_GetSelectionMark($List1)], @ScriptDir&"/data/ICON/unknow.ico")
    EndIf
;
;
;
;  $socket3 = UDPOpen(StringMid($neirong[_GUICtrlListView_GetSelectionMark($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark($List1)],"`")-1), $duankou)
;  If $socket3<>"" And $jhm<>StringMid($neirong[_GUICtrlListView_GetSelectionMark($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark($List1)],"`")-1) Then
;   UDPSend($socket3,StringToBinary($jhm&"`~#"&"[~W!L@L#]",3));"[~W!L@L#]"
;   MsgBox(0,"",StringMid($neirong[_GUICtrlListView_GetSelectionMark($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark($List1)],"`")-1))
;  EndIf
;
;  UDPCloseSocket ($socket3)






          GUICtrlSetData($Label2,"正在检测，请稍侯...")
     _SoundPlay($sound1)
  ;  MsgBox(0,"",StringMid($neirong[_GUICtrlListView_GetSelectionMark ($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark ($List1)],"`")-1))
   If Ping(StringMid($neirong[_GUICtrlListView_GetSelectionMark($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark($List1)],"`")-1),500)>0 And $jhm<>StringMid($neirong[_GUICtrlListView_GetSelectionMark($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark($List1)],"`")-1) Then
    lianjie()
    fasong("[~W!L@L#]",1);你在吗？
    GUICtrlSetData($Label2,"对方网络畅通!")
    $network=1
   Else
    If StringMid($neirong[_GUICtrlListView_GetSelectionMark($List1)],1,StringInStr($neirong[_GUICtrlListView_GetSelectionMark($List1)],"`")-1)=$jhm Then
    GUICtrlSetData($Label2,"不能和自己聊天")
    $socket1=""
    Else
    GUICtrlSetData($Label2,"对方网络阻塞!")
    lianjie()
    fasong("[~W!L@L#]",1)
    EndIf
   EndIf
EndFunc

Func wltbsz();网络图标设置
Switch ckwllx();查看网络类型
  Case 0;广域
  ; GUICtrlSetState ( $Button4, $GUI_ENABLE )
  GUICtrlSetImage($Button10, @ScriptDir&"/data/ICON/InDesign.ico", -1)
  Case 1;局域
; GUICtrlSetState ( $Button4, $GUI_DISABLE )
  GUICtrlSetImage($Button10, @ScriptDir&"/data/ICON/Finder.ico", -1)
  Case Else
EndSwitch

EndFunc

Func juyuwangshezhi();局域网设置
        $Form12 = GUICreate("局域网成员设置", 344, 282, @DesktopWidth/2-344/2, @DesktopHeight/2-221/2-50)
        GUISetIcon(@ScriptDir&"/data/ICON/InDesign.ico")
        $ListView12_1 = GUICtrlCreateListView("成员名称|成员IP", 8, 8, 322, 198)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 150)
        GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 165)
        $Button12_1 = GUICtrlCreateButton("添加", 256, 216, 75, 25, $WS_GROUP)
        $Label12_1 = GUICtrlCreateLabel("成员名称:", 8, 216, 88, 24)
        GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
        $Input12_1 = GUICtrlCreateInput("", 104, 216, 129, 21)
        $Label1 = GUICtrlCreateLabel("成员IP:", 8, 248, 79, 24)
        GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
        $IPAddress1 = _GUICtrlIpAddress_Create($Form12, 104, 248, 130, 21)
        _GUICtrlIpAddress_Set($IPAddress1, "0.0.0.0")
        $Button12_2 = GUICtrlCreateButton("删除", 256, 248, 75, 25, $WS_GROUP)
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_SHOW)
        GUISetState(@SW_MINIMIZE)
        GUISetState(@SW_RESTORE)
        #EndRegion ### END Koda GUI section ###
        GUICtrlSetOnEvent($Button12_1, "Button12_1click")
        GUICtrlSetOnEvent($Button12_2, "Button12_2click")
        GUISetOnEvent($GUI_EVENT_CLOSE, "MenuEvents")
         juywangchengyuanliebiao();局域网成员列表
        EndFunc

Func Button12_1click();添加
  If _GUICtrlIpAddress_Get($IPAddress1)<>"0.0.0.0" And GUICtrlRead($Input12_1)<>"" Then
    GUICtrlCreateListViewItem ( GUICtrlRead($Input12_1)&"|"&_GUICtrlIpAddress_Get($IPAddress1), $ListView12_1)
    GUICtrlSetImage(-1, @ScriptDir&"/data/ICON/1ms.ico")
    IniWriteSection ($inipath3,GUICtrlRead($Input12_1), "" )
    IniWrite ( $inipath3, GUICtrlRead($Input12_1), "IP", _GUICtrlIpAddress_Get($IPAddress1))
   EndIf
EndFunc
Func Button12_2click();删除
  If _GUICtrlListView_GetSelectionMark($ListView12_1)>=0 Then
; _GUICtrlListView_GetItemText($ListView12_1,_GUICtrlListView_GetSelectionMark($ListView12_1),$v)
; MsgBox(0,"", _GUICtrlListView_GetItemText($ListView12_1,_GUICtrlListView_GetSelectionMark($ListView12_1)))
  IniDelete ($inipath3, _GUICtrlListView_GetItemText($ListView12_1,_GUICtrlListView_GetSelectionMark($ListView12_1)))
  _GUICtrlListView_DeleteItem($ListView12_1, _GUICtrlListView_GetSelectionMark($ListView12_1))
  EndIf
EndFunc

Func juywangchengyuanliebiao();局域网成员列表
      $start = IniReadSectionNames($inipath3);枚举局域网人物名字
      If @error Then
      EndIf
      $geshu=$start[0]
      For $i= 1 To $start[0]
      ;$bt2=IniRead ( $inipath3, $start[$i], "IP", "" )&"`"& $start[$i];将局域网人物信息转化成和广域网信息同样的格式，即IP’名字
   ;   If @IPAddress1=IniRead ( $inipath3, $start[$i], "IP", "" ) Then GUICtrlSetData($Input1,$start[$i]);设置自己在局域网中的名字
      ;MsgBox(0,$bt2,StringMid($neirong[$i-1],StringInStr($neirong[$i-1],"`")+1))
      GUICtrlCreateListViewItem ( $start[$i]&"|"&IniRead ( $inipath3, $start[$i], "IP", "" ), $ListView12_1)
      ;GUICtrlSetColor(-1, sfkxck($aRow[7]))
      ;GUISetIcon(@ScriptDir&"/data/ICON/InDesign.ico")
      GUICtrlSetImage(-1, @ScriptDir&"/data/ICON/1ms.ico")
      Next
  EndFunc


Func wolaile();告诉大家我来了,向所有人发送我来了！[~W!L@L#]
If $wolailea=1 And $wolaixunhuan<=$geshu And _GUICtrlListView_GetItemCount($List1)>=0 Then
;qunfa($sen,$mos=0,$LGS=0,$sznr=0,$qfjhm=0);群发.：    内容，模式，个数，内容,自己的IP
   $socket3 = UDPOpen(StringMid($neirong[$wolaixunhuan],1,StringInStr($neirong[$wolaixunhuan],"`")-1), $duankou)
   If $socket3<>"" And $jhm<>StringMid($neirong[$wolaixunhuan],1,StringInStr($neirong[$wolaixunhuan],"`")-1) Then
    UDPSend($socket3,StringToBinary($jhm&"`~#"&"[~W!L@L#]",3))
   EndIf
      ;MsgBox(0,$wolaixunhuan,$socket3)
   If $wolaixunhuan=$geshu Then
   UDPCloseSocket ($socket3)
   $wolailea=0
   $wolaixunhuan=0
  EndIf
  $wolaixunhuan+=1
EndIf
EndFunc

Func wozoule();告诉大家走了,向所有人发送我走了！[~W!Z@L#]
For $wozouxunhuan=0 To _GUICtrlListView_GetItemCount($List1)-1
;qunfa($sen,$mos=0,$LGS=0,$sznr=0,$qfjhm=0);群发.：    内容，模式，个数，内容,自己的IP
   $socket3 = UDPOpen(StringMid($neirong[$wozouxunhuan],1,StringInStr($neirong[$wozouxunhuan],"`")-1), $duankou)
   If $socket3<>"" And $jhm<>StringMid($neirong[$wozouxunhuan],1,StringInStr($neirong[$wozouxunhuan],"`")-1) Then
    UDPSend($socket3,StringToBinary($jhm&"`~#"&"[~W!Z@L#]",3))
   ; MsgBox(0,"",$wozouxunhuan)
   EndIf
    UDPCloseSocket ($socket3)
     ;MsgBox(0,$wolaixunhuan,$socket3)
  Next
EndFunc

Func ruxx();运行信息
$yans=0
$yans2=0
$iHeight=_WinAPI_GetWindowHeight(_WinAPI_FindWindow("Shell_TrayWnd",""))
;RegWrite("HKEY_CURRENT_USER/Software/VB and VBA Program Settings/Office2003/Position","Left","REG_SZ",(@DesktopWidth-329)*15)
;RegWrite("HKEY_CURRENT_USER/Software/VB and VBA Program Settings/Office2003/Position","Top","REG_SZ",(@DesktopHeight-74-$iHeight*1.6)*15)
;$oShell = ObjCreate("DBSoft.POP")
;$oShell.PopMessage(IniRead(@ScriptDir&"/data/chat.ini","网络信息","POP",""),1,50,10000)
$iHeight=_WinAPI_GetWindowHeight(_WinAPI_FindWindow("Shell_TrayWnd",""))
$BIAOTI="POP"&Random(0,1000,1)
$PNG_GUI = CreateTransparentGUI($BIAOTI,@ScriptDir&"/data/msg.bmp",0,255,0,100,@DesktopWidth-329,@DesktopHeight-74-$iHeight*1.6)
WinSetOnTop($BIAOTI,"",1)
;$Edit1 = GUICtrlCreateEdit("111111111111111111111111111111111111111111111111111111111", 45, 10, 230, 57, $ES_WANTRETURN,0)
$Label1 = GUICtrlCreateLabel(IniRead(@ScriptDir&"/data/chat.ini","网络信息","POP",""), 45, 16, 230, 50)

;GUICtrlSetBkColor(-1, 0xDFE0EC)
GUICtrlSetBkColor($Label1, $GUI_BKCOLOR_TRANSPARENT)

$Label2 = GUICtrlCreateLabel("×", 310, 8, 15, 15)
GUICtrlSetFont(-1, 11, 800, 0, "黑体")
GUICtrlSetCursor (-1, 0)
GUICtrlSetBkColor(-1, 0xDFE0EC)

$Label3 = GUICtrlCreateLabel("详情点击", 275,50, 50, 15)
If IniRead(@ScriptDir&"/data/chat.ini","网络信息","LINK","")<>"" Then;查看LINK是否为空
GUICtrlSetColor($Label3, 0x000080)
GUICtrlSetCursor ($Label3, 0)
GUICtrlSetBkColor($Label3, 0xBDBDD3)
Else
GUICtrlSetData($Label3,"")
GUICtrlSetBkColor($Label3, $GUI_BKCOLOR_TRANSPARENT)
EndIf
;GUICtrlSetFont(-1, 12, 800, 0, "幼圆")

;$Label2 = GUICtrlCreateLabel("×", 45, 10, 230, 57)
;GUICtrlSetBkColor($Edit1, $GUI_BKCOLOR_TRANSPARENT)
#EndRegion ### END Koda GUI section ###

AdlibRegister("tuichu",30000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit
  Case $Label2
   Exit
  Case $Label3
    run(@ProgramFilesDir & "/Internet Explorer/IEXPLORE.EXE "&IniRead(@ScriptDir&"/data/chat.ini","网络信息","LINK",""))
    Exit
EndSwitch
If _Mouse_top($PNG_GUI,$Label2)=1 Then
   If $yans= 0 Then GUICtrlSetBkColor($Label2, 0xBDBDD3)
   $yans=1
  Else
   If $yans=1 Then GUICtrlSetBkColor($Label2, 0xDFE0EC)
   $yans=0
  EndIf

  If _Mouse_top($PNG_GUI,$Label3)=1 Then
   If $yans2= 0 Then GUICtrlSetColor($Label3, 0xff0080)
   $yans2=1
  Else
   If $yans2=1 Then GUICtrlSetColor($Label3, 0x000080)
   $yans2=0
  EndIf
WEnd

EndFunc

Func tuichu()
Exit
EndFunc

Func wozoule2();仅供测试使用
_SoundPlay($sound12)
_CoProc ("ruxx")
EndFunc

lw35888894

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
4
评论
我的专利

#NoTrayIcon#Region ;**** 参数创建于 ACNWrapper_GUI ****#AutoIt3Wrapper_icon=data/ICON/InDesign.ico#AutoIt3Wrapper_UseUpx=n#AutoIt3Wrapper_Res_Comment=跨语言免服务器聊天软件#AutoIt3Wrapper_Res_Description=跨语言聊天软件#Auto
复制链接

扫一扫