
AppTux
Active Members-
Posts
130 -
Joined
-
Last visited
Content Type
Forums
Downloads
Forum Articles
Events
Everything posted by AppTux
-
I would prefer a For loop and GUICtrlSetState()
-
Lol, like this program, but a bit useless for people who are always happy (like me ) but for people who are sad, it would be great
-
DriveSpaceFree different drives
AppTux replied to Donkeytom's topic in AutoIt General Help and Support
Is it working now as you want to??? btw alsjeblieft (btw please in english ) -
DriveSpaceFree different drives
AppTux replied to Donkeytom's topic in AutoIt General Help and Support
It should be on the bottom of your post and left beside the reply button... -
DriveSpaceFree different drives
AppTux replied to Donkeytom's topic in AutoIt General Help and Support
Lol, haven't seen there was also a password in that It also wasn't a very strong password I think -
DriveSpaceFree different drives
AppTux replied to Donkeytom's topic in AutoIt General Help and Support
Doesn't matter it's Dutch, I'm also from The Netherlands. Use the result of the .ini and make a variable of it like this: $sNotify = IniRead("config.ini", "settings", "DriveName", "NotFound") Then you have to make a If statement like this (I think) $sNotify = IniRead("config.ini", "settings", "DriveLetter", "NotFound") MsgBox(0, "Result", $sNotify) ;~ Ruimte checken If $sNotify = "NotFound" Then MsgBox(0, "Info", "The drive is not found, the program will be closed") Else $iDiskSpace = DriveSpaceFree( $sNotify ) $b=1000 $spaceleft = $iDiskSpace/$b ;~ Ruimte meer dan 10000 mb If $iDiskSpace > 10000 Then MsgBox(0, "Enough free space", "The free space left on C:\ is" & " " & $spaceleft & " GB, There is nothing to worry about.") EndIf EndIf I think you wanna do it like this, but if not, just reply EDIT: What the..... what's happened to the code??? Is this working?? $sNotify = IniRead("config.ini", "settings", "DriveLetter", "NotFound") MsgBox(0, "Result", $sNotify) ;~ Ruimte checken If $sNotify = "NotFound" Then MsgBox(0, "Info", "The drive is not found, the program will be closed") Else $iDiskSpace = DriveSpaceFree( $sNotify ) $b=1000 $spaceleft = $iDiskSpace/$b ;~ Ruimte meer dan 10000 mb If $iDiskSpace > 10000 Then MsgBox(0, "Enough free space", "The free space left on C:\ is" & " " & $spaceleft & " GB, There is nothing to worry about.") EndIf EndIf -
Yes I know, I still have no multi-monitor support, and I don't have multiple monitors... Well, I don't know why it's not working... You have copied the code in the topic??? Because if you use the code in the .zip, it won't work, because that's a old version
-
Look at the GUICtrlCreatePic() function in the helpfile, set the $WS_POPUP style for your GUI, place all the images in the right way and you're done But I also use a method to make a custom visual style on my programs, look at my program PowerPasswordGenerator (link in sign) for the code I used to make the layout. Look in the Gui Design 'section'. (between ;---Gui Design---; and ;---==>Gui Design---;
-
I think you have to use ControlMove() For idea's how, just look at my PowerSlide2Unlock (link in sign)
-
Whoa, a really useful script! Maybe for a explorer look-a-like with grouped extensions?
-
Internet Maps Tiles Viewer - Project study Upd.: 5.Mar.11
AppTux replied to ReFran's topic in AutoIt Example Scripts
Nice script, could be nice if you also can use Google's maps Maybe will I use this in another project -
Whoa, 42 downloads, 124 views and still no comments? Please anyone who wants to reply?
-
Lol, I had a look-a-like idea for that method of typing the password, but I haven't chosen it because a inputbox is way easier than clicking. I wanted to make 4 images, and if you click on it, the digit goes up with 1. But that's a lot work if you have the password 9999
-
I made this because I always forgot passwords and I don't want to make a new password again, and again and so on. So I made PowerPasswordGenerator, with a random generator and a algorithm made by myself WARNING:Use this on your own risk, I'm not responsible for any accounts hacked by hackers If you want to use this, just modify the algorithm(not too much work I think ) With the algorithm can you make passwords using a username. Then are there several calculations and there you are: a password. With the random function can you 'randomly' make passwords. All the passwords are in the same form: 2 letters, a special character ! # = -, 2 digits, again a special character ! # = -, and again 2 letters. A password can look like this(made with random) : ng-79#qa. I think they're safe enough, but if you have more recommendations let me know!! If you have questions, ask them and I'll try to answer them! Code: #include <WindowsConstants.au3> #include <GuiConstantsEx.au3> #include <GUIEdit.au3> #include <StaticConstants.au3> Global $hMSG, $PROGRESS, $PROGRESSBACK, $PROGRESSCHUNK, $LASTINPUT = "Username", $TOOSHORT = 0, $BUT_LOCATION = @ScriptDir &"\Data\" ;---GUI Design---; $MGUI = GUICreate("PowerPassWordGenerator", 530, 350, -1, -1, $WS_POPUP) GUISetBkColor(0xFFFFFF, $MGUI) $TIMG = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-window-topleft.bmp", 0, 0, 444, 75, -1, $GUI_WS_EX_PARENTDRAG) $TMMG = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-window-topmiddle.bmp", 444, 18, 70, 57, -1, $GUI_WS_EX_PARENTDRAG) $TRMG = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-window-topright.bmp", 514, 0, 16, 75, -1, $GUI_WS_EX_PARENTDRAG) $BIMG = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-window-bottom.bmp", 0, 75, 529, 275, $GUI_DISABLE) $CIMG = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-close-normal.bmp", 470, 1, 44, 18) $MIMG = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-min-normal.bmp", 444, 1, 26, 18) ;---==>End of GUI design---; $STATUS = GUICtrlCreateLabel("", 10, 329, 350, 20, $SS_NOTIFY) GUICtrlSetBkColor($STATUS, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont($STATUS, 9, "", "", "Segoe UI") $RCRN = _WinAPI_CreateRoundRectRgn(0, 0, 530, 350, 2, 2) _WinAPI_SetWindowRgn($MGUI, $RCRN) ;---Left Content---; $ALGOHEADER = GUICtrlCreateLabel("Generate password using algorithm:", 20, 90, 240, 22) GUICtrlSetColor($ALGOHEADER, 0x477e5e) GUICtrlSetFont($ALGOHEADER, 11, "", "", "Segoe UI") $ALGOINPUT = GUICtrlCreateInput("Username", 20, 120, 200, 22) $GBUT1 = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-button-normal.bmp", 20, 145, 150, 25) $GLAB1 = GUICtrlCreateLabel("Generate password", 20, 145, 150, 25, $SS_NOTIFY & $SS_CENTER) $G1ST = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-message-good.bmp", 170, 145, 25, 25) $G1SLAB = GUICtrlCreateLabel("", 195, 145, 40, 25, $SS_NOTIFY & $SS_CENTER) GUICtrlSetColor($G1SLAB, 0x8f0808) $RANDHEADER = GUICtrlCreateLabel("Generate random password:", 20, 170, 240, 22) GUICtrlSetColor($RANDHEADER, 0x477e5e) $GBUT2 = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-button-normal.bmp", 20, 195, 150, 25) $GLAB2 = GUICtrlCreateLabel("Generate password", 20, 195, 150, 25, $SS_NOTIFY & $SS_CENTER) GUICtrlSetFont($GLAB2, 9, "", "", "Segoe UI") GUICtrlSetBkColor($GLAB2, $GUI_BKCOLOR_TRANSPARENT) For $i = $ALGOINPUT To $GLAB2 GUICtrlSetFont($i, 9, "", "", "Segoe UI") GUICtrlSetBkColor($i, $GUI_BKCOLOR_TRANSPARENT) Next GUICtrlSetFont($RANDHEADER, 11, "", "", "Segoe UI") ;---==>End of Left Content---; ;---Right Content---; $RHEADER = GUICtrlCreateLabel("Press a 'generate password' button", 330, 90, 190, 50) GUICtrlSetColor($RHEADER, 0x477e5e) GUICtrlSetFont($RHEADER, 11, "", "", "Segoe UI") $LABRESULT = GUICtrlCreateLabel("Result: ", 330, 130, 200, 20) $GBUT3 = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-button-normal.bmp", 330, 270, 150, 25) $GLAB3 = GUICtrlCreateLabel("Reset", 330, 270, 150, 25, $SS_NOTIFY & $SS_CENTER) $PROGRESSBACK = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-progress-back.bmp", 330, 300, 190, 20) $PROGRESSCHUNK = GUICtrlCreatePic(@ScriptDir & "\Data\ppg-progress-chunk.bmp", 331, 301, 1, 18) $PROGRESSPERCENT = GUICtrlCreateLabel("0%", 330, 300, 190, 20, $SS_NOTIFY & $SS_CENTER) For $i = $LABRESULT To $PROGRESSPERCENT GUICtrlSetBkColor($i, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetFont($i, 9, "", "", "Segoe UI") Next ;--==>End of Right Content---; GUISetState() While 1 $USERNAME = GUICtrlRead($ALGOINPUT) $LEN = StringLen($USERNAME) If $USERNAME <> $LASTINPUT Then If $LEN < 5 Then If $TOOSHORT = 0 Then GUICtrlSetImage($G1ST, @ScriptDir & "\Data\ppg-message-wrong.bmp") GUICtrlSetData($G1SLAB, "Too short") GUICtrlSetData($STATUS, "Too short username") GUICtrlSetColor($G1SLAB, 0x8f0808) $TOOSHORT = 1 EndIf Else If $TOOSHORT = 1 Then GUICtrlSetImage($G1ST, @ScriptDir & "\Data\ppg-message-good.bmp") GUICtrlSetData($G1SLAB, "") GUICtrlSetData($STATUS, "") GUICtrlSetColor($G1SLAB, 0x17a800) $TOOSHORT = 0 EndIf EndIf $LASTINPUT = $USERNAME EndIf Switch GUIGetMsg($MGUI) Case $GUI_EVENT_CLOSE Exit EndSwitch $hMSG = GUIGetCursorInfo($MGUI) If $hMSG[4] = $GLAB1 Then _HoverBut($GBUT1, $GLAB1, "_AlgoNew", "button") ElseIf $hMSG[4] = $GLAB2 Then _HoverBut($GBUT2, $GLAB2, "_RandomPassWord", "button") ElseIf $hMSG[4] = $GLAB3 Then _HoverBut($GBUT3, $GLAB3, "_Reset", "button") ElseIf $hMSG[4] = $CIMG Then _HoverBut($CIMG, $CIMG, "_Exit", "close") ElseIf $hMSG[4] = $MIMG Then _HoverBut($MIMG, $MIMG, "_Minimalise", "min") EndIf WEnd Func _Exit() Exit EndFunc ;==>_Exit Func _Minimalise() GUISetState(2) EndFunc ;==>_Minimalise Func _Reset() GUICtrlSetData($LABRESULT, "Result: ") _SetProgress(0) GUICtrlSetData($ALGOINPUT, "Username") GUICtrlSetData($STATUS, "") EndFunc ;==>_Reset Func _SetProgress($PERCENT) GUICtrlSetData($PROGRESSPERCENT, $PERCENT & "%") If $PERCENT = 0 Then $PERCENT = 1 GUICtrlSetPos($PROGRESSCHUNK, 331, 301, $PERCENT * 1.88, 18) Sleep(20);For cool down CPU usage and let the animation see. EndFunc ;==>_SetProgress Func _HoverBut($bID, $lID, $FuncID, $ImageID) GUICtrlSetImage($bID, $BUT_LOCATION&"ppg-" & $ImageID & "-hover.bmp") While $hMSG[4] = $lID $hMSG = GUIGetCursorInfo($MGUI) $MSG = GUIGetMsg() Sleep(20);Be nice to your CPU!! If $MSG = $bID Then If $hMSG[2] = 1 Then GUICtrlSetImage($bID, $BUT_LOCATION&"ppg-" & $ImageID & "-press.bmp") $hMSG = GUIGetCursorInfo($MGUI) While $hMSG[2] = 1 $hMSG = GUIGetCursorInfo($MGUI) Sleep(20);Be nice to you CPU!! If $hMSG[4] <> $lID Then $El = 1 ExitLoop Else $El = 0 EndIf WEnd If $El = 0 Then GUICtrlSetImage($bID, $BUT_LOCATION&"ppg-" & $ImageID & "-hover.bmp") Execute($FuncID & "()") ElseIf $El = 1 Then ExitLoop EndIf EndIf EndIf WEnd GUICtrlSetImage($bID, $BUT_LOCATION&"ppg-" & $ImageID & "-normal.bmp") EndFunc ;==>_HoverBut Func _RandomPassWord() GUISetCursor(15, 0, $MGUI) GUICtrlSetCursor($GLAB2, 15) $PROGRESS = 0 Local $SPCHAR[4] = ["!", "=", "#", "-"] $STR_NEWPASS = Chr(Random(97, 122, 0)) $PROGRESS += 12.5 _SetProgress($PROGRESS) $STR_NEWPASS = $STR_NEWPASS & Chr(Random(97, 122, 0)) $PROGRESS += 12.5 _SetProgress($PROGRESS) $1CHAR = Random(0, 3, 1) $1CHAR2 = $SPCHAR[$1CHAR] $PROGRESS += 12.5 _SetProgress($PROGRESS) $STR_NEWPASS = $STR_NEWPASS & $1CHAR2 $STR_NEWPASS = $STR_NEWPASS & Random(10, 99, 1) $PROGRESS += 12.5 _SetProgress($PROGRESS) $CHAR = Random(0, 3, 1) If $1CHAR == $CHAR Then $CHAR = 3 - $CHAR $CHAR = $SPCHAR[$CHAR] $STR_NEWPASS = $STR_NEWPASS & $CHAR $PROGRESS += 12.5 _SetProgress($PROGRESS) $STR_NEWPASS = $STR_NEWPASS & Chr(Random(97, 122, 0)) $PROGRESS += 12.5 _SetProgress($PROGRESS) $STR_NEWPASS = $STR_NEWPASS & Chr(Random(97, 122, 0)) $PROGRESS += 12.5 _SetProgress($PROGRESS) $PROGRESS += 12.5 _SetProgress($PROGRESS) GUICtrlSetData($LABRESULT, "Result: " & $STR_NEWPASS) ClipPut($STR_NEWPASS) GUICtrlSetData($STATUS, "The password " & $STR_NEWPASS & " is copied to clipboard.") GUICtrlSetCursor($GLAB2, 2) GUISetCursor(2, 1, $MGUI) EndFunc ;==>_RandomPassWord Func _AlgoNew() $USERNAME = GUICtrlRead($ALGOINPUT) $PROGRESS = 0 $LENGTH = StringLen($USERNAME) If $LENGTH >= 5 Then Local $USCH[$LENGTH + 1], $PWD[9], $SPCHAR[4] = ["!", "=", "-", "#"] $USCH = StringSplit($USERNAME, "") For $i = 1 To $LENGTH $USCH[$i] = Asc($USCH[$i]) Next ;---Character 1---; $PWD[1] = Round($LENGTH * 0.11 / 0.01, 0) $PROGRESS += 12.5 _SetProgress($PROGRESS) $PWD[2] = Round(($LENGTH * 0.22 / 0.02) / ($USCH[1] / 20), 0) $PROGRESS += 12.5 _SetProgress($PROGRESS) For $i = 1 To 2 If $PWD[$i] < 97 Then Do $PWD[$i] += 26 Until $PWD[$i] >= 97 ElseIf $PWD[$i] > 122 Then Do $PWD[$i] -= 26 Until $PWD[$i] <= 122 EndIf Next $PWD[3] = Round(($USCH[1] + $USCH[2] + $USCH[$LENGTH - 1] + $USCH[$LENGTH - 2]) / 4 * ($LENGTH / 0.77), 0) If $PWD[3] > 4 Then Do $PWD[3] -= 4 Until $PWD[3] <= 3 EndIf $SPCHR1 = $PWD[3] $PWD[3] = $SPCHAR[$PWD[3]] $PROGRESS += 12.5 _SetProgress($PROGRESS) $PWD[4] = Round(($USCH[3] + $USCH[4] + $USCH[5] + $USCH[$LENGTH - 2] + $USCH[$LENGTH - 3]) / 5 * $LENGTH / 2) If $PWD[4] > 100 Then If $PWD[4] > 1000 Then $PWD[4] = Round($PWD[4] / 100, 0) Else $PWD[4] = Round($PWD[4] / 10, 0) EndIf EndIf $PROGRESS += 12.5 _SetProgress($PROGRESS) $PWD[5] = Round(($USCH[$LENGTH - 1] + $USCH[$LENGTH - 2] + $USCH[$LENGTH - 3] + $USCH[$LENGTH - 4] + $USCH[$LENGTH - 5]) / 5 * $LENGTH * 0.99 / 0.5, 0) If $PWD[5] > 4 Then Do $PWD[5] -= 4 Until $PWD[5] <= 3 EndIf If $SPCHR1 = $PWD[5] Then $PWD[5] = 3 - $PWD[5] $PWD[5] = $SPCHAR[$PWD[5]] $PROGRESS += 12.5 _SetProgress($PROGRESS) $PWD[6] = Round($LENGTH * 0.22 / 0.09, 0) $PROGRESS += 12.5 _SetProgress($PROGRESS) $PWD[7] = Round(($LENGTH * 0.99 / 0.02) / ($USCH[4] / $USCH[3] + $USCH[$LENGTH - 3]), 0) $PROGRESS += 12.5 _SetProgress($PROGRESS) For $i = 6 To 7 If $PWD[$i] < 97 Then Do $PWD[$i] += 26 Until $PWD[$i] >= 97 ElseIf $PWD[$i] > 122 Then Do $PWD[$i] -= 26 Until $PWD[$i] <= 122 EndIf Next $PROGRESS += 12.5 _SetProgress($PROGRESS) $PWD[8] = Chr($PWD[1]) & Chr($PWD[2]) & $PWD[3] & $PWD[4] & $PWD[5] & Chr($PWD[6]) & Chr($PWD[7]) ClipPut($PWD[8]) GUICtrlSetData($STATUS, "The password " & $PWD[8] & " is copied to clipboard") GUICtrlSetData($LABRESULT, "Resultaat: " & $PWD[8]) Else _SetProgress(0) GUICtrlSetData($STATUS, "Your username is too short!") EndIf EndFunc ;==>_AlgoNew Resources: PPG.zip N.B. : Modify the calculations in the _AlgoNew() function for your own algorithm.
-
Bouncing window, reminiscent of old Amiga 'screen hacks'
AppTux replied to 4Eyes's topic in AutoIt Example Scripts
Hope you can waste your time more and make more of those things -
On my pc the password gui isn't flashing anytime... I don't know how it comes it is by you. EDIT:maybe can it be your specs of your computer, don't know... Btw, the Opt('GUICloseOnESC', 0) isn't necessary, I already tested it out... Without this code is it impossible: While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd Sorry for the hard to read code, because I just typed it in my browser If I don't use the Case $GUI_EVENT_CLOSE line, it won't stop if you press ESC
-
Bouncing window, reminiscent of old Amiga 'screen hacks'
AppTux replied to 4Eyes's topic in AutoIt Example Scripts
Really like this one It´s pretty annoying after a while (can it be another thing?? no, I don't think so ) -
I like it, but because you used the old version, I don't see a Access Denied or Access Granted image... If you can implement your method of password in the new version, then will it be nice, but I still prefer my way. You can use both ways, but then just make a .ini file and set in the .ini which method you prefer to use. That's possible, but then I run into the problem that the program can become too heavy and too much options. I like more easy, simple and simple to use programs. Or make a special edition for who prefer your way If you can make your version in the newest version, I'm sure I'll add it to the main post and - of course - add your credits
-
No, I haven't because I dont' have multiple monitors But I think it would be possible...
-
Want to Output PHP Script Using Autoit Gui Guidance please?
AppTux replied to Altainta's topic in AutoIt GUI Help and Support
I think it is possible, but you need as far as I know a lot of code... But just look at FileWriteLine(). I also use PHP sometimes, but I don't use if else conditions a lot.. It is possible, but not as easy it looks. -
Does anyone have more suggestions??? It's quiet for a while.....
-
I hope this will help you: #include <WindowsConstants.au3> #include <GuiConstantsEx.au3> #include <GUIEdit.au3> #include <StaticConstants.au3> $hGUI = GUICreate("Main GUI",500,400);Create main GUI $hButton1 = GUICtrlCreateButton("Open 2nd GUI!!",20,20, 100,20) $hLabel1 = GUICtrlCreateLabel("",20, 50, 100,20);Create label where the result is displayed GUISetState() $hGUI2 = GUICreate("Popup GUI", 200, 200);Create POPUP GUI $hButtonX = GUICtrlCreateButton("X",20,20,25,25);Create X button $hCombo = GUICtrlCreateCombo("",20,50, 100, 20);Create Combo GUICtrlSetData($hCombo, "Data1|Data2|Data3");Set data of combo GUISetState(@SW_HIDE, $hGUI2) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case $hButton1 GUISetState(@SW_SHOW, $hGUI2) Case $hButtonX $result = GUICtrlRead($hCombo) GUICtrlSetData($hLabel1, $result) GUISetState(@SW_HIDE, $hGUI2) EndSwitch WEnd
-
Volume Control with Mouse/Mute Function + iTunes Hotkeys
AppTux replied to Damein's topic in AutoIt Example Scripts
I was playing around with your script and made a bit smaller version: Just replace the ShowGUI() function. You also have to replace the images with the new ones I made: Images.zip Func ShowGUI() ; Begin GUI display $status2 += 1 If $status2 < 2 Then GUIDelete($Gui) ; Delete existing GUI's $Pos = MouseGetPos() ; Get current mouse position for placement of GUI $Gui = GUICreate("Volume Control", 90, 30, $Pos[0] - 55, $Pos[1] - 60, BitOR($WS_POPUP, $WS_BORDER)) ; Create GUI GUISetOnEvent($GUI_EVENT_CLOSE, "CloseGUI") $MuteButton = GUICtrlCreateButton("Mute", 20, 2, 20, 25, $BS_BITMAP) ; Create mute image/button GUICtrlSetImage($MuteButton, "UnMuted.bmp", 1) ; Set current mute status to un-muted GUICtrlSetOnEvent($MuteButton, "Mute") ; Create action for mute button $HotkeyBtn = GUICtrlCreateButton("Hotkeys", 40, 2, -1, -1) ; Create hotkey check box GUICtrlSetOnEvent($HotkeyBtn, "Hotkeys") ; Create action for hotkey check box GUISetBkColor(0xa5a5a5) ; Set GUI background to black GUISetState() ; Display GUI $a = _CreateLevelMeter(0, 0, False, 15, 1, 20, 0x00FF00, 0xFF0000) ; Create volume meter EndIf If $status2 >= 2 Then GUISetState(@SW_HIDE, $Gui) $status2 = 0 EndIf EndFunc ;==>ShowGUI And I found a bug: If you press Alt+v when the window isn't opened yet you get this error: >Running:(3.3.6.1):D:\AutoIt3\autoit3.exe "E:\AutoIt\VolumeControl.au3" E:\AutoIt\VolumeControl.au3 (70) : ==> Subscript used with non-Array variable.: If $WatchMousePos[1] > $Pos[1] Then If $WatchMousePos[1] > $Pos^ ERROR ->18:57:46 AutoIT3.exe ended.rc:1 >Exit code: 1 Time: 5.698 -
Volume Control with Mouse/Mute Function + iTunes Hotkeys
AppTux replied to Damein's topic in AutoIt Example Scripts
I put it by Global, and I don't get the error anymore. And now the hotkeys are working!!! Now I like it more because a minimized iTunes haven't hotkeys.