#Region; AutoIt3Wrapperによって作成された****コンパイラディレクティブコンパイラオプションウィンドウ**** ＃AutoIt3Wrapper_Icon = favicon.icoを ＃AutoIt3Wrapper_Compile_Both = Y- #endregion; AutoIt3Wrapperウィンドウコンパイラオプションによって作成された**** ****コンパイラディレクティブ ;＃ AutoIt3Wrapper_UseX64 = N- の#include <Constants.au3>; のためのPing の#include <GUIConstantsEx.au3>; のためのGUI の#include <IE.au3>; のためのブラウザ の#include <Date.au3>; のためのデータ ; ***** *********場合リビジョン番号、**************ながらURLのバージョンを変更するために対応する 、修正されたバージョン番号がEipFunc.au3 の#includeを <SsoFunc.au3 >;私のカスタム関数 、株式会社フリーは$ログファイルに参加 = ' EipRepairLog- '＆@MON＆' - '＆@MDAY＆' .TXT ' FileWriteLine（$ログファイル、@CRLF＆@YEAR＆' - '＆@MON＆' - ' @MDAY && ' '＆@HOUR＆" ："＆@MIN＆" ："＆@SEC）; --------- ログ 、検出ビットOS $ myOsArch = ' [ 'OsArch＆（）＆' 位置] ' ; UI初期化 - バージョンが自動的に更新 $のheadlabel = " 通信テストSSO- "＆versionGet（） FileWriteLine（$ログファイルは、$ headlabelを）; --------- ログ GUICreate（$のheadlabel、400、280 ） ; GUISetBkColor（0xFFFFFFの） GUISetBkColor（0x8ef5b2 ） $ hostsbutton = GUICtrlCreateButton（" hostsファイルを開く"、30、200、100、30 ） $ eipbutton = GUICtrlCreateButton（" オープンSSO URL "、160、200、100、30 ） ; $ OKボタン = GUICtrlCreateButton（" OK "、290、200、70、30 ） ;かどうかを検出するネットワーク $ isInNetStr = isInNetOrNot（） 出力しますIP; $ iplabel = " こんにちは、" @UserName＆＆" ！あなたのIPがある："＆@ IPaddress1が＆" "＆$ isInNetStr＆$ myOsArch FileWriteLine（$ログファイルは、$ iplabel）; --------- ログ GUICtrlCreateLabel（$ iplabel、 30、250 ） GUISetState（@SW_SHOW） ;クラウドデスクトップユーザーは、URLのEIPに対応したIPを切り替えるかどうかを判断し 、クラウドデスクトップかどうかを検出すること; $ isYun = 1。 ; 0 --CloudDesk | 1。 - NotCloud $ isYunStr = isCloudOrNotは（） 無料$参加testIP 場合は$ isYun == 1。次に $ testIP = ' 192.168.2.172のように。' そうで $ testIP = ' 172.30.17.248 ' ENDIF ; ピングのIPと返す $ piplabel = "接続することができるテストをします」＆testIP $ FileWriteLine（ログファイル$、$のpiplabel）; --------- ログ GUICtrlCreateLabel（$のpiplabel、30、20である）、 スリープ（100 ） $ mypiplabel = myping（$ testIP） FileWriteLine（ログファイル$、$のmypiplabel） ; --------- ログ GUICtrlCreateLabel（$ mypiplabel、30、40 ） 睡眠（100 ） ; 192 eip.hxgroup.comかどうかを検出168.2。172 $ tiplabel = " eip.hxgroup.comかを検出開始"＆ $ testIP FileWriteLine（$ログファイルは、$ tiplabel）; --------- 、 ログ GUICtrlCreateLabel（$のtiplabel、30、70 ） 睡眠（100 ） $ netEqualIp = tcpEqualIp（" eip.hxgroup.com "、$ testIPを）;返す1を通常示し 無料会員登録$ myHostFile = @SystemDir ＆" \ drivers \ etcに\ホスト" もし$ netEqualIp == 1。次に $ tcplabel = " eip.hxgroup.comのIPアドレスである[] "＆$ testIP FileWriteLine（ログファイル$、$のtcplabel）; ------ --- ログ GUICtrlCreateLabel（$ tcplabel、30、90） それ以外 の$ tcplabel = " [ない] "＆$＆testIP " が、"＆$ netEqualIp FileWriteLine（ログファイル$、$のtcplabel）; --------- ログ GUICtrlCreateLabel （$ tcplabel、30、90 ） ;書き込みhostsファイル GUICtrlCreateLabel（" hostsファイルの書き込みを開始"、30、120 ） FileWriteLine（$ログファイルを、" hostsファイル書き始めた- "＆$ myHostFileを）; ------ ---ログ ; 64のためにPCは32ビットのパスのために、System32フォルダのパスですSystemWoW64 ; GUICtrlCreateLabel（$ myHostFile、30、250）;テストのためのURL 、hostsファイルは存在するか否かを判断する FILEEXISTS IF（$ myHostFile）次に FileWriteLine（$ログファイル、" ホストが既に存在するファイル"）; --------- ログ GUICtrlCreateLabel（" ホストが既に存在するファイル"、30、140 ） $ inhosts = strInHosts（myHostFile $、$ testIP、' eip.hxgroup.com ' ） sso.hxgroup.com海外のホストに追加するファイル、 $ inhosts1 = strInHostsを（$ myHostFile、"172.16.10.13 ' ' sso.hxgroup.com ' ） FileWriteLine（$ログファイル、inhosts $＆' EIP '）; --------- ログ FileWriteLine（$ログファイル、inhosts1 $＆' SSO "）; - -------- ログ GUICtrlCreateLabel（$ inhosts、30、160 ） エルス FileWriteLine（$ログファイルは、" hostsファイルが存在しない場合、hostsファイルや新たなスタートを書き込み、"）; --------- ログ GUICtrlCreateLabel（「hostsファイルは、存在する新しいファイルを開始し、ホストを書き込みしません」、30、140 ） writeHosts（$ myHostFile） FileWriteLine（$ログファイル、" 完了ホスト・ファイルを書き込む"）; --------- ログ GUICtrlCreateLabel（" 完了ホスト・ファイルの書き込み"、30、160 ） ENDIF ENDIF スリープ（100 ） ; writeHosts（' ホスト' ）;テストライトhostsファイル しばらく。1 $ MSG = GUIGetMsg（） を選択 ケース$ MSG = $ eipbutton $ OIE = _IECreate（"http://sso.hxgroup.com" 0、1、0 ）;開いたページ FileWriteLine（$ログファイル、" オープンEIP- "＆$ OIE）; --------- ログ ; ExitLoop ケース$ MSG = $ hostsbutton $ openhosts =ファイル名を指定して実行（@ ＆WindowsDir " \メモ帳"＆' '＆@SystemDir＆" ドライバを\ \ ETC \ホスト" ） FileWriteLine（$ログファイル、" hostsファイルを開く- "＆$ openhosts）。--------- ログ ケース$ MSG =GUI_EVENT_CLOSEの$ ;ダイアログイベントを閉じ FileWriteLine（$ログファイル、" 終了し閉じる"＆@CRLF）; --------- ログ FileCloseを（$ログファイル） ExitLoop ENDSELECT WEND