Jump to content
Sign in to follow this  
Underdogger

How to get the current URL in the new page & set value in the new page?

Recommended Posts

Underdogger

First I use _IECreate & _IEGetObjByName can be successful to set value in the 1st page, but when I sign in to the 2nd page how I could get the URL of the 2nd page and set value in the 2nd page?

Very Thankful for answering my question...

Test ID&PWD (just paste in the GUI)>>> 859839017,ALD25242

Elson

Here is my code.

#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$S_QQ = GUICreate("Input ID & PWD", 226, 87, 586, 344)
$Bottle = GUICtrlCreateInput("", 64, 16, 145, 21)
$L_Bottle = GUICtrlCreateLabel("ID & PWD"&@CRLF&"EXP:859839017,ALD25242", 24, 16, 36, 17)
$S_Bottle = GUICtrlCreateButton("Sign", 128, 48, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $pwd_url = "http://x.co/sj88"


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $S_Bottle
If GUICtrlRead($Bottle) <> "" Then
signbottle()
Else
MsgBox(16,"","Non-empty")
EndIf
EndSwitch
WEnd



Func signbottle()
Local $aID0 = StringRegExp(GUICtrlRead($Bottle), "[0-9]{6,12}", 3)
Local $aID00 = StringRegExp(GUICtrlRead($Bottle), ",([0-9,a-z,A-Z]{8})", 3)

Global $oIE= _IECreate($pwd_url)
_IELoadWait($oIE)

$oFrameTag = _IEGetObjByName($oIE, "login_frame")
_IEAction($oFrameTag, "focus")
Send("{TAB}")
Send($aID0[0])
Send("{TAB}")
Send($aID00[0])
Send("{ENTER}")
While 1
$url = _IEPropertyGet($oIE, "locationurl")
If $url <> $pwd_url Then
ExitLoop
EndIf
Wend

;;;;;In this line, I want to get the new URL
$psw_old = _IEGetObjById($oIE2, "psw_old")
_IEFormElementSetValue($psw_old,$aID00[0]) ;>>set value in this new page


EndFunc

:) :) :)

Edited by ElsonBrown

Share this post


Link to post
Share on other sites
PhoenixXL

At that[;;;;;In this line, I want to get the new URL] point $url should be the newurl,

what are you trying to achieve ?

Edited by PhoenixXL

My code:

PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.

Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners.

MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. 

Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.

Share this post


Link to post
Share on other sites
Underdogger

At that[;;;;;In this line, I want to get the new URL] point $url should be the newurl,

what are you trying to achieve ?

I want to get the new URL and _IEGetObjById in the newpage and set the value on the form of the new page :)

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×