#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)
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
GUICtrlSetOnEvent($neirong2[$i-1], "List1cilck")
$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 otherlanguage();其他语言
#Region ### START Koda GUI section ### Form=f:/au3学习/邮箱中转服务/form5.kxf
$From4 = GUICreate("Set Language", 258, 95, @DesktopWidth/2-258/2, @DesktopHeight/2-95/2-50)
GUISetIcon(@ScriptDir&"/data/ICON/InDesign.ico")
;WinSetOnTop ( "Set Language", "", 1)
$Combo1 = GUICtrlCreateCombo("My Language", 24, 16, 89, 25)
GUICtrlSetData(-1, "Albanian|Arabic|Estonian|Bulgarian|Polish|Korean|Danish|German|Russian|French|Tagalog|Finnish|Gaelic(Ireland)|Dutch|Catalan(Spain)|Czech|Croatian|Latvian|Lithuanian|Romanian|Maltese|Norwegian|Portuguese|Japanese|Swedish|Serbian|Slovenian|Slovak|Thai|Turkish|Ukrainian|Spanish|Hebrew|Greek|Hungarian|Italian|Hindi|Indonesian|English|Vietnamese|Chinese(Simplified)|Chinese(Traditional)")
$Combo2 = GUICtrlCreateCombo("Other language", 136, 16, 97, 25)
GUICtrlSetData(-1, "Albanian|Arabic|Estonian|Bulgarian|Polish|Korean|Danish|German|Russian|French|Tagalog|Finnish|Gaelic(Ireland)|Dutch|Catalan(Spain)|Czech|Croatian|Latvian|Lithuanian|Romanian|Maltese|Norwegian|Portuguese|Japanese|Swedish|Serbian|Slovenian|Slovak|Thai|Turkish|Ukrainian|Spanish|Hebrew|Greek|Hungarian|Italian|Hindi|Indonesian|English|Vietnamese|Chinese(Simplified)|Chinese(Traditional)")
$OK = GUICtrlCreateButton("OK", 88, 56, 75, 25, 0)
GUICtrlSetOnEvent(-1, "OK")
GUISetState(@SW_MINIMIZE)
GUISetState(@SW_SHOW)
GUISetState(@SW_MINIMIZE)
GUISetState(@SW_RESTORE)
GUISetOnEvent($GUI_EVENT_CLOSE, "MenuEvents")
#EndRegion ### END Koda GUI section ###
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