View previous topic :: View next topic |
Author |
Message |
Dr. Dread Professional Member
Joined: 03 Aug 2001 Posts: 1065 Location: Copenhagen, Denmark
|
Posted: Sat Feb 22, 2003 12:29 am Post subject: MSIE control via DDE |
|
|
A small test of some DDE stuff that allows you to control MSIE through the DDE interface.
It's a bit rough, but should work mostly. You gotta have an instance of MSIE open, or
else VDS cannot connect to the MSIE DDE server.
Greetz
Dr. Dread
Code: |
OPTION SCALE,96
OPTION DECIMALSEP,"."
TITLE MSIE DDE
DIALOG CREATE,MSIE DDE ... by Dr. Dread,-1,0,400,200
DIALOG ADD,STYLE,S1,Arial,8,B
DIALOG ADD,Text,T1,8,5,,,URL:
DIALOG ADD,EDIT,E1,5,35,280,20,http://www.vdsworld.com/forum,,S1
DIALOG ADD,Text,T2,45,5,,,DDE action:
DIALOG ADD,COMBO,CM1,65,5,290
DIALOG ADD,BUTTON,Test,95,5,95,20,"Start Test",,S1
DIALOG SHOW
list loadtext,CM1
"1. Launch URL in new window
"2. Launch URL in last active window
"3. Obtain latest URL and title
"4. Activate the last active window
"5. Close the latest window
:EVLOOP
WAIT EVENT
goto @event()
:TestBUTTON
%%action = @substr(@dlgtext(CM1),1,)
if @null(%%action)
info No action selected!
goto evloop
end
%%url = @dlgtext(E1)
if @equal(@pos("://",%%url),0)
info "Please enter a full URL, like http://www.somesite.com"
goto evloop
end
gosub %%action
goto EVLOOP
:CLOSE
EXIT
REM ########## SUBs ############
:1
REM Launch URL in new window
if @null(%%url)
%%url = "http://www.vdsworld.com"
end
DDE LINK,iexplore,WWW_OpenURL
if @ok()
DDE EXECUTE,@CHR(34)%%url@CHR(34)",,0,0,,,,"
else
info Couldn't connect to MSIE DDE server
end
DDE TERMINATE
EXIT
:2
REM Launch URL in last active window
if @null(%%url)
%%url = "http://www.vdsworld.com"
end
DDE LINK,iexplore,WWW_OpenURL
if @ok()
DDE EXECUTE,@CHR(34)%%url@CHR(34)",,-1,0,,,,"
else
info Couldn't connect to MSIE DDE server
end
DDE TERMINATE
EXIT
:3
REM Obtain info about the latest window URL
DDE LINK,iexplore,WWW_GetWindowInfo
if @ok()
INFO @DDEITEM(-1)
else
info Couldn't connect to MSIE DDE server
end
DDE TERMINATE
EXIT
:4
REM Activate the latest window
DDE LINK,iexplore,WWW_Activate
if @ok()
%%dummy = @DDEITEM(-1)
else
info Couldn't connect to MSIE DDE server
end
DDE TERMINATE
EXIT
:5
REM Close the latest window
DDE LINK,iexplore,WWW_Exit
if @ok()
%%dummy = @DDEITEM(-1)
else
info Couldn't connect to MSIE DDE server
end
DDE TERMINATE
EXIT
|
_________________ ~~ Alcohol and calculus don't mix... Don't drink and derive! ~~
String.DLL * advanced string processing |
|
Back to top |
|
|
MarkTrubo Contributor
Joined: 27 May 2001 Posts: 148 Location: Long Island, NY
|
Posted: Sat Feb 22, 2003 10:53 am Post subject: |
|
|
That is pretty cool -- now I have a solution and will work on a problem to solve with it! |
|
Back to top |
|
|
Garrett Moderator Team
Joined: 04 Oct 2001 Posts: 2149 Location: A House
|
Posted: Tue Mar 04, 2003 1:40 am Post subject: |
|
|
And this may allow me to update a client's program to make it more stable and reliable!! Thanks!!
-Garrett _________________ 'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
Back to top |
|
|
vdsalchemist Admin Team
Joined: 23 Oct 2001 Posts: 1448 Location: Florida, USA
|
Posted: Tue Mar 04, 2003 1:37 pm Post subject: |
|
|
Hey Garrett,
This is a little off the subject but what is up with your Sig "Be like Mac"? _________________ Home of
Give VDS a new purpose!
|
|
Back to top |
|
|
Mac Professional Member
Joined: 08 Jul 2000 Posts: 1585 Location: Oklahoma USA
|
Posted: Tue Mar 04, 2003 1:42 pm Post subject: |
|
|
Ardent admiration and Windows 95 envy? _________________ VDSug.dll does file IO, check/disable menu items,
non-VDS dlls, draw functions and more...
Free download (30k dll size) at:
http://www.vdsworld.com/download.php?id=361
|
|
Back to top |
|
|
LOBO Valued Contributor
Joined: 14 Mar 2002 Posts: 241 Location: Wilmington, Delaware, USA
|
Posted: Tue Mar 04, 2003 8:27 pm Post subject: |
|
|
That's it! I want to give up my P4 800 Win XP Pro box & cable modem and get a P 66MHz with Win95A with a 14.4 modem.
I want to be like Mac!
See I changed my sig to prove it
I couldn't resist Mac
-Mark |
|
Back to top |
|
|
vdsalchemist Admin Team
Joined: 23 Oct 2001 Posts: 1448 Location: Florida, USA
|
Posted: Wed Mar 05, 2003 1:25 pm Post subject: |
|
|
Well I am sort of like Mac, I still use VDS 3.51;-) _________________ Home of
Give VDS a new purpose!
|
|
Back to top |
|
|
Hortalonus Valued Contributor
Joined: 15 Mar 2002 Posts: 344 Location: Western USA
|
Posted: Wed Mar 05, 2003 3:09 pm Post subject: |
|
|
Hey! Me too... Wahoo! |
|
Back to top |
|
|
Skit3000 Admin Team
Joined: 11 May 2002 Posts: 2166 Location: The Netherlands
|
Posted: Wed Mar 05, 2003 3:22 pm Post subject: |
|
|
LOBO, why don't you just get a 286 with 4 MB ram? Must be enough for VDS 2... |
|
Back to top |
|
|
MarkTrubo Contributor
Joined: 27 May 2001 Posts: 148 Location: Long Island, NY
|
Posted: Wed Mar 05, 2003 3:24 pm Post subject: |
|
|
I have a bunch of Win 95 boxes here -- a few are P66's the rest with Win 95 are zippy fast P100s.
I think we got them for about $3,000 each at the time, so I figure a 50% discount would be fair.
Anyone interested? Just $1,500 each! |
|
Back to top |
|
|
Mac Professional Member
Joined: 08 Jul 2000 Posts: 1585 Location: Oklahoma USA
|
Posted: Wed Mar 05, 2003 5:03 pm Post subject: |
|
|
"No sir, officer. I really have no idea who these people are...."
_________________ VDSug.dll does file IO, check/disable menu items,
non-VDS dlls, draw functions and more...
Free download (30k dll size) at:
http://www.vdsworld.com/download.php?id=361
|
|
Back to top |
|
|
SnarlingSheep Professional Member
Joined: 13 Mar 2001 Posts: 759 Location: Michigan
|
Posted: Wed Mar 05, 2003 6:25 pm Post subject: |
|
|
My signature is a direct qoute from Mac..so I had you all beat. _________________ -Sheep
My pockets hurt... |
|
Back to top |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You can attach files in this forum You can download files in this forum
|
|