Paulie Posted May 7, 2006 Share Posted May 7, 2006 (edited) I have made this script that uses the beep function to make noise as you type, it doesn't work very well for incedibly fast typers, but otherwise, its kinda cool, change the "$delay" to different numbers depending on how fast you type and it should work ok. the pitches go up from left to right and as of yet include no special keys, just 1-0 and a-z as pointless as it is... hope you guys enjoy! order of pitch from low to high: 1234567890qwertyuiopasdfghjklzxcvbnm feel free to add keys if you so desire expandcollapse popuphotkeyset('{esc}', 'halt') func halt() exit endFunc ;----------------------Variables------------------------------------ #cs Total Keys: 36 #ce Global $freq Global $delay=50 ;----------------------------Default----------------------------------- ;---------------------------_IsPressed Function---------------------------- Func _IsPressed($hexKey) ; $hexKey must be the value of one of the keys. ; _IsPressed will return 0 if the key is not pressed, 1 if it is. ; $hexKey should entered as a string, don't forget the quotes! ; (yeah, layer. This is for you) Local $aR, $bO $hexKey = '0x' & $hexKey $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexKey) If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then $bO = 1 Else $bO = 0 EndIf Return $bO EndFunc;==>_IsPressed ;----------------------------What The Whole script is------------------ While 1 ;~~~Numbers If _IsPressed(30) then;0 $freq = 1000 While _IsPressed(30) Beep($freq, $delay) Wend Endif If _IsPressed(31) then;1 $freq = 100 While _IsPressed(31) Beep($freq, $delay) WEnd Endif If _IsPressed(32) then;2 $freq = 200 While _IsPressed(32) Beep($freq, $delay) WEnd Endif If _IsPressed(33) then;3 $freq = 300 While _IsPressed(33) Beep($freq, $delay) WEnd Endif If _IsPressed(34) then;4 $freq = 400 While _IsPressed(34) Beep($freq, $delay) WEnd Endif If _IsPressed(35) then;5 $freq = 500 While _IsPressed(35) Beep($freq, $delay) WEnd Endif If _IsPressed(36) then;6 $freq = 600 While _IsPressed(36) Beep($freq, $delay) WEnd Endif If _IsPressed(37) then;7 $freq = 700 While _IsPressed(37) Beep($freq, $delay) WEnd Endif If _IsPressed(38) then;8 $freq = 800 While _IsPressed(38) Beep($freq, $delay) WEnd Endif If _IsPressed(39) then;9 $freq = 900 While _IsPressed(39) Beep($freq, $delay) WEnd Endif ;~~~Letters---------------------------------- If _IsPressed(41) then;a $freq = 2100 While _IsPressed(41) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(42) then;b $freq = 3400 While _IsPressed(42) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(43) then;c $freq = 3200 While _IsPressed(43) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(44) then;d $freq = 2300 While _IsPressed(44) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(45) then;e $freq = 1300 While _IsPressed(45) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(46) then;f $freq = 2400 While _IsPressed(46) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(47) then;g $freq = 2500 While _IsPressed(47) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(48) then;h $freq = 2600 While _IsPressed(48) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(49) then;i $freq = 1800 While _IsPressed(49) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed("4A") then;j $freq = 2700 While _IsPressed("4A") Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed("4B") then;k $freq = 2800 While _IsPressed("4B") Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed("4C") then;l $freq = 2900 While _IsPressed("4C") Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed("4D") then;m $freq = 3600 While _IsPressed("4D") Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed("4E") then;n $freq = 3500 While _IsPressed("4E") Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed("4F") then;o $freq = 1900 While _IsPressed("4F") Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(50) then;p $freq = 2000 While _IsPressed(50) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(51) then;q $freq = 1100 While _IsPressed(51) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(52) then;r $freq = 1400 While _IsPressed(52) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(53) then;s $freq = 2200 While _IsPressed(53) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(54) then;t $freq = 1500 While _IsPressed(54) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(55) then;u $freq = 1700 While _IsPressed(55) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(56) then;v $freq = 3300 While _IsPressed(56) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(57) then;w $freq = 1200 While _IsPressed(57) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(58) then;x $freq = 3100 While _IsPressed(58) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed(59) then;y $freq = 1600 While _IsPressed(59) Beep($freq, $delay) WEnd Endif ;~~~~~~ If _IsPressed("5A") then;z $freq = 3000 While _IsPressed("5A") Beep($freq, $delay) WEnd Endif ;~~~~~~ Wend hope you guys like it!! Edit: REQUIRES BETA Edited May 8, 2006 by Paulie Link to comment Share on other sites More sharing options...
spyrorocks Posted May 7, 2006 Share Posted May 7, 2006 This kept me occupied for like 30 min. [center] My Projects: Online AutoIt Compiler - AutoForum - AutoGuestbook - AutoIt Web-based Auto Installer - Pure AutoIt Zipping Functions - ConfuseGen - MindReader - P2PChat[/center] Link to comment Share on other sites More sharing options...
Paulie Posted May 7, 2006 Author Share Posted May 7, 2006 This kept me occupied for like 30 min.lol i dunno if that is good or bad but thanks for the input Link to comment Share on other sites More sharing options...
Simucal Posted May 7, 2006 Share Posted May 7, 2006 Nice Paulie, fun script. AutoIt Scripts:Aimbot: Proof of Concept - PixelSearching Aimbot with several search/autoshoot/lock-on techniques.Sliding Toolbar - Add a nice Sliding Toolbar to your next script. Click the link to see an animation of it in action!FontInfo UDF - Get list of system fonts, or search to see if a particular font is installed.Get Extended Property UDF - Retrieve a files extended properties (e.g., video/image dimensions, file version, bitrate of song/video, etc) Link to comment Share on other sites More sharing options...
Valuater Posted May 7, 2006 Share Posted May 7, 2006 (edited) you could put the _ispressed in a loop... that way the script could be a LOT shorter 8) EDIT... oh... and thanks for the help Valuater Edited May 7, 2006 by Valuater Link to comment Share on other sites More sharing options...
Paulie Posted May 7, 2006 Author Share Posted May 7, 2006 Thanks for the input allEDIT...oh... and thanks for the help Valuaterwell i would have said that, but you help everyone(almost) so i just figured that that would be implied Link to comment Share on other sites More sharing options...
jacksont123 Posted May 8, 2006 Share Posted May 8, 2006 (edited) i have a problem running this and i really want to try this cool script: Edited May 8, 2006 by The Great 'Awesoma-Powa!' Link to comment Share on other sites More sharing options...
Paulie Posted May 8, 2006 Author Share Posted May 8, 2006 i have a problem running this and i really want to try this cool script:Oh crap i shoulda said, this requires beta :"> sorryyou can download the latest version of beta in the stickey in the v3 support forum Link to comment Share on other sites More sharing options...
jacksont123 Posted May 8, 2006 Share Posted May 8, 2006 this is quite good. i like it! Link to comment Share on other sites More sharing options...
Lakes Posted May 8, 2006 Share Posted May 8, 2006 (edited) this is quite good. i like it! expandcollapse popuphotkeyset('{esc}', 'halt') $Key = "abcdefghijklmnop" $Keys = StringSplit ($Key,"") $KeysLen = $Keys[0] $Delay = 100 For $n = 1 to $KeysLen Hotkeyset($Keys[$n], $Keys[$n]) next While 1 WEnd Func a() Beep (2100,$Delay) endFunc Func b() Beep (3400,$Delay) endFunc Func c() Beep (3200,$Delay) endFunc Func d() Beep (2300,$Delay) endFunc Func e() Beep (1300,$Delay) endFunc Func f() Beep (2400,$Delay) endFunc Func g() Beep (2500,$Delay) endFunc Func h() Beep (2600,$Delay) endFunc Func i() Beep (1800,$Delay) endFunc Func j() Beep (2700,$Delay) endFunc Func k() Beep (2800,$Delay) endFunc Func l() Beep (2900,$Delay) endFunc Func m() Beep (3600,$Delay) endFunc Func n() Beep (3600,$Delay) endFunc Func o() Beep (3500,$Delay) endFunc Func p() Beep (3500,$Delay) endFunc hotkeyset('{esc}', 'halt') func halt() exit endFunc Anyone know how to assign Functions with a variable? Edited May 8, 2006 by Lakes 2015 - Still no flying cars, instead blankets with sleeves. Link to comment Share on other sites More sharing options...
Paulie Posted May 8, 2006 Author Share Posted May 8, 2006 expandcollapse popuphotkeyset('{esc}', 'halt') $Key = "abcdefghijklmnop" $Keys = StringSplit ($Key,"") $KeysLen = $Keys[0] $Delay = 100 For $n = 1 to $KeysLen Hotkeyset($Keys[$n], $Keys[$n]) next While 1 WEnd Func a() Beep (2100,$Delay) endFunc Func b() Beep (3400,$Delay) endFunc Func c() Beep (3200,$Delay) endFunc Func d() Beep (2300,$Delay) endFunc Func e() Beep (1300,$Delay) endFunc Func f() Beep (2400,$Delay) endFunc Func g() Beep (2500,$Delay) endFunc Func h() Beep (2600,$Delay) endFunc Func i() Beep (1800,$Delay) endFunc Func j() Beep (2700,$Delay) endFunc Func k() Beep (2800,$Delay) endFunc Func l() Beep (2900,$Delay) endFunc Func m() Beep (3600,$Delay) endFunc Func n() Beep (3600,$Delay) endFunc Func o() Beep (3500,$Delay) endFunc Func p() Beep (3500,$Delay) endFunc hotkeyset('{esc}', 'halt') func halt() exit endFunc Anyone know how to assign Functions with a variable? 2 problems i see with this, 1)Copy Cat 2)Sorta defeats the purpose of the proggy(hotKetset steals key from other uses) Link to comment Share on other sites More sharing options...
Lakes Posted May 8, 2006 Share Posted May 8, 2006 2 problems i see with this,1)Copy Cat 2)Sorta defeats the purpose of the proggy(hotKetset steals key from other uses)I never mean`t for this to do anything useful, it was just a way for me to experiment with assigning functions via HotKeySet in a loop.Lets see you use _ispressed in a loop to scan the keyboard Hint: this is already on the forum... 2015 - Still no flying cars, instead blankets with sleeves. Link to comment Share on other sites More sharing options...
slightly_abnormal Posted May 8, 2006 Share Posted May 8, 2006 cool heres my song cool 67668888888888888888888888888888888888888 67869999999999999999 676769999999999999999999 676768888888888888888 69696969696 454344543545455545 Link to comment Share on other sites More sharing options...
bigassmuffin Posted May 9, 2006 Share Posted May 9, 2006 cool heres my song cool 67668888888888888888888888888888888888888 67869999999999999999 676769999999999999999999 676768888888888888888 69696969696 454344543545455545 I know instead of requesting, I hsould edit yours with credit for original..you should make it though a musical keyboard guitar.. like: ESC F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 is String 1 or String E ` 1 2 3 4 5 6 7 8 9 0 - = is String 2 or String B Tab q w e r t y u i o p [ ] is String 3 or String G ETC all the way down ot string E or Sting 6... and each key fomr left to right is one fret more.. like: FRET #: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ------------------------------------------------ tab q w e r t y u i o p [ ] \ and for every string.. NOW THIS WOULD TOTTALY OWN.. and with help form all the community..you can probb get it to save sounds? and repeat by typing in which keys to play' Or you can jsut manually type them in another auto it script Link to comment Share on other sites More sharing options...
Thatsgreat2345 Posted May 9, 2006 Share Posted May 9, 2006 I know instead of requesting, I hsould edit yours with credit for original..you should make it though a musical keyboard guitar.. like: ESC F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 is String 1 or String E ` 1 2 3 4 5 6 7 8 9 0 - = is String 2 or String B Tab q w e r t y u i o p [ ] is String 3 or String G ETC all the way down ot string E or Sting 6... and each key fomr left to right is one fret more.. like: FRET #: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 ------------------------------------------------ tab q w e r t y u i o p [ ] \ and for every string.. NOW THIS WOULD TOTTALY OWN.. and with help form all the community..you can probb get it to save sounds? and repeat by typing in which keys to play' Or you can jsut manually type them in another auto it script its already been done http://www.autoitscript.com/forum/index.ph...201&hl=.autsong Link to comment Share on other sites More sharing options...
Dx3 Posted May 14, 2006 Share Posted May 14, 2006 Nice Script! It sounds cool when your actually typing something, kind of like a sci-fi effect. Nice! Link to comment Share on other sites More sharing options...
Infinitex0 Posted May 15, 2006 Share Posted May 15, 2006 Pretty cool. I made a program like this except it was meant to annoy my friend (the same sound for every key, copied it into his startup of course, and no tray icon, mainly because he stole one of my accounts on another site, we both got a good laugh) The below statement is False.The above statement is True.a lesson I learned from Greenmachine; give a man a code and he'll solve one problem. Teach a man to code and he'll solve all his problems.P.S please don't use autoIt as a virus creator/spyware maker(keyLogger especially)Cick this and help me[center]My Scripts:[/center][center]Port Scanner[/center] Link to comment Share on other sites More sharing options...
penguini Posted November 11, 2007 Share Posted November 11, 2007 I put this on my school's computer hehe. Put it on the computer next to me, and the kid got pissed off and yelled out at the teacher! 6/5 on this one, so much fun. Link to comment Share on other sites More sharing options...
ChangMinYang Posted November 24, 2007 Share Posted November 24, 2007 Anyone know how to assign Functions with a variable?Are you want to Eval() ?Dim $ClientWidth = 800Dim $ClientHeight = 600$ItemsXA = GetPixelByRatio("Width", -0.5)$ItemsYA = GetPixelByRatio("Height", -0.5)$ItemsXB = GetPixelByRatio("Width", +0.5)$ItemsYB = GetPixelByRatio("Height", +0.5) ;Search to Pickable ItemFunc GetPixelByRatio($Prefix1, $Prefix2) If $Prefix1 = "Width" Then Return StringRight( "0000" & Floor ( ( @DesktopWidth + (Eval("Client" & $Prefix1) * $Prefix2) ) / 2 ) , 4 ) Else Return StringRight( "0000" & Floor ( ( @DesktopHeight + (Eval("Client" & $Prefix1) * $Prefix2) ) / 2 ) , 4 ) EndIfEndFunc Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now