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
#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 |