Skip to main content

Problem Connecting

  • September 24, 2013
  • 7 replies
  • 1 view
D

Hi,

I have been trying to write a script to connect to a host on my network. For some reason, the script sometimes hangs before the word "Username:" appears on the screen, and when it doesn't, it sometimes fails to enter the username correctly (i.e. there are missing letters in the beginning or middle). The rest of the time, not very frequently, it succeeds in entering the credentials only to hang anyway.

Is there something wrong with my script?



Sub Main
 Dim Row As Integer ' Screen Row
 Dim Column As Integer ' Screen Column
 Dim UserName As String ' String to hold User ID
 Dim UserPassword As String ' String to hold user password
 'DlgStart
 'DlgItemAsk "UserName :" , UserName ,1, 10
 'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
 'DlgInquire
 'DlgGetItemValue 1 , UserName
 'DlgGetItemValue 2 , UserPassword
 'DlgEnd
 SysHide "Timer"
 UserName = "IBUATUSERFF1"
 UserPassword = "IBUATUSERFF1"
 ' Does 2 or 5 matter? Seems to produce the same result.
 EMSetTN5250 "Ariell", 23, 2, "COLOR" ' Set host connection
 'EMSetTN5250 "Ariell", 23, 5, "COLOR" ' Set host connection
 EMStartSession "*", "My5250" ' Connect to host
 EMWaitText 30 , "Username:" , 1 , 17 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
 EMSendKey UserName & "<ENTER>" ' Enter UserID and Tab to password field
 'EMWaitCursor 30 , 1 , 19 ' Wait for cursor
 EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
 EMWaitText 30 , "Selection:" , 1 , 22 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
End Sub



#Rumba
#Script
7 replies
D
Hi,


I have been trying to write a script to connect to a host on my network. For some reason, the script sometimes hangs before the word "Username:" appears on the screen, and when it doesn't, it sometimes fails to enter the username correctly (i.e. there are missing letters in the beginning or middle). The rest of the time, not very frequently, it succeeds in entering the credentials only to hang anyway.


Is there something wrong with my script?




Sub Main
 Dim Row As Integer ' Screen Row
 Dim Column As Integer ' Screen Column
 Dim UserName As String ' String to hold User ID
 Dim UserPassword As String ' String to hold user password
 'DlgStart
 'DlgItemAsk "UserName :" , UserName ,1, 10
 'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
 'DlgInquire
 'DlgGetItemValue 1 , UserName
 'DlgGetItemValue 2 , UserPassword
 'DlgEnd
 SysHide "Timer"
 UserName = "IBUATUSERFF1"
 UserPassword = "IBUATUSERFF1"
 ' Does 2 or 5 matter? Seems to produce the same result.
 EMSetTN5250 "Ariell", 23, 2, "COLOR" ' Set host connection
 'EMSetTN5250 "Ariell", 23, 5, "COLOR" ' Set host connection
 EMStartSession "*", "My5250" ' Connect to host
 EMWaitText 30 , "Username:" , 1 , 17 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
 EMSendKey UserName & "<ENTER>" ' Enter UserID and Tab to password field
 'EMWaitCursor 30 , 1 , 19 ' Wait for cursor
 EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
 EMWaitText 30 , "Selection:" , 1 , 22 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
End Sub



#Rumba
#Script
Hi,


I've had similar timing issues in the past and got around them by not having ENTER at the end of my string, using EMWaitForCurSor after sending the keys to get to the position of the end of username, then sending the ENTER. In extreme cases I've had to loop through the characters of the string waiting for the cursor postion after sending each one. My issues seem to be related to using Rumba over an old version of Citrix though.


hope this helps.
D
Hi,


I have been trying to write a script to connect to a host on my network. For some reason, the script sometimes hangs before the word "Username:" appears on the screen, and when it doesn't, it sometimes fails to enter the username correctly (i.e. there are missing letters in the beginning or middle). The rest of the time, not very frequently, it succeeds in entering the credentials only to hang anyway.


Is there something wrong with my script?




Sub Main
 Dim Row As Integer ' Screen Row
 Dim Column As Integer ' Screen Column
 Dim UserName As String ' String to hold User ID
 Dim UserPassword As String ' String to hold user password
 'DlgStart
 'DlgItemAsk "UserName :" , UserName ,1, 10
 'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
 'DlgInquire
 'DlgGetItemValue 1 , UserName
 'DlgGetItemValue 2 , UserPassword
 'DlgEnd
 SysHide "Timer"
 UserName = "IBUATUSERFF1"
 UserPassword = "IBUATUSERFF1"
 ' Does 2 or 5 matter? Seems to produce the same result.
 EMSetTN5250 "Ariell", 23, 2, "COLOR" ' Set host connection
 'EMSetTN5250 "Ariell", 23, 5, "COLOR" ' Set host connection
 EMStartSession "*", "My5250" ' Connect to host
 EMWaitText 30 , "Username:" , 1 , 17 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
 EMSendKey UserName & "<ENTER>" ' Enter UserID and Tab to password field
 'EMWaitCursor 30 , 1 , 19 ' Wait for cursor
 EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
 EMWaitText 30 , "Selection:" , 1 , 22 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
End Sub



#Rumba
#Script
That didn't seem to change anything as far as the input of credentials is concerned. Even worse, when the credentials are entered correctly the terminal seems to hang before the menu appears. I spoke to my boss and he seems to think it has something to do with the script running synchronously instead of asynchronously.
D
Hi,


I have been trying to write a script to connect to a host on my network. For some reason, the script sometimes hangs before the word "Username:" appears on the screen, and when it doesn't, it sometimes fails to enter the username correctly (i.e. there are missing letters in the beginning or middle). The rest of the time, not very frequently, it succeeds in entering the credentials only to hang anyway.


Is there something wrong with my script?




Sub Main
 Dim Row As Integer ' Screen Row
 Dim Column As Integer ' Screen Column
 Dim UserName As String ' String to hold User ID
 Dim UserPassword As String ' String to hold user password
 'DlgStart
 'DlgItemAsk "UserName :" , UserName ,1, 10
 'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
 'DlgInquire
 'DlgGetItemValue 1 , UserName
 'DlgGetItemValue 2 , UserPassword
 'DlgEnd
 SysHide "Timer"
 UserName = "IBUATUSERFF1"
 UserPassword = "IBUATUSERFF1"
 ' Does 2 or 5 matter? Seems to produce the same result.
 EMSetTN5250 "Ariell", 23, 2, "COLOR" ' Set host connection
 'EMSetTN5250 "Ariell", 23, 5, "COLOR" ' Set host connection
 EMStartSession "*", "My5250" ' Connect to host
 EMWaitText 30 , "Username:" , 1 , 17 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
 EMSendKey UserName & "<ENTER>" ' Enter UserID and Tab to password field
 'EMWaitCursor 30 , 1 , 19 ' Wait for cursor
 EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
 EMWaitText 30 , "Selection:" , 1 , 22 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
End Sub



#Rumba
#Script
Does your AS400 prompt separately for Username and Password?  Your comments say TAB to password field, but you send an "<ENTER>" with EMSendKey.   That will cause a transmission to the host before the password is entered.  If you want to send both Username and Password on the same screen use "<TAB>" to position to the next field.
D
Hi,


I have been trying to write a script to connect to a host on my network. For some reason, the script sometimes hangs before the word "Username:" appears on the screen, and when it doesn't, it sometimes fails to enter the username correctly (i.e. there are missing letters in the beginning or middle). The rest of the time, not very frequently, it succeeds in entering the credentials only to hang anyway.


Is there something wrong with my script?




Sub Main
 Dim Row As Integer ' Screen Row
 Dim Column As Integer ' Screen Column
 Dim UserName As String ' String to hold User ID
 Dim UserPassword As String ' String to hold user password
 'DlgStart
 'DlgItemAsk "UserName :" , UserName ,1, 10
 'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
 'DlgInquire
 'DlgGetItemValue 1 , UserName
 'DlgGetItemValue 2 , UserPassword
 'DlgEnd
 SysHide "Timer"
 UserName = "IBUATUSERFF1"
 UserPassword = "IBUATUSERFF1"
 ' Does 2 or 5 matter? Seems to produce the same result.
 EMSetTN5250 "Ariell", 23, 2, "COLOR" ' Set host connection
 'EMSetTN5250 "Ariell", 23, 5, "COLOR" ' Set host connection
 EMStartSession "*", "My5250" ' Connect to host
 EMWaitText 30 , "Username:" , 1 , 17 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
 EMSendKey UserName & "<ENTER>" ' Enter UserID and Tab to password field
 'EMWaitCursor 30 , 1 , 19 ' Wait for cursor
 EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
 EMWaitText 30 , "Selection:" , 1 , 22 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
End Sub



#Rumba
#Script
Does your AS400 prompt separately for Username and Password?  Your comments say TAB to password field, but you send an "<ENTER>" with EMSendKey.   That will cause a transmission to the host before the password is entered.  If you want to send both Username and Password on the same screen use "<TAB>" to position to the next field.
D
Hi,


I have been trying to write a script to connect to a host on my network. For some reason, the script sometimes hangs before the word "Username:" appears on the screen, and when it doesn't, it sometimes fails to enter the username correctly (i.e. there are missing letters in the beginning or middle). The rest of the time, not very frequently, it succeeds in entering the credentials only to hang anyway.


Is there something wrong with my script?




Sub Main
 Dim Row As Integer ' Screen Row
 Dim Column As Integer ' Screen Column
 Dim UserName As String ' String to hold User ID
 Dim UserPassword As String ' String to hold user password
 'DlgStart
 'DlgItemAsk "UserName :" , UserName ,1, 10
 'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
 'DlgInquire
 'DlgGetItemValue 1 , UserName
 'DlgGetItemValue 2 , UserPassword
 'DlgEnd
 SysHide "Timer"
 UserName = "IBUATUSERFF1"
 UserPassword = "IBUATUSERFF1"
 ' Does 2 or 5 matter? Seems to produce the same result.
 EMSetTN5250 "Ariell", 23, 2, "COLOR" ' Set host connection
 'EMSetTN5250 "Ariell", 23, 5, "COLOR" ' Set host connection
 EMStartSession "*", "My5250" ' Connect to host
 EMWaitText 30 , "Username:" , 1 , 17 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
 EMSendKey UserName & "<ENTER>" ' Enter UserID and Tab to password field
 'EMWaitCursor 30 , 1 , 19 ' Wait for cursor
 EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
 EMWaitText 30 , "Selection:" , 1 , 22 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
End Sub



#Rumba
#Script
Does your AS400 prompt separately for Username and Password?  Your comments say TAB to password field, but you send an "<ENTER>" with EMSendKey.   That will cause a transmission to the host before the password is entered.  If you want to send both Username and Password on the same screen use "<TAB>" to position to the next field.
D
Hi,


I have been trying to write a script to connect to a host on my network. For some reason, the script sometimes hangs before the word "Username:" appears on the screen, and when it doesn't, it sometimes fails to enter the username correctly (i.e. there are missing letters in the beginning or middle). The rest of the time, not very frequently, it succeeds in entering the credentials only to hang anyway.


Is there something wrong with my script?




Sub Main
 Dim Row As Integer ' Screen Row
 Dim Column As Integer ' Screen Column
 Dim UserName As String ' String to hold User ID
 Dim UserPassword As String ' String to hold user password
 'DlgStart
 'DlgItemAsk "UserName :" , UserName ,1, 10
 'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
 'DlgInquire
 'DlgGetItemValue 1 , UserName
 'DlgGetItemValue 2 , UserPassword
 'DlgEnd
 SysHide "Timer"
 UserName = "IBUATUSERFF1"
 UserPassword = "IBUATUSERFF1"
 ' Does 2 or 5 matter? Seems to produce the same result.
 EMSetTN5250 "Ariell", 23, 2, "COLOR" ' Set host connection
 'EMSetTN5250 "Ariell", 23, 5, "COLOR" ' Set host connection
 EMStartSession "*", "My5250" ' Connect to host
 EMWaitText 30 , "Username:" , 1 , 17 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
 EMSendKey UserName & "<ENTER>" ' Enter UserID and Tab to password field
 'EMWaitCursor 30 , 1 , 19 ' Wait for cursor
 EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
 EMWaitText 30 , "Selection:" , 1 , 22 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
End Sub



#Rumba
#Script
Those comments are leftover from some old scripts. Just in case, I tried <TAB> instead of <ENTER> right after entering the username, but it doesn't look like <TAB> moves the cursor to the next field.
André Escudero
Hi,


I have been trying to write a script to connect to a host on my network. For some reason, the script sometimes hangs before the word "Username:" appears on the screen, and when it doesn't, it sometimes fails to enter the username correctly (i.e. there are missing letters in the beginning or middle). The rest of the time, not very frequently, it succeeds in entering the credentials only to hang anyway.


Is there something wrong with my script?




Sub Main
 Dim Row As Integer ' Screen Row
 Dim Column As Integer ' Screen Column
 Dim UserName As String ' String to hold User ID
 Dim UserPassword As String ' String to hold user password
 'DlgStart
 'DlgItemAsk "UserName :" , UserName ,1, 10
 'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
 'DlgInquire
 'DlgGetItemValue 1 , UserName
 'DlgGetItemValue 2 , UserPassword
 'DlgEnd
 SysHide "Timer"
 UserName = "IBUATUSERFF1"
 UserPassword = "IBUATUSERFF1"
 ' Does 2 or 5 matter? Seems to produce the same result.
 EMSetTN5250 "Ariell", 23, 2, "COLOR" ' Set host connection
 'EMSetTN5250 "Ariell", 23, 5, "COLOR" ' Set host connection
 EMStartSession "*", "My5250" ' Connect to host
 EMWaitText 30 , "Username:" , 1 , 17 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
 EMSendKey UserName & "<ENTER>" ' Enter UserID and Tab to password field
 'EMWaitCursor 30 , 1 , 19 ' Wait for cursor
 EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
 EMWaitText 30 , "Selection:" , 1 , 22 , Row , Column ' Wait for command line prompt
 'EMWaitCursor 30 , 1 , 17 ' Wait for cursor
End Sub



#Rumba
#Script
The posted script is generally working.I had to adjust the cursor positions for EMWaitCursor and EMWaitText then it worked very smooth.
Your hard coded username has 12 characters, 12 chars  causes problems with my AS/400.I have a max  length of 10 chars.Entering a longer password will line break into the password field.


<code>


Sub Main
Dim Row As Integer ' Screen Row
Dim Column As Integer ' Screen Column
Dim UserName As String ' String to hold User ID
Dim UserPassword As String ' String to hold user password


'DlgStart
'DlgItemAsk "UserName :" , UserName ,1, 10
'DlgItemAskQuiet "Password :" , UserPassword ,2, 10
'DlgInquire
'DlgGetItemValue 1 , UserName
'DlgGetItemValue 2 , UserPassword
'DlgEnd
SysHide "Timer"
UserName = "user1"
UserPassword = "user1pwd"


EMSetTN5250 "127.0.0.1", 23, 2, "COLOR" ' Set host connection
EMStartSession "*", "My5250" ' Connect to host


EMWaitText 30 , "User" , 6 , 17 , Row , Column ' Wait for command line prompt
EMWaitCursor 30 , 6 , 53 ' Wait for cursor
EMSendKey UserName & "<TAB>" ' Enter UserID and Tab to password field
EMWaitCursor 30 , 7 , 53 ' Wait for cursor
EMSendKey UserPassword & "<ENTER>" ' Enter Password and Enter Key
EMWaitText 30 , "Selection" , 19 , 2 , Row , Column ' Wait for command line prompt
EMWaitCursor 30 , 20, 7 ' Wait for cursor
End Sub


</code>





        
                                            

                    


                

                                

        

    


            

                        
                        

                                                                                                            
                
                    
Recent badge winners
Explore all badges

            




        

                    

    
    





    


                                        

                                                        

            
        
    






                                    
Terms & ConditionsAccessibility statement