Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[pytanie] Wpisywanie tekstu w input


C.J

Rekomendowane odpowiedzi

Weteran
Opublikowano

Witam.

Możecie mi wytłumaczyć jaką komendę użyć do wpisania czegoś do poszczególnego input'a na jakiejś stronie?

 

Przykład z chomikuj.

 

Kod inputa do komentarzy.

<textarea cols="20" id="chomikChatMessage" name="Message" rows="2">Tutaj treść komentarza</textarea>

 

Jak z tego coś wydusić?

Próbowałem metodą "Nauka na błędach", ale od godziny nie skutkuje ;x

Dla sprostowania, chcę wiedzieć jak można wysłać coś do inputa na stronie (konkretne komendy i przykłady)

Proszę o szczegółowe wyjaśnienie.

1329036830-U154499.png
Opublikowano
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <Constants.au3>
#include <GuiEdit.au3>


               $OknoProgramu = GUICreate("Input", 401, 451, 192, 124)
               $CreateIE = _IECreateEmbedded()
               $OknoIE = GUICtrlCreateObj($CreateIE, 16, 144, 369, 289)
               $Start = GUICtrlCreateButton("Start", 312, 83, 73, 25, $WS_GROUP)
               $Exit = GUICtrlCreateButton("Exit", 312, 115, 73, 25, $WS_GROUP)
               $Input1 = GUICtrlCreateInput("http://chomikuj.pl/PRZYRODNICZE", 64, 16, 321, 21)
               $Input2 = GUICtrlCreateInput("Zapraszam na mój profil...", 64, 48, 321, 21)
               $Input3 = GUICtrlCreateInput("", 64, 80, 121, 21)
               $Input4 = GUICtrlCreateInput("", 64, 112, 121, 21)
               $Label1 = GUICtrlCreateLabel("Adres:", 16, 19, 45, 17)
               $Label2 = GUICtrlCreateLabel("Treść:", 16, 51, 60, 17)
               $Label3 = GUICtrlCreateLabel("Login:", 16, 83, 45, 17)
               $Label4 = GUICtrlCreateLabel("Hasło:", 16, 115, 60, 17)
               GUISetState(@SW_SHOW)

While 1
   $nMsg = GUIGetMsg()
   Switch $nMsg
       Case $GUI_EVENT_CLOSE
           Exit
       Case $Exit
           Exit
       Case $Start
           _IENavigate($CreateIE, GUICtrlRead($Input1))
           _IELoadWait($CreateIE)
               $PoleLogin = _IEGetObjByName($CreateIE, "Login") ; Mozna tez uzyc _IEGetObjByID
               $PoleHaslo = _IEGetObjByName($CreateIE, "Password")
                   $Login = GUICtrlRead($Input3)
                   $Haslo = GUICtrlRead($Input4)
                   _IEFormElementSetValue($PoleLogin, GUICtrlRead($Input3))
                   _IEFormElementSetValue($PoleHaslo, GUICtrlRead($Input4))
               $PrzyciskLogowania = _IEGetObjById($CreateIE, "topBar_LoginBtn")
                   _IEAction($PrzyciskLogowania, "click")
                   _IELoadWait($CreateIE)
               $PoleKomentarz = _IEGetObjById($CreateIE, "chomikChatMessage")
                   _IEFormElementSetValue($PoleKomentarz, GUICtrlRead($Input2))
   EndSwitch
WEnd

obraz24.png


Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...