A little help

[James]

I'm making an updated version of my Auto MSN Message away.

Its got the GUI all made with Koda.

Anyways, I need to know, how I can make a box which you can type (I know how) save whats been typed in, into a .ini

Thanks

Secure

[Xenobiologist]

Hi,

GUICtrlCreateInput, GuiCtrlRead and IniWrite should do the trick.

So long,

Mega

[James]

Thanks. What could I do if the ini doesn't exist? Or does IniWrite do the trick?

Edit: Yes, it does, just worked it out.

Edited December 12, 2006 by Secure_ICT

[James]

And yet again I'm stuck.

I have done what you said, but now I get the box appearing in the GUI window.

Could someone help me to get the text read and saved in a .ini? I can make it read what is in it.

Here is my code so far, try it, and you will see whats wrong with it.

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\James\My Documents\Codes\Koda_1.6.0.2\Forms\msn msg.kxf
$window = GUICreate("MSN Auto-Reply", 339, 417, -1, -1)
$start = GUICtrlCreateButton("Start MSN Message", 8, 152, 121, 57, 0)
$stop = GUICtrlCreateButton("Stop MSN Message", 8, 224, 121, 57, 0)
$setText = GUICtrlCreateButton("Set text to send", 8, 80, 121, 57, 0)
$set1 = GUICtrlCreateEdit("", 144, 96, 185, 25, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Enter the text that you wish to send.")
$start1 = GUICtrlCreateInput("Start the Message Replier", 144, 168, 185, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$stop1 = GUICtrlCreateInput("Stop the Message Replier", 144, 240, 185, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$help = GUICtrlCreateButton("Help me!!!!", 8, 296, 321, 81, 0)
$welcome = GUICtrlCreateEdit("", 9, 8, 322, 57, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("Welcome to the MSN Auto Replier by Secure_ICT. To start press \r\nSet Text and enter the text you wish to be entered when someone \r\ntalks to you.\r\n"))
$disclaimer = GUICtrlCreateEdit("", 8, 384, 321, 25, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("This is a free script. Edit it to suit your needs.\r\n"))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $help
            SplashTextOn ( "Help me", "" & @CRLF & """Welcome to the MSN Auto Message Help."& @CRLF &"It's simple to make this run. All you need to do, is click the Set Text "& @CRLF &"button and "& @CRLF &"enter the text that you wish to be displayed when someone speaks to "& @CRLF &"you."& @CRLF &"You only have to set the text once as it saves the text as a .ini"& @CRLF &" "& @CRLF &"Then just press start and it will enter the message to any open MSN "& @CRLF &"conversation "& @CRLF &"window."& @CRLF &"Need more help? Just ask me on the topic."& @CRLF &""& @CRLF &"Secure_ICT")
            Sleep(10000)
            SplashOff()
        Case $setText
            GUICtrlCreateInput("Set the text", "Type here the text that you would like to have sent. This text will be sent each time the program is run, and there is a MSN conversation window.", "", "")
    EndSwitch
WEnd

[mikehunt114]

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\James\My Documents\Codes\Koda_1.6.0.2\Forms\msn msg.kxf
$window = GUICreate("MSN Auto-Reply", 339, 417, -1, -1)
$start = GUICtrlCreateButton("Start MSN Message", 8, 152, 121, 57, 0)
$stop = GUICtrlCreateButton("Stop MSN Message", 8, 224, 121, 57, 0)
$setText = GUICtrlCreateButton("Set text to send", 8, 80, 121, 57, 0)
$set1 = GUICtrlCreateEdit("", 144, 96, 185, 25, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Enter the text that you wish to send.")
$start1 = GUICtrlCreateInput("Start the Message Replier", 144, 168, 185, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$stop1 = GUICtrlCreateInput("Stop the Message Replier", 144, 240, 185, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$help = GUICtrlCreateButton("Help me!!!!", 8, 296, 321, 81, 0)
$welcome = GUICtrlCreateEdit("", 9, 8, 322, 57, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("Welcome to the MSN Auto Replier by Secure_ICT. To start press \r\nSet Text and enter the text you wish to be entered when someone \r\ntalks to you.\r\n"))
$disclaimer = GUICtrlCreateEdit("", 8, 384, 321, 25, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("This is a free script. Edit it to suit your needs.\r\n"))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $help
            SplashTextOn ( "Help me", "" & @CRLF & """Welcome to the MSN Auto Message Help."& @CRLF &"It's simple to make this run. All you need to do, is click the Set Text "& @CRLF &"button and "& @CRLF &"enter the text that you wish to be displayed when someone speaks to "& @CRLF &"you."& @CRLF &"You only have to set the text once as it saves the text as a .ini"& @CRLF &" "& @CRLF &"Then just press start and it will enter the message to any open MSN "& @CRLF &"conversation "& @CRLF &"window."& @CRLF &"Need more help? Just ask me on the topic."& @CRLF &""& @CRLF &"Secure_ICT")
            Sleep(10000)
            SplashOff()
        Case $setText
            $text = GUICtrlRead($setText)
            IniWrite("Text.ini", "MSN Text", "text1", $text)            
    EndSwitch
WEnd

I'm not sure why you were creating an input when you clicked on the set text button....I think you want to take the text in the input already there and save it to an .ini file?

[James]

You got it. When the setText button is pressed, an input box is made so you input your text that will be displayed and is saved to a .ini

[mikehunt114]

I changed what happened when you clicked Set Text......is the result what you desired?

Case $setText
            $text = GUICtrlRead($setText)
            IniWrite("Text.ini", "MSN Text", "text1", $text)

[James]

No, there is no input box.

All you did was make it click the button continuously, you removed the inputbox.

Edited December 12, 2006 by Secure_ICT

[mikehunt114]

I obviously don't understand what you are trying to do. What is wrong with using the input box you have already created there?

Edit: Sorry, I meant to read $set1, not $setText.

Case $setText
            $text = GUICtrlRead($set1)
            IniWrite("Text.ini", "MSN Text", "text1", $text)

Does that help? It's not clicking the button, it's reading the edit beside it.

Edited December 12, 2006 by mikehunt114

[Xenobiologist]

Hi,

or just

SplashOff()

Case $setText

IniWrite("Text.ini", "MSN Text", "text1", GUICtrlRead($set1))

EndSwitch

So long,

Mega

[James]

mikehunt: you removed the inputbox

th.meger: what would that do?

[mikehunt114]

I know I removed the input box...what I'm trying to tell you is that it is unnecessary. The person types in the edit box, you read the edit box. Does that not accomplish your goal? My apologies if I called an edit an input.

Edited December 12, 2006 by mikehunt114

[James]

But I dont need it to type in the box next to it. All that box is for is to explain what its for.

[mikehunt114]

*shrugs* Ok, but when I read it, I think I need to type in that box. If that's not what you want, you should put that text in a label and not an edit. If I see an edit, I assume you want me to edit it. If you want an input to come up, use a MsgBox? Creating an input in addition to that edit is redundant.

[Xenobiologist]

Hi,

I agree.

I thought totally the same.

So long,

Mega

[James]

So what am I doing?

This is what I need doing:

* User clicks Set Text button

* Input box appears

* User types in text they wish to set

* User presses OK and the text is written to a .ini file

[Xenobiologist]

Hi,

SplashOff()

Case $setText

IniWrite("Text.ini", "MSN Text", "text1", InputBox("save to ini", "Type : ", "", "", 200, 50) )

EndSwitch

So long,

Mega

[James]

For Mike:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\james\my documents\codes\koda_1.6.0.2\forms\msn msg.kxf
$window = GUICreate("MSN Auto-Reply", 339, 417, -1, -1)
$start = GUICtrlCreateButton("Start MSN Message", 8, 152, 121, 57, 0)
$Button2 = GUICtrlCreateButton("Stop MSN Message", 8, 224, 121, 57, 0)
$setText = GUICtrlCreateButton("Set text to send", 8, 80, 121, 57, 0)
$start1 = GUICtrlCreateLabel("Start the Message Replier", 144, 168, 185, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$stop1 = GUICtrlCreateLabel("Stop the Message Replier", 144, 240, 185, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
$help = GUICtrlCreateButton("Help me!!!!", 8, 296, 321, 81, 0)
$welcome = GUICtrlCreateEdit("", 9, 8, 322, 57, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("Welcome to the MSN Auto Replier by Secure_ICT. To start press \r\nSet Text and enter the text you wish to be entered when someone \r\ntalks to you.\r\n"))
$disclaimer = GUICtrlCreateEdit("", 8, 384, 321, 25, BitOR($ES_CENTER,$ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, StringFormat("This is a free script. Edit it to suit your needs.\r\n"))
$setlabel = GUICtrlCreateLabel("Set the text you wish to be sent", 144, 96, 177, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $help
            SplashTextOn ( "Help me", "" & @CRLF & """Welcome to the MSN Auto Message Help."& @CRLF &"It's simple to make this run. All you need to do, is click the Set Text "& @CRLF &"button and "& @CRLF &"enter the text that you wish to be displayed when someone speaks to "& @CRLF &"you."& @CRLF &"You only have to set the text once as it saves the text as a .ini"& @CRLF &" "& @CRLF &"Then just press start and it will enter the message to any open MSN "& @CRLF &"conversation "& @CRLF &"window."& @CRLF &"Need more help? Just ask me on the topic."& @CRLF &""& @CRLF &"Secure_ICT")
            Sleep(10000)
            SplashOff()
        Case $setText
            $text = GUICtrlRead($set1)
            IniWrite("Text.ini", "MSN Text", "text1", $text)       
    EndSwitch
WEnd

[James]

Ahh th.meger. It works. Thanks so much mate.

[James]

Hmm... I'm having a problem sending the msg. It works on my old version.

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $help
            SplashTextOn ( "Help me", "" & @CRLF & """Welcome to the MSN Auto Message Help."& @CRLF &"It's simple to make this run. All you need to do, is click the Set Text "& @CRLF &"button and "& @CRLF &"enter the text that you wish to be displayed when someone speaks to "& @CRLF &"you."& @CRLF &"You only have to set the text once as it saves the text as a .ini"& @CRLF &" "& @CRLF &"Then just press start and it will enter the message to any open MSN "& @CRLF &"conversation "& @CRLF &"window."& @CRLF &"Need more help? Just ask me on the topic."& @CRLF &""& @CRLF &"Secure_ICT")
            Sleep(10000)
            SplashOff()
        Case $setText
            IniWrite("Text.ini", "MSN Text", "TXT", InputBox("save to ini", "Type : ", "", "", 200, 50) )   
        Case $start
            IniRead("Text.ini", "TXT")
                If WinExists("- Conversation") Then
                WinActivate("- Conversation")
                Send($msn & "{enter}") 
                WinClose("- Conversation")
                EndIf
    EndSwitch
WEnd

Edited December 12, 2006 by Secure_ICT