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

Страницы: 1 2 [3] 4 5 ... 10
21
Общие вопросы по AutoIt / Re: разный размер GUI до и после компиляции
« Последний ответ от saraconor Отправлен Вчера в 00:11:42 »
Проблема решена, оказалось параметры картинки для GUI не соответствовали реальному размеру изображения.
22
Общие вопросы по AutoIt / Re: разный размер GUI до и после компиляции
« Последний ответ от joiner Отправлен Декабрь 14, 2018, 19:07:38 »
чем определял размеры окна после компиляции? у меня до и после одинаковые размеры
23
Стол заказов / Re: Socks5 и tor, парсинг сайтов
« Последний ответ от kupog Отправлен Декабрь 14, 2018, 14:46:05 »
Код: AutoIt [Выделить]
Func _tor()
    TCPStartup()

    $hc = TCPConnect("127.0.0.1", 9050) ; 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
             & "rutracker.org" & Chr(0x00) ; Host Name         www.mamma.com
    TCPSend($hc, $sReq)
    While 1
        $sBuff = TCPRecv($hc, 1)
        If @error Then Exit @ScriptLineNumber
        If StringLen($sBuff) > 0 Then ExitLoop
        Sleep(100)
    WEnd
    $sBuff &= TCPRecv($hc, 8)
    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
    $sReq = 'GET /forum/tracker.php?f=1997&nm="' & $data & '" HTTP/1.0' & @CRLF
    $sReq &= "Host: rutracker.org" & @CRLF
    $sReq &= 'Cookie: ' & $sCookies & @CRLF & @CRLF
    TCPSend($hc, $sReq)
    $sRepy = ""
    While 1
        $sBuff = TCPRecv($hc, 1024 * 5)
        If @error Then ExitLoop
        If StringLen($sBuff) > 0 Then
            $sRepy &= $sBuff
;~          ConsoleWrite(".")
        EndIf
        Sleep(100)
    WEnd
    TCPCloseSocket($hc)
    Return $sRepy
    TCPShutdown()
EndFunc   ;==>_tor

А можно более полную версию скрипта? :-[ На переменные $data и $sCookies ругается.
PS Натыкался на этот пример в сети уже. Но вызвало много сомнений,а именно версия протокола 4, порт и т.п. В целом весь запрос. Сейчас как раз пытаюсь во всем этом разобраться. Изучаю RFC 1928 — Протокол SOCKS 5, но пока что безрезультатно. Если можно, было бы здорово получить готовый рабочий пример к примеру под сайт hss3uro2hsxfogfq.onion  :-[
24
Стол заказов / Re: Socks5 и tor, парсинг сайтов
« Последний ответ от sngr Отправлен Декабрь 14, 2018, 14:27:40 »
Код: AutoIt [Выделить]
Func _tor()
    TCPStartup()

    $hc = TCPConnect("127.0.0.1", 9050) ; 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
             & "rutracker.org" & Chr(0x00) ; Host Name         www.mamma.com
    TCPSend($hc, $sReq)
    While 1
        $sBuff = TCPRecv($hc, 1)
        If @error Then Exit @ScriptLineNumber
        If StringLen($sBuff) > 0 Then ExitLoop
        Sleep(100)
    WEnd
    $sBuff &= TCPRecv($hc, 8)
    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
    $sReq = 'GET /forum/tracker.php?f=1997&nm="' & $data & '" HTTP/1.0' & @CRLF
    $sReq &= "Host: rutracker.org" & @CRLF
    $sReq &= 'Cookie: ' & $sCookies & @CRLF & @CRLF
    TCPSend($hc, $sReq)
    $sRepy = ""
    While 1
        $sBuff = TCPRecv($hc, 1024 * 5)
        If @error Then ExitLoop
        If StringLen($sBuff) > 0 Then
            $sRepy &= $sBuff
;~          ConsoleWrite(".")
        EndIf
        Sleep(100)
    WEnd
    TCPCloseSocket($hc)
    Return $sRepy
    TCPShutdown()
EndFunc   ;==>_tor

25
Стол заказов / Socks5 и tor, парсинг сайтов
« Последний ответ от kupog Отправлен Декабрь 14, 2018, 13:48:38 »
Всем привет, нужно парсить сайт находящийся в сети тор. Есть некоторые наработки. Из того, что получилось - серфить средствами Autoit через тор. Но при этом *.onion группа доменная не открывается.
Пример работающего вариант:
Код: AutoIt [Выделить]
#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>


Local $oIE = _IECreateEmbedded()
GUICreate("Embedded Web control Test", 640, 580, _
        (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
        $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 10, 40, 600, 360)


GUISetState(@SW_SHOW)

_UseTOR()
_SetUserAgent("Linux, Firefox")
_IENavigate($oIE, "http://2ip.ru")

While 1
    Local $iMsg = GUIGetMsg()
    Select
        Case $iMsg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

GUIDelete()

Exit

Func _SetProxy($proxy, $proxybypass = "")
    Local $INTERNET_OPTION_PROXY = 38
    Local $INTERNET_OPEN_TYPE_PROXY = 3
    Local $tBuff = DllStructCreate("dword;ptr;ptr")
    DllStructSetData($tBuff, 1, $INTERNET_OPEN_TYPE_PROXY)
    Local $pproxy = DllStructCreate("char[" & (StringLen($proxy) + 1) & "]")
    DllStructSetData($pproxy, 1, $proxy)
    DllStructSetData($tBuff, 2, DllStructGetPtr($pproxy))
    Local $pproxybypass = DllStructCreate("char[" & (StringLen($proxybypass) + 1) & "]")
    DllStructSetData($pproxybypass, 1, $proxybypass)
    DllStructSetData($tBuff, 3, DllStructGetPtr($pproxybypass))
    $chk_UrlMkSetSessionOption = DllCall("urlmon.dll", "long", "UrlMkSetSessionOption", "dword", $INTERNET_OPTION_PROXY, "ptr", DllStructGetPtr($tBuff), "dword", DllStructGetSize($tbuff), "dword", 0)
EndFunc

Func _UseTOR($TORPort = 9150)
    _SetProxy("socks=127.0.0.1:"&$TORPort)
EndFunc

Func _SetUserAgent($agent)
    $agentLen = StringLen($agent)
    Dim $tBuff = DllStructCreate("char["&$agentLen&"]")
    DllStructSetData($tBuff, 1, $agent)
    $chk_UrlMkSetSessionOption = DllCall("urlmon.dll", "long", "UrlMkSetSessionOption", "dword", 0x10000001, "ptr", DllStructGetPtr($tBuff), "dword", $agentLen, "dword", 0)
EndFunc
 

Обычные сайты без проблем открывает через тор, а вот *.onion не хочет, пишет, что переход отмене.

Но более предпочтительный вариант, сделать запрос через tcp, т.к. нужно консольное приложение в итогом результате. В эту сторону "копать" у меня хуже вышло.
Сделал такой набросок:
Код: AutoIt [Выделить]
$proxy = "127.0.0.1"
$port = 9150

$domain = "hss3uro2hsxfogfq.onion"
$path = "/contact.php"
$agent = "Test"

$request = "GET " & $path & " HTTP/1.1" & @CRLF
$request &= "Host: " & $domain & "" & @CRLF
$request &= "User-Agent: " & $agent & "" & @CRLF
$request &= "Connection: close" & @CRLF
$request &= "Accept: application/xhtml+xml,html/text,application/xml;q=0.9" & @CRLF & @CRLF

TCPStartup()

$socket = TCPConnect($proxy, $port)
If $socket = -1 Then Exit

TCPSend($socket, $request)

While 1
    $recv = TCPRecv($socket, 2048)
    If $recv <> "" Then
        ConsoleWrite($recv)
        ExitLoop
    EndIf
WEnd

TCPShutdown()

Но... Проблема тут уже в том, что Тор отвечает, что не работает через HTTP Proxy. Т.е. нужно правильно составить запрос, чтобы получить ответ с содержанием страницы. И на этом этапе у меня ступор, нужна помощь, уже неделю штудирую интернет безрезультатно, знаний не хватает.
26
Общие вопросы по AutoIt / разный размер GUI до и после компиляции
« Последний ответ от saraconor Отправлен Декабрь 14, 2018, 12:08:15 »
Не могу понять, что не так, при компиляции основное GUI чуть чуть ужимается по вертикали, как это поправить?

Код: AutoIt [Выделить]
#AutoIt3Wrapper_Res_File_Add=1.bmp, rt_rcdata, TEST_JPG_1
#AutoIt3Wrapper_Res_File_Add=2.bmp, rt_rcdata, TEST_JPG_2
#AutoIt3Wrapper_Res_File_Add=3.bmp, rt_rcdata, TEST_JPG_3

#include "GUIConstantsEx.au3"
#include "resources.au3"
#include <Icons.au3>
#include <ButtonConstants.au3>

$Form1 = GUICreate('', 575, 247, -1, -1, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_LAYERED))
GUISetBkColor(0xFFFFFE)
$PicBack1 = GUICtrlCreatePic('', 0, 0, 575, 247)
GUICtrlSetState(-1, $GUI_DISABLE)
_WinAPI_SetLayeredWindowAttributes($Form1, 0xFFFFFE, 255)
_ResourceSetImageToCtrl($PicBack1, "TEST_JPG_1")
if Not @Compiled Then GUICtrlSetImage(-1,"1" & ".bmp", -1)

$Bt_U_L = GUICtrlCreateButton('', 155, 44, 259, 33, $BS_BITMAP)
_ResourceSetImageToCtrl($Bt_U_L, "TEST_JPG_2")
if Not @Compiled Then GUICtrlSetImage(-1,"2" & ".bmp", -1)

GUISetState(@SW_SHOW)

While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $Bt_U_L
        _ResourceSetImageToCtrl($Bt_U_L, "TEST_JPG_3")
        if Not @Compiled Then GUICtrlSetImage(-1,"3" & ".bmp", -1)
        sleep(200)
        exit
    EndSwitch
WEnd

27
Общие вопросы по AutoIt / Best place to buy Maple Story 2 Mesos on mmogo
« Последний ответ от rsgoldfast2018 Отправлен Декабрь 14, 2018, 11:07:35 »
Creed Odyssey (Phiobe died, my resistance fighter friends died), but this was a happy ending I won't soon forget. The choice system doesn't exactly make it flawless (I needed to decide to forgive Alexios practically moments after he murdered my Spartan BFF Brasidas, that was obscure ), however the final result is my favorite ending into an AC match thus far, and one of my favorite RPG endings interval, if I'm being honest.  Best Price To Buy Maplestory 2 Mesos,Delivery Fast at MMOGO.com



Therefore, if you would like the family dinner party and ship crew like I'd, be kind, don't murder your dad or brothers. You will like the end result.Assassin's Creed Odyssey's special arrows can be quite beneficial in many different situations. You will stumble upon how to create them, but if you happen to miss it, you won't be able to take advantage of this flexible weapon upgrade. Here is how to create and use special arrows.



You might be tempted to pass over Arrow Master in the Hunter capability tree because rapping out targets at range as you're on the island of Kephallonia isn't very useful in comparison to the other abilities that unlock once you reach level five. What the game doesn't make clear, however, is that Arrow Mastery is the gateway to creating particular arrows.Placing one stage into Arrow Master enables you to create Paralyzing Arrows.



It's possible to add another point immediately to acquire Fire and Poison Arrows. Explosive Arrows could be added to your own stride when you hit level 16.Particular arrows can be created from the Quiver icon under the Inventory tab. They're cheap to make. Special arrows may likewise be retrieved from enemy arrow racks.



Like our youtube videos or facebook, get more off & coins. Such as Maplestory 2 Mesos,MaplestoryM Mesos,OSRS gold and more, please go to: MMOGO.COM
28
Общение / That would be considered Maplestory M Mesos safe on mmogo
« Последний ответ от rsgoldfast2018 Отправлен Декабрь 14, 2018, 11:05:55 »
If there is a chance to go against her, then I'm not sure when that occurs, but if there was ever a debate about approaches, I typically sided with her.The tricky family member is Alexios/Kassandra, the contrary sibling of whoever you are (I had been Kassandra). They've been raised by the cult and throw into a weapon, and you will square off against them in several of conflicts, and you will be given the opportunity to kill them (or at least attempt to kill them) on a number of occasions.  Best online shop to buy cheap Maplestory M Mesos for all servers on MMOGO.COM



I followed closely the pleading of my mom and tried to bring Alexios back around again, for him un-brainwashed by convincing him that the cult was lying to him using him this entire time.The final result of the? We receive a tearful mother-son-daughter reunion once I saved Alexios rather than killing him. Later, during a confrontation with my step-brother Stentor, he challenges me to a fight to the death since I pissed off him sooner by supposedly killing his dad and commander, but the duel ends up being divided by the surprise return of the father, Nikolaos, who proves he is alive and that I spared him.



All of this ends in a simple"pursuit" where it's the five of you, Alexios, Stentor, Myrrine and Nikolaos all having a family dinner together back in Sparta. All game you have been recruiting random people to join your crew, some through quests, some you just abduct out in the world, but as this portion of the game ends, you receive the four members of your household as your four lieutenants, and also you get to sail around Greece having adventures together (complete with new conversation on the ship as you sail).



The thought of the understanding still brings a tear to my eye. It's simply perfect, and such a nice final touch for this 40 hour storyline. Additionally, it helps that they're creatures in battle also, as during boat boarding battles Alexios specifically absolutely tears up people with his powered moves up.But mainly I enjoyed this end because of how it ties up Kassandra's story. There are a lot of very bad things that happen in the course of Assassin's



You can buy Cheap Maple story M Mesos from MMOGO and get Fast trade in Trade Station,please go to: MMOGO.COM
29
Стол заказов / Re: Написать программу тренировки кассира. Алгоритм прилагаю
« Последний ответ от lemonia Отправлен Декабрь 14, 2018, 08:18:22 »
Благодарю. Те пункты, которые Вы указали, хорошо бы, чтобы появились в программе. Другие полезные возможности мне не приходят на ум.
30
Стол заказов / Re: Нужна програмка для ввода логина - пароля (win 7)
« Последний ответ от saraconor Отправлен Декабрь 14, 2018, 01:04:32 »
После включения компьютера, либо выхода из режима сна, через 10 секунд после появления окошка для ввода пароля програмка должна ввести пароль....
"окошко для ввода пароля" это пароль входа пользователя в сиситему ? Как Вы представляете запуск скрипта ДО регистрации пользователя в системе ?
Интеграция скрипта в службы очевидно.
Страницы: 1 2 [3] 4 5 ... 10