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 Không change được User Agent IE

Thảo luận trong 'Thảo luận chung - Hỏi đáp' bắt đầu bởi abcnickao, 29/6/18.

  1. abcnickao

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

    Tham gia ngày:
    26/4/18
    Bài viết:
    12
    Đã được thích:
    0
    Các bro cho em hỏi có cách nào change user agent cho IE không(cụ thể là IE11)? Em thử chạy 1 số code trên mạng nhưng nó toàn báo lỗi .Mới lọ mọ tìm hiểu autoit nên còn non quá mong các bro giúp đỡ.
    Code như sau:-- đây là code coppy của người khác nguyên văn như sau:

    Mã (AutoIt):
    #include <IE.au3>
    Local $URL = "http://google.com"
    Local $URL2 = "http://youtube.com"
    Local $sUserAgent = "Agent User 1.0"  --->Cái này khi run em thay bằng  Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36
    Local $skey = "HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionInternet Settings"
    If @OSArch <> "X86" And @AutoItX64 Then $skey = "HKEY_CURRENT_USER64SoftwareMicrosoftWindowsCurrentVersionInternet Settings"
    Local $Write = RegWrite($skey, "User Agent", "REG_SZ", $sUserAgent)
    If Not $Write Then Exit MsgBox(16, "Error!", "Something went wrong while trying to set the useragent.")
    DllCall('WININET.DLL', 'long', 'InternetSetOption', 'int', 0, 'long', 39, 'str', 0, 'long', 0)
    $OIE = _IECREATE("http://whatsmyuseragent.com")
    Sleep (500000)
    _IENAVIGATE($OIE, $URL, 1)/code]

     
    Run lên báo lỗi "Something went wrong while trying to set the useragent"
    Mong các bro cứu giúp:(:(:(
     
    Last edited by a moderator: 29/6/18
  2. Tungtata

    Tungtata Tà tà mà sống ~ Thành viên BQT Administrator
    • 93/113

    Tham gia ngày:
    25/8/15
    Bài viết:
    289
    Đã được thích:
    924
    Nơi ở:
    Hà Nội
    phần này bạn thử sửa lại xem sao nhé
    Mã (AutoIt):
    $skey="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings"
     
    abcnickao thích bài này.
  3. kakanet

    kakanet Thành viên năng động
    • 43/45

    Tham gia ngày:
    24/2/16
    Bài viết:
    203
    Đã được thích:
    211
    tớ hay dùng cách này k cần tác động vào registry :

    Mã (AutoIt):

    #include <IE.au3>

    Local $oIE = _IECreate("about:blank")
    _IENavigate2($oIE, "http://whatsmyuseragent.com", "Mozilla/5.0 My User-Agent")

    Func _IENavigate2($oObject, $URL, $UserAgent)
        $oObject.navigate2($URL, Default, Default, Default, "User-Agent: " & $UserAgent)
        _IELoadWait($oObject)
    EndFunc
     
    ảnh demo ^_^

    [​IMG]
     
    Chỉnh sửa cuối: 29/6/18
    abcnickao thích bài này.
  4. abcnickao

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

    Tham gia ngày:
    26/4/18
    Bài viết:
    12
    Đã được thích:
    0
    Em đổi lại như bác rồi. Nhưng vẫn ko đc. Vào lại registry xem value thì rõ ràng là set user agent sang chrome rồi mà trên web vẫn hiện là ie. :oops: Ông ie này rách việc ghê:autoit:
     
    Chỉnh sửa cuối: 29/6/18
  5. abcnickao

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

    Tham gia ngày:
    26/4/18
    Bài viết:
    12
    Đã được thích:
    0
    cách của bạn chạy tốt quá. Có cách nào cho nó change luôn 1 thể không.. Vì mỗi lần refresh hoặc chạy llink redirect là lại trở về như cũ.
     
  6. kakanet

    kakanet Thành viên năng động
    • 43/45

    Tham gia ngày:
    24/2/16
    Bài viết:
    203
    Đã được thích:
    211
    cậu thử cách này xem sao

    Mã (AutoIt):
    #include <IE.au3>
    Local $skey = "HKEY_CURRENT_USER)\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent"
    If @AutoItX64 Then $skey = "HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent"
    RegWrite($skey, "", "REG_SZ", "Test thu xem sao")
    RegWrite($skey, "Platform", "REG_SZ", "Windows NT 5.123456")
    RegWrite($skey, "Version", "REG_SZ", "MSIE 6.0123456")

    $OIE = _IECreate("about:blank")
    _IENavigate($OIE, "http://whatsmyuseragent.com")
     
     
    abcnickao thích bài này.
  7. abcnickao

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

    Tham gia ngày:
    26/4/18
    Bài viết:
    12
    Đã được thích:
    0
    Em chạy code trên vẫn ko được. Cảm ơn bác nhé. :):):)
     
    Chỉnh sửa cuối: 30/6/18

Chia sẻ trang này

Đang tải...