You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
2.3 KiB
70 lines
2.3 KiB
6 days ago
|
#include <GUIConstants.au3>
|
||
|
#include <Array.au3>
|
||
|
#include <File.au3>
|
||
|
#NoTrayIcon
|
||
|
|
||
|
Global $hFile, $tFile, $oFile, $Data, $dList, $lList, $cList, $ccList
|
||
|
|
||
|
$Main = GUICreate('Mikrotik ALC', 320, 400, -1, -1)
|
||
|
$sList = GUICtrlCreateEdit('', 8, 30, 304, 325, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_NOHIDESEL + $ES_WANTRETURN)
|
||
|
GUICtrlSetFont(-1, 9, 400, 0, "Tahoma")
|
||
|
GUICtrlCreateLabel('Domian;List;Comment', 86, 8, 150, 17, $SS_CENTER)
|
||
|
GUICtrlSetFont(-1, 9, 700, 0, "Tahoma")
|
||
|
GUICtrlCreateLabel('DNS', 289, 8, 21, 17, $SS_CENTER)
|
||
|
$sDNS = GUICtrlCreateCheckbox('',273, 9, 12, 12)
|
||
|
GUICtrlSetState($sDNS, $GUI_CHECKED)
|
||
|
$sRun = GUICtrlCreateButton("Generate", 8, 360, 304, 33)
|
||
|
GUICtrlSetFont(-1, 9, 700, 0, "Tahoma")
|
||
|
GUISetState(@SW_SHOW)
|
||
|
|
||
|
While 1
|
||
|
Switch GUIGetMsg()
|
||
|
Case $GUI_EVENT_CLOSE
|
||
|
Exit
|
||
|
Case $sRun
|
||
|
$sFile = @ScriptDir & "\_tmp.txt"
|
||
|
$tFile = FileOpen($sFile, 10)
|
||
|
FileWrite($tFile, GUICtrlRead($sList))
|
||
|
FileClose ($tFile)
|
||
|
$hFile = (@ScriptDir & "\rules.txt")
|
||
|
_array_filter_dns()
|
||
|
EndSwitch
|
||
|
WEnd
|
||
|
|
||
|
Func _array_filter_dns()
|
||
|
_FileReadToArray($sFile, $Data, 1, ";")
|
||
|
$oFile = FileOpen($hFile, 10)
|
||
|
If UBound($Data, 2) > 3 Then
|
||
|
MsgBox(48, 'Предупреждение!', 'Указано неверное количество аргументов. Завершаю работу.')
|
||
|
Exit
|
||
|
EndIf
|
||
|
If UBound($Data, 2) < 2 Then
|
||
|
MsgBox(48, 'Предупреждение!', 'Указано неверное количество аргументов. Завершаю работу.')
|
||
|
Exit
|
||
|
EndIf
|
||
|
For $i = 1 To $Data[0][0]
|
||
|
$dList = $Data[$i][0]
|
||
|
$lList = $Data[$i][1]
|
||
|
If UBound($Data, 2) = 3 Then
|
||
|
$cList = " comment=" & $Data[$i][2]
|
||
|
Else
|
||
|
$cList = ""
|
||
|
EndIf
|
||
|
FileWrite($oFile, "/ip firewall address-list add address=" & $dList &" list=" & $lList & $cList & @CRLF)
|
||
|
Next
|
||
|
If GUICtrlRead($sDNS) = $GUI_CHECKED Then
|
||
|
For $i = 1 To $Data[0][0]
|
||
|
$dList = $Data[$i][0]
|
||
|
$lList = $Data[$i][1]
|
||
|
If UBound($Data, 2) = 3 Then
|
||
|
$cList = " comment=" & $Data[$i][2]
|
||
|
Else
|
||
|
$cList = ""
|
||
|
EndIf
|
||
|
FileWrite($oFile, @CRLF & "/ip dns static add address-list=" & $lList &" match-subdomain=yes name=" & $dList & " type=FWD" & $cList)
|
||
|
Next
|
||
|
EndIf
|
||
|
FileClose($oFile)
|
||
|
FileDelete($sFile)
|
||
|
ShellExecute(@ScriptDir & "\Rules.txt")
|
||
|
EndFunc
|