Jump to content

Leaderboard

Popular Content

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

  1. ioa747

    SciTE PlusBar

    The first time it runs the SciTE PlusBar the Configuration window appears which, in addition to the adjustments it makes regarding the position of PlusBar, every time it appear, it checks if there is a relevant shortcut, in this case SciTE_PlusBar.execute.lnk in the folder SciTE_PlusBar_1.0.0.25\SciTE\ and if not there then make one Which shortcut (SciTE_PlusBar.execute.lnk) I have copied on the desktop, I use it to call the SciTE You can also call Configuration from the main menu by clicking on the gear Back to first post
    2 points
  2. gcue

    DateDiff_WorkDaysOnly

    Thought I'd share this snippet I created based off jdelaney's post Calculates date in the past based off of only work days (ie: a week of just workdays). Any feedback welcome $start_date = "2023/03/27" $weekdays_ago = 2 $date = DateDiff_WeekDaysOnly($start_date, $weekdays_ago) Func DateDiff_WeekDaysOnly($start_date, $weekdays_ago) $weekdays = 0 $days_reduce = 0 While $weekdays <> $weekdays_ago $days_reduce -= 1 $running_date = _DateAdd("d", $days_reduce, $start_date) $aTemp = StringSplit($running_date, "/") $iDate = _DateToDayOfWeek($aTemp[1], $aTemp[2], $aTemp[3]) If $iDate <> 1 And $iDate <> 7 Then $weekdays += 1 EndIf WEnd $date_desired = _DateAdd("d", $days_reduce, $start_date) Return $date_desired EndFunc ;==>DateDiff_WeekDaysOnly
    1 point
  3. Jos, Once the grandchildren have moved on to the other grandparents tomorrow I will also give it a go. M23
    1 point
  4. 1 point
  5. Sascha

    DateDiff_WorkDaysOnly

    Maybe this something for the "Autoit Snippets" thread?
    1 point
  6. in edge adress bar paste edge://settings/system and deactivate the Startup boost then try again ShellExecute("https://www.autoitscript.com/forum/topic/210016-shellexecute-maximized/", "", "", "", @SW_MAXIMIZE)
    1 point
  7. Neat feature alert! Check the first post for the latest update v1.0.0-beta5. You can now add code/events to buttons, labels, etc.. by using the right-click context menu or double-clicking on the control. This works for both Msg mode as well as OnEvent mode. The extra code is added dynamically only for those controls who have event code assigned, so you won't have tons of extra and unneeded bloat in the generated code. ADDED: Add events to controls (right-click menu or double click) ADDED: Add options to code preview window for convenience FIXED: Could not 'undo' drawing of new control Example of a MsgBox assigned to $Button_1 in Msg mode: And here is the generated code for OnEvent mode: I'm thinking about possibly adding a default code input, such as ConsoleWrite("Event: Button_1" & @CRLF) since most people would be using this for prototyping and not full-on coding.
    1 point
  8. gcue

    DateDiff_WorkDaysOnly

    i had it like that originally. I just changed it to manual values so i can test with different dates thx
    1 point
  9. try this from Main.au3 ShellExecute("runas", "/trustlevel:0x20000 test.exe")
    1 point
  10. juzis28

    Detect Read Barcode

    Thanks anyway. Got it finally working. Used RawInput.au3 and input filtration "all but keyboard". Inside of _OnInput() i do some filtering for unacepted chars and proper string (accepted only those with letters A and K ald later certain stirng lenght is filtered out). Func _OnInput($hwnd, $iMsg, $iwParam, $ilParam) Local $tRI_KD, $pRI_KD, $iRI_KB Local $tRIDI_HID, $pRIDI_HID, $iRIDI_HID Local $iSize $tRI_KD = DllStructCreate($tagRAWINPUT_KEYBOARD) $pRI_KD = DllStructGetPtr($tRI_KD) $iRI_KB = DllStructGetSize($tRI_KD) $tRIDI_HID = DllStructCreate($tagRIDDEVICEINFO_HID) $pRIDI_HID = DllStructGetPtr($tRIDI_HID) $iRIDI_HID = DllStructGetSize($tRIDI_HID) DllStructSetData($tRIDI_HID, 'cbSize', $iRIDI_HID) _GetRawInputData($ilParam, $RID_INPUT, $pRI_KD, $iRI_KB, $iRIH) If Not @error Then $hdevice = DllStructGetData($tri_kd, "hDevice") $vkey = DllStructGetData($tri_kd, "VKey") If $KEYBOARD_ID = "" Then $KEYBOARD_ID = 0x000B003F ; default keyboard ID on my PC EndIf EndIf _GetRawInputDeviceInfo($hDevice, $RIDI_DEVICEINFO, $pRIDI_HID, $iRIDI_HID) If Not @error Then $hDevice2 = DllStructGetData($tRI_KD, 'hDevice') $dwVendorId = DllStructGetData($tRIDI_HID, 'dwVendorId') $dwProductId = DllStructGetData($tRIDI_HID, 'dwProductId') $dwType = DllStructGetData($tRI_KD, 'dwType') EndIf If DllStructGetData($tRI_KD, 'hDevice') <> $KEYBOARD_ID Then ;~ $vKey = DllStructGetData($tRI_KD, 'VKey');F3 = 114 ;~ ConsoleWrite(Chr($vKey)) If $on Then $t=$t& Chr($vKey) ;~ ConsoleWrite($t&@CR) $on=0 Else $on=1 EndIf EndIf $tRI_KD = 0 $t = StringRegExpReplace ( $t, "(?i)[^0-9AK\.]", "" ) ; K number If StringLen($t) = 10 Then If StringInStr($t, "K") Then _insert_barcode() EndIf ; ; A number ElseIf StringLen($t) = 8 Then If StringInStr($t, "A") Then _insert_barcode() EndIf EndIf Return $GUI_RUNDEFMSG EndFuncI still do not know how to prevent dublication of strings, i use some loop in function _insert_barcode()... Code dirty... but it works... Func _insert_barcode() Local $state_GUI6 = WinGetState($hGUI6) $state = WinGetState($hGUI7) $iLoop_Count += 1 If $iLoop_Count = 1 Then GUICtrlSetData($input_barcode, $t) $state_GUI6 = WinGetState($hGUI6) ConsoleWrite("$state GUI6..." & $state_GUI6 & @CRLF) If BitOR($state_GUI6 = 7, $state_GUI6 = 15) Then ;~ _listview_gui_close_to_barcode() GUICtrlSetData($input_barcode, $t) EndIf GUICtrlSetState($input_barcode, $GUI_FOCUS) $state = WinGetState($hGUI7) ConsoleWrite("$state GUI7..." & $state & @CRLF) If BitOR($state = 7, $state = 23) Then ; background (7) or minimized (23) If StringLen($t) <> 0 Then ConsoleWrite("StringLen($t): " & StringLen($t) & @CRLF) ConsoleWrite("$iLoop_Count: " & $iLoop_Count & @CRLF) ConsoleWrite("$t: " & $t & @CRLF) ControlClick($name7, "", "[CLASS:Button; TEXT:OK]") EndIf ; should check for state to send click If $state_GUI6 = 5 And BitOR($state = 7, $state = 23) Then ControlClick($name7, "", "[CLASS:Button; TEXT:OK]") EndIf ElseIf $state = 15 Then ; foreground, focused GUICtrlSetData($input_barcode, $t) ; no need for click, accepted by scanner Else ConsoleWrite("$t empty. No Click here..." & @CRLF) EndIf EndIf $iLoop_Count = 0 $t = "" EndFunc
    1 point
  11. Vinicius2023

    Run cmd command

    #RequireAdmin RunWait("cmd '/c' PBIDesktopRS_x64.msi /passive", @ScriptDir) Is the above code correct friends?
    0 points
×
×
  • Create New...