Get Url from Opera browser

[MrCreatoR]

Hi all,

Here is function on delphi, this function is allow to get the URL from current page (tab) of Opera browser:

function Get_URL(Servicio: string): string;
var
Cliente_DDE: TDDEClientConv;
temp: PChar;      
begin
Result := '';
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
  SetLink( Servicio,'WWW_GetWindowInfo');
  temp := RequestData('0xFFFFFFFF');
  Result := StrPas(temp);
  StrDispose(temp);  // <<-- Предотвращаем утечку памяти
  CloseLink;
end;
Cliente_DDE.Free;
end;

It is possible to make such function on AutoIT?

Thanks.

[Gif]

Hi all,

Here is function on delphi, this function is allow to get the URL from current page (tab) of Opera browser:

function Get_URL(Servicio: string): string;
var
Cliente_DDE: TDDEClientConv;
temp: PChar;      
begin
Result := '';
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
  SetLink( Servicio,'WWW_GetWindowInfo');
  temp := RequestData('0xFFFFFFFF');
  Result := StrPas(temp);
  StrDispose(temp);  // <<-- Предотвращаем утечку памяти
  CloseLink;
end;
Cliente_DDE.Free;
end;

It is possible to make such function on AutoIT?

Thanks.

look here, but i dont think that window.opera is the object in 9.22 version...

[mikehunt114]

Is there other Opera object documentation available?

[MrCreatoR]

Ok, here it is (thanks to amel27)...

expandcollapse popup

#include <Array.au3>

$Ret = OperaOpenGetURL("", -1, 1)
_ArrayDisplay($Ret)

;===============================================================================
;
; Function Name:  OperaOpenGetURL()
;
; Parameter(s):     $sURL           - [optional] Address of page to open,
;                                   if this is empty string (default), then returned Url from address field of particular tab.
;                   $hWin           - [optional] Number of tab:
;                                       -1 = Current tab.
;                                       0 = New tab (when opening).
;                   $RetType        - [optional] Definds returned value:
;                                       0 = String with Title and URL address.
;                                       1 = Array with 3 elements...
;                                           [0] = Title
;                                           [1] = URL address
;                                           [2] = String with Title And URL address.
;                   $iWait - [optional] Waiting Timeout in milliseconds, on overload will return an error.
;
; Requirement(s):   None
; Return Value(s):  On Success -  See 'Parameter(s)'.
;                   On Failure -  Empty string and set @error as following:
;                       1 = Error to open Dll (user32.dll)
;                       2 = Error Initializing DDE (@extended include more details about the returned value from DllCall).
;                       3 = Othe DDE Errors (@extended include more details about the returned value from DllCall).
; Author(s):        amel27
;
;=====================================================================
Func OperaOpenGetURL($sURL = "", $hWin = -1, $RetType = 0, $iWait = 10000)
    Local $ret, $err, $uIdInst = DllStructCreate("int")
    Local $hServer[1], $hTopic[1], $hItem[1], $hConv[1], $hData[1], $sData[1]
    Local $sTopic = "WWW_OpenURL", $sItem = $sURL & ',,0x' & Hex($hWin)
    If $sURL='' Then
        $sTopic = "WWW_GetWindowInfo"
        $sItem = "0x" & Hex($hWin)
    EndIf
    Local $hDll = DllOpen("user32.dll")
    If $hDll=-1 Then Return SetError(1, 0, "") ; Error to open Dll
    $ret = DllCall("user32.dll", "int", "DdeInitialize", "ptr", DllStructGetPtr($uIdInst), "ptr", 0, "int", 0, "int", 0)
    If $ret[0] Then Return SetError(2, $ret[0], "") ; Error Initializing DDE
    $hServer = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst,1), "str", "opera", "int", 1004)
    If $hServer[0] Then
        $hTopic = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst,1), "str", $sTopic, "int", 1004)
        If $hTopic[0] Then
            $hItem = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst,1), "str", $sItem, "int", 1004)
            If $hItem[0] Then
                $hConv = DllCall($hDll, "int", "DdeConnect", "int", _
                    DllStructGetData($uIdInst,1), "int", $hServer[0], "int", $hTopic[0], "int", 0)
                If $hConv[0] Then
                    $hData = DllCall($hDll, "int", "DdeClientTransaction", "ptr", 0, "int", 0, _
                        "int", $hConv[0], "int", $hItem[0], "int", 1, "int", 0x20B0, "int", $iWait, "ptr", 0)
                    If $hData[0] Then
                        $sData = DllCall($hDll, "str", "DdeAccessData", "int", $hData[0], "ptr", 0)
                    EndIf
                EndIf
            EndIf
        EndIf
    EndIf
    $err = DllCall($hDll, "int", "DdeGetLastError", "int", DllStructGetData($uIdInst,1))
    If $hData[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hData[0])
    If $hConv[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hConv[0])
    If $hItem[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hItem[0])
    If $hTopic[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hTopic[0])
    If $hServer[0] Then DllCall($hDll, "int", "DdeFreeDataHandle", "int", $hServer[0])
    If $err[0] Then Return SetError(3, $err[0], "") ; Othe DDE Errors
    DllCall($hDll, "int", "DdeUninitialize", "int", DllStructGetData($uIdInst,1))
    DllClose($hDll)
    If $sURL = '' Then $sURL = StringRegExpReplace($sData[0], '^"([^"]*?)".*','"\1"')
    If $RetType = 1 Then
        Local $RetURL[3] = [$sData[0], $sURL, StringTrimLeft($sData[0], StringLen($sURL)+1)]
        Return $RetURL
    EndIf
    Return $sURL
EndFunc

[Skizmata]

Great work! I need this very thing for a project I'm working on. Doing this in IE is very easy since we already have functions for IE but could someone show me how you would do this for Firefox? Since firefox is a bit tricky to deal with I don't have the faintest idea where to get stared.

[doudou]

I've just finished a generic UDF library for Windows DDE (client and server).

Here: DDEML.

Edited October 28, 2007 by doudou

[bolthead]

Great work! I need this very thing for a project I'm working on. Doing this in IE is very easy since we already have functions for IE but could someone show me how you would do this for Firefox? Since firefox is a bit tricky to deal with I don't have the faintest idea where to get stared.

Changing

$hServer = DllCall($hDll, "int", "DdeCreateStringHandle", "int", DllStructGetData($uIdInst,1), "str", "[b]opera[/b]", "int", 1004)oÝ÷ ÚÚºÚ"µÍÌÍÚÙHØ[
    ÌÍÚ  ][ÝÚ[ ][ÝË  ][ÝÑPÜX]TÝ[Ò[I][ÝË   ][ÝÚ[ ][ÝËÝXÝÙ]]J    ÌÍÝRY[ÝJK   ][ÝÜÝ][ÝË  ][ÝÖØYYÞËØI][ÝË ][ÝÚ[ ][ÝËL

works for me.