Недавние сообщения

Страницы: [1] 2 3 ... 10
1
по event функции тоже неправильно
А как при включенном режиме GUIOnEventMode передать параметры функции. Например текст, введенный в GUICtrlCreateInput?
справку читаю. Но с GUI еще мало знаком.
2
примерно
(нажмите для показа/скрытия)
а вот справку читать нужно внимательно. при создании второго окна ты не указал размеры самого окна. по event функции тоже неправильно
3
Код: AutoIt [Выделить]
$lGui = GUICreate("Child", 100, 100, -1, -1, $WS_SYSMENU, -1, $hGui)

4
Добрый день! Возникла проблема с дочерним окном. Оно должно появляться при нажатии на кнопку, потому я поместил  его в функцию. И все срабатывает, но дочернее окно не видно. Если же убрать $WS_SYSMENU, то окно становится видимым, но нет кнопки закрыть.
Код: AutoIt [Выделить]
#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListBox.au3>
#include <FTPEx.au3>
#include <Array.au3>
#include <WinAPI.au3>

Global $hGui, $lGui, $bButton

$hGui = GUICreate("Parent", 150, 150)
GUISetOnEvent($GUI_EVENT_CLOSE, "f_ExitWin")
$bButton = GUICtrlCreateButton("Выбрать", 40, 65, 70, 20)
GUISetState(@SW_SHOW, $hGui)

While 1
   Switch GUIGetMsg()
   Case $bButton
      f_Choise_FTP()
   EndSwitch
   Sleep(10)
WEnd


Func f_Choise_FTP ()
   $lGui = GUICreate("Child", 100, 100, $WS_SYSMENU, -1, $hGui)
      GUISetOnEvent($GUI_EVENT_CLOSE, "f_CloseWin")
   $bButton1 = GUICtrlCreateButton("Кнопка", 15, 40, 70, 20)
   GUISetState(@SW_SHOW, $lGui)
EndFunc

Func f_CloseWin()
    GUIDelete(@GUI_WinHandle)
EndFunc

Func f_ExitWin()
    GUIDelete(@GUI_WinHandle)
EndFunc
 

5
Общие вопросы по AutoIt / Re: [Окна, Диалоги] Черный скриншот
« Последний ответ от joker2d Отправлен Сегодня в 13:23:52 »
Нашел еще вариант блокировать пользовательскую сессию:
tscon.exe RDP-Tcp#0 /desc:consoleиспользуя cmd, либо сделать bat'ник с вычислениями текущей сессии и выбрасыванием из нее:
for /f "skip=1 tokens=3" %%s in ('query user %USERNAME%') do (
  %windir%\System32\tscon.exe %%s /dest:console
)
Работает на Windows 2012 и на 7, другие под руку не попадались;)
С 7 есть косяк, на доменных тачках надо запускать через "запуск от имени администратора", на 2012 через обычный RunWait влетает(правда запускал из под сессии .\Administator).
А где брать имена сеансов как у вас в примере RDP-Tcp#0 ? и понять к каким окнам они относятся?

ввожу в консоле
tscon.exe RDP-Tcp#0 /desc:console
получаю ответ
Ошибка в параметрах
7
Стол заказов / Re: Socks5 и tor, парсинг сайтов
« Последний ответ от kupog Отправлен Сегодня в 11:12:09 »
Там же было всё уже указано, "forward-socks5t  *.onion  127.0.0.1:9050  ." точка в конце нужна, разархивировать архив,запустить файл, править не надо конфиг правильный, у AutoIt нет стредств решения задачи, все средства шиндовс - winapi, с TCP функциями пример выше, не будет https, WinHttpRequest не работает с сокс напрямую, прямо может ие и ие в WinINet.au3.
Спасибо, с "forward-socks5t  *.onion  127.0.0.1:9050  ." заработало наконец, не внимательно справку прочитал :-[ Порт только на стандартный 9150 сменил.
Но это альтернативное решение моей проблемы, под мой задуманный проект не совсем подходит. :-[
В WinINet.au3 описание вроде как FTP/HTTP/HTTPS/Gopher+.
С ИЕ в первом посте своем выложил пример, работает через тор, но только не *.onion сайты.
Вот с tcp как раз мне и подходит и хочется найти решение именно в этом направление. Но тут у  меня вопросы. В примере, что Вы выложили не совсем рабочий вариант, чему равны переменные $data и $sCookies? На них ругается и не работает скрипт. Второй вопрос - отправляется запрос socks4, а у тора socks5, работает и с таким запросом?
Т.е. должно наверное выглядеть как минимум примерно так:
Код: AutoIt [Выделить]
$sReq = Chr(0x05) _                                     ; Protocol version  5
             & Chr(0x01) _                                     ; Command Code      1 - establish a tcp/ip stream connection
             & Chr(0x00) & Chr(0x50) _                        ; Port              80
             & Chr(0x00) & Chr(0x00) & Chr(0x00) & Chr(0xff) _ ; Ip Adress         Invalid - 0.0.0.255
             & "" & Chr(0x00) _                           ; User Id           Empty
             & "rutracker.org" & Chr(0x00) ; Host Name         www.mamma.com

А т.к. у socks5 больше функционала и соответственно значит параметров, то запрос должен наверное содержать больше информации  :think: :stars: В общем пытаюсь вникнуть в это, а не только готовое решение получить) Хотя пока что и с готовым решением по tcp больше вопросов, чем ответов)) Т.к. когда оно уже работает как-то, то проще ковыряться, понимаешь, что изменил и почему перестало работать или наоборот лучше стало работать. А в том примере орет на куки и дата переменные, т.е. пока не понятно, что туда нужно вообще предоставить этой функции) Извиняюсь, что возможно много в чем-то туплю и вероятно уже поднадоел со своими вопросами, просто пытаюсь разобраться до конца и добиться своей цели - работа через tcp.


Добавлено: Сегодня в 12:47:56
Наконец у меня продвижение..  ;D
Более менее разобрался. Но теперь не получается получить ответ, ругается на неправильный запрос, нужна помощь)
Код: AutoIt [Выделить]
TCPStartup()

    $hc = TCPConnect("127.0.0.1", 9150) ; Socks4a Proxy Server

    $sReq = Chr(0x04) _                                     ; Protocol version  4
             & Chr(0x01) _                                     ; Command Code      1 - establish a tcp/ip stream connection
             & Chr(0x00) & Chr(0x50) _                        ; Port              80
             & Chr(0x00) & Chr(0x00) & Chr(0x00) & Chr(0xff) _ ; Ip Adress         Invalid - 0.0.0.255
             & "" & Chr(0x00) _                           ; User Id           Empty
             & "hss3uro2hsxfogfq.onion" & Chr(0x00) ; Host Name

; Send Request to Proxy
TCPSend($hc,$sReq)

; Wait for the Reply
While 1
    $sBuff = TCPRecv($hc,1)
    If @error Then Exit @ScriptLineNumber
    If StringLen($sBuff) > 0 Then ExitLoop
    Sleep(100)
WEnd

$sBuff &= TCPRecv($hc,8)

; Check for errors
Switch StringMid(Hex(BinaryToString($sBuff)),3,2)
    Case "5A"
        ConsoleWrite("> request granted" & @CR)
    Case "5B"
        ConsoleWrite("> request rejected or failed" & @CR)
        Exit @ScriptLineNumber
    Case "5C"
        ConsoleWrite("> request failed because client is not running identd (or not reachable from the server)" & @CR)
        Exit @ScriptLineNumber
    Case "5D"
        ConsoleWrite("> request failed because client's identd could not confirm the user id string in the request" & @CR)
        Exit @ScriptLineNumber
EndSwitch

; Send Http Request
$sReq  = "GET /index.html HTTP/1.1" & @CRLF
$sReq &= "Host: hss3uro2hsxfogfq.onion" & @CRLF & @CRLF
ConsoleWrite("! Request:" & @CR & $sReq & "---------------------------------" & @CR)
TCPSend($hc,$sReq)

; Wait for the Reply
ConsoleWrite("Receiving Data ")
$sRepy = ""
While 1
    $sBuff = TCPRecv($hc,1024*5)
    If @error Then
        ConsoleWrite("ERROR ")
        ExitLoop
    Endif
    If StringLen($sBuff) > 0 Then
        $sRepy &= $sBuff
        ConsoleWrite(".")
        ExitLoop
    EndIf
    Sleep(100)
WEnd

; Save Result to disk
$hFile = FileOpen("socks.html",2)
FileWrite($hFile,$sRepy)
FileClose($hFile)

ConsoleWrite("Reply Body stored in .\socks.html (" & Round(StringLen($sRepy)/1024,2) & "Kb)" & @CR)

Уже по разному пробовал и все равно 404 ошибка приходит:
(нажмите для показа/скрытия)
8
Всем привет. В окне, при нажатии alt, зажимаем левую кнопку мыши , "рисуем" прямоугольник, захватывая в него элементы окна. задача - вычислить, какие элементы, пусть и частично, попадают в очерченный прямоугольник.
я составил условие, но оно не полно, а значит не верно. не могу понять где ошибка. математик я ещё тот  :)
сам код это как пример
смотри описания в коде

(нажмите для показа/скрытия)


9
На удаленном сервере к которому конектюсь по RDP стоит скрипт autoit который делает скриншоты экрана раз в 10 мин, после чего отсылает в общую папку.
Иногда он вместо изображения шлет черный экран, чтобы он опять начал слать нормально нужно поднять окно RDP(которое не закрывается никогда) и там подвигать мышкой, то есть как будто сервак засыпает, но там стоит Windows 2012 Server там нет такой функции.
Может есть какое то решение для скриншотов чтобы не было черного экрана ?

И можно ли делать нормальные скрины если вообще отключиться от сервера по RDP ?
10
Стол заказов / Как разместить кнопку на Title окна
« Последний ответ от RipVanWinkel Отправлен Сегодня в 07:14:25 »
Версия AutoIt: 3.3.14.0

Описание:
Здравствуйте.
Скажите как разместить кнопку на Title окна с названием "Notepad" - правой стороны (не доходя до стандартных кнопок закрытия и сворачивания) ?

Чтобы при нажатии на эту кнопку появлялось некое сообщение.

Примечания:
Страницы: [1] 2 3 ... 10