Jump to content

Leaderboard

Popular Content

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

  1. They didn't tell you on your way in? ... I am a robot.
    1 point
  2. I assume it only does one file? That last ExitLoop looks wrong and should be removed. Else describe if you still have a question or not. Jos
    1 point
  3. Open the Helpfile and search for: FileFindFirstFile / FileFindNextFile / _FileListToArray Run / ShellExecute Send() / ControlSend() ProcessClose() For ... Next Can't be that hard Jos
    1 point
  4. For instance: $in = "Senteces 1!Senteces2" ConsoleWrite(StringRegExpReplace($in, "!(?!\s)", "! ") & @CRLF)
    1 point
  5. I get a different result to you in every situation. Run the following script first without pressing pause: #include <Misc.au3> MsgBox(0, "_IsPressed(0x13)", _IsPressed(0x13), 2) ; message will time out in 2 seconds Sleep(500) ; slow it down a bit MsgBox(0, "_IsPressed(""13"")", _IsPressed("13"), 2) ; correct syntax You should get False in both cases. Now repeat the experiment while holding down the pause key: after which I get two different results.
    1 point
  6. DKiehl

    FTP Won't Work

    Try changing $got = _FTP_DirGetCurrent($Sesson) to $got = _FTP_DirGetCurrent($handle) dk
    1 point
  7. Guy_, Note the use of "number" and "hwnd"... #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiListBox.au3> #include <array.au3> Local $NumListBoxes = 5 $oLBH = ObjCreate("Scripting.Dictionary") Local $gui010 = GUICreate('LB Dictionary Example', 600, 200) For $1 = 0 To $NumListBoxes - 1 $oLBH.add(Number(_GUICtrlListBox_Create($gui010, '', $1 * 105 + 40, 10, 100, 100)), $1) $akeys = $oLBH.keys ;_arraydisplay($akeys) For $2 = 1 To $NumListBoxes _GUICtrlListBox_AddString(HWnd($akeys[$1]), $1 & '-' & $2) Next Next GUISetState() GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") While 1 $msg = GUIGetMsg() Switch $msg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) If $oLBH.exists(Number($lParam)) And _WinAPI_HiWord($wParam) = $lbn_selchange Then _ ConsoleWrite('listbox #' & $oLBH.item(Number($lParam)) & ' actioned' & ' Value = ' & _GUICtrlListBox_GetText($lParam, _GUICtrlListBox_GetCurSel($lParam)) & @CRLF) Return $GUI_RUNDEFMSG EndFunc ;==>WM_COMMAND kylomas
    1 point
  8. vicsar

    Set Windows volume

    Hi, This might be useful to someone, this a full implementation; if you find it useful use it: #include <MsgBoxConstants.au3> MsgBox(64, "Easter", "You have entered the program", 30) ; Set volume to 100% (Windows actually does 2 steps increments for the volume) Local $i = 0 While $i <= 50 Send("{VOLUME_UP}", 0) $i = $i + 1 WEnd ; Sets the system wave volume to 100%. This controls the Wave volume, not the master volume control. Also, a value of Zero does not set mute status. SoundSetWaveVolume(100) ; Play one of the default sytem sounds SoundPlay(@WindowsDir & "\media\tada.wav", 1) MsgBox(64, "Easter", "The previous sound was played at 100%, the next one will be at 50%", 30) ; Set volume from 100% to 50% Local $i = 0 While $i <= 25 Send("{VOLUME_Down}", 0) $i = $i + 1 WEnd ; Sets the system wave volume to 100%. This controls the Wave volume, not the master volume control. Also, a value of Zero does not set mute status (Send("{VOLUME_MUTE}", 0) does that). SoundSetWaveVolume(100) ; Play one of the default sytem sounds SoundPlay(@WindowsDir & "\media\tada.wav", 1) MsgBox(64, "Egg", "You are leaving the program", 30)
    1 point
×
×
  • Create New...