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 


VDS World External Auto Refresher - enjoy

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 5 Source Code
View previous topic :: View next topic  
Author Message
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 642
Location: Eastern Indiana

PostPosted: Thu Feb 19, 2004 1:07 am    Post subject: VDS World External Auto Refresher - enjoy Reply with quote

Its not much but it works for me, hopefully you will enjoy it for some reason. Cool



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
View user's profile Send private message Visit poster's website
FreezingFire
Admin Team


Joined: 23 Jun 2002
Posts: 3508

PostPosted: Thu Feb 19, 2004 1:10 am    Post subject: Reply with quote

Nice job. Smile
_________________
FreezingFire
VDSWORLD.com
Site Admin Team
Back to top
View user's profile Send private message Visit poster's website
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 642
Location: Eastern Indiana

PostPosted: Thu Feb 19, 2004 1:16 am    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 642
Location: Eastern Indiana

PostPosted: Thu Feb 19, 2004 2:33 am    Post subject: Reply with quote

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
View user's profile Send private message Visit poster's website
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 642
Location: Eastern Indiana

PostPosted: Sun Mar 28, 2004 7:34 pm    Post subject: Reply with quote

I added a URL for those who like the zip method below:

www.vtol.wtcsites.com/VDS5/Refresh-Forum/Refresh-Forum-v1.zip



The URL will allways contain the latest version.
Back to top
View user's profile Send private message Visit poster's website
vtol
Valued Contributor
Valued Contributor


Joined: 05 Feb 2004
Posts: 642
Location: Eastern Indiana

PostPosted: Tue Apr 27, 2004 12:46 pm    Post subject: Reply with quote

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 Wave
.
Back to top
View user's profile Send private message Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Visual DialogScript 5 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