Важная информация
Страница 1 из 3 123 ПоследняяПоследняя
Показано с 1 по 10 из 26

Тема: Цайбер сдох

  1. #1 Цайбер сдох 
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    сегодня CiberForum не работает
    вот топик где спрашивают это у меня одного такое ?....
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    так-бы я там чатился, хорошо что и вы мои друзья тоже )
    Нет подписи : (
    Ответить с цитированием  
     

  2. #2  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,990
    Сказал(а) спасибо
    1,865
    Поблагодарили 1,002 раз(а) в 860 сообщениях
    Записей в блоге
    1
    Да сегодня он на лопатках с самого утра, может железо меняют, может их в антипиратский реестр занесли по ошибке.
    Фиг его знает. Там только с VB не тухло, остальные бейсики сильно терпят.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    одно злит.. они бы хоть предупредили заранее ...
    там у меня столько трюков залито, а сегодня всё пришлось по памяти вспоминать
    Нет подписи : (
    Ответить с цитированием  
     

  4. #4  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,990
    Сказал(а) спасибо
    1,865
    Поблагодарили 1,002 раз(а) в 860 сообщениях
    Записей в блоге
    1
    они бы хоть предупредили заранее ...
    У них есть тема, где они об этом пишут, уведомления по этим поводам не ставят. Но обычно если меняют железо,
    то в ночь. Тут что-то внештатное произошло(например разряд молнии в хостинг).
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  5. #5  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    Понятно ...
    надеюсь там мои записки не пострадают )))...
    Нет подписи : (
    Ответить с цитированием  
     

  6. #6  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,990
    Сказал(а) спасибо
    1,865
    Поблагодарили 1,002 раз(а) в 860 сообщениях
    Записей в блоге
    1
    там у меня столько трюков залито, а сегодня всё пришлось по памяти вспоминать
    Я себе хочу книжечку-памятку завести и подшить, мозги уже ни к чёрту всего не упомнишь, это только QB по
    памяти можно, а проги на WinAPI надо чтобы где-то записаны были.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  7. #7  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    вот часть текста ... где тут все упомниш ...

    Код vb:
    Option Explicit
     
    '
    'ToolTip модифицированный класс - Позволяет создавать подсказки с различными стилями
    '© FelixMacintosh (Антихакер32™)
    '
    '----------------------------------------------------------[ Enums ]
    Public Enum ttStyleEnum
        TTStandard
        TTBalloon
    End Enum
     
    Public Enum ttDelayTimeConstants 'Константы времени задержки
        [Задержка по умолчанию] = 0
        [Повторный просмотр] = 1
        [Задержка показа] = 2
        [Начальная задержка] = 3
    End Enum
     
    Public Enum ttIconsConst 'Отображение иконок
        [Без значка] = 0
        [Важная информация] = 1
        [Восклицательный знак] = 2
        [Знак ошибки] = 3
        [Знак вопроса] = 7
    End Enum
     
    '----------------------------------------------------------[ Types ]
    Private Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
    End Type
     
    Private Type TOOLINFO
        lSize As Long
        lFlags As Long
        lHwnd As Long
        lId As Long
        lpRect As RECT
        hInstance As Long
        lpStr As String
        lParam As Long
    End Type
     
    Private Type POINTAPI
        x As Long
        y As Long
    End Type
    '----------------------------------------------------------[ Const ]
    Private Const WM_USER = &H400
    Private Const BACK_COLOUR As Long = "&H80000018"
    Private Const CW_USEDEFAULT = &H80000000
    Private Const FORE_COLOUR As Long = "&H80000017"
    Private Const HWND_TOPMOST = -1
    Private Const SWP_NOACTIVATE = &H10
    Private Const SWP_NOMOVE = &H2
    Private Const SWP_NOSIZE = &H1
    Private Const TOOLTIPS_CLASSA = "tooltips_class32"
    Private Const TTF_CENTERTIP = &H2
    Private Const TTF_SUBCLASS = &H10
    Private Const TTF_TRANSPARENT = &H100
    Private Const TTM_ACTIVATE = WM_USER + 1
    Private Const TTM_ADDTOOLA = (WM_USER + 4)
    Private Const TTM_GETDELAYTIME = (WM_USER + 21)
    Private Const TTM_SETDELAYTIME = (WM_USER + 3)
    Private Const TTM_SETMAXTIPWIDTH = (WM_USER + 24)
    Private Const TTM_SETTIPBKCOLOR = (WM_USER + 19)
    Private Const TTM_SETTIPTEXTCOLOR = (WM_USER + 20)
    Private Const TTM_SETTITLE = (WM_USER + 32)
    Private Const TTM_UPDATETIPTEXTA = (WM_USER + 12)
    Private Const TTS_ALWAYSTIP = &H1
    Private Const TTS_BALLOON = &H40
    Private Const TTS_NOPREFIX = &H2
    '----------------------------------------------------------[ WinApi ]
    Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
    Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
    Private Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare Function SendMessageT Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
    Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
    '----------------------------------------------------------[ Varibales ]
    Private mHwnd As Long
    Private mblnCentered As Boolean
    Private mblnMultiLine As Boolean
    Private mlngBackColor As OLE_COLOR
    Private mlngForeColor As OLE_COLOR
    Private mlngHwndParentControl As Long
    Private mlngStyle As ttStyleEnum
    Private mstrText As String
    Private mstrTitle As String
    Private mtypToolInfo As TOOLINFO
     
    Public Function Create(hwnd, Optional Title$, Optional Text$, Optional Style As ttStyleEnum, _
    Optional ByVal ttIcon As ttIconsConst, Optional DelayInitial& = 1, Optional DelayShow& = 10000, _
    Optional DelayReshow& = 10000, Optional MonitoringSquare As Boolean = True) As Boolean
        Const SleepInterval = 100 'интервал паузы мониторинга
        Dim lpRect As RECT
        Dim lWinStyle As Long
        Dim p As POINTAPI, f&
        On Error GoTo CreateError
        If mHwnd Then DestroyWindow mHwnd 'Уничтожение прежнего тултипа вызванного этим классом
        lWinStyle = TTS_ALWAYSTIP Or TTS_NOPREFIX
     
        If Style = TTBalloon Then 'создать стиль шарика по желанию
            lWinStyle = lWinStyle Or TTS_BALLOON
        End If
     
        If hwnd Then 'Родительский контрол должен быть задан первым
            mlngHwndParentControl = hwnd
            mHwnd = CreateWindowEx(0&, TOOLTIPS_CLASSA, vbNullString, lWinStyle, CW_USEDEFAULT, CW_USEDEFAULT, _
            CW_USEDEFAULT, CW_USEDEFAULT, hwnd, 0&, App.hInstance, 0&)
            'сделать нашу подсказку "поверх всех окон"
            SetWindowPos mHwnd, HWND_TOPMOST, 0&, 0&, 0&, 0&, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE
            GetClientRect hwnd, lpRect 'получить квадрат родительского контрола
    
            With mtypToolInfo 'теперь наши подсказки в структуре
    
                If Me.Centered = True Then 'если мы хотим, чтобы он был по центру
                    .lFlags = TTF_SUBCLASS Or TTF_CENTERTIP
                Else
                    .lFlags = TTF_SUBCLASS
                End If
                'set the hwnd prop to our parent control's hwnd
                .lHwnd = hwnd
                .lId = 0
                .hInstance = App.hInstance
                .lpStr = Text 'ALREADY SET
                .lpRect = lpRect
            End With
            SendMessage mHwnd, TTM_ADDTOOLA, 0&, mtypToolInfo 'добавить структуру подсказки
    
            If Title <> vbNullString Then 'если мы хотим, чтобы был заголовок или значок
                SendMessage mHwnd, TTM_SETTITLE, ttIcon, ByVal Title
            End If
     
            'Будет все черное, если вы установите его в стандартные цвета
            If ForeColor <> FORE_COLOUR Then
                SendMessage mHwnd, TTM_SETTIPTEXTCOLOR, ForeColor, 0& 'Задать цвет текста
            End If
     
            If BackColor <> BACK_COLOUR Then
                SendMessage mHwnd, TTM_SETTIPBKCOLOR, BackColor, 0& 'Задать цвет фона
            End If
     
            If MultiLine = True Then
                SendMessage mHwnd, TTM_SETMAXTIPWIDTH, 0&, 0 'Значение многострочности
            End If
            Create = True 'Бул готовности
            DelayTime([Начальная задержка]) = DelayInitial 'Интервал времени для возникновения (мс)
            DelayTime([Задержка показа]) = DelayShow 'Интервал времени отображения (мс)
            DelayTime([Повторный просмотр]) = DelayReshow
     
            If MonitoringSquare Then 'Проверять квадрат окна
    
                For f = 0 To DelayShow Step SleepInterval
                    DoEvents
                    Sleep SleepInterval
                    GetCursorPos p
                    If mlngHwndParentControl <> WindowFromPoint(p.x, p.y) Then Exit For
                Next
                If mHwnd Then DestroyWindow mHwnd 'Уничтожение при условии выхода за квадрат
            End If
            Exit Function
        End If
    CreateError:
        Create = False 'Бул ошибки !
    End Function
     
    Public Property Get DelayTime(dwType As ttDelayTimeConstants) As Long
     
        If (mHwnd = 0) Then
            Exit Property
        End If
        DelayTime = SendMessageT(mHwnd, TTM_GETDELAYTIME, (dwType And [Начальная задержка]), 0&)
    End Property
     
    Public Property Let DelayTime(dwType As ttDelayTimeConstants, dwMilliSecs As Long)
     
        If (mHwnd = 0) Then
            Exit Property
        End If
        Call SendMessageT(mHwnd, TTM_SETDELAYTIME, (dwType And [Начальная задержка]), ByVal dwMilliSecs)
    End Property
     
    Private Sub Class_Initialize()
        'Set some defaults
        Me.MultiLine = True
        Me.Style = TTStandard
        Me.Centered = False
        Me.BackColor = vbInfoBackground 'BACK_COLOUR 'Default Back colour
        Me.ForeColor = FORE_COLOUR 'Default Fore colour
    End Sub
     
    Private Sub Class_Terminate()
     
        If mHwnd <> 0 Then
            DestroyWindow mHwnd
        End If
    End Sub
     
    Public Property Let Style(ByVal lngToolTipStyle As ttStyleEnum)
        'Style of the ToolTip
        mlngStyle = lngToolTipStyle
    End Property
     
    Public Property Get Style() As ttStyleEnum
        Style = mlngStyle
    End Property
     
    Public Property Let Centered(ByVal blnCentered As Boolean)
        'Want the tool tip Centered? (works well with Baloon type tips!)
        mblnCentered = blnCentered
    End Property
     
    Public Property Get Centered() As Boolean
        Centered = mblnCentered
    End Property
     
    Public Property Let ForeColor(ByVal lngForeColor As OLE_COLOR)
        'ToolTip ForeColour
        mlngForeColor = lngForeColor
    End Property
     
    Public Property Get ForeColor() As OLE_COLOR
        ForeColor = mlngForeColor
    End Property
     
    Public Property Let BackColor(ByVal lngBackColor As OLE_COLOR)
        'Tool Tip Background Colour
        mlngBackColor = lngBackColor
    End Property
     
    Public Property Get BackColor() As OLE_COLOR
        BackColor = mlngBackColor
    End Property
     
    Public Property Let Title(ByVal vData As String)
        'Tool Tip Title
        mstrTitle = vData
    End Property
     
    Public Property Get Title() As String
        Title = mstrTitle
    End Property
     
    Public Property Let Text(ByVal strText As String)
        'The Actual Tool Tip Text
        mstrText = strText
    End Property
     
    Public Property Get Text() As String
        Text = mstrText
    End Property
     
    Public Property Get MultiLine() As Boolean
        'Want the Tool tip to be able to show multi line text
        MultiLine = mblnMultiLine
    End Property
     
    Public Property Let MultiLine(blnMultiLine As Boolean)
        mblnMultiLine = blnMultiLine
    End Property
     
    Public Property Get SystemToolTipForeColor() As OLE_COLOR
        SystemToolTipForeColor = FORE_COLOUR
    End Property
     
    Public Property Get SystemToolTipBackColor() As OLE_COLOR
        SystemToolTipBackColor = BACK_COLOUR
    End Property
    Нет подписи : (
    Ответить с цитированием  
     

  8. #8  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    Еще есть один форум VBStreet называеться, но там меня их главный админ бесит ..
    который считает себя самым умным и не любит когда с ним спорят...
    забанил меня еще в декабре а я даже не разморозил акаунт
    пусть теперь там и сидит на нём .. один..
    Нет подписи : (
    Ответить с цитированием  
     

  9. #9  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,990
    Сказал(а) спасибо
    1,865
    Поблагодарили 1,002 раз(а) в 860 сообщениях
    Записей в блоге
    1
    считает себя самым умным и не любит когда с ним спорят...
    Спор бесполезен, когда некому рассудить и когда он уже неконструктивен. Но в любом случае рассудит жизнь.

    пусть теперь там и сидит на нём .. один..
    Почитал, ну форум там немалый конечно. Не знаю ничего не могу сказать, VB-шники каста гордая и мудрая.
    Чтобы знать насколько всё справедливо, надо зайти на форум пообщаться. У нас например никто банить не
    станет, даже если на три буквы пошлёшь, главное не спаммить.
    Последний раз редактировалось >Quiet Snow<; 17.04.2014 в 02:09.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  10. #10  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    Уважаемый >Quiet Snow< у меня к Вам просьба !

    недавно я общался с нашим пользователем The Trick (монстр програмирования моё имхо..)
    по каналам ВК, так вот.. говорит потерял пароль..........

    Вы уж помогите ему отправте какнибудь личным письмом его учётки
    а то мне одному из (гордых VB-шников) здесь оставаться неуютно
    Последний раз редактировалось FelixMacintosh; 17.04.2014 в 08:19.
    Нет подписи : (
    Ответить с цитированием  
     

Страница 1 из 3 123 ПоследняяПоследняя
Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •