AutoIT скрипт-messanger - Форум
Приветствую Вас Гость | Сегодня: 22.01.2017, Воскресенье | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Форум » Total Commander » Total Commander PowerUser » AutoIT скрипт-messanger (При выполнении скриптов иногда полезно знать что происходит.)
AutoIT скрипт-messanger
mrsorosДата: Вторник, 05.04.2016, 12:14 | Сообщение # 1
Рядовой
Зареген: 29.01.2016
Всего сообщений: 3
Код

;Скрипт отображает сообщение в правом нижнем углу экрана
;Формат запуска message_clear.exe cmd#-#sec#-#message
;cmd - команда add - добавить сообщение; upd - обновить предыдущее сообщение; off - выход из скрипта
;sec - количество секунд до выхода из скрипта
;message - само сообщение
;Между параметрами знаки #-# обязательны
;Щелчек по окну сообщения ПКМ = выход из крипта
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#include <Array.au3>
#include <Timers.au3>
#include <Misc.au3>
#NoTrayIcon

Local $Text="", $Text_new="", $Text_buf="",$Text_Last="", $sCMD, $iSEC, $sTXT
Local $i, $y, $height, $width, $Size, $Pos, $Clip="", $iLabel, $TimeOFF=0, $TimeOut=0
Local $aParam, $iTimerID, $Timer1

if _Singleton("message67538",1) = 0 Then;Если окно с заголовком Х уже запущено
   $hGUI = WinGetHandle ("message67538");Получаем ID этого окна
   WinActivate($hGUI);Активируем окно
   _AU3COM_SendData($CmdLineRaw, $hGUI);отправляем текст
   Exit
EndIf

Global $hGUI = GUICreate("message67538", 0, 0, -1, -1, $WS_POPUP, $WS_EX_TOPMOST, $WS_EX_TOOLWINDOW);$WS_EX_TOOLWINDOW=нет иконки в панели задач $WS_EX_TOPMOST=поверх всех окон
WinSetTrans($hGUI, "", 200);Устанавливает прозрачность окна.

$iLabel = GUICtrlCreateLabel('', 0, 0)
GUICtrlSetBkColor(-1,0x005200)
GUICtrlSetFont(-1, 10, 650, 0);Размер шрифта
GUICtrlSetColor( -1, 0x00DE00);Цвет шрифта
GUICtrlSetLimit(-1, 200) ; ограничить прокрутку по горизонтали
_WinStickToRightCorner($hGUI)

GUISetState()
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST");Сообщение выполняется при скольжении курсора мыши в окне
GUIRegisterMsg($WM_COPYDATA, "_GUIRegisterMsgProc");Интеракция  между скриптами

if $CmdLineRaw=="" Then
   Exit
EndIf
$aParam= StringSplit($CmdLineRaw, "#-#", 1);
if $aParam[0] <> 3 Then
   Exit
EndIf
$sCMD="first";$CmdLine[1]
$iSEC=$aParam[2]
$sTXT=$aParam[3]

While 1
   Switch GUIGetMsg()
   Case $GUI_EVENT_PRIMARYDOWN ;закроет окно по нажатию ЛКМ
   ;MsgBox(0, "Событие GUI", "Вы нажали CLOSE! Завершаем...")
   _Exit()
   EndSwitch

   Select
   Case $Text_new <> $sTXT
   $Text_new=$sTXT
   Switch $sCMD
   Case "first";Добавление первой строки в окно
      if $sTXT=="off" Then
      Exit
      EndIf
      $Text  = @hour & ":" & @min & ":" & @sec & ">" & $sTXT
   Case "add";Добавление новой строки в окно
      $Text_Last=$Text
      $Text     = $Text & @CRLF & @hour & ":" & @min & ":" & @sec & ">" & $sTXT
   Case "upd";Обработка команды обновления предыдущей строки upd#-#3#-#ae-ae-off
      $Text     = $Text_Last & @CRLF & @hour & ":" & @min & ":" & @sec & ">" & $sTXT
   Case "off";Обработка команды выхода из приложения off#-#3#-#
      Sleep ($iSEC*1000)
      _Exit()
   Case Else
      $Text     = $Text & @CRLF & @hour & ":" & @min & ":" & @sec & ">" & "Не понятная команда: " & $sCMD
   EndSwitch

   $Text_buf = $Text
   $Size = _GetTabbedStringSizeEx(-1, $Text_buf, 1)

   If Not @Error Then
   GUICtrlSetPos($iLabel, 0, 0, $Size[0], $Size[1])
   GUICtrlSetData(-1, $Text)
   EndIf
   WinMove ($hGUI, '', Default, Default , $Size[0], $Size[1])
   _WinStickToRightCorner($hGUI);_Sleep($TimeOFF)
   Case Else
   $Pos = 1
   EndSelect

WEnd

Func _GUIRegisterMsgProc($hWnd, $MsgID, $WParam, $LParam)
     If $MsgID = $WM_COPYDATA Then
         Local $vs_Msg = _AU3COM_RecvData($LParam)
         Local $sMSGRECVD = DllStructGetData($vs_Msg, 1)
   $aParam= StringSplit($sMSGRECVD, "#-#", 1);
   if $aParam[0] <> 3 Then
   Return -1
   EndIf
   $sCMD=$aParam[1];$CmdLine[1]
   $iSEC=$aParam[2]
   $sTXT=$aParam[3]
     EndIf
EndFunc

Func _AU3COM_RecvData($iCOM_LParam)
     ; $COM_LParam = Poiter to a COPYDATA Struct
     Local $STRUCTDEF_AU3MESSAGE = "char var1[256];int"
     Local $StructDef_COPYDATA = "dword var1;dword var2;ptr var3"
     Local $vs_cds = DllStructCreate($StructDef_COPYDATA, $iCOM_LParam)
     ; Member No. 3 of COPYDATA Struct (PVOID lpData;) = Pointer to Costum Struct
     Local $vs_msg = DllStructCreate($STRUCTDEF_AU3MESSAGE, DllStructGetData($vs_cds, 3))
     Return $vs_msg
EndFunc

Func _AU3COM_SendData($sInfoToSend, $hRecvWinHandle)
     Local $StructDef_COPYDATA = "dword var1;dword var2;ptr var3"
     Local $sCDString = DllStructCreate("char var1[256];char var2[256]") ;the array to hold the string we are sending

     DllStructSetData($sCDString, 1, $sInfoToSend)
     Local $pCDString = DllStructGetPtr($sCDString) ;the pointer to the string
     Local $vs_cds = DllStructCreate($StructDef_COPYDATA);create the message struct
     DllStructSetData($vs_cds, "var1", 0) ;0 here indicates to the receiving program that we are sending a string
     DllStructSetData($vs_cds, "var2", String(StringLen($sInfoToSend) + 1));tell the receiver the length of the string
     DllStructSetData($vs_cds, "var3", $pCDString) ;the pointer to the string
     Local $pStruct = DllStructGetPtr($vs_cds)

     DllCall("User32.dll", "int", "SendMessage", "hwnd", $hRecvWinHandle, "int", $WM_COPYDATA, "int", 0, "ptr", $pStruct)

     $vs_cds = 0 ;free the struct
     $sCDString = 0 ;free the struct

     Return 1
EndFunc

Func _Exit()
   For $i = 200 to 0 Step -5;buf#-#on#-#0#-#ae-ae
   WinSetTrans($hGUI, "", $i)
   Sleep (80)
   Next
   Exit
EndFunc

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam);Сообщение выполняется при скольжении курсора мыши в окне
    If $hWnd <> $hGUI Then Return $GUI_RUNDEFMSG

    Local $iRet = _WinAPI_DefWindowProc($hWnd, $iMsg, $iwParam, $ilParam)

    Switch $iRet
        Case 10 To 18;Запрет изменения границ окна
            Return 1
    EndSwitch

    Return $iRet
EndFunc

Func _WinStickToRightCorner($hWin);Позиционирует окно в правом нижнем углу
    Local $aWin_Pos = WinGetPos($hWin)
    Local $aClient_Size = WinGetClientSize($hWin)

    Local $iBorder_Width = ($aWin_Pos[2] - $aClient_Size[0])
    Local $iCaption_Height = ($aWin_Pos[3] - $aClient_Size[1])

    Local Const $SPI_GETWORKAREA = 48
    Local $stRECT = DllStructCreate("long;long;long;long")
    Local $SPIRet = DllCall("User32.dll", "int", "SystemParametersInfo", _
        "uint", $SPI_GETWORKAREA, "uint", 0, "ptr", DllStructGetPtr($stRECT), "uint", 0)
    If @error Or $SPIRet[0] = 0 Then Return SetError(1, 0, 0)

    Local $sRightArea = DllStructGetData($stRECT, 3)
    Local $sBottomArea = DllStructGetData($stRECT, 4)

    Local $iTop = (@DesktopHeight-(@DesktopHeight-$sBottomArea)-$aClient_Size[1]) - $iCaption_Height
    Local $iLeft = (@DesktopWidth-$aClient_Size[0]) - $iBorder_Width

    If $sRightArea < @DesktopWidth Then $iLeft -= (@DesktopWidth - $sRightArea)

    WinMove($hWin, "", $iLeft, $iTop)
EndFunc

Func _GetTabbedStringSizeEx($CtrlID, ByRef $sString, $fAlignment = False);Эта функция возвращает размеры абсолютно любой строки (необязательно содержащей @TAB или @CRLF)

    Local $W = 0, $H, $tTM, $pTM, $hDC = 0, $hSv = 0, $aTemp, $aSize, $aData, $aTabs, $aText, $sText = '', $Error, $Tab, $Ret
    Local $tTM = DllStructCreate('long;long;long;long;long;long;long;long;long;long;long;wchar;wchar;wchar;wchar;byte;byte;byte;byte;byte')
;~  Local $tTM = DllStructCreate($tagTEXTMETRIC)
    Local $pTM = DllStructGetPtr($tTM)
    Local $tData = DllStructCreate('long;long')
    Local $pData = DllStructGetPtr($tData)
    Local $aResult[2] = [0, 0]

    If Not IsHWnd($CtrlID) Then
        $CtrlID = GUICtrlGetHandle($CtrlID)
        If Not $CtrlID Then
            Return SetError(1, 0, 0)
        EndIf
    EndIf
    Do
        $Error = 1
        $Ret = DllCall('user32.dll', 'ptr', 'GetDC', 'hwnd', $CtrlID)
        If (@Error) Or (Not $Ret[0]) Then
            ExitLoop
        EndIf
        $hDC = $Ret[0]
        $Ret = DllCall('user32.dll', 'ptr', 'SendMessageW', 'hwnd', $CtrlID, 'uint', 0x0031, 'wparam', 0, 'lparam', 0)
        If (@Error) Or (Not $Ret[0]) Then
            ExitLoop
        EndIf
        $Ret = DllCall('gdi32.dll', 'ptr', 'SelectObject', 'hwnd', $hDC, 'ptr', $Ret[0])
        If (@Error) Or (Not $Ret[0]) Then
            ExitLoop
        EndIf
        $hSv = $Ret[0]
        $Ret = DllCall('gdi32.dll', 'int', 'GetTextMetricsW', 'hwnd', $hDC, 'ptr', $pTM)
        If (@Error) Or (Not $Ret[0]) Then
            ExitLoop
        EndIf
        $Tab = 8 * DllStructGetData($tTM, 6)
        If Not $Tab Then
            ExitLoop
        EndIf
        $aData = StringSplit(StringReplace($sString, @CRLF, @CR), @CR, 2)
        $H = UBound($aData)
        If ($H > 1) And ($fAlignment) Then
            For $i = 0 To $H - 1
                $aTemp = StringSplit($aData[$i], @TAB)
                If $W < $aTemp[0] Then
                    $W = $aTemp[0]
                EndIf
            Next
            Dim $aText[$H][$W]
            Dim $aSize[$H][$W]
            For $i = 0 To $H - 1
                $aTemp = StringSplit($aData[$i], @TAB)
                For $j = 0 To $W - 1
                    Select
                        Case $aTemp[0] < $j + 1
                            $aText[$i][$j] = 0
                            $aSize[$i][$j] = -1
                        Case $aTemp[0] = $j + 1
                            $aText[$i][$j] = $aTemp[$j + 1]
                            $aSize[$i][$j] = -1
                        Case Else
                            $aText[$i][$j] = $aTemp[$j + 1]
                            $Ret = DllCall('gdi32.dll', 'int', 'GetTextExtentPoint32W', 'hwnd', $hDC, 'wstr', $aTemp[$j + 1], 'int', StringLen($aTemp[$j + 1]), 'ptr', $pData)
                            If (Not @Error) And ($Ret[0]) Then
                    $aSize[$i][$j] = DllStructGetData($tData, 1)
                            Else
                    $aSize[$i][$j] = 0
                            EndIf
                    EndSelect
                Next
            Next
            Dim $aTabs[$W]
            For $j = 0 To $W - 1
                $aTabs[$j] = 1
                For $i = 0 To $H - 1
                    If $aSize[$i][$j] <> -1 Then
                        If $aSize[$i][$j] < $Tab Then
                            $aSize[$i][$j] = 1
                        Else
                            $aSize[$i][$j] = Floor($aSize[$i][$j] / $Tab) + 1
                            If $aTabs[$j] < $aSize[$i][$j] Then
                    $aTabs[$j] = $aSize[$i][$j]
                            EndIf
                        EndIf
                    EndIf
                Next
            Next
            Dim $aData[$H]
            For $i = 0 To $H - 1
                $aData[$i] = ''
                For $j = 0 To $W - 1
                    If IsString($aText[$i][$j]) Then
                        $aData[$i] &= $aText[$i][$j]
                        If $aSize[$i][$j] <> -1 Then
                            $aSize[$i][$j] = $aTabs[$j] - $aSize[$i][$j]
                        EndIf
                        For $k = 1 To $aSize[$i][$j] + 1
                            $aData[$i] &= @TAB
                        Next
                    Else
                        ExitLoop
                    EndIf
                Next
                $sText &= $aData[$i] & @CRLF
            Next
        EndIf
        $Error = 1
        DllStructSetData($tData, 1, $Tab)
        For $i = 0 To $H - 1
            $Ret = DllCall('user32.dll', 'dword', 'GetTabbedTextExtentW', 'hwnd', $hDC, 'wstr', $aData[$i], 'int', StringLen($aData[$i]), 'int', 1, 'ptr', $pData)
            If (Not @Error) And ($Ret[0]) Then
                $aResult[1] += BitShift($Ret[0], 16)
                $Ret = BitAND($Ret[0], 0xFFFF)
                If $aResult[0] < $Ret Then
                    $aResult[0] = $Ret
                EndIf
            Else
                ExitLoop 2
            EndIf
        Next
        $Error = 0
    Until 1
    If $hSv Then
        DllCall('gdi32.dll', 'ptr', 'SelectObject', 'hwnd', $hDC, 'ptr', $hSv)
    EndIf
    If $hDC Then
        DllCall('user32.dll', 'int', 'ReleaseDC', 'hwnd', $CtrlID, 'hwnd', $hDC)
    EndIf
    If $Error Then
        Return SetError(1, 0, 0)
    EndIf
    If $fAlignment Then
        $sString = StringTrimRight($sText, 2)
    EndIf
    Return $aResult
EndFunc   ;==>_GetTabbedStringSizeEx


Тестируйте. Задавайте вопросы, отвечу.
Награды: 0
DavidcladeДата: Пятница, 13.01.2017, 07:38 | Сообщение # 2
Рядовой
Зареген: 12.01.2017
Всего сообщений: 2
http://www.hdv-media.fr/index.php?option=com_k2&view=itemlist&task=user&id=53
http://nacionaldemudanzas.es/index.php?option=com_k2&view=itemlist&task=user&id=240
http://greencanopytours.com/index.php?option=com_k2&view=itemlist&task=user&id=48


http://www.studioprisma.eu/index.php?option=com_k2&view=itemlist&task=user&id=375
Награды: 0
AntoshkawonДата: Пятница, 13.01.2017, 17:43 | Сообщение # 3
Рядовой
Зареген: 12.12.2016
Всего сообщений: 1
[color=color_url - Greetings!

[color=color_url - Finest cv and cover letters templates.

https://www.etsy.com/shop/ResumeX - Download resume templates in Word DOC with high print quality and creative forms, build a professional resume and get your dream job position.

[color=color_url - These docs editable templates created by professionals who realize what recruiters look for.

[color=color_url - How to start?

[color=color_url - STEP 1: Content. Begin by putting together the content of your cv. Focus on work experience, summary of qualifications, keywords and any other important info that makes a powerful resume. http://www.rawresume.com/ - “How to Write a Great CV” [color=color_url - will take you through the whole game step by step.

[color=color_url - STEP 2: Format chronological, functional or combination. Make sure you present your career in the format that highlights your experience, knowledge, and skills the best thinkable way. See https://www.jmu.edu/cap/students/jobintern/resumes/format.shtml - “Choosing a Format” Guide by James Madison University [color=color_url - to decide which format is the best for you.

[color=color_url - STEP 3: Appearance. https://www.etsy.com/shop/ResumeX - Find the most beneficent template to ‘dress up’ your content.[color=color_url - This page has different templates to choose from.

[color=color_url - bye-bye...


http://smelovsky.com/dt_team/kontakty/
Награды: 0
Пользователь из города: Birmingham
MihailnuameДата: Пятница, 13.01.2017, 22:37 | Сообщение # 4
Рядовой
Зареген: 13.01.2017
Всего сообщений: 2
Немало осматривал содержание сети, при этом к своему восторгу увидел актуальный веб-сайт. Вот посмотрите: https://www.in-solution.ru/collection/infocus - проектор InFocus . Для нас данный веб-сайт оказался весьма полезным. Всех благ!

проектор InFocus
Награды: 0
Пользователь из города: Москва
AntonioNewsДата: Суббота, 14.01.2017, 05:27 | Сообщение # 5
Рядовой
Зареген: 18.10.2015
Всего сообщений: 1
На нашем сайте вы можете скачать уникальный порно контент. У нас много разных видов категорий начиная от классического порно и заканчивая БДСМ.

http://kinorun.com/ - порно торрент бесплатно


Торрент-трекер
Награды: 0
Пользователь из города: Al Manamah
RomanRenДата: Понедельник, 16.01.2017, 01:31 | Сообщение # 6
Рядовой
Зареген: 15.01.2017
Всего сообщений: 1
Все утро разглядывал содержание сети, случайно к своему восторгу заметил интересный ресурс. Вот смотрите: http://znayu-vse.com/ - Вопросы и ответы . Для меня вышеуказанный сайт оказал незабываемое впечатление. Всем пока!

Вопросы и ответы
Награды: 0
Пользователь из города: Москва
OlegBixДата: Среда, 18.01.2017, 13:10 | Сообщение # 7
Рядовой
Зареген: 18.01.2017
Всего сообщений: 2
Все утро изучал данные интернет, случайно к своему удивлению заметил важный сайт. Гляньте: http://forex-uspeh.com/ - Заработок в интернете . Для нас этот вебсайт явился весьма привлекательным. Всего хорошего!

Заработок в интернете
Награды: 0
Пользователь из города: Москва
ZYDarwinДата: Четверг, 19.01.2017, 02:09 | Сообщение # 8
Рядовой
Зареген: 17.01.2017
Всего сообщений: 1
http://artxayslike.ru/multfilmy/ - http://artxayslike.ru/multfilmy/

Добавлено (19.01.2017, 02:05)
---------------------------------------------
ТОП 3 ФИЛЬМА ГОДА


[url=http://artxayslike.ru/films/3595-po-soobrazheniyam-sovesti.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484774199_dzhebd.jpg[/img][/url]
По соображениям совести (2016)
Режиссер мэл гибсон
Всем советую к [url=http://artxayslike.ru/films/3595-po-soobrazheniyam-sovesti.html]просмотру[/url] кто еще не смотрел не пожалеете

[url=http://artxayslike.ru/films/2845-pribytie.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484773368_dzhebd.jpg[/img][/url]
[url=http://artxayslike.ru/films/2845-pribytie.html]Прибытие (2016)[/url]


[url=http://artxayslike.ru/films/3985-la-la-lend.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484506057_841081.jpg[/img][/url]
[url=http://artxayslike.ru/films/3985-la-la-lend.html]Ла-Ла Ленд (2016)[/url]
Моя оценка этим фильмам 10-из 10 а что вы скажите вы?
Интересно услышать ваше мнение

Добавлено (19.01.2017, 02:09)
---------------------------------------------
ТОП 3 ФИЛЬМА ГОДА


[url=http://artxayslike.ru/films/3595-po-soobrazheniyam-sovesti.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484774199_dzhebd.jpg[/img][/url]
По соображениям совести (2016)
Режиссер мэл гибсон
Всем советую к [url=http://artxayslike.ru/films/3595-po-soobrazheniyam-sovesti.html]просмотру[/url] кто еще не смотрел не пожалеете

[url=http://artxayslike.ru/films/2845-pribytie.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484773368_dzhebd.jpg[/img][/url]
[url=http://artxayslike.ru/films/2845-pribytie.html]Прибытие (2016)[/url]


[url=http://artxayslike.ru/films/3985-la-la-lend.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484506057_841081.jpg[/img][/url]
[url=http://artxayslike.ru/films/3985-la-la-lend.html]Ла-Ла Ленд (2016)[/url]
Моя оценка этим фильмам 10-из 10 а что вы скажите вы?
Интересно услышать ваше мнение

Добавлено (19.01.2017, 02:09)
---------------------------------------------
ТОП 3 ФИЛЬМА ГОДА


[url=http://artxayslike.ru/films/3595-po-soobrazheniyam-sovesti.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484774199_dzhebd.jpg[/img][/url]
По соображениям совести (2016)
Режиссер мэл гибсон
Всем советую к [url=http://artxayslike.ru/films/3595-po-soobrazheniyam-sovesti.html]просмотру[/url] кто еще не смотрел не пожалеете

[url=http://artxayslike.ru/films/2845-pribytie.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484773368_dzhebd.jpg[/img][/url]
[url=http://artxayslike.ru/films/2845-pribytie.html]Прибытие (2016)[/url]


[url=http://artxayslike.ru/films/3985-la-la-lend.html][img]http://www.artxayslike.ru/uploads/posts/2017-01/1484506057_841081.jpg[/img][/url]
[url=http://artxayslike.ru/films/3985-la-la-lend.html]Ла-Ла Ленд (2016)[/url]
Моя оценка этим фильмам 10-из 10 а что вы скажите вы?
Интересно услышать ваше мнение

Награды: 0
Пользователь из города: Le Mans
KamorkasOtДата: Четверг, 19.01.2017, 07:08 | Сообщение # 9
Рядовой
Зареген: 23.06.2016
Всего сообщений: 2
Ass Anal Movie Updated Hourly , school fuck teacher tits movie full hardcore melissa midwest movie mature classy movie sexy .
Amateur Homemade Kinky Porn Video - ebony xxx movie tube hot girls have sex free video .
Two Black Girls Ffm Video asian teen video sex free xxx sex watch video .
http://forums.huoxingjishi.com/index.php?showtopic=5415&st=240&gopid=27428&#entry27428 - free movie pamela sex tape
http://www.hellcatforums.com/index.php?/topic/68574-asian-girls-sex-free-video/page-16#entry128917 - anal ebony bbw
http://detiavto.com/forum/viewtopic.php?id=858&p=8#p4445 - pregnant mom porn video
http://mineralpvp.com/forum/showthread.php?tid=46706&pid=90742#pid90742 - girl licking girl pussy
http://theconsciousobserver.com/FORUM/showthread.php?tid=57&pid=141#pid141 - pussy licking free full movie

Sex Teacher Video Porn : anal porn stars movie hot blonde teen fuck xmovie big classic porn video .
Old And Young Lesbian Sex Video pussy clitoris licking movie naked girls giving handjob video porn video borther and sister .
Porn Clip Movie Amateur - giant large sex toy movie adult xxx movie watch .
http://www.hqxporn.info/231/britney-spears-rehab-video-sex.html - britney spears rehab video sexhttp://www.hqxporn.info/221/couple-in-sex.html - couple in sexhttp://www.hqxporn.info/231/rich-women-suck-black-cock-video.html - rich women suck black cock videohttp://www.hqxporn.info/230/xxx-phat-ass-porn.html - xxx phat ass pornhttp://www.hqxporn.info/228/public-nudity-porn.html - public nudity pornhttp://www.hqxxxporn.info/226/granny-sex-scene.html - granny sex scenehttp://www.hqxporn.info/227/samantha-lesbian-virgin-pussy-movie.html - samantha lesbian virgin pussy moviehttp://www.hqxporn.info/236/blue-film-girl-sex.html - blue film girl sexhttp://www.hqxxxporn.info/222/black-pissing-pic.html - black pissing pichttp://www.hqxporn.info/234/virgin-blonde-lesbian-teen.html - virgin blonde lesbian teenhttp://www.hqxxxporn.info/222/juicy-squirt-pussy-video.html - juicy squirt pussy videohttp://www.hqxxxporn.info/238/sex-baby-sex-video.html - sex baby sex videohttp://www.hqxporn.info/224/xxx-mp4-hd-movie-free-download.html - xxx mp4 hd movie free downloadhttp://www.hqxporn.info/228/classic-teen-lesbian-video.html - classic teen lesbian videohttp://www.hqxporn.info/232/blowjob-cumshot-amateur-homemade-hardcore-porn.html - blowjob cumshot amateur homemade hardcore pornhttp://www.hqxporn.info/233 - sex in spa videohttp://www.hqxxxporn.info/227/teen-sex-video-no-recurring.html - teen sex video no recurringhttp://www.hqxporn.info/236/girls-having-lesbi-sex.html - girls having lesbi sexhttp://www.hqxporn.info/232/wild-sex-hub.html - wild sex hubhttp://www.hqxporn.info/240/lactating-anal-teen.html - lactating anal teenhttp://www.hqxxxporn.info/237/hot-chicks-with-dicks-porn.html - hot chicks with dicks pornhttp://www.hqxxxporn.info/233/peachez-anal-movie.html - peachez anal moviehttp://www.hqxporn.info/238/first-time-anal-sex-painful-video.html - first time anal sex painful videohttp://www.hqxporn.info/227/free-amateur-bum-fucking-video.html - free amateur bum fucking videohttp://www.hqxxxporn.info/222/linda-lovelace-sex.html - linda lovelace sexhttp://www.hqxxxporn.info/225/orgasm-girl-masturbation-video.html - orgasm girl masturbation videohttp://www.hqxxxporn.info/227/anal-sex-movie-ebony.html - anal sex movie ebonyhttp://www.hqxporn.info/239/black-hairy-fuck-video.html - black hairy fuck videohttp://www.hqxporn.info/234/asian-suck-video.html - asian suck videohttp://hqxxxporn.info/228/map.html
http://www.hqxporn.info/231/hanna-fuck-video.html - hanna fuck videohttp://www.hqxxxporn.info/224/black-lesbian-orgy-movie.html - black lesbian orgy moviehttp://www.hqxporn.info/221/free-video-pornstar-traci-lords.html - free video pornstar traci lordshttp://www.hqxxxporn.info/229/movie-porn-italy.html - movie porn italyhttp://www.hqxxxporn.info/238/sex-video-first-timers.html - sex video first timershttp://www.hqxxxporn.info/237/porn-movie-unusual.html - porn movie unusualhttp://www.hqxporn.info/237/sexy-mom-anal.html - sexy mom analhttp://www.hqxxxporn.info/223/married-bad-sex.html - married bad sexhttp://www.hqxporn.info/228/porn-filmon.html - porn filmonhttp://www.hqxporn.info/224/randy-west-video-sex-asylum.html - randy west video sex asylumhttp://www.hqxporn.info/231/chrissy-ann-sex-video.html - chrissy ann sex videohttp://www.hqxporn.info/223/sex-girls-gy-style-video.html - sex girls gy style videohttp://www.hqxporn.info/232/shaved-pussy-masturbation.html - shaved pussy masturbationhttp://www.hqxporn.info/221/asian-shemale-video-girls.html - asian shemale video girlshttp://www.hqxxxporn.info/228/man-fuck-sheep-porn.html - man fuck sheep pornhttp://www.hqxxxporn.info/232/black-on-white-blowjob.html - black on white blowjobhttp://www.hqxporn.info/230/xxx-movie-photo.html - xxx movie photohttp://www.hqxporn.info/225/rough-granny-sex-free-video.html - rough granny sex free videohttp://www.hqxxxporn.info/223/live-shemale-webcam.html - live shemale webcamhttp://www.hqxporn.info/233/pussy-rub-orgasm-lesbian.html - pussy rub orgasm lesbianhttp://www.hqxxxporn.info/233/brutal-deepthroat-chubby-porn-movie.html - brutal deepthroat chubby porn moviehttp://www.hqxxxporn.info/240/shoulder-deep-anal-fisting-video.html - shoulder deep anal fisting videohttp://hqxporn.info/236/
http://www.hqxporn.info/228/anal-mouth-cum-handjob-movie.html - anal mouth cum handjob moviehttp://www.hqxporn.info/227/teen-with-cum-on-them-cumshot.html - teen with cum on them cumshothttp://www.hqxxxporn.info/231/free-slut-hardcore-movie.html - free slut hardcore moviehttp://www.hqxxxporn.info/238/smooth-videopen-thighs-to-fuck-movie.html - smooth videopen thighs to fuck moviehttp://www.hqxxxporn.info/222/black-pornstar-paradice-video.html - black pornstar paradice videohttp://www.hqxporn.info/224/hot-naked-wife-fucking-movie.html - hot naked wife fucking moviehttp://www.hqxxxporn.info/225/wild-things-sex-full-video.html - wild things sex full videohttp://www.hqxporn.info/233/girl-going-to-having-sex.html - girl going to having sexhttp://www.hqxxxporn.info/232/sex-movie-public-disgrace.html - sex movie public disgracehttp://www.hqxxxporn.info/232/melissa-detwiller-porn-movie.html - melissa detwiller porn moviehttp://www.hqxporn.info/221/old-fat-couple-fucking-tube-movie.html - old fat couple fucking tube moviehttp://www.hqxxxporn.info/224/maria-tortuga-sex-full-film.html - maria tortuga sex full filmhttp://www.hqxxxporn.info/227/lesbian-milf-mature.html - lesbian milf maturehttp://www.hqxporn.info/224/teen-girls-and-men-fucking-tape.html - teen girls and men fucking tapehttp://www.hqxxxporn.info/235/piercing-porn-extreme-video.html - piercing porn extreme videohttp://www.hqxporn.info/234/indian-movie-porn-xxx.html - indian movie porn xxxhttp://www.hqxporn.info/223/amateur-wife-fuck-husbands-friends.html - amateur wife fuck husbands friendshttp://www.hqxxxporn.info/233/stolen-porn-video-wap.html - stolen porn video waphttp://www.hqxxxporn.info/228/teen-japan-creampie.html - teen japan creampiehttp://www.hqxporn.info/230/handy-free-porn-video.html - handy free porn videohttp://www.hqxxxporn.info/237/schoolgirl-bondage-gallery.html - schoolgirl bondage galleryhttp://www.hqxporn.info/231/homemade-porn-tube-video-in-costume.html - homemade porn tube video in costumehttp://www.hqxxxporn.info/221/girls-having-sex-in-cars.html - girls having sex in carshttp://www.hqxxxporn.info/239/girl-live-webcam.html - girl live webcamhttp://www.hqxporn.info/237/girls-fucking-guys-amateur-movie.html - girls fucking guys amateur moviehttp://www.hqxxxporn.info/239/lesbian-teen-girls-hardcore-fucking.html - lesbian teen girls hardcore fuckinghttp://www.hqxxxporn.info/232/action-girls-porn-video.html - action girls porn videohttp://www.hqxporn.info/228/homemade-brother-sister-sex-movie.html - homemade brother sister sex moviehttp://www.hqxporn.info/232/xxx-free-sex-movie-online.html - xxx free sex movie onlinehttp://www.hqxporn.info/222/big-ass-sex-video-porn.html - big ass sex video porn


orgasmus orgy ass
Награды: 0
Пользователь из города: Kiev
WaynewrabsДата: Четверг, 19.01.2017, 20:32 | Сообщение # 10
Рядовой
Зареген: 11.01.2017
Всего сообщений: 1
MAVRO
Новый проект
Новая криптовалюта
Рост от 20 до 50 процентов в месяц!
Реферальная программа 14 уровней
http://mavro.cf/ - Подробнее....


mavro, mavro отзывы, mavro криптовалюта, mavro mmgp, mavro coin, mavro курс, мавроди mavro, mavro кран, mavro майнинг, новая криптовалюта mavro, mavro mining, mavro криптовалюта отзывы, валюта mavro, mavro coin курс, сколько монет в найденном блоке mavro


MAVRO
Награды: 0
Пользователь из города: Tomohon
DavidnopДата: Четверг, 19.01.2017, 21:29 | Сообщение # 11
Рядовой
Зареген: 19.01.2017
Всего сообщений: 2
zolpidem
rxprices
https://rxprices.co.uk/buy/soma/ - soma
ambien
Generic Mediacation Prices


rxprices.co.uk
Награды: 0
Пользователь из города: rxprices
YakovgydayДата: Четверг, 19.01.2017, 23:24 | Сообщение # 12
Рядовой
Зареген: 19.01.2017
Всего сообщений: 1
Минуту назад изучал контент интернет, и к своему восторгу обнаружил интересный вебсайт. Гляньте: http://www.das-elite.com.ua/blyzu - http://www.das-elite.com.ua/blyzu . Для нас данный вебсайт оказался довольно полезным. Хорошего дня!

das-elite.com.ua
Награды: 0
Пользователь из города: женская одежда оптом
YaroslavWaynCДата: Пятница, 20.01.2017, 01:20 | Сообщение # 13
Рядовой
Зареген: 19.01.2017
Всего сообщений: 1
Вечером просматривал содержимое инета, неожиданно к своему удивлению заметил полезный вебсайт. Смотрите: http://iwashka.com.ua/katalog-tovarov/podguzniki-i-pelenki/odnorazovye-i-mnogorazovye-pelyonki/ - http://iwashka.com.ua/katalog-tovarov/podguzniki-i-pelenki/odnorazovye-i-mnogorazovye-pelyonki/ . Для моих близких вышеуказанный веб-сайт явился весьма важным. Успехов всем!

www.iwashka.com.ua
Награды: 0
Пользователь из города: погремушка
BryanAmistДата: Суббота, Вчера, 04:16 | Сообщение # 14
Рядовой
Зареген: Вчера
Всего сообщений: 3
amazing idea
How to Make
https://www.youtube.com/watch?v=J-IbZzn9H_M - amazing idea
amazing match
How to Make


biggest match ever made
Награды: 0
Пользователь из города: good
StevenRicДата: Суббота, Вчера, 10:13 | Сообщение # 15
Рядовой
Зареген: 19.01.2017
Всего сообщений: 3
dumps
rescator icq
https://mrwhite.biz/ - rescator
rescator
mr white


dumps shop
Награды: 0
Пользователь из города: dumps
YuraelumbДата: Суббота, Вчера, 13:20 | Сообщение # 16
Рядовой
Зареген: 19.01.2017
Всего сообщений: 2
На прошлой неделе смотрел материалы сети интернет, и неожиданно к своему удивлению заметил актуальный веб-сайт. Гляньте: http://www.domprestarelih.com/about/ - пансионат для престарелых киев . Для меня вышеуказанный ресурс оказался довольно неплохим. Хорошего дня!

дом для престарелых киев
Награды: 0
Пользователь из города: частный дом для престарелых
FedorCoeleДата: Суббота, Вчера, 17:57 | Сообщение # 17
Рядовой
Зареген: 19.01.2017
Всего сообщений: 2
Сегодня днем разглядывал материалы сети, и вдруг к своему восторгу открыл прелестный сайт. Смотрите: http://www.profvest.com/2014/10/martingail.html - метод мартингейла . Для меня вышеуказанный сайт явился весьма полезным. Пока!

рейтинг памм
Награды: 0
Пользователь из города: как работает bitcoin
WilliamViogeДата: Воскресенье, Сегодня, 03:35 | Сообщение # 18
Рядовой
Зареген: Вчера
Всего сообщений: 2
gay-torrents
download h games
best adult torrent
http://adulttorrent.org/details/renee_ross_i_like_to_sleep_nude - adulttorrent.org
lesbiansporno
download free sex games
.


best xxx torrent
Награды: 0
Пользователь из города: porn.torrent
VladimirsoppyДата: Воскресенье, Сегодня, 05:18 | Сообщение # 19
Рядовой
Зареген: 20.01.2017
Всего сообщений: 2
Сегодня вечером осматривал содержание интернет, неожиданно к своему удивлению обнаружил актуальный сайт. Вот смотрите: http://novorossiysk.nodup.ru/ - http://novorossiysk.nodup.ru/ . Для нас вышеуказанный веб-сайт показался весьма нужным. Хорошего дня!

http://izhevsk.nodup.ru/sozdanie-sajtov.html
Награды: 0
Пользователь из города: раскрутка сайта в гугле
Форум » Total Commander » Total Commander PowerUser » AutoIT скрипт-messanger (При выполнении скриптов иногда полезно знать что происходит.)
Страница 1 из 11
Поиск:

Copyright by Grey © 2017 Хостинг от uCoz

Гость
Мини-Чат