1. Tải bản cài đặt AutoIT mới nhất

    Chào Khách. Nếu bạn mới tham gia và chưa cài đặt AutoIT.
    Vui lòng vào topic trên để tải bản AutoIT mới nhất nhé
    Dismiss Notice
  2. Quy định và nội quy

    Chào Khách. Vui lòng đọc kỹ nội quy và quy định của diễn đàn
    Để tránh bị ban một cách đáng tiếc nhé!
    Dismiss Notice
  3. Hướng dẫn chèn mã AutoIT trong diễn đàn

    Chào Khách. Vui lòng xem qua bài viết này
    Để biết cách chèn mã AutoIT trong diễn đàn bạn nhé :)
    Dismiss Notice

Hỏi đáp Mọi người cho e xin code tự động nhập input vào web (Zalo, FB))

Thảo luận trong 'Thảo luận chung - Hỏi đáp' bắt đầu bởi Mtp, 12/3/20.

  1. Mtp

    Mtp Thành viên mới
    • 1/6

    Tham gia ngày:
    12/3/20
    Bài viết:
    2
    Đã được thích:
    0
    Mọi người cho e xin code tự động nhập input vào web zalo hay facebook.e cam on.e newbie
     
  2. #Rainy# Hoàng Vũ IT

    #Rainy# Hoàng Vũ IT Hoàng Vũ IT
    • 28/34

    Tham gia ngày:
    21/11/16
    Bài viết:
    327
    Đã được thích:
    90
    Nơi ở:
    Quận 12 TP. Hồ Chí Minh
    Newbie thì nên làm gì ? Xin thưa là làm ơn học căn bản hộ mình với. Dù có code thì bạn có thật sự biết cách vận hành không ?
    Bạn biết được nó làm việc như thế nào để làm không ?
    Học căn bản. tìm hiểu tất cả cách thao tác với web, sau đó quay lại.
     
  3. Mtp

    Mtp Thành viên mới
    • 1/6

    Tham gia ngày:
    12/3/20
    Bài viết:
    2
    Đã được thích:
    0
    Thao tác với web vang autoit e tiem mãi ko thay dc bai viet nao lien quan.a giúp e 1 cum tu de tiem kiem dc ko
     
  4. hichay1

    hichay1 Thành viên mới
    • 1/6

    Tham gia ngày:
    10/3/20
    Bài viết:
    8
    Đã được thích:
    0
    code gợi ý cho bạn .

    Mã (AutoIt):
    #NoTrayIcon
    #include <WindowsConstants.au3>
    #include <StaticConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <EditConstants.au3>
    #include <GUIConstants.au3>
    #include <GDIPlus.au3>
    #include <String.au3>
    #Include <WinAPI.au3>
    #include <array.au3>
    #include <Misc.au3>
    #include <IE.au3>

    FBLogin()

    Func FBLogin()

    Global $Enter = False

    Local $msg, $GUI_FBN, $GUI_FBP

    $GUI = GUICreate("F a c e b o o k | L o g i n", 385, 110)
    $GUI_Label1 = GUICtrlCreateLabel("Email Address:", 10, 28)
    $GUI_FBN = GUICtrlCreateInput("", 100, 25, 200, 20)
    $GUI_Label2 = GUICtrlCreateLabel("Login Password:", 10, 53)
    $GUI_FBP = GUICtrlCreateInput("", 100, 50, 200, 20, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
    $GUI_Create = GUICtrlCreateButton("Login", 100, 75, 200, 20)
    $BACKGROUNDX = GuiCtrlCreatePic("Facebook.gif", 310 ,20 ,64, 64)
    GUICtrlSetState($BACKGROUNDX, $GUI_DISABLE)
    GUISetState()
    HotKeySet("{Enter}", "EnterPressed")
        While 1
            $msg = GUIGetMsg()
            If WinActive("F a c e b o o k | L o g i n") Then
                HotKeySet("{Enter}", "EnterPressed")
            Else
                HotKeySet("{Enter}")
            EndIf
            If $msg = -3 Then Exit
            If $msg = $GUI_Create Or $Enter = True Then
                Global $Enter = False
                If GUICtrlRead($GUI_FBN) = "" Then
                    MsgBox(48, "F a c e b o o k | E r r o r", "Fields are Blank, Please Fill in the Fields...")
                Else
                    $1 = GUICtrlRead($GUI_FBN)
                    $2 = GUICtrlRead($GUI_FBP)
                    $timeout = 5000
                    _IEErrorHandlerRegister()
                    _IELoadWaitTimeout($timeout)
                    $oIE = _IECreate("http://www.facebook.com/login.php")
                    $oHWND = _IEPropertyGet($oIE, "hwnd")
                    WinSetState($oHWND, "", @SW_MAXIMIZE)
                    $oForm = _IEFormGetObjByName($oIE, "login_form")
                    $oQuery = _IEFormElementGetObjByName($oForm, "email")
                    $o_Query = _IEFormElementGetObjByName($oForm, "pass")
                    $oSubmit = _IEFormElementGetObjByName($oForm, "login")
                _IEFormElementSetValue($oQuery, $1)
                _IEFormElementSetValue($o_Query, $2)
                _IEAction($oSubmit, "click")
            ExitLoop
        EndIf
    EndIf
    WEnd
    EndFunc ;FBLgin()
     
  5. darknight

    darknight Thành viên mới
    • 3/6

    Tham gia ngày:
    10/1/17
    Bài viết:
    22
    Đã được thích:
    3

Chia sẻ trang này

Đang tải...