View previous topic :: View next topic |
Author |
Message |
FreezingFire Admin Team
Joined: 23 Jun 2002 Posts: 3508
|
Posted: Mon Apr 28, 2003 7:27 pm Post subject: VDS 5 Release Checker |
|
|
Check the dialogscript.com site for updates!
Code: | REM -- Script by FreezingFire (freezingfire@vdsworld.com) --
OPTION SCALE,96
OPTION FIELDSEP,"|"
OPTION DECIMALSEP,"."
EXTERNAL VDSIPP.DLL
INTERNET HTTP,CREATE,1
INTERNET HTTP,THREADS,1,OFF
INTERNET HTTP,PROTOCOL,1,1
INTERNET HTTP,USERAGENT,1,"Hurry up VDS 5!"
:evloop
%%OldContent = @internet(http,content,1)
REM -- Wait 5 minutes --
wait event,300
goto @event()
:Timer
GOSUB GetPage
GOSUB CheckPage
GOTO Evloop
:GetPage
INTERNET HTTP,GET,1,http://www.dialogscript.com/en/index.html
exit
:CheckPage
if @equal(@internet(http,content,1),%%OldContent)
exit
end
BEEP
DIALOG CREATE,Alert,-1,0,241,94,NOSYS,ONTOP,CLASS DOMPageChange
DIALOG ADD,STYLE,MESSAGE,Tahoma,12,B,,
DIALOG ADD,TEXT,T1,12,10,,,Dialogscript.com Alert,,MESSAGE
DIALOG ADD,TEXT,TEXT1,36,10,,,The www.dialogscript.com page has changed!
DIALOG ADD,BUTTON,OK,58,78,78,24,OK,,DEFAULT
DIALOG SHOW
exit
:OKButton
window hide,#DOMPageChange
goto evloop
:CLOSE
INTERNET HTTP,STOP,1
INTERNET HTTP,DESTROY,1
EXIT |
_________________ FreezingFire
VDSWORLD.com
Site Admin Team |
|
Back to top |
|
|
Skit3000 Admin Team
Joined: 11 May 2002 Posts: 2166 Location: The Netherlands
|
|
Back to top |
|
|
FreezingFire Admin Team
Joined: 23 Jun 2002 Posts: 3508
|
Posted: Tue Apr 29, 2003 7:37 pm Post subject: |
|
|
True, true, true. Didn't think of that. I just thought that I would make this
a tool that wouldn't take more space than necessary but I'll update it. _________________ FreezingFire
VDSWORLD.com
Site Admin Team |
|
Back to top |
|
|
FreezingFire Admin Team
Joined: 23 Jun 2002 Posts: 3508
|
Posted: Tue Apr 29, 2003 7:42 pm Post subject: |
|
|
I don't have enough time to test it but here it is so far:
Code: | REM -- Script by FreezingFire (freezingfire@vdsworld.com) --
REM -- Version 1.1 --
OPTION SCALE,96
OPTION FIELDSEP,"|"
OPTION DECIMALSEP,"."
EXTERNAL VDSIPP.DLL
INTERNET HTTP,CREATE,1
INTERNET HTTP,THREADS,1,OFF
INTERNET HTTP,PROTOCOL,1,1
INTERNET HTTP,USERAGENT,1,"Hurry up VDS 5!"
:evloop
REM -- Wait 5 minutes --
wait event,300
goto @event()
:Timer
GOSUB GetPage
GOSUB CheckPage
GOTO Evloop
:GetPage
list create,1
list loadfile,1,@path(%0)oldcontent.dat
%%OldContent = @text(1)
list close,1
INTERNET HTTP,DOWNLOAD,1,http://www.dialogscript.com/en/index.html,@path(%0)oldcontent.dat
exit
:CheckPage
list create,1
list loadfile,1,@path(%0)oldcontent.dat
%%NewContent = @text(1)
list close,1
if @equal(%%NewContent,%%OldContent)
exit
end
BEEP
DIALOG CREATE,Alert,-1,0,241,94,NOSYS,ONTOP,CLASS DOMPageChange
DIALOG ADD,STYLE,MESSAGE,Tahoma,12,B,,
DIALOG ADD,TEXT,T1,12,10,,,Dialogscript.com Alert,,MESSAGE
DIALOG ADD,TEXT,TEXT1,36,10,,,The www.dialogscript.com page has changed!
DIALOG ADD,BUTTON,OK,58,78,78,24,OK,,DEFAULT
DIALOG SHOW
exit
:OKButton
window hide,#DOMPageChange
goto evloop
:CLOSE
INTERNET HTTP,STOP,1
INTERNET HTTP,DESTROY,1
EXIT |
_________________ FreezingFire
VDSWORLD.com
Site Admin Team |
|
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
|
|