forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


MSIE control via DDE

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 3 Source Code
View previous topic :: View next topic  
Author Message
Dr. Dread
Professional Member
Professional Member


Joined: 03 Aug 2001
Posts: 1065
Location: Copenhagen, Denmark

PostPosted: Sat Feb 22, 2003 12:29 am    Post subject: MSIE control via DDE Reply with quote

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
View user's profile Send private message
MarkTrubo
Contributor
Contributor


Joined: 27 May 2001
Posts: 148
Location: Long Island, NY

PostPosted: Sat Feb 22, 2003 10:53 am    Post subject: Reply with quote

That is pretty cool -- now I have a solution and will work on a problem to solve with it! Surprised
Back to top
View user's profile Send private message Send e-mail Visit poster's website AIM Address Yahoo Messenger
Garrett
Moderator Team


Joined: 04 Oct 2001
Posts: 2149
Location: A House

PostPosted: Tue Mar 04, 2003 1:40 am    Post subject: Reply with quote

And this may allow me to update a client's program to make it more stable and reliable!! Thanks!! Smile

-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
View user's profile Send private message
vdsalchemist
Admin Team


Joined: 23 Oct 2001
Posts: 1448
Location: Florida, USA

PostPosted: Tue Mar 04, 2003 1:37 pm    Post subject: Reply with quote

Hey Garrett,
This is a little off the subject but what is up with your Sig "Be like Mac"? Laughing

_________________
Home of

Give VDS a new purpose!
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
Mac
Professional Member
Professional Member


Joined: 08 Jul 2000
Posts: 1585
Location: Oklahoma USA

PostPosted: Tue Mar 04, 2003 1:42 pm    Post subject: Reply with quote

Ardent admiration and Windows 95 envy? Razz Laughing Laughing Laughing
_________________
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
View user's profile Send private message Send e-mail
LOBO
Valued Contributor
Valued Contributor


Joined: 14 Mar 2002
Posts: 241
Location: Wilmington, Delaware, USA

PostPosted: Tue Mar 04, 2003 8:27 pm    Post subject: Reply with quote

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. Wink Laughing Laughing Laughing

I want to be like Mac! Worship

See I changed my sig to prove it Laughing Laughing

I couldn't resist Mac Laughing Twisted Evil Laughing

-Mark
Back to top
View user's profile Send private message AIM Address Yahoo Messenger
vdsalchemist
Admin Team


Joined: 23 Oct 2001
Posts: 1448
Location: Florida, USA

PostPosted: Wed Mar 05, 2003 1:25 pm    Post subject: Reply with quote

Well I am sort of like Mac, I still use VDS 3.51;-)
_________________
Home of

Give VDS a new purpose!
Back to top
View user's profile Send private message Visit poster's website AIM Address Yahoo Messenger MSN Messenger
Hortalonus
Valued Contributor
Valued Contributor


Joined: 15 Mar 2002
Posts: 344
Location: Western USA

PostPosted: Wed Mar 05, 2003 3:09 pm    Post subject: Reply with quote

Hey! Me too... Wahoo! Very Happy
Back to top
View user's profile Send private message Send e-mail
Skit3000
Admin Team


Joined: 11 May 2002
Posts: 2166
Location: The Netherlands

PostPosted: Wed Mar 05, 2003 3:22 pm    Post subject: Reply with quote

LOBO, why don't you just get a 286 with 4 MB ram? Must be enough for VDS 2... Wink
Back to top
View user's profile Send private message
MarkTrubo
Contributor
Contributor


Joined: 27 May 2001
Posts: 148
Location: Long Island, NY

PostPosted: Wed Mar 05, 2003 3:24 pm    Post subject: Reply with quote

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! Laughing
Back to top
View user's profile Send private message Send e-mail Visit poster's website AIM Address Yahoo Messenger
Mac
Professional Member
Professional Member


Joined: 08 Jul 2000
Posts: 1585
Location: Oklahoma USA

PostPosted: Wed Mar 05, 2003 5:03 pm    Post subject: Reply with quote

"No sir, officer. I really have no idea who these people are...."

Razz Razz Razz Laughing Laughing Laughing

_________________
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
View user's profile Send private message Send e-mail
SnarlingSheep
Professional Member
Professional Member


Joined: 13 Mar 2001
Posts: 759
Location: Michigan

PostPosted: Wed Mar 05, 2003 6:25 pm    Post subject: Reply with quote

My signature is a direct qoute from Mac..so I had you all beat. Wink
_________________
-Sheep
My pockets hurt...
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 3 Source Code All times are GMT
Page 1 of 1

 
Jump to:  
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

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group