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 


Proplem with @next and timer function
Goto page 1, 2, 3  Next
 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help
View previous topic :: View next topic  
Author Message
Mark
Newbie


Joined: 27 Nov 2003
Posts: 8

PostPosted: Thu Nov 27, 2003 4:06 pm    Post subject: Proplem with @next and timer function Reply with quote

Hi,

I have VDS 3.51 and can't work out how to have a timer without locking up the application. I'm sure it's very simple but I just can't see it.

Also I'm creating a script that opens a command line program and then passes the contents of a list file using the @next command to open many windows until the next command hits the end of the file.

If I replace run with info I can see that the command line is being passed correctly until it reaches the end of the file then I get one last info box that contain the comand line with the variables (as in %z instead on an IP address). If I use run inplace of info then I get into a big loop and it keeps opening windows and not exiting.
The affending section of code is


Code:

%%time = @DLGTEXT(TIMETORUN)
%c = @DATETIME(t)
    If @EQUAL(%%time,%c)
        LIST LOADFILE,1,subnets.dat
      Repeat
      %z = @NEXT(1)
      %%CMDLINE = @DLGTEXT(CMDLINE)
      %%fixed =  -r %z -f %y-%z.txt
      run %%CMDLINE %%FIXED
      UNTIL @not(@OK())   
      GOTO evloop


If the full code would help I'm happy to post it.

Thanks
Mark
Back to top
View user's profile Send private message
BD
Newbie


Joined: 07 Jun 2001
Posts: 10
Location: Canada

PostPosted: Fri Nov 28, 2003 3:49 am    Post subject: Reply with quote

Hey Mark

There's a few ideas for ending your loop. You could actually load your list and then use list seek 1,0 to get you to the beginning and then do an @count of the number of records in the file. If you know that the last record is always going to be the dud then your repeat until would be
until you have gone thru as many times you have actual records.

Code:

REM  all the records in the list including the dud
%%records = @count(1)

REM the correct number of records
%%lastrecord = @fsub(%%record-1)
    REM or perhaps the @pred function instead of @fsub

repeat
   your code

   %%counter = @fadd(%%counter,1)
REM Keep track of the number of times you go through

until @equal(%%lastrecord,%%counter)

;quits once the record and counter are the same.


I'm sure the gang has some good ideas and this is what I do with 3.5. There's prolly some other slick way with vds 5

As far as the timer goes

:Evloop
repeat
wait .5
gosub something
until @equal(%%button,1)

wait event
goto @event()

This will wait for a button to be pressed and then some other event. Lots of possibilities, just depends on what ya got to wait for.

Good luck Wink


Last edited by BD on Fri Nov 28, 2003 4:20 am; edited 2 times in total
Back to top
View user's profile Send private message
Serge
Professional Member
Professional Member


Joined: 04 Mar 2002
Posts: 1480
Location: Australia

PostPosted: Fri Nov 28, 2003 3:59 am    Post subject: Reply with quote

hi bd,

just a minor observation with your code...vds does not support ";" for comments like other languages do...and certainly not on the same line...you need to use REM on a fresh line for your comments Very Happy Very Happy Very Happy

serge

_________________
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
BD
Newbie


Joined: 07 Jun 2001
Posts: 10
Location: Canada

PostPosted: Fri Nov 28, 2003 4:16 am    Post subject: Reply with quote

Hey Serge

Just threw it in for comment is all, Normally I do put in the Rem just a wee bit lazy this evening.
Its unfortunate Sad that we can't comment on the same line like that. Oh well. C'est la vie.
Back to top
View user's profile Send private message
Serge
Professional Member
Professional Member


Joined: 04 Mar 2002
Posts: 1480
Location: Australia

PostPosted: Fri Nov 28, 2003 8:46 am    Post subject: Reply with quote

fair enough, bd...didn't know if you knew...i agree that it would be nice if we could do that Very Happy

serge

_________________
Back to top
View user's profile Send private message Visit poster's website MSN Messenger
Mark
Newbie


Joined: 27 Nov 2003
Posts: 8

PostPosted: Fri Nov 28, 2003 8:57 am    Post subject: Reply with quote

I did think of setting it to count but I need to be able to ad and remove entries from the file, so the number would be changing.

I'll try the timer with evloop code though.

Thanks
Mark
Back to top
View user's profile Send private message
Mark
Newbie


Joined: 27 Nov 2003
Posts: 8

PostPosted: Fri Nov 28, 2003 9:11 am    Post subject: Reply with quote

If it makes things easier here's the full code. (I know it's a mess but I'm still learning Smile )

Code:

Title HfNetCHK Full Subnet Scan
   List CREATE,1
   List LOADFILE,1,@path(%0)subnets.dat
   %A = @item(1)
   If @null(%A)
      List Close,1
      goto FIRSTRUN
   End
   List Close,1
%f = @DATETIME(yy-mm-dd)
%y = %F %Z
:begin
rem Dialog
  DIALOG CREATE,HfNetCHK Full Subnet Scan,-1,0,553,227
  DIALOG ADD,STYLE,STYLE2,Tahoma,16,I,BACKGROUND,RED
  DIALOG ADD,STYLE,STYLE1,Courier New,8,L,BLACK,DKGREEN
  DIALOG ADD,GROUP,GROUP1,4,296,254,220,Subnets that will be scanned
  DIALOG ADD,LIST,LIST1,18,304,238,198,STYLE1
  DIALOG ADD,BUTTON,RUNSCAN,198,10,64,24,Run
  DIALOG ADD,BUTTON,ADD,198,92,110,24,Add Subnet to Scan
  DIALOG ADD,BUTTON,ABOUT,198,220,64,24,About
  DIALOG ADD,TEXT,TEXT1,4,16,,,HfNetCHK Full Subnet Scan,STYLE2
  DIALOG ADD,EDIT,TIMETORUN,46,150,132,19,11:00
  DIALOG ADD,TEXT,TEXT2,48,10,,,Time to run daily scan:
  DIALOG ADD,GROUP,GROUP2,70,10,274,118,Advanced Options
  DIALOG ADD,TEXT,TEXT3,88,20,,,Command Line Option:
  DIALOG ADD,EDIT,CMDLINE,106,20,258,18,c:\tools\hfnetchk\hfnetchk -o tab -vv
  DIALOG ADD,TEXT,TEXT4,136,20,,,"Leave off the subnet and filename switch's"
  DIALOG SHOW
     List CREATE,LIST1
   List LOADFILE,LIST1,@path(%0)subnets.dat
 rem populate subnets to scan
rem evloop
:evloop
  wait event
  goto @event()
rem Abbout button
:AboutBUTTON
  DIALOG CREATE,About,-1,0,395,255,ONTOP
  DIALOG ADD,STYLE,STYLE1,Courier New,18,B,BACKGROUND,RED
  DIALOG ADD,BITMAP,BITMAP1,116,12,376,132,C:\Documents and Settings\mgosling\Desktop\Visual Dialog Script\HFNETSCAN\logo.bmp
  DIALOG ADD,BUTTON,BUTTON1,84,312,64,24,OK
  DIALOG ADD,TEXT,TEXT1,8,2,,,HfNetCHK Full EMEA Scan V2.0,STYLE1
  DIALOG ADD,TEXT,TEXT2,44,80,,,By Mark Gosling,STYLE1
  DIALOG ADD,TEXT,TEXT3,88,30,,,"For Help and Support contact email address here"
  DIALOG SHOW
  goto evloop
rem Add subnet button
:addBUTTON
  %a = @INPUT(Use format x.x.x.1-x.x.x.254)
   If @null(%A)
      Info There was nothing to add!
      goto evloop
   End
   List Insert,LIST1,%A
      List SAVEFILE,LIST1,@path(%0)subnets.dat
   List Close,LIST1
   goto evloop
rem start button
:runscanBUTTON
%%time = @DLGTEXT(TIMETORUN)
%c = @DATETIME(t)
    If @EQUAL(%%time,%c)
        LIST LOADFILE,1,subnets.dat
      Repeat
      %z = @NEXT(1)
      %%CMDLINE = @DLGTEXT(CMDLINE)
      %%fixed =  -r %z -f %y-%z.txt
      info %%CMDLINE %%FIXED
      UNTIL @not(@OK())   
      GOTO evloop
    else
      GOTO EVLOOP
:FIRSTRUN
   REM >>Used only to create a list saved to a file for this example.<<
   List CREATE,1
   List LOADFILE,1,@path(%0)subnets.dat
   List ADD,1,"135.76.230.1-135.76.230.254"
   List ADD,1,"135.76.231.1-135.76.231.254"
   List ADD,1,"135.76.232.1-135.76.232.254"
   List ADD,1,"135.76.232.1-135.76.232.2541"
   List ADD,1,"135.76.232.1-135.76.232.2542"
   List ADD,1,"135.76.232.1-135.76.232.2543"
   List ADD,1,"135.76.232.1-135.76.232.2544"
   List ADD,1,"135.76.232.1-135.76.232.2545"
   List ADD,1,"135.76.232.1-135.76.232.2546"
   List ADD,1,"135.76.232.1-135.76.232.2547"
   List ADD,1,"135.76.232.1-135.76.232.2548"
   List ADD,1,"135.76.232.1-135.76.232.2549"
   List ADD,1,"135.76.232.1-135.76.232.2540"
   List ADD,1,"135.76.232.1-135.76.232.25411"
   List ADD,1,"135.76.232.1-135.76.232.25422"
   List ADD,1,"135.76.232.1-135.76.232.25433"
   List ADD,1,"135.76.232.1-135.76.232.25444"
   List ADD,1,"135.76.232.1-135.76.232.25455"
   List ADD,1,"135.76.232.1-135.76.232.25466"
   List ADD,1,"135.76.232.1-135.76.232.25477"
   List ADD,1,"135.76.232.1-135.76.232.25488"
   List ADD,1,"135.76.232.1-135.76.232.25499"
   List ADD,1,"135.76.232.1-135.76.232.25400"
   List ADD,1,"135.76.232.1-135.76.232.254111"
   List ADD,1,"135.76.232.1-135.76.232.254222"
   List SAVEFILE,1,@path(%0)subnets.dat
   List Close,1
   Goto Begin
rem X button
:button1BUTTON
WINDOW  HIDE,About
GOTO evloop
:CLOSE
  if @ask(Are you sure you want to close?)
     exit
  end
  goto evloop


Thanks
Mark
Back to top
View user's profile Send private message
BD
Newbie


Joined: 07 Jun 2001
Posts: 10
Location: Canada

PostPosted: Mon Dec 01, 2003 4:12 am    Post subject: Reply with quote

Hi Mark

Just taking a look at the code. I will get back to you.
Back to top
View user's profile Send private message
BD
Newbie


Joined: 07 Jun 2001
Posts: 10
Location: Canada

PostPosted: Mon Dec 01, 2003 5:17 am    Post subject: Reply with quote

Ok, so I have made a few changes and added a couple of variables for you.
I made the timer so that it would only run when the time hits but you have to hit run. Had to put AM PM or it wouldn't work on my system, yours might be diff. Changed a bit of code but mainly added the timer section which is really the time IF that you originally had in the runbutton section. And added the counters in the run button section.

Have a go, I'm not sure about the rest of the stuff your running but the timer and the loop work. Wink
Good luck.

Here's the code
Code:


Title HfNetCHK Full Subnet Scan
   List CREATE,1
   List LOADFILE,1,@path(%0)subnets.dat
   %A = @item(1)
   If @null(%A)
      List Close,1
      goto FIRSTRUN
   End
   List Close,1
%f = @DATETIME(yy-mm-dd)
%y = %F %Z
%%button = 0

:begin
rem Dialog
  DIALOG CREATE,HfNetCHK Full Subnet Scan,-1,0,553,227
  DIALOG ADD,STYLE,STYLE2,Tahoma,16,I,BACKGROUND,RED
  DIALOG ADD,STYLE,STYLE1,Courier New,8,L,BLACK,DKGREEN
  DIALOG ADD,GROUP,GROUP1,4,296,254,220,Subnets that will be scanned
  DIALOG ADD,LIST,LIST1,18,304,238,198,STYLE1
  DIALOG ADD,BUTTON,RUNSCAN,198,10,64,24,Run
  DIALOG ADD,BUTTON,ADD,198,92,110,24,Add Subnet to Scan
  DIALOG ADD,BUTTON,ABOUT,198,220,64,24,About
  DIALOG ADD,TEXT,TEXT1,4,16,,,HfNetCHK Full Subnet Scan,STYLE2
  DIALOG ADD,EDIT,TIMETORUN,46,150,132,19,11:00 AM
  DIALOG ADD,TEXT,TEXT2,48,10,,,Time to run daily scan:
  DIALOG ADD,GROUP,GROUP2,70,10,274,118,Advanced Options
  DIALOG ADD,TEXT,TEXT3,88,20,,,Command Line Option:
  DIALOG ADD,EDIT,CMDLINE,106,20,258,18,c:\tools\hfnetchk\hfnetchk -o tab -vv
  DIALOG ADD,TEXT,TEXT4,136,20,,,"Leave off the subnet and filename switch's"
  DIALOG SHOW
     List CREATE,LIST1
   List LOADFILE,LIST1,@path(%0)subnets.dat
 rem populate subnets to scan
rem evloop
:evloop
  wait event
   repeat
      wait .5
      Gosub timer
   until @equal(%%button,1)
  %%button = 0
  goto @event()
rem Abbout button
:AboutBUTTON
  DIALOG CREATE,About,-1,0,395,255,ONTOP
  DIALOG ADD,STYLE,STYLE1,Courier New,18,B,BACKGROUND,RED
  DIALOG ADD,BITMAP,BITMAP1,116,12,376,132,C:\Documents and Settings\mgosling\Desktop\Visual Dialog Script\HFNETSCAN\logo.bmp
  DIALOG ADD,BUTTON,BUTTON1,84,312,64,24,OK
  DIALOG ADD,TEXT,TEXT1,8,2,,,HfNetCHK Full EMEA Scan V2.0,STYLE1
  DIALOG ADD,TEXT,TEXT2,44,80,,,By Mark Gosling,STYLE1
  DIALOG ADD,TEXT,TEXT3,88,30,,,"For Help and Support contact email address here"
  DIALOG SHOW
  goto evloop
rem Add subnet button
:addBUTTON
  %a = @INPUT(Use format x.x.x.1-x.x.x.254)
   If @null(%A)
      Info There was nothing to add!
      goto evloop
   End
   List Insert,LIST1,%A
      List SAVEFILE,LIST1,@path(%0)subnets.dat
   List Close,LIST1
   goto evloop
rem start button
:runscanBUTTON
        LIST LOADFILE,1,subnets.dat
      List seek,1,0
      %A = @item(1)
      %%counter = 0
      %%records = @count(1)
      %%lastrecord = @fsub(%%records,1)
      Repeat
      %z = @NEXT(1)
      %%CMDLINE = @DLGTEXT(CMDLINE)
      %%fixed =  -r %z -f %y-%z.txt
      info %%CMDLINE %%FIXED
      %%counter = @fadd(%%counter,1)
      UNTIL @equal(%%lastrecord,%%counter)   
      goto evloop
:Timer
%%time = @DLGTEXT(TIMETORUN)
%c = @DATETIME(t)
    if @EQUAL(%%time,%c)
      %%button = 1
      exit
    end
   exit
:FIRSTRUN
   REM >>Used only to create a list saved to a file for this example.<<
   List CREATE,1
   List LOADFILE,1,@path(%0)subnets.dat
   List ADD,1,"135.76.230.1-135.76.230.254"
   List ADD,1,"135.76.231.1-135.76.231.254"
   List ADD,1,"135.76.232.1-135.76.232.254"
   List ADD,1,"135.76.232.1-135.76.232.2541"
   List ADD,1,"135.76.232.1-135.76.232.2542"
   List ADD,1,"135.76.232.1-135.76.232.2543"
   List ADD,1,"135.76.232.1-135.76.232.2544"
   List ADD,1,"135.76.232.1-135.76.232.2545"
   List ADD,1,"135.76.232.1-135.76.232.2546"
   List ADD,1,"135.76.232.1-135.76.232.2547"
   List ADD,1,"135.76.232.1-135.76.232.2548"
   List ADD,1,"135.76.232.1-135.76.232.2549"
   List ADD,1,"135.76.232.1-135.76.232.2540"
   List ADD,1,"135.76.232.1-135.76.232.25411"
   List ADD,1,"135.76.232.1-135.76.232.25422"
   List ADD,1,"135.76.232.1-135.76.232.25433"
   List ADD,1,"135.76.232.1-135.76.232.25444"
   List ADD,1,"135.76.232.1-135.76.232.25455"
   List ADD,1,"135.76.232.1-135.76.232.25466"
   List ADD,1,"135.76.232.1-135.76.232.25477"
   List ADD,1,"135.76.232.1-135.76.232.25488"
   List ADD,1,"135.76.232.1-135.76.232.25499"
   List ADD,1,"135.76.232.1-135.76.232.25400"
   List ADD,1,"135.76.232.1-135.76.232.254111"
   List ADD,1,"135.76.232.1-135.76.232.254222"
   List SAVEFILE,1,@path(%0)subnets.dat
   List Close,1
   Goto Begin
rem X button
:button1BUTTON
WINDOW  HIDE,About
GOTO evloop
:CLOSE
  if @ask(Are you sure you want to close?)
     exit
  end
  goto evloop
Back to top
View user's profile Send private message
Mark
Newbie


Joined: 27 Nov 2003
Posts: 8

PostPosted: Tue Dec 02, 2003 2:47 pm    Post subject: Reply with quote

Thanks for that the only problem no is that the other buttons don't work Confused I can't add more subnets or look at the about box or even close the program!

Thanks
Mark
(So close but so f.....)
Back to top
View user's profile Send private message
BD
Newbie


Joined: 07 Jun 2001
Posts: 10
Location: Canada

PostPosted: Wed Dec 03, 2003 1:46 am    Post subject: Reply with quote

Hey Mark

Like I said the timer works the rest of the code I didn't have time to test. This ought to work...
By the way shouldn't you also have a button to remove subnets?

I have done a little more testing and I think that the list is reading through ok, the last record does not appear erroneous so I have rem the line to remove the last record. I also changed the fadd and fsub to succ and pred, nicer way of doing this. Also changed the wait to 5 sec from .5 not much sense looping code that many times just uses up cycles.

Code:

Title HfNetCHK Full Subnet Scan
   List CREATE,1
   List LOADFILE,1,@path(%0)subnets.dat
   %A = @item(1)
   If @null(%A)
      List Close,1
      goto FIRSTRUN
   End
   List Close,1
%f = @DATETIME(yy-mm-dd)
%y = %F %Z
%%button = 0

:begin
rem Dialog
  DIALOG CREATE,HfNetCHK Full Subnet Scan,-1,0,553,227
  DIALOG ADD,STYLE,STYLE2,Tahoma,16,I,BACKGROUND,RED
  DIALOG ADD,STYLE,STYLE1,Courier New,8,L,BLACK,DKGREEN
  DIALOG ADD,GROUP,GROUP1,4,296,254,220,Subnets that will be scanned
  DIALOG ADD,LIST,LIST1,18,304,238,198,STYLE1
  DIALOG ADD,BUTTON,RUNSCAN,198,10,64,24,Run
  DIALOG ADD,BUTTON,ADD,198,92,110,24,Add Subnet to Scan
  DIALOG ADD,BUTTON,ABOUT,198,220,64,24,About
  DIALOG ADD,TEXT,TEXT1,4,16,,,HfNetCHK Full Subnet Scan,STYLE2
  DIALOG ADD,EDIT,TIMETORUN,46,150,132,19,11:00 AM
  DIALOG ADD,TEXT,TEXT2,48,10,,,Time to run daily scan:
  DIALOG ADD,GROUP,GROUP2,70,10,274,118,Advanced Options
  DIALOG ADD,TEXT,TEXT3,88,20,,,Command Line Option:
  DIALOG ADD,EDIT,CMDLINE,106,20,258,18,c:\tools\hfnetchk\hfnetchk -o tab -vv
  DIALOG ADD,TEXT,TEXT4,136,20,,,"Leave off the subnet and filename switch's"
  DIALOG SHOW
     List CREATE,LIST1
   List LOADFILE,LIST1,@path(%0)subnets.dat
 rem populate subnets to scan
rem evloop
:evloop
  wait event
  %e = @event()
  if @equal(%e,runscanBUTTON)
     repeat
      wait 5
      Gosub timer
   until @equal(%%button,1)
  %%button = 0
  end
  goto %e
rem Abbout button
:AboutBUTTON
  DIALOG CREATE,About,-1,0,395,255,ONTOP
  DIALOG ADD,STYLE,STYLE1,Courier New,18,B,BACKGROUND,RED
  DIALOG ADD,BITMAP,BITMAP1,116,12,376,132,C:\Documents and Settings\mgosling\Desktop\Visual Dialog Script\HFNETSCAN\logo.bmp
  DIALOG ADD,BUTTON,BUTTON1,84,312,64,24,OK
  DIALOG ADD,TEXT,TEXT1,8,2,,,HfNetCHK Full EMEA Scan V2.0,STYLE1
  DIALOG ADD,TEXT,TEXT2,44,80,,,By Mark Gosling,STYLE1
  DIALOG ADD,TEXT,TEXT3,88,30,,,"For Help and Support contact email address here"
  DIALOG SHOW
  goto evloop
rem Add subnet button
:addBUTTON
  %a = @INPUT(Use format x.x.x.1-x.x.x.254)
   If @null(%A)
      Info There was nothing to add!
      goto evloop
   End
   List Insert,LIST1,%A
      List SAVEFILE,LIST1,@path(%0)subnets.dat
   List Close,LIST1
   goto evloop
rem start button
:runscanBUTTON
        LIST LOADFILE,1,subnets.dat
      List seek,1,0
      %A = @item(1)
      %%counter = 0
      %%records = @count(1)
                               rem dont think we need this
      rem %%lastrecord = @pred(%%records)
      Repeat
      %z = @NEXT(1)
      %%CMDLINE = @DLGTEXT(CMDLINE)
      %%fixed =  -r %z -f %y-%z.txt
      info %%CMDLINE %%FIXED
      %%counter = @succ(%%counter)
      UNTIL @equal(%%counter,%%records)   
      goto evloop
:Timer
%%time = @DLGTEXT(TIMETORUN)
%c = @DATETIME(t)
    if @EQUAL(%%time,%c)
      %%button = 1
      exit
    end
  exit
:FIRSTRUN
   REM >>Used only to create a list saved to a file for this example.<<
   List CREATE,1
   List LOADFILE,1,@path(%0)subnets.dat
   List ADD,1,"135.76.230.1-135.76.230.254"
   List ADD,1,"135.76.231.1-135.76.231.254"
   REM List ADD,1,"135.76.232.1-135.76.232.254"
   REM List ADD,1,"135.76.232.1-135.76.232.2541"
   REM List ADD,1,"135.76.232.1-135.76.232.2542"
   REM List ADD,1,"135.76.232.1-135.76.232.2543"
   REM List ADD,1,"135.76.232.1-135.76.232.2544"
   REM List ADD,1,"135.76.232.1-135.76.232.2545"
   REM List ADD,1,"135.76.232.1-135.76.232.2546"
   REM List ADD,1,"135.76.232.1-135.76.232.2547"
   REM List ADD,1,"135.76.232.1-135.76.232.2548"
   REM List ADD,1,"135.76.232.1-135.76.232.2549"
   REM List ADD,1,"135.76.232.1-135.76.232.2540"
   REM List ADD,1,"135.76.232.1-135.76.232.25411"
   REM List ADD,1,"135.76.232.1-135.76.232.25422"
   REM List ADD,1,"135.76.232.1-135.76.232.25433"
   REM List ADD,1,"135.76.232.1-135.76.232.25444"
   REM List ADD,1,"135.76.232.1-135.76.232.25455"
   REM List ADD,1,"135.76.232.1-135.76.232.25466"
   REM List ADD,1,"135.76.232.1-135.76.232.25477"
   REM List ADD,1,"135.76.232.1-135.76.232.25488"
   REM List ADD,1,"135.76.232.1-135.76.232.25499"
   REM List ADD,1,"135.76.232.1-135.76.232.25400"
   REM List ADD,1,"135.76.232.1-135.76.232.254111"
   REM List ADD,1,"135.76.232.1-135.76.232.254222"
   List SAVEFILE,1,@path(%0)subnets.dat
   List Close,1
   Goto Begin
rem X button
:button1BUTTON
WINDOW  HIDE,About
GOTO evloop
:CLOSE
  if @ask(Are you sure you want to close?)
     exit
  end
  goto evloop
Back to top
View user's profile Send private message
Mark
Newbie


Joined: 27 Nov 2003
Posts: 8

PostPosted: Wed Dec 03, 2003 10:40 am    Post subject: Reply with quote

Hi BD,

I can't thank you enough for getting this working Laughing

I would have had a remove button aswell but I didn't know how to do it Embarassed

Thanks again
Mark
Back to top
View user's profile Send private message
Mark
Newbie


Joined: 27 Nov 2003
Posts: 8

PostPosted: Wed Dec 03, 2003 12:11 pm    Post subject: Reply with quote

Hi,

Just testing the code and I've noticed that it only goes through the list of subnets that are listed in the code and not the ones that are in the 'subnets.dat' file. Therefore subnets that have been added are not used.

Thank's for all your help
Mark
Back to top
View user's profile Send private message
vdsalchemist
Admin Team


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

PostPosted: Wed Dec 03, 2003 3:12 pm    Post subject: Reply with quote

Serge wrote:
fair enough, bd...didn't know if you knew...i agree that it would be nice if we could do that Very Happy

serge


Hi Serge,
I have a DLL that will allow you to define a character or phrase that you would like to use as a comment. You can download it http://dragonsphere.vdsworld.com/vdscomment.zip
The DLL should work for all versions of VDS.

_________________
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
Vic D'Elfant
Past Contributor
Past Contributor


Joined: 26 Jun 2002
Posts: 673
Location: The Netherlands

PostPosted: Wed Dec 03, 2003 7:04 pm    Post subject: Reply with quote

I would like to be able to use php-style comments... like '//' and '/* this is some text */' Confused

Vic

_________________
phpBB Development Team
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 -> General Help All times are GMT
Goto page 1, 2, 3  Next
Page 1 of 3

 
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