Clicking links in IE

[Dayclone]

Hey guys,

I'm trying to create a script that will click on links for me automatically and select drop down menus but the issue is when I run the script I get an error on line 28 or something but I can't figure out what the issue is. Can someone please assist me.

Code: Select all

//Set up some VBS functions for use later
VBSTART
Dim IE
Sub CreateIE
  Set IE = CreateObject("InternetExplorer.Application")
  IE.Visible=1
End Sub

Sub Navigate(URL)
  IE.Navigate URL
End Sub

Sub WaitBusy
  do while IE.Busy
  loop
End Sub

Sub KillIE
  IE.Quit
  Set IE = nothing
End Sub
Sub ClickLink,(text)
  Dim FormNr
  Dim ItemNr
  Dim TheForm

  Dim anchors
  Set anchors = IE.document.All.Tags("A")
  
  if anchors.Length = 0 then
    MsgBox("No anchors found in page")
  else
    for AnchorNr = 0 to anchors.Length - 1
      Set TheAnchor = anchors(AnchorNr)
      if TheAnchor.innertext = text then
          TheAnchor.Click
        exit for
      end if
    next
  end if
End Sub

VBEND

VBRun>CreateIE

//Focus the new IE window
VBEval>IE.Hwnd,ie_handle
Let>WIN_USEHANDLE=1
SetFocus>ie_handle
Let>WIN_USEHANDLE=0

VBRun>Navigate,https://66.147.238.20:2083
VBRun>WaitBusy
Wait>1

Press Enter

VBRun>Clicklink, Continue to this website (not recommended)
VBRun>WaitBusy
Wait>1

Thanks,
Steve

[Marcus Tettmar]

It might help if we knew what the error message says.

It would also be easier to do this using WebRecorder.

[Dayclone]

So I bought webrecorder and did my thing but I still get an error.

Here's my code that webrecorder did and I did some tweaking.

Code: Select all

// Generated by MacroScript WebRecorder 2.1
// Recorded on Thursday, December 9, 2010, at 02:25 PM
LibLoad>C:\Program Files\WebRecorder\IEAuto.dll,hIE
If>hIE=0
  MessageModal>Could not load IEAuto.dll, make sure it is in the path or edit the LibLoad line.
  Goto>end_script
EndIf

//Move the mouse cursor out of harm's way to avoid causing mouseover events to interrupt
MouseMove>0,0
Let>delay=1
IE_Create>0,IE[0]

IE_Navigate>%IE[0]%,https://66.147.238.20:2083,r
Wait>5
Press Enter
Wait>5

Let>FrameName={""}
Let>FormName={""}
Let>TagValue={"phpMyAdmin"}
IE_ClickTag>%IE[0]%,str:FrameName,str:FormName,A,TEXT,str:TagValue,r

IE_WaitNew>0,IE[1]
IE_Wait>IE[1],r

IE_Wait>%IE[1]%,r
Wait>delay

IE_Wait>%IE[1]%,r
Wait>delay

IE_Wait>%IE[1]%,r
Wait>delay

IE_Wait>%IE[1]%,r
Wait>delay

LibFree>hIE
Label>end_script

The error I get is this:

Code: Select all

Line: 22 Error Calling DLL - Possible Wrong Number or type of parameters.

Please advise.

[Marcus Tettmar]

I can't debug here because that site is private so I cannot access it and run your script. But I would be happy to get together with you and do a BeamYourScreen session so that we can take a look on your desktop (or you could email me a restricted login off list if you like).

[Marcus Tettmar]

BTW - you never did reply to my first response with the exact error message with the first code sample. I was ready to help you solve the initial problem.

[Dayclone]

I understand I didn't answer your first question. I just went right to the second option which seemed to be better...

So to answer your last question.
I will PM you the private logins.

Thanks,
Steven

[Marcus Tettmar]

I have replied to your PM with a script that works for me.

[Dayclone]

Thanks, and I guess for everyone to know here's the script but I have removed the link, username, and password for security purposes.

Code: Select all

// Generated by MacroScript WebRecorder 2.4 
// Recorded on Friday, December 10, 2010, at 10:36 AM 

//Move the mouse cursor out of harm's way to avoid causing mouseover events to interrupt 
MouseMove>0,0 
Let>delay=1 
IE_Create>0,IE[0] 

//navigate to main page and then clicking on phpMyAdmin is pointless. We can go direct ... 
IE_Navigate>%IE[0]%,https:/INSERTLINKHERE.html,r 
IE_Wait>%IE[0]%,r 
Wait>delay 

//click on the continue to website warning (IE8/9? May have to change for your IE version) 
IE_ClickTag>%IE[0]%,,,A,TEXT,Continue to this website (not recommended).,r 
IE_Wait>%IE[0]%,r 
Wait>delay 

//windows security box will appear, may need to alter window title for your IE version 
WaitWindowOpen>Windows Security 
SetFocus>Windows Security 
Wait>0.5 
Send>USERNAME
Press Tab 
Send>PASSWORD, 
Press Tab 
Press Enter 
WaitWindowClosed>Windows Security 

IE_Wait>%IE[0]%,r 
Wait>delay 

Wait>2 

IE_Wait>%IE[0]%,r 
Wait>delay 


//Now we should be on the phpMyAdminPage 

LibFree>hIE 
Label>end_script

This is for anyone that needs to access Cpanel.

[Dayclone]

mtettmar

I'm still having an issue...
Please see your PM.

I go to import and I used web recorder but it doesn't seem to open the browse button and select a file for me.

Thanks,
Steven

[Marcus Tettmar]

File upload boxes cannot be scripted via DOM scripting - Microsoft prevent scripting of file upload boxes for security reasons. So, just like the password box, we have to revert to traditional keyboard simulation. Give me a few moments and I will answer your PM.