| View previous topic :: View next topic |
| Author |
Message |
cnodnarb
Professional Member
Joined: 11 Sep 2002
Posts: 767
Location: Eastman, GA
|
 Posted: Thu Apr 14, 2011 4:56 am Post subject: VDSWND.DLL |
 |
|
Hiya,
Following pertains to v3.5
Capturing windows using VDSWND.DLL or VDSDLL.DLL no longer causes odd behavior. Not sure when this change in the Windows OS occured, but seems to work fine in WinXP SP2 up, Vista and 7.
Back in the old days (2002) I think I was using Win98 and dismissed this method.
Seeing as to how (almost) nobody uses win98 anymore...open season now that the issue is gone.
Basically these means we can have MDI style applications if you have these (VDSWND.DLL or VDSDLL.DLL) resources available to you (your a pack rat like me).
Thanks,
cnodnarb |
|
| Back to top |
|
 |
Garrett
Moderator Team
Joined: 04 Oct 2001
Posts: 2149
Location: A House
|
| Posted: Thu Apr 14, 2011 4:36 pm Post subject: |
|
|
Heheheheheee... Pack rat... I can relate! I still have tons of stuff from VDS 2. 
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.) |
|
| Back to top |
|
|
cnodnarb
Professional Member
Joined: 11 Sep 2002
Posts: 767
Location: Eastman, GA
|
| Posted: Fri Apr 15, 2011 1:31 am Post subject: |
|
|
I'm getting spotty behavior with the version of VDSWND I have, sometimes it works in VDS5 and sometimes it creates error 27.
Anyone know of a solid version that works with VDS5, and if Tommy accepts new purchases?
I created a workaround in VDS3 and compiled
| Code: | external @path(%0)vdswnd.dll
wnd parent,%1,%2
|
Launched using
| Code: |
run vdswnd.exe #child #parent
|
But I don't like that either. Picky me. |
|
| Back to top |
|
|
cnodnarb
Professional Member
Joined: 11 Sep 2002
Posts: 767
Location: Eastman, GA
|
| Posted: Fri Apr 15, 2011 3:14 am Post subject: |
|
|
WOOT! Praise! I'm so glad there's so many people smarter than me!
http://www.vdsworld.com/forum/viewtopic.php?t=1908
| Code: | #-----------------------------------------------------------------------------#
# #
# Default script template - to change it edit <vdspath>\default.dsc #
# #
# Author: #
# #
# Copyright: #
# #
#-----------------------------------------------------------------------------#
external @path(%0)vdsbrw50.dll
external @path(%0)vdswnd.dll
#define command,wnd
#define function,wnd
#define function,browser
#define command,browser
DIALOG CREATE,Google MDI,-1,0,1039,570,,class parent,,resizable
REM *** Modified by Dialog Designer on 4/14/2011 - 12:15 ***
DIALOG ADD,MENU,&File,&New|CTRL+N
dialog add,menu,&Window,Minimi&ze All,Ma&ximize All,&Cascade All
DIALOG SHOW
%%dialog = 0
%%google = 0
%%count = 0
:timer
if @equal(%%count,%%google)
%%count = 0
else
%%count = @succ(%%count)
dialog select,%%count
if @browser(@dlgtext(text2),NAME)
dialog title,@browser(@dlgtext(text2),NAME)
end
end
:evloop
wait event,1
parse "%%event;%%dialog",@event(d)
dialog select,%%dialog
goto %%event
:newmenu
%%w = @dlgpos(,w)
%%h = @dlgpos(,h)
DIALOG CREATE,Google,0,0,%%w,%%h,,CLASS child,,resizable
%%google = @succ(%%google)
%%bgoogle = @succ(%%bgoogle)
REM *** Modified by Dialog Designer on 4/14/2011 - 18:15 ***
dialog add,text,text1,0,0,0,0,@winexists(#child)
dialog add,text,text2,0,0,0,0,browser%%bgoogle
LOADLIB user32.dll
if @ok()
%%dummy = @lib(user32.dll,SetParent,NIL,@strdel(@winexists(#child),1,1),@strdel(@winexists(#parent),1,1))
end
FREELIB user32.dll
rem option errortrap,vdswnd
rem wnd parent,@winexists(#child),@winexists(#parent)
rem :vdswnd
rem if @equal(@error(),27)
rem run vdswnd @winexists(#child) @winexists(#parent)
rem end
option errortrap,""
DIALOG ADD,browser,browser%%bgoogle,2,1,%%w,%%h,http://www.google.com
wait .1
DIALOG SHOW
loadlib "psapi.dll"
%t = @lib("psapi.dll","EmptyWorkingSet",INT:,-1)
freelib "psapi.dll"
rem wnd parent,@winexists(#child),@winexists(#parent)
goto evloop
:close
if @equal(%%dialog,0)
exit
else
dialog close
%%x = @event()
dialog close
%x = @event()
%%google = @diff(%%google,1)
%%count = 0
goto evloop
:resize
if @equal(%%dialog,0)
goto evloop
end
if @browser(@dlgtext(text2),NAME)
dialog title,@browser(@dlgtext(text2),NAME)
end
dialog setpos,@dlgtext(text2),0,0,@dlgpos(,w),@dlgpos(,h)
goto evloop
:minimize allmenu
%%count = 0
:minimize
if @equal(%%count,%%google)
%%count = 0
goto evloop
else
%%count = @succ(%%count)
dialog select,%%count
window iconize,@dlgtext(text1)
gosub resize2
end
goto minimize
:maximize allmenu
%%count = 0
:maximize
if @equal(%%count,%%google)
%%count = 0
goto evloop
else
%%count = @succ(%%count)
dialog select,%%count
window maximize,@dlgtext(text1)
gosub resize2
end
goto maximize
:cascade allmenu
:Cascadeall
%%count = 0
%%tl = 0
:cascade
if @equal(%%count,%%google)
%%count = 0
goto evloop
else
%%count = @succ(%%count)
dialog select,0
%%w = @dlgpos(,w)
%%h = @dlgpos(,h)
dialog select,%%count
window normal,@dlgtext(text1)
window activate,@dlgtext(text1)
window position,@dlgtext(text1),%%tl,%%tl,@diff(%%w,%%tl),@diff(%%h,%%tl)
%%tl = @sum(%%tl,40)
gosub resize2
end
goto cascade
:resize2
if @browser(@dlgtext(text2),NAME)
dialog title,@browser(@dlgtext(text2),NAME)
end
dialog setpos,@dlgtext(text2),0,0,@dlgpos(,w),@dlgpos(,h)
exit
|
|
|
| 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
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
@vdsworld