Jump to content
Sign in to follow this  
ConsultingJoe

Quick Messages

Recommended Posts

;) It has a nice hotkeyset(). The _ispressed can be expanded. Please try it out

#include <GUIConstants.au3>
#include <misc.au3>
$user32 = ""
$quickmsgs = 7;number of inputs and keys
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Quick Message", 307, 335, 193, 115)
$Button1 = GUICtrlCreateButton(StringUpper(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Keys', '1', 'Set Key' )), 8, 26, 57, 31, 0)
$Button2 = GUICtrlCreateButton(StringUpper(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Keys', '2', 'Set Key' )), 8, 66, 57, 31, 0)
$Button3 = GUICtrlCreateButton(StringUpper(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Keys', '3', 'Set Key' )), 8, 106, 57, 31, 0)
$Button4 = GUICtrlCreateButton(StringUpper(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Keys', '4', 'Set Key' )), 8, 146, 57, 31, 0)
$Button5 = GUICtrlCreateButton(StringUpper(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Keys', '5', 'Set Key' )), 8, 186, 57, 31, 0)
$Button6 = GUICtrlCreateButton(StringUpper(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Keys', '6', 'Set Key' )), 8, 226, 57, 31, 0)
$Button7 = GUICtrlCreateButton(StringUpper(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Keys', '7', 'Set Key' )), 8, 266, 57, 31, 0)
$Label1 = GUICtrlCreateLabel("Hot Key", 8, 7, 58, 17, $SS_CENTER)
$Input1 = GUICtrlCreateInput(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', '1', 'Message Here' ), 72, 30, 225, 21)
$Input2 = GUICtrlCreateInput(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', '2', 'Message Here' ), 72, 70, 225, 21)
$Input3 = GUICtrlCreateInput(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', '3', 'Message Here' ), 72, 110, 225, 21)
$Input4 = GUICtrlCreateInput(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', '4', 'Message Here' ), 72, 150, 225, 21)
$Input5 = GUICtrlCreateInput(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', '5', 'Message Here' ), 72, 190, 225, 21)
$Input6 = GUICtrlCreateInput(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', '6', 'Message Here' ), 72, 230, 225, 21)
$Input7 = GUICtrlCreateInput(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', '7', 'Message Here' ), 72, 270, 225, 21)
$Label2 = GUICtrlCreateLabel("Message To Send", 72, 8, 227, 17, $SS_CENTER)
$Label3 = GUICtrlCreateLabel("Key to open message:", 8, 304, 109, 15, $SS_CENTER)
$Sendkey = GUICtrlCreateInput(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Kendkey', 'Key', 'y' ), 120, 302, 17, 21)
$Save = GUICtrlCreateButton("Save Settings", 146, 301, 72, 25, 0)
$Started = False
$Start = GUICtrlCreateButton("Start", 226, 301, 72, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    If $nMsg = $GUI_EVENT_CLOSE Then Exit
    For $i = 1 To $quickmsgs
        If $nMsg = Eval( "Button" & $i ) Then
            SplashTextOn( "", "Press The To Set", 200, 50, -1, -1, -1, -1, 20 )
            GUISetState( @SW_DISABLE )
            GUICtrlSetData(Eval( "Button" & $i ), getkey())
            SplashOff()
            GUISetState( @SW_ENABLE )
        EndIf
    Next
    If $nMsg = $Save Then
        Save()
        MsgBox(0, "", "Saved!")
    EndIf
    If $nMsg = $Start Then start()
WEnd

Func Save()
    For $i = 1 To $quickmsgs
        IniWrite( @ScriptDir & '\quickmsgdata.ini', 'Keys', $i, StringLower(GUICtrlRead(Eval( "Button" & $i ))))
        IniWrite( @ScriptDir & '\quickmsgdata.ini', 'Messages', $i, GUICtrlRead(Eval( "Input" & $i )))
    Next
    IniWrite( @ScriptDir & '\quickmsgdata.ini', 'Kendkey', 'Key', GUICtrlRead( $Sendkey ))
EndFunc


Func getkey()
    While 1
        for $x = 2 to 7
            for $y = 0 to 15
                $key = hex($x, 1)&hex($y, 1)
                If _IsPressed($key) Then Return chr(dec($key))
            next
        next
    WEnd
EndFunc

Func start()
    If $Started = False Then
        GUICtrlSetData( $Start, "Stop" )
        $Started = True
    Else
        GUICtrlSetData( $Start, "Start" )
        $Started = False
    EndIf
    For $i = 1 To $quickmsgs
        $hotkey = IniRead( @ScriptDir & '\quickmsgdata.ini', 'Keys', $i, '' )
        If StringLen($hotkey) = 1 Then HotKeySet( $hotkey, "key" & $i )
    Next
EndFunc

Func key1()
    $temp = ClipGet()
    ClipPut(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', 1, '' ))
    Send( GUICtrlRead( $Sendkey ) & "^v{Enter}" )
    ClipPut( $temp )
EndFunc
Func key2()
    $temp = ClipGet()
    ClipPut(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', 2, '' ))
    Send( GUICtrlRead( $Sendkey ) & "^v{Enter}" )
    ClipPut( $temp )    
EndFunc
Func key3()
    $temp = ClipGet()
    ClipPut(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', 3, '' ))
    Send( GUICtrlRead( $Sendkey ) & "^v{Enter}" )
    ClipPut( $temp )
EndFunc
Func key4()
    $temp = ClipGet()
    ClipPut(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', 4, '' ))
    Send( GUICtrlRead( $Sendkey ) & "^v{Enter}" )
    ClipPut( $temp )
EndFunc
Func key5()
    $temp = ClipGet()
    ClipPut(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', 5, '' ))
    Send( GUICtrlRead( $Sendkey ) & "^v{Enter}" )
    ClipPut( $temp )
EndFunc
Func key6()
    $temp = ClipGet()
    ClipPut(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', 6, '' ))
    Send( GUICtrlRead( $Sendkey ) & "^v{Enter}" )
    ClipPut( $temp )
EndFunc
Func key7()
    $temp = ClipGet()
    ClipPut(IniRead( @ScriptDir & '\quickmsgdata.ini', 'Messages', 7, '' ))
    Send( GUICtrlRead( $Sendkey ) & "^v{Enter}" )
    ClipPut( $temp )
EndFunc

Sample INI

CODE
[Keys]

1=1

2=2

[Messages]

1=My Steam ID: zerocool6900

2=Check out www.CyberZeroCool.com

3=sdgasfdg

[Kendkey]

Key=y


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites

cool thanks. I just added you


[center]AutoIT + Finger Print Reader/Scanner = COOL STUFF -> Check Out Topic![/center][center][font=Arial Black]Check out ConsultingJoe.com[/font][/center][center]My Scripts~~~~~~~~~~~~~~Web Protocol Managing - Simple WiFi Scanner - AutoTunes - Remote PC Control V2 - Audio SpectrascopePie Chart UDF - At&t's TTS - Custom Progress Bar - Windows Media Player Embed[/center]

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...