Jump to content

ReaImDown

Active Members
  • Posts

    517
  • Joined

  • Last visited

Everything posted by ReaImDown

  1. ControlSend ControlClick
  2. optimized a bit for you quickly.. ; Clickcounter By Dipan and lorenkinzel Opt("GUIOnEventMode", 1) Global $clicks, $goodToGo, $ifstop = 1, $GUI_EVENT_CLOSE = -3 $Form1 = GUICreate("ClickCounter", 317, 183, 350, 143) GUISetOnEvent($GUI_EVENT_CLOSE, "xIt") $label1 = GUICtrlCreateLabel("0", 148, 16, 90, 35) GUICtrlSetFont(-1, 20, 400, 0, "Times New Roman") $buttonMinus = GUICtrlCreateButton("-", 16, 80, 49, 33) GUICtrlSetOnEvent($buttonMinus, "subtractOne") GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $buttonPlus = GUICtrlCreateButton("+", 248, 80, 41, 33);remains for visual GUICtrlSetOnEvent($buttonPlus, "plusOne") GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif") $buttonClear = GUICtrlCreateButton("Clear", 24, 144, 105, 25) GUICtrlSetOnEvent($buttonClear, "resetToZero") $buttonStart = GUICtrlCreateButton("start", 88, 80, 137, 33) GUICtrlSetOnEvent($buttonStart, "start") $buttonStop = GUICtrlCreateButton("stop", 184, 144, 105, 25) GUICtrlSetOnEvent($buttonStop, "stop") GUISetState(@SW_SHOW) WinSetOnTop("ClickCounter", "", 1) While 1 Sleep(10) If _IsPressed(01) Then _E() EndIf WEnd Func _E();seandisanti 9-19-10 If _IsPressed("01") And $goodToGo = 1 Then _WaitRelease() addOne() EndIf EndFunc ;==>_E Func xIt() Exit EndFunc ;==>xIt Func start() $goodToGo = 1 $ifstop = 0 EndFunc ;==>start Func stop() $goodToGo = 0 $clicks -= 1 $ifstop = 1 GUICtrlSetData($label1, $clicks) EndFunc ;==>stop Func addOne() $clicks += 1 GUICtrlSetData($label1, $clicks) EndFunc ;==>addOne Func subtractOne() If $goodToGo = 1 Then $clicks -= 2 Else $clicks -= 1 EndIf GUICtrlSetData($label1, $clicks) EndFunc ;==>subtractOne Func resetToZero() If $goodToGo = 1 Then $clicks = -1 Else $clicks = 0 EndIf GUICtrlSetData($label1, $clicks) EndFunc ;==>resetToZero Func plusOne () if $ifstop = 1 then $clicks += 1 GUICtrlSetData($label1, $clicks) EndIf EndFunc Func _WaitRelease() While _IsPressed(01) Sleep(10) WEnd EndFunc ;==>_WaitRelease Func _IsPressed($sHexKey, $vDLL = 'user32.dll') Local $a_R = DllCall($vDLL, "int", "GetAsyncKeyState", "int", $sHexKey) $Last = $sHexKey If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1 Return 0 EndFunc ;==>_IsPressed
  3. I will give it a shot when I get home - am traveling Canada atm lol
  4. I know this is an old topic - but it's a cool idea... The script on post #1 doesn't work though :-/
  5. hey guys, its been a while since I've been on... but it's also been a while since I have had an issue that I couldn't find a solution to. where does Windows keep saved wi-fi passwords on the computer? I'm trying to develop a program that will recover forgotten passwords that have been saved on your computer (wi-fi). have you ever had a wi-fi password saved, and then go to enter it in on your new laptop... only to realize you haven't a clue as to what your password is? -> I'm trying to rectify this. any suggestions? I can't find the registry file at all.
  6. Thank you kindly ma'am I was taking Isadmin() too literally cheers
  7. Without the pop-up asking for permission?
  8. Isn't that why Isadmin() was made? Not to see if the program had admin rights; rather to see if the user did.
  9. There has to be a way to check if it's capable of running as an admin (super user) before calling #Isadmin and having it fail.
  10. Windows 7, my two threads are considered to be different; different issues; different solutions
  11. I don't care to have it run as an admin... Isadmin() is supposed to see of the user is, or is not running on an admin account... And it fails horribly lol
  12. once a program is granted admin rights - is there any way to ensure that you're not asked again if you'd like to run it as an admin? I have written a couple programs that I'd like to have run on start up... but they don't because the program requires admin to run. (creating new files and cleaning up old ones.) is there any way around this? this has been hurting my head for months... just looking for an easy work-around. (maybe running it as a service would fix my issues? any help would be greatly appreciated. Regards, Randy Skinner.
  13. I am the sole user of the computer; one account; and I am admin... I shall take a look at that site though. EDIT I have full control.
  14. here is my code: If Not IsAdmin() Then MsgBox(0, "Problem...", "The settings cannot open because you are not a computer administrator...") endscript() Else ShellExecute($Location & "Settings.exe") endscript() EndIf I am an admin on windows 7, and I always get the msgbox. any idea? EDIT: I DO NOT want to use #requireadmin in the script. I merely would like to check if they are running under an admin account.
  15. Rather than saying "good job" he's showing you the already completed coding that someone else did lol. Not bad for a first project.
  16. I'll give both a look - but I think _startup adds a lot of unnecessary code - I try and slim down my projects. Thx for the help guys!
  17. ty... what if I want it to run on every user-account?
  18. read Varian's post
  19. I have many programs that run flawlessly on everything but windows 7 (windows 2000, me, xp, vista) I wrote properly to the registry (HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run) yet when the computer starts up... the program does not... any idea why? - has anything been changed?
  20. there a way to make it delete everything with a certain file extension? ie. RunWait (@ComSpec & " /c del *.db /s" ) EDIT: What do you know... that works lol any way to log what was deleted?
  21. I made an installer... and I want to show the person installing the program exactly how much space on the computer is needed in order to install my program... this is a separate program I have to get the total size... $a = FileGetSize("installs\Main.exe") $b = FileGetSize("installs\uninstall.exe") $c = FileGetSize("installs\EULA.txt") $d = FileGetSize("installs\Readme.txt") $e = FileGetSize("installs\Installer.jpg") $f = FileGetSize("installs\3DX.dll") $g = FileGetSize("installs\Email.exe") $h = FileGetSize("installs\Settings.exe") $i = FileGetSize("installs\L.txt") $j = FileGetSize("installs\F.txt") $k = FileGetSize("installs\P.txt") $l = FileGetSize("installs\O.txt") $z = Round((($a + $b + $c + $d + $e + $f + $g + $h + $i + $j + $k + $l) / 1048576 ),2) MsgBox(0,"",$z & "mb") is there anyway I can have it check the size of everything I "fileinstall()"'d in the main installer and give the variable back? sorry for the poorly written question... I'm playing CoD ^.^
  22. add me to msn, I'll be happy to help... randy@get-fucked.net
×
×
  • Create New...