Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 04/19/2023 in all areas

  1. It appears that they are now filtering out requests that do not have a "valid" User-Agent. By adding a User-Agent from any popular browser, it should work. Other User-Agent strings may work too, like the default one sent by cURL (in my case "User-Agent: curl/8.0.1"). The example below is exactly the same as yours with the addition of a Firefox User-Agent header. It worked for me. $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") $oHTTP.Open("GET","https://www.duolingo.com/2017-06-30/users?username=Marecustitus", False) $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:79.0) Gecko/20100101 Firefox/79.0") $oHTTP.Send() consolewrite($oHTTP.ResponseText&@crlf) consolewrite("http error: "&$oHTTP.Status&@crlf) Console: (with redactions) {"users":[{"joinedClassroomIds":[],"streak":160,"motivation":"brain","acquisitionSurveyReason":"friendsOrFamily","shouldForceConnectPhoneNumber":false,"picture":"redacted","learningLanguage":"en","hasFacebookId":false,"shakeToReportEnabled":null,"liveOpsFeatures":[],"canUseModerationTools":false,"id":000000000,"betaStatus":"INELIGIBLE","hasGoogleId":false,"privacySettings":[],"fromLanguage":"cs","hasRecentActivity15":false,"_achievements":[],"observedClassroomIds":[],"username":"redacted","bio":"","profileCountry":"CZ","globalAmbassadorStatus":{},"currentCourseId":"DUOLINGO_EN_CS","hasPhoneNumber":false,"creationDate":1619983341,"achievements":[],"hasPlus":false,"name":"redacted","roles":["users"],"classroomLeaderboardsEnabled":false,"emailVerified":false,"courses":[{"preload":false,"placementTestAvailable":false,"authorId":"duolingo","title":"English","learningLanguage":"en","xp":19391,"healthEnabled":true,"fromLanguage":"cs","crowns":52,"id":"DUOLINGO_EN_CS"}],"totalXp":19391,"streakData":{"currentStreak":{"startDate":"2022-10-15","length":160,"endDate":"2023-04-18"}}}]} http error: 200
    2 points
  2. Bildozer, Here you go - setting the timeout value to a negative value doubles the size of the countdown font: ExtMsgBox_Mod.au3 Or you can try this one where you need to add 128 to the $iStyle parameter of _ExtMsgBoxSet: ExtMsgBox_ModSet.au3 Which do you prefer? M23
    1 point
  3. AutoBert

    full screen gui

    ESC insn't colsing the script. and script has also bad coding practice defining global var in a loop. Add this: #AutoIt3Wrapper_AU3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 and have a look in the console output. So i prefer to do i this way: ; https://www.autoitscript.com/forum/topic/210078-full-screen-gui/?do=findComment&comment=1516762 #AutoIt3Wrapper_AU3Check_Parameters=-q -d -w 1 -w 2 -w 3 -w 4 #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GDIPlus.au3> #include <GUIConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region (=== GUI generated by GuiBuilderPlus 1.0.0-beta4 ===) Global $hGUI = GUICreate("MyGUI", 400, 350, 760, 365, -1, -1) Global $idFullScreen = GUICtrlCreateDummy() #EndRegion (=== GUI generated by GuiBuilderPlus 1.0.0-beta4 ===) _GDIPlus_Startup() ; ========== USED TO ADD PICTURE IN MEMORY ==================== Global Const $Pic_Banner = _GDIPlus_BitmapCreateFromMemory(_vista(), True) ; ============================================================= OnAutoItExitRegister("_Exit") _main() ;------------------------------------------------------------------------------ ; Title...........: _main ; Description.....: run the main program loop ;------------------------------------------------------------------------------ Func _main() GUISetState(@SW_SHOW) Local $aAccelKeys[1][2] = [["{F11}", $idFullScreen]] GUISetAccelerators($aAccelKeys) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE ExitLoop Case $idFullScreen _FullScreen() Case Else ; EndSwitch ;Sleep(10) WEnd EndFunc ;==>_main ;------------------------------------------------------------------------------ Func _FullScreen() Local Static $aWPos, $aGUIStyle = GUIGetStyle($hGUI), $iFullScreen = 0 If $iFullScreen = 0 Then $aWPos = WinGetPos($hGUI) WinMove($hGUI, "", 0, 0, @DesktopWidth, @DesktopHeight) Local $Pic1 = GUICtrlCreatePic("", 0, 0, @DesktopWidth, @DesktopHeight) _WinAPI_DeleteObject(GUICtrlSendMsg($Pic1, $STM_SETIMAGE, $IMAGE_BITMAP, $Pic_Banner)) GUISetStyle(BitOR($WS_POPUP, $WS_EX_TOPMOST), -1) $iFullScreen = 1 Else WinMove($hGUI, "", $aWPos[0], $aWPos[1], $aWPos[2], $aWPos[3]) GUISetStyle($aGUIStyle[0], $aGUIStyle[1]) $iFullScreen = 0 EndIf EndFunc ;==>_FullScreen ;------------------------------------------------------------------------------------- Func _exit() ;_WinAPI_DeleteObject($Pic_Banner) _GDIPlus_Shutdown() Exit EndFunc ;==>_exit ;------------------------------------------------------------------------------------- ;Code below was generated by: 'File to Base64 String' Code Generator v1.20 Build 2020-06-05 ESC is closing GUI and no warnings or errors in console.
    1 point
×
×
  • Create New...