Leaderboard

I thought this topic was starting to turn for the better and then the worship is starting to come to surface again. As for development, it is being worked on. Enjoy 3.3.8.1 because it is good. Do not worry about what is coming tomorrow, worry about what you have today. As tomorrow you will wonder why you worried so much about what you could have today which was not needed for tomorrow anyhow.

Thanks but I am not fishing for compliments here.I simply would like people to think about what they state and honestly am pretty pissed at the moment because some moron, that hasn't any fucking clue on what has happened, not knows anything about the real reasons of the recent happenings, share his fucking stupid conclusions here. Let me know when you all want to hear how I really feel about all of this. Jos

BASS Function Library This library is a wrapper for the powerful Bass.DLL and add-ons (which increase the functionality of Bass.DLL). Bass.DLL is ideal for use in your applications and scripts if you want an easy way to play a vast range of music and sound files formats while keeping dependency on just Bass.dll and it's add-ons (which in turn maximizes compatibility and minimizes extra requirements for your software to run.), while retaining a small file size. The UDFs included with the release are: Bass The basic Bass library. Required with all (most) add-on libraries. Provides playback of many sound files (and streams). BassASIO (By eukalyptus) BASSASIO is basically a wrapper for ASIO drivers, with the addition of channel joining, format conversion and resampling. BassCD Allows for digital streaming and ripping of audio CDs along with analog playback support. BassFX (By eukalyptus/BrettF) An extension providing several effects, including tempo & pitch control. BassEnc (By eukalyptus) An extension that allows BASS channels to be encoded using any command-line encoder with STDIN support (LAME/OGGENC/etc), or any ACM codec. Also features Shoutcast and Icecast stream sourcing, and PCM/WAV file writing. BassSFX Provides a complete set of functions to include support for winamp, sonique, bassbox, and Windows Media Player visualization plugins. BassTags Provides a simple way to retrieve ID3 tags from stream handles. BassCB/Bass_EXT (ProgAndy) This is for advanced users. BassCB allows the playback of streams in AutoIt. BassVST Allows use of VST effect plugins. Download The download includes all of the wrapper and constants, the original download, examples for all of the previously mentioned add-ons, sample audio files (6 channel audio files also included), sample visualization plugins for BassSFx and more. Current Version: 9 Size: 7360KB AutoIt Version Required: 3.3.2.0 Changelog: /> Fixed _BassRecordGetInputName (updated production versions) +> Added Memory Examples of Bass (Thanks ProgAndy and UEZ) +> Added BassVST (Not 100% complete) +> Added BassFX Examples showing use of most functions: Pitch.au3 Reverse.au3 Tempo.au3 /> Fixed error with calling _BASS_ErrorGetCode in BASSCD.au3 /> Fixed startup functions return the wrong value (Thanks ProgAndy!) +> Added helper functions _BASS_ChannelSetVolume, _BASS_ChannelGetVolume (Thanks ProgAndy) Download Link: https://www.autoitscript.com/forum/files/file/493-basszip/ Previous versions are not supported. Patches: Patch 1 "BASS_ASIO" Fixes issues with BASS ASIO and examples. Patch 2 "BASS_FX/BASS" Fixes issues with BASS FX and BASS.

One of the main issues AutoIt coder could have is lack of built-in data compression mechanism. Doing it "manually" is not an option because of the slowness of the interpretter. So, it's either using third party dlls (whatever) or some Windows API that exposes the funcionality. In this post I will compress data using well known GDI+. That's graphical library, so it's not straightforward approach. First I'm making BITMAP out of data and then convert that image into a PNG. PNG format includes form of compression, so at the end what's get is compressed data. Compression level is not very high compared to other methods, but considering everything - who cares . Of course that compressing string "ABC" will not make much sense and will result in, IDK 150 bytes of output because PNG includes metadata that take space, but for data in sizes of more than few KB you will see the difference. Besides you will see how your data looks if it's taken to be a picture. Script will create PNG out of itself called Test_Image.png and then read it and print to console: GDIP_Compress.au3

Can only agree ... but is part of life...

Without trying to be kiss ass there is nothing but respect for anyone who has worked on the AutoIt Code/Program. We wouldn't be where we are atm without the contributions of the many that give to the rest the program we use. I know you guys at the higher levels dont always see eye to eye but its still a shame and a loss to AutoIt as a whole when that's the case.

Mhz, I don't see anything wrong in the last couple of statements made about supportability and believe trancexx made the same remarks earlier. There is nothing else than respect when it comes to the code that was written by her. Jos

Use an Array Note that when you create a control its ControlID is returned. Hence successive controls have successive integers Use them in a For To Next Loop and you reduce much of your code Hope this helps Regards

Bumek662, And what is the problem with this code? Because if you are expecting me to amend it to include the suggested code I suggested above, you will be waiting a long time. Do some work yourself first and come back if it does not work as expected - and then explain what is wrong. M23 P.S. In future please use the "Reply to this topic" button at the top of the thread or the "Reply to this topic" editor at the bottom rather than the "Quote" button - I know what I wrote and it just pads the thread unneccessarily.

Bumek662, Something using parameters like this is much shorter: Switch $vFred Case $a _Function(0) Case $b _Function(1) Case $c _Function(2) Case $d _Function(3) Case $e _Function(4) Case $f _Function(5) Case $Lock lock() Case $Unlock unlock() EndSwitch Func _Function($iIndex) Local $Form1 = GUICreate("Haslo do: " & $passkey[$iIndex], 338, 152, 192, 132) $Input1 = GUICtrlCreateInput($pass[0], 0, 48, 337, 36) $IsPw = GUICtrlCreateLabel("Twoje haslo to:", 64, 8, 183, 33) GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif") $Change = GUICtrlCreateButton("Zmien haslo", 56, 96, 201, 41) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE GUIDelete($Form1) Return Case $Change $newpw = InputBox("Haslo", "Podaj tutaj swoje nowe haslo." & @LF & "Wszystkie zmiany zostana zapisane po restarcie programu.", "", "*", 250, 200) IniWrite("config.passwordmanagerpro", "password", "pass" & ($iIndex + 1), $newpw) GUICtrlSetData($Input1, $newpw) EndSwitch WEnd EndFunc ;==>_FunctionPlease check that you do in fact get the correct values in the GUI title and the ini file - that matches the code you posted, but as I have no idea what structures you are actually using I cannot be 100% sure it is correct. M23 P.S. When you post code please use Code tags - put [autoit] before and [/autoit] after your posted code. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags. P.P.S. Do NOT send PMs asking for help - read the Forum rules before posting again.

IIIRAZORIII, Someone asks this question about once a month - and I always give the same answer: I do not believe there is a lack of help for newcomers - in fact several of us make a special effort to respond to new members - but there is a lack of willingness among the more experienced coders here to help those who appear to make no effort to help themselves. This attitude usually manifests itself in asking for example code without the OP having made any effort to produce something - or by asking questions which could be very simply answered by a little study of the Help file. As has been pointed out previously, our philosophy is "teach to fish" rather than merely acting as fishmongers. In this case you are asking for help on a specific function within a UDF from the Examples section. How many people here do you think use that particular UDF? I certainly never have. In fact, why did you not post this question in the UDF thread itself? That way the author would certainly see it - and who better to help you? So I am not at all surprised that you got little assistance at the start - but please note that you are now being helped. Do not take any of this personally - we are very willing to offer help on specific problems that you encounter, but are not really into giving tutorials on the basics. There are several tutorials in the Wiki to do that. M23

@Jos For what it's worth, I'm personally very grateful to see you back on board. I would not like to see AutoIt without SciTE4AutoIt. Your contributions are most valued by many around here.

search for setting the image using GDI+ that may help Regards

thanks KaFu for the awesome function - I use it quite often. Recently I wanted to append to a sql database not replace all the contents =) i added this - do you forsee any issues with it? Func _SQLite_Dump($sSQLite_File, $sSQLite_Table = False, $sAppend = False) Local $hSQLite_File, $hQuery, $aRow, $g_hDB_SQLite_save Local $create_dump_table If $sAppend = False Then FileDelete($sSQLite_File) thanks again!

If you do not want anyone to interfere with your Comp. You must use this program. #NoTrayIcon #include <WindowsConstants.au3> #include <EditConstants.au3> #include <ScrollBarConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #Include <GuiEdit.au3> #include <Misc.au3> While 1 $code = InputBox("Desktop Locker", "Safety. Please reset your password."&@CRLF&@CRLF&"Enter:New Password", Default, "", 250, 143, 370, 300) If @error Then Exit ElseIf $code = '' Then ToolTip("Please enter your password in the spaces.", 370, 300, "Desktop Locker", 1, 0) Sleep(3000) ToolTip("") Else $plate = StringReplace($code, "|", @CRLF) $Password = $plate ExitLoop EndIf WEnd $btn = MsgBox(36, "Desktop Locker", "You want to lock the screen with this code for?.") If $btn = 6 Then $Locked = GUICreate("Desktop Locker", @DesktopWidth+3, @DesktopHeight, -1, -1, $WS_POPUP, $WS_EX_TOPMOST) GUISetBKColor(0x000000, $Locked) $Progress1 = GUICtrlCreateProgress(440, 415, 150, 10) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlCreatePic("lock.gif", 430, 130, 164, 144) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $WrongPw = GUICtrlCreateEdit("", 10, 14, 300, @DesktopHeight - 14, BitOR($ES_AUTOVSCROLL,$ES_READONLY), 0) $InputPw = GUICtrlCreateInput("", @DesktopWidth/2-100, @DesktopHeight/2-10, 200, 20, BitOR($ES_CENTER, $ES_PASSWORD), 0) GUICtrlCreateLabel("Desktop Locker", @DesktopWidth/2-125, @DesktopHeight/2-95, 260, 50, $ES_CENTER, 0) GUICtrlSetFont(-1, 30, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) GUICtrlCreateLabel("Please enter a password to unlock the screen.", @DesktopWidth/2-185, @DesktopHeight/2-50, 400, 20, $ES_CENTER, 0) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetBkColor(-1, 0x000000) GUICtrlSetFont($WrongPw, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor($WrongPw, 0xFFFFFF) GUICtrlSetBkColor($WrongPw, 0x000000) GUICtrlSetFont($InputPw, 12, 800, 0, "MS Sans Serif") GUICtrlSetColor($InputPw, 0xFFFFFF) GUICtrlSetBkColor($InputPw, 0x000000) WinSetState("[CLASS:Shell_TrayWnd]","", @SW_HIDE) GUISetState(@SW_SHOW, $Locked) _MouseTrap(@DesktopWidth,@DesktopHeight) While 1 If _IsPressed("0D") Then If GUICtrlRead($InputPw) == '' Then ToolTip("Forgot your password. Please enter the correct", 509, 375, "", 1, 3) Sleep(3000) ToolTip("") ElseIf GUICtrlRead($InputPw) == $Password Then For $i = 0 To 100 Step 10 GUICtrlSetData($Progress1, $i) Sleep(100) Next Sleep(800) GUICtrlSetData($Progress1, 100) GUISetState(@SW_HIDE, $Locked) WinSetState("[CLASS:Shell_TrayWnd]","", @SW_SHOW) _MouseTrap() GUICtrlSetData($WrongPw, "") GUICtrlSetData($InputPw, "") ExitLoop Else GUICtrlSetData($WrongPw, _RandomMsg() & @CRLF & GUICtrlRead($WrongPw)) ToolTip("The password is incorrect ..try again.", 509, 375, "", 3, 3) Sleep(2000) ToolTip("") GUICtrlSetData($InputPw, "") EndIf EndIf If Not WinActive("Desktop Locker") Then WinActivate("Desktop Locker") _MouseTrap(@DesktopWidth,@DesktopHeight) GUICtrlCreateLabel("MESS WITH THE BEST DIE LIKE THE REST!", Random(@DesktopWidth-540), Random(@DesktopHeight-30),540,30) GUICtrlSetFont(-1, 20, 800, 0, "MS Sans Serif") GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetBkColor(-1, 0x000000) EndIf Wend Else Exit EndIf Func _RandomMsg() Local $RandomMsg[10] $RandomMsg[0] = "Wrong Password!" $RandomMsg[1] = "Step away from the computer." $RandomMsg[2] = "Your not Jim." $RandomMsg[3] = "Give Up!" $RandomMsg[4] = "Don't Touch!" $RandomMsg[5] = "Please Enter Correct Password." $RandomMsg[6] = "Try Again!" $RandomMsg[7] = "Stop pushing my buttons." $RandomMsg[8] = "INS! INS!" $RandomMsg[9] = "Ctrl-Alt-Dipshit" Return $RandomMsg[Random(10)] EndFunc