Jump to content

Hotkeyset()

Raffle
 Share

Recommended Posts

Raffle Wayfarer

Raffle

Posted
Posted

Hi, i can normally make it so that a msgbox or input box is set with a hotkey to pop it up. this time i used koda and i don't know how do make the hotkeyset work with koda. could someone please tell me how?

Link to comment
Share on other sites
Raffle Wayfarer

Raffle

Posted
  • Author
Posted

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Raffle's Auto Talker!", 243, 23, 193, 115)

GUISetIcon("C:\Program Files\Diamond Caves II\DC2.exe")

GUICtrlCreateInput("", 0, 0, 193, 21)

GUICtrlSetBkColor(-1, 0xA6CAF0)

GUICtrlCreateInput("", 208, 0, 33, 21)

GUICtrlSetBkColor(-1, 0x008000)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

Link to comment
Share on other sites
kiwikid Seeker

kiwikid

Posted
Posted

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("Raffle's Auto Talker!", 243, 23, 193, 115)

GUISetIcon("C:\Program Files\Diamond Caves II\DC2.exe")

GUICtrlCreateInput("", 0, 0, 193, 21)

GUICtrlSetBkColor(-1, 0xA6CAF0)

GUICtrlCreateInput("", 208, 0, 33, 21)

GUICtrlSetBkColor(-1, 0x008000)

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

Exit

EndSwitch

WEnd

It should work the same way with Koda I believe. Just use the GUISetState in a function and ensure you use the handle for the window. In the code provided I used the F1 key to pop up your window.

#include <GUIConstants.au3>

HotKeySet("{F1}", "_ShowWindow")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Raffle's Auto Talker!", 243, 23, 193, 115)
GUISetIcon("C:\Program Files\Diamond Caves II\DC2.exe")
GUICtrlCreateInput("", 0, 0, 193, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlCreateInput("", 208, 0, 33, 21)
GUICtrlSetBkColor(-1, 0x008000)
;
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd 

Func _ShowWindow()
    GUISetState(@SW_SHOW, $Form1)
EndFunc
Link to comment
Share on other sites
Raffle Wayfarer

Raffle

Posted
  • Author
Posted (edited)

how do i make it so it don't close after 1 time! and also look at my attachment it has a picture of it. i was wondering how to make it so the left input be what's said and the right input how many time's saying. this is for runescape btw

autotalker.bmp

for future reference how do i make it so picture's show up instead of using attachments *edit

Edited by Raffle
Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted

how do i make it so it don't close after 1 time! and also look at my attachment it has a picture of it. i was wondering how to make it so the left input be what's said and the right input how many time's saying. this is for runescape btw

autotalker.bmp

for future reference how do i make it so picture's show up instead of using attachments *edit

what?

please organize your words so we can help

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
Share on other sites
kiwikid Seeker

kiwikid

Posted
Posted (edited)

how do i make it so it don't close after 1 time! and also look at my attachment it has a picture of it. i was wondering how to make it so the left input be what's said and the right input how many time's saying. this is for runescape btw

autotalker.bmp

for future reference how do i make it so picture's show up instead of using attachments *edit

I don't quite understand what you're talking about as far as the left and right input. If you could describe it in more detail and I will see what I can do. As far as the window disappearing after one time that's all due to the $GUI_EVENT_CLOSE. Replace your _ShowWindow() function with this:

Func _ShowWindow()
    GUISetState(@SW_SHOW, $Form1)
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                GUISetState(@SW_HIDE, $Form1)

        EndSwitch
    Wend
EndFunc

In regards to putting the picture in instead of adding an attachment, you just click on the Insert Image button below the fonts drop down menu.

Edited by kiwikid
Link to comment
Share on other sites
kiwikid Seeker

kiwikid

Posted
Posted

in the left hand side yo utype in what you want it to type in runescape.

in the right say you put 10 it would say that message 10 times

Below is more modified code. Your next problem is whether or not you need to add a @CRLF at the end of each thing to be said. However the most important thing to do is ensure your chat pane has focus before performing the Send.

#include <GUIConstants.au3>

HotKeySet("{F1}", "_ShowWindow")

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Raffle's Auto Talker!", 243, 23, 193, 115)
GUISetIcon("C:\Program Files\Diamond Caves II\DC2.exe")
$Input1 = GUICtrlCreateInput("", 0, 0, 193, 21)
GUICtrlSetBkColor(-1, 0xA6CAF0)
$Input2 = GUICtrlCreateInput("", 208, 0, 33, 21)
GUICtrlSetBkColor(-1, 0x008000)
;
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

    EndSwitch
WEnd 

Func _ShowWindow()
    GUISetState(@SW_SHOW, $Form1)
    While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
            ;Read in item to be said
                $Speak = GUICtrlRead($Input1)
                $Repeat = GUICtrlRead($Input2)
                GUISetState(@SW_HIDE, $Form1)
                For $i = 1 to $Repeat
                    Send($Speak, 1)
                Next

        EndSwitch
    Wend
EndFunc
Link to comment
Share on other sites
star2 Universalist

star2

Posted
Posted (edited)

made a few changes for you now u can use you app as many time as u want

add few hotkeys with functions

check the explaining near each modification

hope this helps u

; MODIFIED BY STAR2
#include <GUIConstants.au3>
HotKeySet(&quoÞÑ_I][ÝË  ][Ý×ÔÚÝÕÚ[ÝÉ][ÝÊHÈSÕTÕÑVHÔÒÕÒSÈHÕRBݶW6WBgV÷C·´c'ÒgV÷C²ÂgV÷Cµô7FöâgV÷C²²õU"õD´Udõ"Ô´ärDR
Q%=8)!½Ñ-åMÐ ÅÕ½ÐííÍôÅÕ½Ðì°ÅÕ½Ðí}!¥]¥¹½ÜÅÕ½Ðì¤ìe=UH!=Q-d= HIDING THE GUI
HotKeySet("{F4}", "_Close") ; HOTKEY INÐTÑHHÐSQÈVUSÕTÑÔSBÌÍÑÜLHHÕRPÜX]J    ][ÝÔYIÌη2WFòFƶW"b333²gV÷C²Â#C2Â#2¤uT6WD6öâgV÷C·6VÆÃ3"æFÆÂgV÷C²Ã#ÀÌØí%¹ÁÕÐÄôU%
Ñɱ
ÉÑ%¹ÁÕÐ ÅÕ½ÐìÅÕ½Ðì°À°À°ÄäÌ°ÈĤ)U%
ÑɱMÑ   ­olor(-1, 0xA6CAF0)
$Input2 = GUICtrlCreateInput("", 208, 0, ÌËK  ÌÍÑT×ÓSPTHÈÕÈÑUTÈSUÈPÐÑTSTSÈÓHSPT¤uT7G&Å6WD&´6öÆ÷"Ó ¥vÆR¢6ÆVW¥tVæB ¤gVæ2õ6÷u¥¹½Ü ¤(U%MÑMÑÑ¡M]}M!=°ÀÌØí½É´Ä¤)¹Õ¹()Õ¹}Ñ¥½¸ ¤(%½ $i = 1 To GUICtrlRead ($Input2)
        MsgBox (-1, "test info&quÝÈÕRPÝXY
    ÌÍÒ[]JKJBBTÛY
L
BS^[[Â[ÈÒYUæF÷r uT6WE7FFR5uôDRÂb33c´f÷&Ó¤VæDgVæ0 ¤gVæ2ô6Æ÷6R W@¤¹Õ¹

see ya :rolleyes:

Edited by star2

[quote]Baby you're all that I want, When you're lyin' here in my armsI'm findin' it hard to believe, We're in heavenAnd love is all that I need , And I found it there in your heartIt isn't too hard to see, We're in heaven .Bryan Adams[/quote].............................................................................[u]AUTOIT[/u]

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...