 |
AutoHotkey Community
Let's help each other out
|
| View previous topic :: View next topic |
| Author |
Message |
slomz
Joined: 03 Sep 2006
Posts: 608
Location: Iowa, U.S.
|
 Posted: Tue Oct 03, 2006 1:18 am Post subject: Miscallaneous Settings, volume, sys info |
 |
|
I made this with a little help from .AHK that performs in a few different ways. It has the volume control of a few things like microphone, pcspeaker, master, and wave. It also has a slider you can set the transparency of all windows. And then last it also retrieves various information about your computer and such.
Have Fun!!!
Changes:
1)Added pc speaker duration.
2)Added headphone volume.
3)Made some sliders vertical and some horizontal.
4)Add a beep to whenever you changed the pc speaker volume and also plays the beep for as long as the duration you picked.
5)Did the monitorworkarea as laszlo asked for.
6)Added mouse coords of active window.
(Yes I know some is a bit confusing but I am adding a help file!)
| Code: | ;####################MISCALLANEOUS###########################
SetBatchLines, -1
Process, Priority,, R
This = Volume
That = Window Choices
Ok = System Info
;#################################GUI 1#########################
Gui, Add, Text, x15 y5 w h25 , Choose a function to do`nby clicking on the button`nit is assigned to.
Gui, Add, Button, x415 y345 w55 h25 gEscape, Close
Gui, Add, Button, x15 y75 w100 h25 gSound, Sound Settings
Gui, Add, Button, x15 y115 w100 h25 gWindow, Window Settings
Gui, Add, Button, x15 y155 w100 h25 gSys, System Info
;Gui, Color, 7FF490
SysGet, Workarea, MonitorWorkArea
Gui, Show, %WorkArea% w135 h200, Random Settings
Return
;#############################GUI 2#######################
Sound:
Gui, 1:Submit
SoundGet, Masta, Master, Volume
SoundGetWaveVolume, Waver
SoundGet, Mic, MICROPHONE, Volume
SoundGet, Compa, PCSPEAKER, Volume
SoundGet, Head, Headphones, Volume
Gui, 2:Add, Slider, x35 y40 w30 h125 gTreb vTreb Vertical Invert TickInterval5, %MIC%
Gui, 2:Add, Slider, x145 y40 w30 h125 gHead vHead TickInterval5 Invert Vertical, %Head%
Gui, 2:Add, Slider, x20 y205 w750 h35 gBass vBass Range37-32767 TickInterval250, %Compa%
Gui, 2:Add, Slider, x65 y260 w715 h20 gDurat vDuration Range100-100000 TickInterval1000,
Gui, 2:Add, Slider, x250 y40 w30 h125 gWave vWave Vertical Line1 Invert TickInterval5, %Waver%
Gui, 2:Add, Slider, x350 y40 w30 h125 gMaster vMaster Vertical Invert TickInterval5, %Masta%
Gui, 2:Add, GroupBox, x10 y25 w65 h155 , MicroPhone
Gui, 2:Add, GroupBox, x120 y25 w65 h155, HeadPhones
Gui, 2:Add, GroupBox, x10 y190 w785 h120, Internal PC speaker volume
Gui, 2:Add, GroupBox, x55 y240 w725 h60, PC SPEAKER DURATION
Gui, 2:Add, GroupBox, x225 y25 w65 h155, Wave
Gui, 2:Add, GroupBox, x325 y25 w65 h155, Master
Gui, 2:Add, Edit, x392 y40 w25 h20 vEdit1 ReadOnly, %Masta%
Gui, 2:Add, Edit, x292 y40 w25 h20 vEdit2 ReadOnly, %Waver%
Gui, 2:Add, Edit, x187 y40 w25 h20 vEdit6 ReadOnly,
Gui, 2:Add, Edit, x15 y280 w40 h20 vEdit5 ReadOnly,
Gui, 2:Add, Edit, x15 y240 w40 h20 vEdit3 ReadOnly, %Compa%
Gui, 2:Add, Edit, x77 y40 w25 h20 vEdit4 ReadOnly, %Mic%
Gui, 2:Add, CheckBox, x15 y165 vRadio gRadio, Mute
Gui, 2:Add, CheckBox, x125 y165 vRadio3 gRadio3, Mute
Gui, 2:Add, CheckBox, x230 y165 vRadio1 gRadio1, Mute
Gui, 2:Add, CheckBox, x330 y165 vRadio2 gRadio2, Mute
Gui, 2:Show, %WorkArea% w800 h325, %This%
return
;##########################GUI 3###############################
Window:
Gui, 1:Submit
Gui, 3:Add, GroupBox, x10 y20 w135 h60 , Transparency
Gui, 3:Add, Slider, x16 y40 w120 h30 gTrans vTrans Range0-255 Invert TickInterval8,
Gui, 3:Add, Edit, x146 y40 w25 h20 vEdit5 ReadOnly,
Gui, 3:Show, %WorkArea% w180 h100, %That%
return
;############################GUI 4#################################
Sys:
Gui, 1:Submit
Gui, 4:Add, Button, x140 y680 w50 h20 +Default gSubmit, Update
Gui, 4:Add, Text, x5 y0 , MouseWheel Count
Gui, 4:Add, Text, x5 y40, Mouse Button Count
Gui, 4:Add, Text, x5 y80, W and H (pixels) Pixel Count
Gui, 4:Add, Text, x5 y120, Current Time
Gui, 4:Add, Text, x5 y165, Time since last reboot (ms)
Gui, 4:Add, Text, x5 y205, Date
Gui, 4:Add, Text, x5 y245, Mouse Coordinates of Client
Gui, 4:Add, Text, x5 y285, AHK version currently running
Gui, 4:Add, Text, x5 y515, Computer Name
Gui, 4:Add, Text, x5 y325, Current user name
Gui, 4:Add, Text, x5 y365, Language
Gui, 4:Add, Text, x5 y400, System being Run
Gui, 4:Add, Text, x5 y435, IP address
Gui, 4:Add, Text, x5 y475, Type of Cursor
Gui, 4:Add, Text, x5 y550, Physical Time Idle
Gui, 4:Add, Text, x5 y590, Mouse Coords of Current Window
Gui, 4:Add, Edit, x5 y95 w85 vText3 ReadOnly,
Gui, 4:Add, Edit, x5 y55 w15 vText2 ReadOnly,
Gui, 4:Add, Edit, x95 y95 w60 vText9 ReadOnly,
Gui, 4:Add, Edit, x5 y15 w15 vText1 ReadOnly,
Gui, 4:Add, Edit, x5 y140 w60 vText4 ReadOnly,
Gui, 4:Add, Edit, x5 y180 w100 vText5 ReadOnly,
Gui, 4:Add, Edit, x5 y220 w140 vText6 ReadOnly,
Gui, 4:Add, Edit, x5 y260 w115 vText7 ReadOnly,
Gui, 4:Add, Edit, x5 y300 w160 vText8 ReadOnly,
Gui, 4:Add, Edit, x5 y530 w120 vText10 ReadOnly,
Gui, 4:Add, Edit, x5 y340 w120 vText11 ReadOnly,
Gui, 4:Add, Edit, x5 y380 w150 vText12 ReadOnly,
Gui, 4:Add, Edit, x5 y415 w100 vText13 ReadOnly,
Gui, 4:Add, Edit, x5 y450 w150 vText14 ReadOnly,
Gui, 4:Add, Edit, x5 y495 w100 vText15 ReadOnly,
Gui, 4:Add, Edit, x5 y570 w100 vText16 ReadOnly,
Gui, 4:Add, Edit, x5 y610 w115 vText17 ReadOnly,
;Gui, 4:Color, 13FF50
Gui, 4:Show, %WorkArea% AutoSize, %OK%
return
;####################SySTEM INFO controls######################
Submit:
Gui, 4:Submit, NoHide
Loop
{
SysGet, System1, 75
GuiControl, 4:, Text1, %System1%
SysGet, MouseButtonCount, 43
GuiControl, 4:, Text2, %MouseButtonCount%
SysGet, System2, 16
SysGet, System3, 17
GuiControl, 4:, Text3, w=%System2% h=%System3%
GuiControl, 4:, Text4, %A_Hour%:%A_Min%:%A_Sec%
GuiControl, 4:, Text5, %A_TickCount%
GuiControl, 4:, Text6, %A_DDDD%, %A_MMMM% %A_DD% %A_Year%
CoordMode Mouse, Screen
MouseGetPos, Posx, Posy
GuiControl, 4:, Text7, X_%Posx% Y_%PosY%
GuiControl, 4:, Text8, %A_AhkVersion%
System4 := (System2 * System3)
GuiControl, 4:, Text9, %System4%
GuiControl, 4:, Text10, %A_ComputerName%
GuiControl, 4:, Text11, %A_UserName%
the_language = %A_Language%
StringReplace the_language, the_language, 0436, Afrikaans
StringReplace the_language, the_language, 041c, Albanian
StringReplace the_language, the_language, 0401, Arabic_Saudi_Arabia
StringReplace the_language, the_language, 0801, Arabic_Iraq
StringReplace the_language, the_language, 0c01, Arabic_Egypt
StringReplace the_language, the_language, 2001, Arabic_Oman
StringReplace the_language, the_language, 2401, Arabic_Yemen
StringReplace the_language, the_language, 2801, Arabic_Syria
StringReplace the_language, the_language, 2c01, Arabic_Jordan
StringReplace the_language, the_language, 3001, Arabic_Lebanon
StringReplace the_language, the_language, 3401, Arabic_Kuwait
StringReplace the_language, the_language, 3801, Arabic_UAE
StringReplace the_language, the_language, 3c01, Arabic_Bahrain
StringReplace the_language, the_language, 4001, Arabic_Qatar
StringReplace the_language, the_language, 042b, Armenian
StringReplace the_language, the_language, 042c, Azeri_Latin
StringReplace the_language, the_language, 082c, Azeri_Cyrillic
StringReplace the_language, the_language, 042d, Basque
StringReplace the_language, the_language, 0423, Belarusian
StringReplace the_language, the_language, 0402, Bulgarian
StringReplace the_language, the_language, 0403, Catalan
StringReplace the_language, the_language, 0404, Chinese_Taiwan
StringReplace the_language, the_language, 0804, Chinese_PRC
StringReplace the_language, the_language, 0c04, Chinese_Hong_Kong
StringReplace the_language, the_language, 1004, Chinese_Singapore
StringReplace the_language, the_language, 1404, Chinese_Macau
StringReplace the_language, the_language, 041a, Croatian
StringReplace the_language, the_language, 0405, Czech
StringReplace the_language, the_language, 0406, Danish
StringReplace the_language, the_language, 0413, Dutch_Standard
StringReplace the_language, the_language, 0813, Dutch_Belgian
StringReplace the_language, the_language, 0409, English_United_States
StringReplace the_language, the_language, 0809, English_United_Kingdom
StringReplace the_language, the_language, 0c09, English_Australian
StringReplace the_language, the_language, 1009, English_Canadian
StringReplace the_language, the_language, 1409, English_New_Zealand
StringReplace the_language, the_language, 1809, English_Irish
StringReplace the_language, the_language, 1c09, English_South_Africa
StringReplace the_language, the_language, 2009, English_Jamaica
StringReplace the_language, the_language, 2409, English_Caribbean
StringReplace the_language, the_language, 2809, English_Belize
StringReplace the_language, the_language, 2c09, English_Trinidad
StringReplace the_language, the_language, 3009, English_Zimbabwe
StringReplace the_language, the_language, 3409, English_Philippines
StringReplace the_language, the_language, 0425, Estonian
StringReplace the_language, the_language, 0438, Faeroese
StringReplace the_language, the_language, 0429, Farsi
StringReplace the_language, the_language, 040b, Finnish
StringReplace the_language, the_language, 040c, French_Standard
StringReplace the_language, the_language, 080c, French_Belgian
StringReplace the_language, the_language, 0c0c, French_Canadian
StringReplace the_language, the_language, 100c, French_Swiss
StringReplace the_language, the_language, 140c, French_Luxembourg
StringReplace the_language, the_language, 180c, French_Monaco
StringReplace the_language, the_language, 0437, Georgian
StringReplace the_language, the_language, 0407, German_Standard
StringReplace the_language, the_language, 0807, German_Swiss
StringReplace the_language, the_language, 0c07, German_Austrian
StringReplace the_language, the_language, 1007, German_Luxembourg
StringReplace the_language, the_language, 1407, German_Liechtenstein
StringReplace the_language, the_language, 408, Greek
StringReplace the_language, the_language, 040d, Hebrew
StringReplace the_language, the_language, 0439, Hindi
StringReplace the_language, the_language, 040e, Hungarian
StringReplace the_language, the_language, 040f, Icelandic
StringReplace the_language, the_language, 0421, Indonesian
StringReplace the_language, the_language, 0410, Italian_Standard
StringReplace the_language, the_language, 0810, Italian_Swiss
StringReplace the_language, the_language, 0411, Japanese
StringReplace the_language, the_language, 043f, Kazakh
StringReplace the_language, the_language, 0457, Konkani
StringReplace the_language, the_language, 0412, Korean
StringReplace the_language, the_language, 0426, Latvian
StringReplace the_language, the_language, 0427, Lithuanian
StringReplace the_language, the_language, 042f, Macedonian
StringReplace the_language, the_language, 043e, Malay_Malaysia
StringReplace the_language, the_language, 083e, Malay_Brunei_Darussalam
StringReplace the_language, the_language, 044e, Marathi
StringReplace the_language, the_language, 0414, Norwegian_Bokmal
StringReplace the_language, the_language, 0814, Norwegian_Nynorsk
StringReplace the_language, the_language, 0415, Polish
StringReplace the_language, the_language, 0416, Portuguese_Brazilian
StringReplace the_language, the_language, 0816, Portuguese_Standard
StringReplace the_language, the_language, 0418, Romanian
StringReplace the_language, the_language, 0419, Russian
StringReplace the_language, the_language, 044f, Sanskrit
StringReplace the_language, the_language, 081a, Serbian_Latin
StringReplace the_language, the_language, 0c1a, Serbian_Cyrillic
StringReplace the_language, the_language, 041b, Slovak
StringReplace the_language, the_language, 0424, Slovenian
StringReplace the_language, the_language, 040a, Spanish_Traditional_Sort
StringReplace the_language, the_language, 080a, Spanish_Mexican
StringReplace the_language, the_language, 0c0a, Spanish_Modern_Sort
StringReplace the_language, the_language, 100a, Spanish_Guatemala
StringReplace the_language, the_language, 140a, Spanish_Costa_Rica
StringReplace the_language, the_language, 180a, Spanish_Panama
StringReplace the_language, the_language, 1c0a, Spanish_Dominican_Republic
StringReplace the_language, the_language, 200a, Spanish_Venezuela
StringReplace the_language, the_language, 240a, Spanish_Colombia
StringReplace the_language, the_language, 280a, Spanish_Peru
StringReplace the_language, the_language, 2c0a, Spanish_Argentina
StringReplace the_language, the_language, 300a, Spanish_Ecuador
StringReplace the_language, the_language, 340a, Spanish_Chile
StringReplace the_language, the_language, 380a, Spanish_Uruguay
StringReplace the_language, the_language, 3c0a, Spanish_Paraguay
StringReplace the_language, the_language, 400a, Spanish_Bolivia
StringReplace the_language, the_language, 440a, Spanish_El_Salvador
StringReplace the_language, the_language, 480a, Spanish_Honduras
StringReplace the_language, the_language, 4c0a, Spanish_Nicaragua
StringReplace the_language, the_language, 500a, Spanish_Puerto_Rico
StringReplace the_language, the_language, 0441, Swahili
StringReplace the_language, the_language, 041d, Swedish
StringReplace the_language, the_language, 081d, Swedish_Finland
StringReplace the_language, the_language, 0449, Tamil
StringReplace the_language, the_language, 0444, Tatar
StringReplace the_language, the_language, 041e, Thai
StringReplace the_language, the_language, 041f, Turkish
StringReplace the_language, the_language, 0422, Ukrainian
StringReplace the_language, the_language, 0420, Urdu
StringReplace the_language, the_language, 0443, Uzbek_Latin
StringReplace the_language, the_language, 0843, Uzbek_Cyrillic
StringReplace the_language, the_language, 042a, Vietnamese
GuiControl, 4:, Text12, %The_Language%
GuiControl, 4:, Text13, %A_OSType%
GuiControl, 4:, Text14, %A_IPAddress1%
GuiControl, 4:, Text15, %A_Cursor%
GuiControl, 4:, Text16, %A_TimeIdlePhysical%
Coordmode Mouse, Relative
MouseGetPos, Pos1x, Pos1y, A
GuiControl, 4:, Text17, x_%Pos1x% y_%Pos1Y%
}
return
;####################Sound Controls#########################
Radio1:
Gui, 2:Submit, NoHide
{
if Radio1 = 0
SoundSet, 0, Master, Mute
}
{
if radio1 = 1
SoundSet, 1, Master, Mute
}
return
Radio2:
Gui, 2:Submit, NoHide
{
if Radio2 = 0
SoundSet, 0, Wave, Mute
}
{
If Radio2 = 1
SoundSet, 1, Wave, Mute
}
return
Radio:
Gui, 2:Submit, NoHide
{
if Radio = 0
SoundSet, 0, MicroPhone, Mute
}
{
if Radio = 1
SoundSet, 1, MicroPhone, Mute
}
return
Radio3:
Gui, 2:Submit, NoHide
{
if Radio = 0
SoundSet, 0, Headphones, Mute
}
{
if Radio = 1
SoundSet, 1, HeadPhones, Mute
}
return
Head:
Gui, 2:Submit, NoHide
{
SoundSet, %Head%, Headphones, Volume
GuiControl,, Edit6, %Head%.
}
return
Master:
Gui, 2:Submit, NoHide
{
SoundSet, %Master%, Master, Volume
GuiControl,,Edit1, %Master%.
}
return
Wave:
Gui, 2:Submit, NoHide
{
SoundSetWaveVolume, %Wave%
GuiControl,,Edit2, %Wave%.
}
return
Treb:
Gui, 2:Submit, NoHide
{
SoundSet, %Treb%, MicroPhone, Volume
GuiControl,,Edit4, %Treb%.
}
return
Bass:
Gui, 2:Submit, NoHide
{
SoundSet, %Bass%, PCSPEAKER, Volume
SoundBeep, %Bass%, %Duration%
GuiControl,,Edit3, %Bass%.
}
return
Durat:
Gui, 2:Submit, NoHide
{
GuiControl,, Edit5,%Duration%.
}
return
;#################TRANSPARENCY WINDOW##############
Trans:
Gui, 3:Submit, NoHide
WinGet id, list,,, Program Manager
Loop %id% {
this_id := id%a_index%
WinSet Transparent, %Trans%, ahk_id %this_id%
GuiControl,,Edit5, %Trans%
}
return
F10::
return
3GuiClose:
4GuiClose:
2GuiClose:
reload
GuiClose:
Escape:
ExitApp |
Last edited by slomz on Thu Oct 05, 2006 2:42 am; edited 7 times in total |
|
| Back to top |
|
 |
slomz
Joined: 03 Sep 2006
Posts: 608
Location: Iowa, U.S.
|
| Posted: Tue Oct 03, 2006 1:29 am Post subject: |
|
|
| PLease post comments. |
|
| Back to top |
|
|
Laszlo
Joined: 14 Feb 2005
Posts: 4012
Location: Pittsburgh
|
| Posted: Tue Oct 03, 2006 4:22 am Post subject: |
|
|
| comments |
|
| Back to top |
|
|
Laszlo
Joined: 14 Feb 2005
Posts: 4012
Location: Pittsburgh
|
| Posted: Tue Oct 03, 2006 4:34 am Post subject: |
|
|
I started the script, but nothing happened. I had to look at the code to figure that a GUI should appear at the left edge of the screen (x=0), where my taskbar covers it. It is better to use SysGet ... MonitorWorkArea to find a location, where the GUI is visible.
I modified the locations of the GUI's, but then the script screwed up my taskbar. I have an analog clock docked there, which turned black and covered the quick launch icons. Closing the script did not restore my taskbar.
Otherwise, it is a handy tool, which could be extended for example to change mouse settings, and many more, found in tools like TweakUI. |
|
| Back to top |
|
|
robiandi
Joined: 08 Aug 2006
Posts: 50
|
| Posted: Tue Oct 03, 2006 6:50 am Post subject: |
|
|
| It works fine on my PC, Win2000. |
|
| Back to top |
|
|
slomz
Joined: 03 Sep 2006
Posts: 608
Location: Iowa, U.S.
|
| Posted: Tue Oct 03, 2006 10:55 pm Post subject: |
|
|
This script really isn't advanced at all. It was just too help me learn more about ahk.
| Laszlo wrote: | I started the script, but nothing happened. I had to look at the code to figure that a GUI should appear at the left edge of the screen (x=0), where my taskbar covers it. It is better to use SysGet ... MonitorWorkArea to find a location, where the GUI is visible.
I modified the locations of the GUI's, but then the script screwed up my taskbar. I have an analog clock docked there, which turned black and covered the quick launch icons. Closing the script did not restore my taskbar.
Otherwise, it is a handy tool, which could be extended for example to change mouse settings, and many more, found in tools like TweakUI. |
Sorry. There are small things like that I am trying to work on, such as getting the volume already set so the sliders are already activated when window opens up. I Tried using a sounget and storing it in a variable and then putting a guicontrol but hasn't seemed to work. And does somebody know the command for gettin mouse coords of active window. I tried using coordmode but couldn't get that to work.
And your problem with the blackened out toolbar, is because of thr transparency. When I used it and put it back to normal, there were a couple programs that turned black for me.
Last edited by slomz on Tue Oct 03, 2006 11:06 pm; edited 1 time in total |
|
| Back to top |
|
|
Laszlo
Joined: 14 Feb 2005
Posts: 4012
Location: Pittsburgh
|
| Posted: Tue Oct 03, 2006 11:02 pm Post subject: |
|
|
| slomz wrote: | | does somebody know the command for gettin mouse coords of active window. I tried using coordmode but couldn't get that to work. |
MouseGetPos |
|
| Back to top |
|
|
slomz
Joined: 03 Sep 2006
Posts: 608
Location: Iowa, U.S.
|
| Posted: Tue Oct 03, 2006 11:06 pm Post subject: |
|
|
| I tried that but that got the whole desktop coords. |
|
| Back to top |
|
|
Laszlo
Joined: 14 Feb 2005
Posts: 4012
Location: Pittsburgh
|
| Posted: Tue Oct 03, 2006 11:13 pm Post subject: |
|
|
| Code: | #Persistent
CoordMode Mouse, Relative
SetTimer Mouse,10
Mouse:
MouseGetPos X, Y, A
TrayTip,,x = %X%`ny = %Y% |
|
|
| Back to top |
|
|
slomz
Joined: 03 Sep 2006
Posts: 608
Location: Iowa, U.S.
|
| Posted: Tue Oct 03, 2006 11:20 pm Post subject: |
|
|
Edit: I can't incorporate it into my script. Have tried 10 different ways and won't work.
Edit2: I got it to work but it affects both edit boxes, and not just the one i specified. |
|
| Back to top |
|
|
.AHK
Joined: 26 Apr 2006
Posts: 662
Location: USA
|
| Posted: Wed Oct 04, 2006 3:06 am Post subject: |
|
|
| That is because you must change it back to "CoordMode Mouse, Screen" for the edit box that should show the screens x, y instead of the active windows x, y. |
|
| Back to top |
|
|
silveredge78
Joined: 25 Jul 2006
Posts: 381
Location: Midwest, USA
|
| Posted: Wed Oct 04, 2006 5:17 am Post subject: |
|
|
May I suggest editing your first post to just put a general description of what all this does. No offense, but I personally dont take the time to just try random scripts that I have no clue what they do.  Though I am all for scripts that are useful, once I know what they do!
_________________
SilverEdge78 |
|
| Back to top |
|
|
slomz
Joined: 03 Sep 2006
Posts: 608
Location: Iowa, U.S.
|
| Posted: Thu Oct 05, 2006 12:18 am Post subject: |
|
|
| Added more settings. Did lots of editing. |
|
| Back to top |
|
|
|
|
You can post new topics in this forum
You can reply to topics in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
