Jump to content

AppTux

Active Members
  • Posts

    130
  • Joined

  • Last visited

Everything posted by AppTux

  1. I would prefer a For loop and GUICtrlSetState()
  2. 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
  3. Is it working now as you want to??? btw alsjeblieft (btw please in english )
  4. It should be on the bottom of your post and left beside the reply button...
  5. Lol, haven't seen there was also a password in that It also wasn't a very strong password I think
  6. 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
  7. 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
  8. 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---;
  9. I think you have to use ControlMove() For idea's how, just look at my PowerSlide2Unlock (link in sign)
  10. Whoa, a really useful script! Maybe for a explorer look-a-like with grouped extensions?
  11. Nice script, could be nice if you also can use Google's maps Maybe will I use this in another project
  12. Whoa, 42 downloads, 124 views and still no comments? Please anyone who wants to reply?
  13. 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
  14. 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.
  15. Hope you can waste your time more and make more of those things
  16. 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
  17. Really like this one It´s pretty annoying after a while (can it be another thing?? no, I don't think so )
  18. 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
  19. Thank you!!
  20. No, I haven't because I dont' have multiple monitors But I think it would be possible...
  21. 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.
  22. Does anyone have more suggestions??? It's quiet for a while.....
  23. 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
  24. 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
  25. 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.
×
×
  • Create New...