Help on Email logger

[Beginner321]

I am trying to make an email logger. You just basically put in your user and pass and select the type of email you want to log in to. I've made everything, but I'm stuck on one part. I can't make the url in the _IECreate func a variable. This is related the checkbox issue. Basically, the program has 2 radio boxes, one gmail, and the other hotmail.

i want it to be something like this:

if radio2 is checked then $WEB is "www.hotmail.com"

and if radio3 is checked the $WEB is" www.gmail.com"

this is my first autoit program, so i just want to keep the script simple, so I can still understand it.

i used the method that i saw Valuator use to get the value for the radio boxes, but it still wont work.

heres my script:

expandcollapse popup

#include <GUIConstants.au3>
#include <IE.au3>

Global $WEB

$ES_PASSWORD=0x0020

#Region ### START Koda GUI section ### Form=C:\Documents and Settings\bryani\My Documents\Form1.kxf
$Form1 = GUICreate("Email Login", 312, 337, 193, 125)
$Group1 = GUICtrlCreateGroup("Choose Email Account", 16, 16, 241, 121)
$Radio2 = GUICtrlCreateRadio("Hotmail", 32, 40, 105, 25)
$Radio3 = GUICtrlCreateRadio("Gmail", 32, 88, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input1 = GUICtrlCreateInput("Username", 32, 184, 129, 21)
$Input2 = GUICtrlCreateInput("Password", 32, 216, 129, 21,$ES_PASSWORD)
$Button1 = GUICtrlCreateButton("Cancel", 200, 264, 89, 25, 0)
$Button2 = GUICtrlCreateButton("OK", 104, 264, 81, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



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

    EndSwitch
WEnd
if _IsChecked($Radio2) Then
    $WEB="www.hotmail.com"
ElseIf _IsChecked($Radio3) Then
    $WEB="www.gmail.com"
EndIf


Func Launch()
    _IECreate($WEB)
    Send(GUIctrlread($Input1))
    Send("{TAB}")
    Send(GuiCtrlRead($Input2))
    Send("{ENTER}")
        MsgBox(1"","Error4")
    
EndFunc


Func _IsChecked($control)   
    Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc  ;==>_IsChecked

[GEOSoft]

Put this part inside the Launch() function ahead of the _IECreate()

if _IsChecked($Radio2) Then
    $WEB="www.hotmail.com"
ElseIf _IsChecked($Radio3) Then
    $WEB="www.gmail.com"
EndIf

EDIT: Actually you could also shorten that If statement

if _IsChecked($Radio2) Then
    $WEB="www.hotmail.com"
Else
    $WEB="www.gmail.com"
EndIf

Edit 2: This is even better

Func Launch()
    $WEB = "www.hotmail.com"
    If _IsChecked($Radio3) Then $WEB="www.gmail.com"
    _IECreate($WEB)
    Send(GUIctrlread($Input1))
    Send("{TAB}")
    Send(GuiCtrlRead($Input2))
    Send("{ENTER}")
        MsgBox(1"","Error4")
    
EndFunc

Edited March 28, 2009 by GEOSoft

[Mat]

EDIT: Actually you could also shorten that If statement

yes, but what then happens when neither is selected?

answer: it tries to open http://password/

Edited March 28, 2009 by mdiesel

[GEOSoft]

yes, but what then happens when neither is selected?

answer: it tries to open http://password/

New answer .... Read Edit 2

[Beginner321]

Thanks alot. I just tried it right now, and it really works.

I was just wondering if it is possible to open Firefox with autoit, rather than Internet Explorer. (Its not really important though)

Anyway, thanks again.

[GEOSoft]

@beginner321

When using Radios it's normal to set the default radio which would have prevented what @mdiesel refered to above

$Radio2 = GUICtrlCreateRadio("Hotmail", 32, 40, 105, 25)
GUICtrlSetState($Radio2, $GUI_CHECKED)

[Mat]

Thanks alot. I just tried it right now, and it really works.

I was just wondering if it is possible to open Firefox with autoit, rather than Internet Explorer. (Its not really important though)

Anyway, thanks again.

use shellexecute instead of IECreate.

MDiesel

[Beginner321]

yes, but what then happens when neither is selected?

answer: it tries to open http://password/

Thats what kept happening before, my password kept coming up in the url feild. But the Edit 2 by Geo soft solves it.

[GEOSoft]

@beginner321

When using Radios it's normal to set the default radio which would have prevented what @mdiesel refered to above

$Radio2 = GUICtrlCreateRadio("Hotmail", 32, 40, 105, 25)
GUICtrlSetState($Radio2, $GUI_CHECKED)

Not when using the IE functions.

However if FF is your default browser then you could simply use

ShellExecute($WEB)

[Beginner321]

use shellexecute instead of IECreate.

MDiesel

k, thanks. Ill try that