當前位置：首頁 > 编程资源 > 编程问答 >内容正文

编程问答

我的专利

發布時間：2023/12/18 编程问答 26 豆豆

生活随笔收集整理的這篇文章主要介紹了我的专利小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

#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

總結

以上是生活随笔為你收集整理的我的专利的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。

专利

上一篇： IIS6 配置ASP.NET网站伪静态
下一篇： win10去除桌面快捷方式图标(亲测可用

3atv精品不卡视频,97人人超碰国产精品最新,中文字幕av一区二区三区人妻少妇,久久久精品波多野结衣,日韩一区二区三区精品

编程问答

我的专利

總結