open applications inside citrix

[me_king]

I have been able to log into citrix but what i want is to launch applications inside citrix. where in again windows will appear for password and id and after submitting the information the required application will open. The citrix opens up easily and then there are all applications inside it. I tried send keys but nothing happens not a single application opens. How can this be done.

[royUK]

Cross post

http://www.ozgrid.com/forum/showthread.php?t=165537

[me_king]

I really didn't get what you are trying to point out. By the both the posts are mine only.

[royUK]

You would if you took the time to read the Forum rules & the explanation in the link within the Rule

[me_king]

I am new to this site and I have just started learning vba and found these sites helpful. So thought posting in both the forum might fetch me a quick reply. Will be careful going on.

[me_king]

The below code helps me log into citrix. After that I want to open the applications but the send keys doesn't work. Also I will post the source code of the page after logging into citrix.

Private Sub CommandButton1_Click()

Dim ie, iedoc, submitbtn As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.navigate Sheets("Sheet1").Cells(8, 5)

ie.Visible = True

Do While ie.Busy And Not ie.readyState = 4
DoEvents
Loop

DoEvents
ie.document.all.Item("user").Value = ThisWorkbook.Sheets("Sheet1").Range("A1")
ie.document.all.Item("password").Value = ThisWorkbook.Sheets("Sheet1").Range("A2")
Set iedoc = ie.document

Set submitbtn = ie.document.all.Item("btnLogin")
submitbtn.Click
Do While ie.Busy 'Or ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop


DoEvents
ie.SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{TAB}", True
SendKeys "{ENTER}", True 'press enter

[me_king]

This is the source code of the page when i log into citrix, given the source code of the page can i open the application. I have just posted code for the opening of one application, which i think is this part.

<div id="iconViewDiv">
<div class="iconView">
<a id="idCitrix.MPS.App.ATL_005fXA5_005fPROD_005f2003.ABS_0020Internet_0020Explorer_002020"
href="launcher.aspx?CTX_Application=Citrix.MPS.App.ATL_XA5_PROD_2003.ABS%20Internet%20Explorer%2020&amp;CTX_Token=90255522D9A88B38A79105BC4FB33982" onClick="resetSessionTimeout();clearFeedback();addCurrentTimeToHref(this,'launcher.aspx?CTX_Application=Citrix.MPS.App.ATL_XA5_PROD_2003.ABS%20Internet%20Explorer%2020&amp;CTX_Token=90255522D9A88B38A79105BC4FB33982','LaunchId');launch(this);return false;" onMouseDown=" addCurrentTimeToHref(this,'launcher.aspx?CTX_Application=Citrix.MPS.App.ATL_XA5_PROD_2003.ABS%20Internet%20Explorer%2020&amp;CTX_Token=90255522D9A88B38A79105BC4FB33982','LaunchId');"
class="iconLink"
title="ABS Internet Explorer"
><img src="icons.aspx?size=normal&amp;id=idCIFNBNLGHAMBNECHMMCJPEKONKODNJKN" alt="ABS Internet Explorer" title="ABS Internet Explorer" ><br><span>ABS Internet Explorer</span><img
id="spinner_idCitrix.MPS.App.ATL_005fXA5_005fPROD_005f2003.ABS_0020Internet_0020Explorer_002020"
class="spinner"
width="11"
height="11"
src="../media/Transparent16.gif" alt=""
></a>