View previous topic :: View next topic |
Author |
Message |
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
Posted: Thu Feb 19, 2004 1:07 am Post subject: VDS World External Auto Refresher - enjoy |
|
|
Its not much but it works for me, hopefully you will enjoy it for some reason.
Code: |
#
# VDS World Forum External Auto Refresher
#
# made by vtol777
#
Title Refresh VDS World General Forum
DIALOG CREATE,Auto Refresh Forum,-1,0,124,210,ontop,nosys,smallcap
DIALOG ADD,LINE,line,8,9,107,60
LIST Create,1
DIALOG ADD,STYLE,STYLE1,,9,,,blue
DIALOG ADD,STYLE,STYLE2,,7,,,red
DIALOG ADD,STYLE,STYLE3,,7,,,FF9933
DIALOG ADD,STYLE,STYLE4,,7,,,gray
DIALOG ADD,TEXT,text2,21,15,,,@FILL(6,,L)Auto Refresh,,STYLE1
DIALOG ADD,TEXT,text1,41,14,,,@FILL(1,,L)VDS World Forums,,STYLE1
DIALOG ADD,TEXT,time1,95,7,,,Refresh every@FILL(8,,L)mins ,,style3
DIALOG ADD,TEXT,time2,78,7,,,Refresh for@FILL(8,,L)minutes,,style2
DIALOG ADD,TEXT,set1,95,80,,,0,,STYLE4
DIALOG ADD,TEXT,set2,78,66,,,0,,
DIALOG ADD,LIST,area,117,7,110,19,Forum Area|General|Miscellaneous,,
DIALOG ADD,BUTTON,OK,147,31,64,24,Set Times
DIALOG ADD,BUTTON,cancel,177,31,64,24,Cancel
DIALOG SHOW
LIST LOADTEXT,area
"General
"Miscellaneous
:Evloop
wait event
goto @event()
:areaCLICK
goto EvLoop
:okBUTTON
%%window_gen = forum.vdsworld.com :: View Forum - General Help - Microsoft Internet Explorer
%%window_misc = forum.vdsworld.com :: View Forum - Miscellaneous - Microsoft Internet Explorer
IF @equal(@dlgtext(area), )
%%window_title = %%window_gen
IF @not(@winexists(%%window_gen))
warn The General Help Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"General
DIALOG disable,area
END
IF @equal(@dlgtext(area),General)
%%window_title = %%window_gen
IF @not(@winexists(%%window_gen))
warn The General Help Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"General
DIALOG disable,area
END
IF @equal(@dlgtext(area),Miscellaneous)
%%window_title = %%window_misc
IF @NOT(@winexists(%%window_misc))
warn The Miscellaneous Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"Miscellaneous
DIALOG disable,area
END
%%minutes_till_quit = @INPUT(Enter the@FILL(3,,L)"'"Total Number of minutes to refresh"'")
%%minutes_between_refresh = @INPUT(Enter the@FILL(5,,L)"'"Number of minutes between Refresh"'")
IF @greater(%%minutes_between_refresh,%%minutes_till_quit)
info You can"'"t have the Number between Refresh larger than Total minutes.
goto EvLoop
END
Dialog set,set1,%%minutes_between_refresh
Dialog set,set2,%%minutes_till_quit
IF @equal(%%minutes_till_quit, )
goto EvLoop
end
IF @equal(%%minutes_between_refresh, )
goto EvLoop
end
Dialog Disable,OK
WINDOW ACTIVATE,Auto Refresh Forum
WINDOW POSITION,Auto Refresh Forum,355,647
wait 0.2
%a = 60
%b = %%minutes_between_refresh
%%seconds_between_refresh = @prod(%b,%a)
WINDOW ACTIVATE,%%window_title
wait 0.2
WINDOW SEND,%%window_title,@KEY(F5)
:recycle
%%seconds_between_refresh_counter = 0
repeat
IF @EVENT(cancelBUTTON)
goto close
end
%%seconds_between_refresh_counter = @sum(%%seconds_between_refresh_counter,1)
wait 1
until @equal(%%seconds_between_refresh_counter,%%seconds_between_refresh)
%%minutes_till_quit_counter = @SUM(%%minutes_till_quit_counter,%%minutes_between_refresh)
WINDOW ACTIVATE,%%window_title
wait 1
WINDOW SEND,%%window_title,@KEY(F5)
WINDOW ACTIVATE,Auto Refresh Forum
IF @equal(%%minutes_till_quit_counter,0)
goto skip-next-if
END
IF @greater(%%minutes_till_quit_counter,%%minutes_till_quit)
goto close
END
:skip-next-if
IF @NOT(@greater(%%minutes_till_quit_counter,%%minutes_till_quit))
%%minutes_till_quit_counter = @sum(%%minutes_till_quit_counter,1)
rem info Counter %%minutes_till_quit_counter
IF @equal(%%minutes_till_quit_counter,%%minutes_till_quit)
goto close
END
goto recycle
END
IF @EVENT(cancelBUTTON)
goto close
end
:cancelBUTTON
:close
LIST CLOSE,1
exit
|
You can adjust or add things, like more forum areas pritty easy.
Last edited by vtol on Thu Apr 22, 2004 4:22 am; edited 1 time in total |
|
Back to top |
|
|
FreezingFire Admin Team
Joined: 23 Jun 2002 Posts: 3508
|
Posted: Thu Feb 19, 2004 1:10 am Post subject: |
|
|
Nice job. _________________ FreezingFire
VDSWORLD.com
Site Admin Team |
|
Back to top |
|
|
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
Posted: Thu Feb 19, 2004 1:16 am Post subject: |
|
|
Thanks
I forgot to say its set up for 800x600, so you can reset where you want it out of the way where ever needed(just search for 355,647).
Now I can enjoy my basketball game and VDS World at the same time, lol |
|
Back to top |
|
|
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
Posted: Thu Feb 19, 2004 2:33 am Post subject: |
|
|
I added the 'Visual DialogScript 5 Source Code' page
Fixed the alignment when over 99 seconds entered.
Code: |
#
# VDS World Forum External Auto Refresher
#
# IE
# best for 800x600
#
# made by vtol777
#
Title Refresh VDS World General Forum
DIALOG CREATE,Auto Refresh Forum,-1,0,124,210,ontop,nosys,smallcap
DIALOG ADD,LINE,line,8,9,107,60
LIST Create,1
DIALOG ADD,STYLE,STYLE1,,9,,,blue
DIALOG ADD,STYLE,STYLE2,,7,,,red
DIALOG ADD,STYLE,STYLE3,,7,,,FF9933
DIALOG ADD,STYLE,STYLE4,,7,,,gray
DIALOG ADD,TEXT,text2,21,15,,,@FILL(6,,L)Auto Refresh,,STYLE1
DIALOG ADD,TEXT,text1,41,14,,,@FILL(1,,L)VDS World Forums,,STYLE1
DIALOG ADD,TEXT,time1,95,5,,,Do every@FILL(12,,L)minutes,,style3
DIALOG ADD,TEXT,time2,78,5,,,Refresh for@FILL(9,,L)minutes,,style2
DIALOG ADD,TEXT,set2,78,64,,,0,,
DIALOG ADD,TEXT,set1,95,64,,,0,,STYLE4
DIALOG ADD,LIST,area,117,3,120,19,Forum Area|General|Miscellaneous,,
DIALOG ADD,BUTTON,OK,147,31,64,24,Set Times
DIALOG ADD,BUTTON,cancel,177,31,64,24,Cancel
DIALOG SHOW
LIST LOADTEXT,area
"General
"Miscellaneous
"VDS 5 Source Code
:Evloop
wait event
goto @event()
:areaCLICK
goto EvLoop
:okBUTTON
%%window_gen = forum.vdsworld.com :: View Forum - General Help - Microsoft Internet Explorer
%%window_misc = forum.vdsworld.com :: View Forum - Miscellaneous - Microsoft Internet Explorer
%%window_five_code = forum.vdsworld.com :: View Forum - Visual DialogScript 5 Source Code - Microsoft Internet Explorer
IF @equal(@dlgtext(area), )
%%window_title = %%window_gen
IF @not(@winexists(%%window_gen))
warn The General Help Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"General
DIALOG disable,area
END
IF @equal(@dlgtext(area),General)
%%window_title = %%window_gen
IF @not(@winexists(%%window_gen))
warn The General Help Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"General
DIALOG disable,area
END
IF @equal(@dlgtext(area),Miscellaneous)
%%window_title = %%window_misc
IF @NOT(@winexists(%%window_misc))
warn The Miscellaneous Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"Miscellaneous
DIALOG disable,area
END
IF @equal(@dlgtext(area),VDS 5 Source Code)
%%window_title = %%window_five_code
IF @NOT(@winexists(%%window_five_code))
warn The VDS 5 Source Code Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"VDS 5 Source Code
DIALOG disable,area
END
%%minutes_till_quit = @INPUT(Enter the@FILL(3,,L)"'"Total Number of minutes to refresh"'")
%%minutes_between_refresh = @INPUT(Enter the@FILL(5,,L)"'"Number of minutes between Refresh"'")
IF @greater(%%minutes_between_refresh,%%minutes_till_quit)
info You can"'"t have the Number between Refresh larger than Total minutes.
goto EvLoop
END
Dialog set,set1,%%minutes_between_refresh
Dialog set,set2,%%minutes_till_quit
IF @equal(%%minutes_till_quit, )
goto EvLoop
end
IF @equal(%%minutes_between_refresh, )
goto EvLoop
end
Dialog Disable,OK
WINDOW ACTIVATE,Auto Refresh Forum
WINDOW POSITION,Auto Refresh Forum,355,647
wait 0.2
%a = 60
%b = %%minutes_between_refresh
%%seconds_between_refresh = @prod(%b,%a)
WINDOW ACTIVATE,%%window_title
wait 0.2
WINDOW SEND,%%window_title,@KEY(F5)
:recycle
%%seconds_between_refresh_counter = 0
repeat
IF @EVENT(cancelBUTTON)
goto close
end
%%seconds_between_refresh_counter = @sum(%%seconds_between_refresh_counter,1)
wait 1
until @equal(%%seconds_between_refresh_counter,%%seconds_between_refresh)
%%minutes_till_quit_counter = @SUM(%%minutes_till_quit_counter,%%minutes_between_refresh)
WINDOW ACTIVATE,%%window_title
wait 1
WINDOW SEND,%%window_title,@KEY(F5)
WINDOW ACTIVATE,Auto Refresh Forum
IF @equal(%%minutes_till_quit_counter,0)
goto skip-next-if
END
IF @greater(%%minutes_till_quit_counter,%%minutes_till_quit)
goto close
END
:skip-next-if
IF @NOT(@greater(%%minutes_till_quit_counter,%%minutes_till_quit))
%%minutes_till_quit_counter = @sum(%%minutes_till_quit_counter,1)
rem info Counter %%minutes_till_quit_counter
IF @equal(%%minutes_till_quit_counter,%%minutes_till_quit)
goto close
END
goto recycle
END
IF @EVENT(cancelBUTTON)
goto close
end
:cancelBUTTON
:close
LIST CLOSE,1
exit |
|
|
Back to top |
|
|
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
|
Back to top |
|
|
vtol Valued Contributor
Joined: 05 Feb 2004 Posts: 642 Location: Eastern Indiana
|
Posted: Tue Apr 27, 2004 12:46 pm Post subject: |
|
|
Updated it..
Fixed selector LIST box
Added a Pause Button
Added a Minimize Button
[url]www.vtol.wtcsites.com\VDS5\Refresh-Forum\Refresh-Forum-v1.zip[/url]
Code: | #
# VDS World Forum External Auto Refresher
#
# MSIE
# best for 800x600
# Updated 5-2004
# Added Pause and minimize
# made by vtol777
#
Title Refresh VDS World General Forum
DIALOG CREATE,Auto Refresh Forum,-1,0,124,210,ontop,nosys,smallcap
DIALOG ADD,LINE,line,8,9,107,60
LIST Create,1
LIST Create, 2,SORTED
DIALOG ADD,STYLE,STYLE1,,9,,,blue
DIALOG ADD,STYLE,STYLE2,,7,,,red
DIALOG ADD,STYLE,STYLE3,,7,,,FF9933
DIALOG ADD,STYLE,STYLE4,,7,,,gray
DIALOG ADD,TEXT,text2,21,15,,,@FILL(6,,L)Auto Refresh,,STYLE1
DIALOG ADD,TEXT,text1,41,14,,,@FILL(1,,L)VDS World Forums,,STYLE1
DIALOG ADD,TEXT,time1,95,5,,,Do every@FILL(12,,L)minutes,,style3
DIALOG ADD,TEXT,time2,78,5,,,Refresh for@FILL(9,,L)minutes,,style2
DIALOG ADD,TEXT,set2,78,64,,,0,,
DIALOG ADD,TEXT,set1,95,64,,,0,,STYLE4
LIST LOADTEXT, 1
"General
"Miscellaneous
"VDS 5 Source Code
DIALOG ADD,BUTTON,fakefocus,15,72,0,0,unPause
LIST append, 2, 1
DIALOG ADD,combo,area,117,3,120,19,,,sorted,click
dialog set,area,@item(2)
wait "0.2"
list append,area,@text(2)
DIALOG ADD,BUTTON,OK,151,3,58,24,Set Times
DIALOG ADD,BUTTON,quiter,180,3,58,24,Quit
DIALOG ADD,BUTTON,pause,141,72,50,20,Pause
dialog disable,pause
DIALOG ADD,BUTTON,unpause,165,72,50,17,unPause
dialog disable,unpause
DIALOG ADD,BUTTON,min,186,72,50,17,Minimize
dialog disable,min
DIALOG SHOW
:Evloop
WAIT EVENT
%E = @event()
IF %E
GOTO %E
END
dialog focus,fakefocus
goto evloop
:areaCLICK
dialog focus,fakefocus
goto EvLoop
rem ---------------------------------------------------------------------------Pause Label
:minBUTTON
IF @unequal(%E,paused)
window iconize,Auto Refresh Forum
END
%m = minimized
goto evloop
:pauseBUTTON
dialog disable,pause
goto evloop
:unpauseBUTTON
dialog disable,unpause
goto evloop
rem ---------------------------------------------------------------------------- SET TIMES
:okBUTTON
%%window_gen = forum.vdsworld.com :: View Forum - General Help - Microsoft Internet Explorer
%%window_misc = forum.vdsworld.com :: View Forum - Miscellaneous - Microsoft Internet Explorer
%%window_five_code = forum.vdsworld.com :: View Forum - Visual DialogScript 5 Source Code - Microsoft Internet Explorer
IF @equal(@dlgtext(area), )
%%window_title = %%window_gen
IF @not(@winexists(%%window_gen))
warn The General Help Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"General
DIALOG disable,area
END
IF @equal(@dlgtext(area),General)
%%window_title = %%window_gen
IF @not(@winexists(%%window_gen))
warn The General Help Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"General
DIALOG disable,area
END
IF @equal(@dlgtext(area),Miscellaneous)
%%window_title = %%window_misc
IF @NOT(@winexists(%%window_misc))
warn The Miscellaneous Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"Miscellaneous
DIALOG disable,area
END
IF @equal(@dlgtext(area),VDS 5 Source Code)
%%window_title = %%window_five_code
IF @NOT(@winexists(%%window_five_code))
warn The VDS 5 Source Code Forum Window must be Open 1st!
goto EvLoop
END
DIALOG REMOVE,area
DIALOG ADD,LIST,area,117,7,110,19
LIST LOADTEXT,area
"VDS 5 Source Code
DIALOG disable,area
END
%%minutes_till_quit = @INPUT(Enter the@FILL(3,,L)"'"Total Number of minutes to refresh"'")
%%minutes_between_refresh = @INPUT(Enter the@FILL(5,,L)"'"Number of minutes between Refresh"'")
IF @greater(%%minutes_between_refresh,%%minutes_till_quit)
info You can"'"t have the Number between Refresh larger than Total minutes.
goto EvLoop
END
Dialog set,set1,%%minutes_between_refresh
Dialog set,set2,%%minutes_till_quit
IF @equal(%%minutes_till_quit, )
goto EvLoop
end
IF @equal(%%minutes_between_refresh, )
goto EvLoop
end
Dialog Disable,OK
dialog enable,pause
dialog enable,min
WINDOW ACTIVATE,Auto Refresh Forum
WINDOW POSITION,Auto Refresh Forum,355,647
wait 0.2
%a = 60
%b = %%minutes_between_refresh
%%seconds_between_refresh = @prod(%b,%a)
WINDOW ACTIVATE,%%window_title
wait 0.2
WINDOW SEND,%%window_title,@KEY(F5)
:recycle
%%seconds_between_refresh_counter = 0
rem --------------------------------------------------------------------------- REPEAT
repeat
IF @unequal(%m,minimized)
IF @equal(@winpos(Auto Refresh Forum,S),1))
%m = restored
END
END
%E = @event()
IF @equal(%E,pauseBUTTON)
dialog title,@fill(5,,L)Paused "!"
dialog disable,pause
dialog enable,unpause
:repeat
dialog title,@fill(5,,L)Paused "!"
wait "0.2"
dialog title,@fill(5,,L)
%E = @event()
wait "0.2"
IF @equal(%E,minBUTTON)
%E = paused
%m = minimized
dialog title,Paused..
window iconize,Paused..
end
wait "0.3"
IF @unequal(%m,minimized)
IF @equal(@winpos(Auto Refresh Forum,S),1))
%m = restored
END
END
IF @equal(%E,quiterBUTTON)
STOP
EXIT
end
IF @equal(%E,unpauseBUTTON)
dialog title,Auto Refresh Forum
dialog disable,unpause
dialog enable,pause
goto skip-repeat
END
goto repeat
:skip-repeat
END
IF @equal(%E,minBUTTON)
%E = paused
%m = minimized
window iconize,Auto Refresh Forum
END
IF @equal(%E,quiterBUTTON)
STOP
EXIT
END
%%seconds_between_refresh_counter = @sum(%%seconds_between_refresh_counter,1)
wait 1
:skip-wait
IF @equal(%E,minBUTTON)
%E = paused
%m = minimized
window iconize,Auto Refresh Forum
END
IF @equal(%E,quiterBUTTON)
STOP
EXIT
END
until @equal(%%seconds_between_refresh_counter,%%seconds_between_refresh)
%%minutes_till_quit_counter = @SUM(%%minutes_till_quit_counter,%%minutes_between_refresh)
WINDOW ACTIVATE,%%window_title
wait 1
WINDOW SEND,%%window_title,@KEY(F5)
IF @unequal(%m,minimized)
WINDOW ACTIVATE,Auto Refresh Forum
END
IF @equal(%%minutes_till_quit_counter,0)
goto skip-next-if
END
IF @greater(%%minutes_till_quit_counter,%%minutes_till_quit)
goto close
END
:skip-next-if
IF @NOT(@greater(%%minutes_till_quit_counter,%%minutes_till_quit))
%%minutes_till_quit_counter = @sum(%%minutes_till_quit_counter,1)
rem info Counter %%minutes_till_quit_counter
IF @equal(%%minutes_till_quit_counter,%%minutes_till_quit)
goto close
END
goto recycle
END
IF @EVENT(quiterBUTTON)
goto close
end
:quiterBUTTON
:close
LIST CLOSE,1
LIST CLOSE,2
exit |
It's no longer in your way
. |
|
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
|
|