help with custom dialog

Hints, tips and tricks for newbies

Moderators: Dorian (MJT support), JRL

Post Reply
saad.laghari
Newbie
Posts: 2
Joined: Mon Jul 08, 2019 6:14 pm

help with custom dialog

Post by saad.laghari » Tue Jul 09, 2019 8:59 am

Hi, i am looking to create a custom dialog whereby user is asked to enter details such as username and password then click submit button. once submit button is pressed i want my script to open website and enter those login credentials entered in custom dialoge.

so far i have been successfull in creating custom dialoge and then when i click submit it takes me to the webpage however i cant figure out how i can get the properties entered in custom dialoge to be transfered to webpage so it can let me login.

happy to share my sccript and look forward to get some help on this.

User avatar
Grovkillen
Automation Wizard
Posts: 349
Joined: Fri Aug 10, 2012 2:38 pm
Location: Hudiksvall, Sweden
Contact:

Re: help with custom dialog

Post by Grovkillen » Wed Jul 10, 2019 5:51 am

You may want to look into the web API commands.
Let>ME=%Script%

Running: MS14.5.4

saad.laghari
Newbie
Posts: 2
Joined: Mon Jul 08, 2019 6:14 pm

Re: help with custom dialog

Post by saad.laghari » Wed Jul 10, 2019 12:06 pm

Hi Grovkillen,
thanks for your response.
sorry as i am newbie and may not understand some of the terms here :(

here is my script which i have generated via ms. i want the username entered in the dialog1 to be used/copied to the webpage/any other internal app for login purposes and macro goes to next steps after logging in.


Dialog>Dialog1
object Dialog1: TForm
Left = 247
Top = 109
HelpContext = 5000
BorderIcons = [biSystemMenu]
Caption = 'CustomDialog'
ClientHeight = 343
ClientWidth = 606
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
ShowHint = True
OnTaskBar = False
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 155
Top = 32
Width = 131
Height = 29
Caption = 'AppRunner'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -23
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 14
Top = 72
Width = 450
Height = 20
Caption = 'Please enter your login credentials to login to Apprunner apps'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 131
Top = 152
Width = 63
Height = 16
Caption = 'Username'
end
object Label4: TLabel
Left = 131
Top = 192
Width = 60
Height = 16
Caption = 'Password'
end
object Username1: TEdit
Left = 225
Top = 154
Width = 121
Height = 24
TabOrder = 8
end
object password1: TEdit
Left = 226
Top = 191
Width = 121
Height = 24
TabOrder = 9
end
object submit: tMSButton
Left = 201
Top = 261
Width = 75
Height = 25
Caption = 'Submit'
ModalResult = 1
TabOrder = 10
DoBrowse = False
BrowseStyle = fbOpen
end
end
EndDialog>Dialog1

Show>Dialog1,Modalresult

if>modalresult=1
IECreate>IE[0]
IENavigate>IE[0],https://login.live.com,ie_res
endif

Post Reply
cron