For i=1 To 200
  If i>30 And i % 30 = 1
    Debug i
  EndIf
Next i

For i=0 To 200
  x=i % 30
  If i>30 And x>=1 And x<=3
    Debug i
  EndIf
Next i

Global IniFileName$="bookmarks.ini"

AddGadgetItem(#Tree_0,-1,PreferenceKeyName()+"="+PreferenceKeyValue(),0,1)

Case #PopUpMenu2 ;Удалить
        	
  Pos=GetGadgetState(#Tree_0)
  If GetGadgetItemAttribute(#Tree_0,Pos, #PB_Tree_SubLevel)=1
  Debug Str(pos)+":"+Preference_KeyName()
  ;найти имя группы и удалить
  pos2=pos
  While pos2>-1 ;самая первая позиция 0
    pos2-1
    If GetGadgetItemAttribute(#Tree_0,Pos2, #PB_Tree_SubLevel)=0
      GroupeName$=GetGadgetItemText(#Tree_0, Pos2 )
      Debug GroupeName$
      KeyName$=StringField(GetGadgetItemText(#Tree_0, Pos ), 1, "=")
      Debug KeyName$
      If OpenPreferences(IniFileName$) ;открыть файл
        PreferenceGroup(GroupeName$) ;задать группу
        RemovePreferenceKey(KeyName$) ;удалить ключ
        ClosePreferences() ;закрыть файл
        RemoveGadgetItem(#Tree_0, pos) ;удалить элемент из дерева
      EndIf
      Break
    EndIf
  Wend
            
EndIf

#include <Array.au3>


$Ret = OpenGetURL("", -1, 1, "Opera")
_ArrayDisplay($Ret, "Opera")

;===============================================================================
;
; Function Name:  OpenGetURL()
;
; Parameter(s):     $sURL           [optional] Address of page to open,
;                                   if this is empty string (default), then returned Url from address field of particular tab.
;                   $hWin           [optional] Number of tab:
;                                       -1 = Current tab.
;                                       0 = New tab (when opening).
;                   $RetType        [optional] Definds returned value:
;                                       0 = String with Title and URL address.
;                                       1 = Array with 3 elements...
;                                           [0] = Title
;                                           [1] = URL address
;                                           [2] = String with Title And URL address.
;                   $Server         [optional] Serever to open/get Url in/from.
;                   $iWait          [optional] Waiting Timeout in milliseconds, on overload will return an error.
;
; Requirement(s):   None
; Return Value(s):  On Success -  See 'Parameter(s)'.
;                   On Failure -  Empty string and set @error as following:
;                       1 = Error to open Dll (user32.dll)
;                       2 = Error Initializing DDE (@extended include more details about the returned value from DllCall).
;                       3 = Other DDE Errors (@extended include more details about the returned value from DllCall).
; Author(s):        amel27
;
;=====================================================================
Func OpenGetURL($sURL = "", $hWin = -1, $RetType = 0, $Server="IExplore", $iWait = 10000)
    Local $ret, $err, $uIdInst = DllStructCreate("int")
    Local $hServer[1], $hTopic[1], $hItem[1], $hConv[1], $hData[1], $sData[1]
    Local $sTopic = "WWW_OpenURL", $sItem = $sURL & ',,0x' & Hex($hWin)
    
    If $sURL = '' Then
        $sTopic = "WWW_GetWindowInfo"
        $sItem = "0x" & Hex($hWin)
    EndIf
    
    Local $hDll = DllOpen("user32.dll")
    If $hDll=-1 Then Return SetError(1, 0, "") ; Error to open Dll
    $ret = DllCall("user32.dll", "int", "DdeInitialize", "ptr", DllStructGetPtr($uIdInst), "ptr", 0, "int", 0, "int", 0)
    If $ret[0] Then Return SetError(2, $ret[0], "") ; Error Initializing DDE
    $hServer = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst,1), "str", $Server, "int", 1004)
    
    If $hServer[0] Then
        $hTopic = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst,1), "str", $sTopic, "int", 1004)
        If $hTopic[0] Then
            $hItem = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst,1), "str", $sItem, "int", 1004)
            If $hItem[0] Then
                $hConv = DllCall($hDll, "int", "DdeConnect", "int", _
                    DllStructGetData($uIdInst,1), "int", $hServer[0], "int", $hTopic[0], "int", 0)
                If $hConv[0] Then
                    $hData = DllCall($hDll, "int", "DdeClientTransaction", "ptr", 0, "int", 0, _
                        "int", $hConv[0], "int", $hItem[0], "int", 1, "int", 0x20B0, "int", $iWait, "ptr", 0)
                    If $hData[0] Then $sData = DllCall($hDll, "str", "DdeAccessData", "int", $hData[0], "ptr", 0)
                EndIf
            EndIf
        EndIf
    EndIf
    
    $iErr = DllCall($hDll, "int", "DdeGetLastError", "int", DllStructGetData($uIdInst, 1))
    If $hData[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hData[0])
    If $hConv[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hConv[0])
    If $hItem[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hItem[0])
    If $hTopic[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hTopic[0])
    If $hServer[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hServer[0])
    If $iErr[0] Then Return SetError(3, $iErr[0], "") ; Othe DDE Errors
    DllCall($hDll, "int", "DdeUninitialize", "int", DllStructGetData($uIdInst, 1))
    DllClose($hDll)
    
    $sData[0] = StringRegExpReplace($sData[0], ',""$', '')
    If $sURL = '' Then $sURL = StringRegExpReplace($sData[0], '^"([^"]*)",.*', '\1')
    
    Local $iRetTitle = StringRegExpReplace($sData[0], '^.*","([^"]*)"$', '\1')
    Local $RetURL[3] = [$sData[0], $sURL, $iRetTitle]
    
	$sPath_ini=@ScriptDir & "\\Temp.ini"

; Записывает значение 'Это новое значение' в параметр 'Key' в секцию 'Section'.
IniWrite($sPath_ini, "Section", $iRetTitle, $sURL)
	
	If $RetType = 1 Then Return $RetURL
    Return $sData[0]
EndFunc

Command.s = PeekS(GetCommandLine_())
Debug Command