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 


大家好

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Multilingual Help
View previous topic :: View next topic  
Author Message
superbipi
Newbie


Joined: 27 May 2004
Posts: 5

PostPosted: Fri Mar 31, 2006 10:52 pm    Post subject: 大家好 Reply with quote

可以中文嗎??
這是測試
Back to top
View user's profile Send private message
WidgetCoder
Contributor
Contributor


Joined: 28 May 2002
Posts: 126
Location: CO, USA

PostPosted: Sun Apr 02, 2006 6:32 pm    Post subject: Reply with quote

可以肯定的蚱蜢
Back to top
View user's profile Send private message Send e-mail
superbipi
Newbie


Joined: 27 May 2004
Posts: 5

PostPosted: Mon Apr 03, 2006 9:12 pm    Post subject: Reply with quote

在此能受到中文字的回應,好感動。
不過小弟不懂"蚱蜢"何義
是昆蟲,只是連接不上。
這不重要:
VDS會出中文版嗎?我很需要 。
我不會英文,學習起VDS倍感吃力。
VB又難學。

期望VDS能出中文版。
Back to top
View user's profile Send private message
superbipi
Newbie


Joined: 27 May 2004
Posts: 5

PostPosted: Mon Apr 03, 2006 9:31 pm    Post subject: Reply with quote

分享一下作品,更期望高人指點

檔名 vdsping.dsc
Code:

   ##define function,tempp
   #include icmp.dsc,getip.dsc
   dialog CREATE,Ping API By 愛偷窺,-1,0,350,192,
   rem *** Modified by Dialog Designer on 2006/4/4 - 02:48 ***
   dialog ADD,table,table1,0,0,350,150,"Reply from[110]"|"bytes"[60]|"time"[60]|"status",,COLUMNSORT,
   dialog ADD,combo,cb1,150,0,110,20,
   list add,cb1,@getip()
   list add,cb1,168.95.1.1
   list add,cb1,139.175.10.20
   list add,cb1,192.168.0.1
   list add,cb1,192.168.1.1
   dialog set,cb1,@item(cb1,0)
   dialog ADD,CHECK,CHECK1,150,115,45,18,數量,1,,click
   dialog ADD,SPIN,SPIN1,150,160,48,24,1|254,8
   dialog ADD,SPIN,SPIN2,150,210,58,24,1|1000000,50
   dialog disable,SPIN2
   dialog ADD,BUTTON,BUTTON1,150,270,80,20,PING,,default
   dialog ADD,BUTTON,BUTTON2,150,270,80,20,STOP,,default
   dialog hide,BUTTON2
   dialog add,status,status1,[120]|[100]

   dialog SHOW

:EVLOOP
   wait EVENT
   goto @EVENT()

:CLOSE
   exit

:BUTTON2BUTTON
dialog hide,BUTTON2
dialog show,BUTTON1
goto evloop
:BUTTON1BUTTON
   dialog hide,BUTTON1
   dialog show,BUTTON2
   list clear,table1
   dialog set,status1,請稍後...
   %%succ1 =0
   %%succ2 =0
   %%succ3 =0
   if @dlgtext(CHECK1)
      option fieldsep,"."
      parse "%1;%2;%3;%4",@dlgtext(cb1)
      option fieldsep
      %%succ1 =%4
      repeat
         %%ip =%1.%2.%3.%%succ1
         %%yes =@ping(%%ip)
         if %%yes
            list add,table1,%%ip@tab()%%yes
            %%succ2 =@succ(%%succ2)
         else
            list add,table1,%%ip@tab()time out
            %%succ3 =@succ(%%succ3)
         end
         %%succ1 =@succ(%%succ1)
      until @greater(%%succ1,@sum(@dlgtext(SPIN1),@pred(%4)))@event()
   else
      %%ip =@dlgtext(cb1)
      repeat
         %%yes =@ping(%%ip)
         if %%yes
            list add,table1,%%ip@tab()%%yes
            %%succ2 =@succ(%%succ2)
         else
            list add,table1,%%ip@tab()time out
            %%succ3 =@succ(%%succ3)
         end
         %%succ1 =@succ(%%succ1)
      until @greater(%%succ1,@pred(@dlgtext(SPIN2)))@event()
   end
   dialog set,status1,Packets: Sent = @count(table1)@tab()Packets = %%succ2@tab()Lost = %%succ3
   dialog hide,BUTTON2
   dialog show,BUTTON1
   goto EVLOOP

:CHECK1click
   if @dlgtext(CHECK1)
      dialog enable,SPIN1
      dialog disable,SPIN2
   else
      dialog disable,SPIN1
      dialog enable,SPIN2
   end
   goto evloop

檔名 getip.dsc
Code:

   rem #include getip.dsc
   #define function,HKL,getip
    rem info IP:@cr()@getip()@cr()@cr()IPs:@cr()@getip(IPs)
    rem info @getip(ips)
    rem exit

:getip
   option ERRORTRAP,END1
   loadlib IPHlpApi.dll
   %r = @BINARY(DWORD,0)
   %u = @LIB(iphlpapi,GetIpAddrTable,INT:,0,@ADDR("%R"),True)
   %%ret =@val(%R)
   if @greater(%%ret,0)
      %b =
      while @greater(%%ret,@len(%b))
         %b =%b@BINARY(byte,0)
      wend
      %u = @LIB(iphlpapi,GetIpAddrTable,INT:,@ADDR("%b"),@ADDR("%R"),False)
      rem info "最大ip數" = @HKL(%b,1,4)
      %%ret =@HKL(%b,1,4)
      if @equal(%1,ips)
         %d =
         %%cnt =0
         while @greater(%%ret,%%cnt)
            %%index =@sum(@prod(24,%%Cnt),5)
            %i =@sum(%%index,0)
            %%ip =@HKL(%b,%i).@HKL(%b,@sum(%i,1)).@HKL(%b,@sum(%i,2)).@HKL(%b,@sum(%i,3))
            if @unequal(@substr(%%ip,1,3),127)
               %d =%d%%ip
               %i =@sum(%%index,Cool
               %d =%d@tab()@HKL(%b,%i).@HKL(%b,@sum(%i,1)).@HKL(%b,@sum(%i,2)).@HKL(%b,@sum(%i,3))@cr()
            end
            %%cnt =@succ(%%cnt)
         wend
      else
         %d =
         %%cnt =0
         list create,1
         while @greater(%%ret,%%cnt)
            %%index =@sum(@prod(24,%%Cnt),5)
            %i =@sum(%%index,0)
            list add,1,@HKL(%b,%i).@HKL(%b,@sum(%i,1)).@HKL(%b,@sum(%i,2)).@HKL(%b,@sum(%i,3))
            %%cnt =@succ(%%cnt)
         wend
         %%cnt =0
         %d =@item(1,0)
         while @greater(%%ret,%%cnt)
            if @not(@greater(@pos(|@substr(@item(1,%%cnt),1,3),|169|127|192),0))
               %d =@item(1,%%cnt)
            end
            %%cnt =@succ(%%cnt)
         wend
         list close,1
      end
   end
   freelib IPHlpApi.dll
   exit %d
:END1
   exit
:HKL
   if @numeric(%2%3)
      %1 =@val(@substr(%1,%2,%3))
      if @greater(%1,2147483647)
         %1 = @fsub(%1,4294967296)
      end
   end
   exit %1

檔名: icmp.dsc
Code:

   #define function,AddressStringToLong,SocketsInitialize,SocketsCleanup,ping

:ping
   %%sdatatosend ="Echo This"
   %%ping_timeout =200
   %%dwaddress =@AddressStringToLong(%1)
   loadlib icmp.dll
   loadlib WSOCK32.DLL
   %%call =@SocketsInitialize()
   %%hport =@LIB(icmp,IcmpCreateFile,INT:)

   %r =@fill(2Cool@fill(250)
   if @LIB(icmp,IcmpSendEcho,bool:,%%hPort,%%dwAddress,%%sDataToSend,@len(%%sDataToSend),0,@ADDR("%R"),@len(%R),%%PING_TIMEOUT)
      #%%address         =@val(@substr(%R,1,4))
      %%status          =@val(@substr(%R,5,Cool)
      %%roundtriptime   =@val(@substr(%R,9,12))
      %%datasize        =@val(@substr(%R,13,14))
      #%%reserved        =@val(@substr(%R,15,16))
      #%%datapointer     =@val(@substr(%R,17,20))
      %%ttl             =@val(@substr(%R,21))
      #%%tos             =@val(@substr(%R,22))
      #%%flags           =@val(@substr(%R,23))
      #%%optionssize     =@val(@substr(%R,24))
      #%%optionsdata     =@val(@substr(%R,25,2Cool)
      #%%data            =@substr(%R,29,@sum(28,250))
      %%ping =%%DataSize@tab()%%RoundTripTime@tab()%%status@tab()%%Ttl
   else
      rem %%ping =@HKL(%R,13,14)@tab()@HKL(%R,9,12)@tab()@prod(@HKL(%R,5,Cool,-1)@tab()@HKL(%R,21)
      %%ping =
   end
   %%call =@LIB(icmp,IcmpCloseHandle,INT:,%%hPort)
   %%call =@SocketsCleanup()
   freelib icmp.dll
   freelib WSOCK32.DLL
   exit %%ping
:SocketsCleanup
   %x =@LIB(WSOCK32,WSACleanup,INT:)
   if @unequal(%x,0)
      info "Windows Sockets error " %x " occurred in Cleanup."
      exit
   end
   exit 1
:SocketsInitialize
   %%ws_version_reqd =$101
   %w =@fill(398)
   %x =@LIB(WSOCK32,WSAStartup,INT:,%%WS_VERSION_REQD,@addr("%W"))
   if @unequal(%x,0)
      info "Windows Sockets for 32 bit Windows environments is not successfully responding."
      exit
   end
   exit 1
:AddressStringToLong
   %%fsep =@fsep()
   option fieldsep,"."
   parse "%1;%2;%3;%4",%1
   option fieldsep,%%fsep
   if @both(@both(%1,%2),@both(%3,%4))
      exit @sum($@hex(%4,2)@hex(%3,2)@hex(%2,2)@hex(%1,2))
   end
   exit 0


其中使用過前輩技術
若有侵權請多包含
Back to top
View user's profile Send private message
superbipi
Newbie


Joined: 27 May 2004
Posts: 5

PostPosted: Mon Apr 03, 2006 9:42 pm    Post subject: Reply with quote

抱歉
忘記補充成品

http://210.61.32.92/open/ping.exe
Back to top
View user's profile Send private message
WidgetCoder
Contributor
Contributor


Joined: 28 May 2002
Posts: 126
Location: CO, USA

PostPosted: Mon Apr 03, 2006 9:58 pm    Post subject: Reply with quote

superbipi wrote:
在此能受到中文字的回應,好感動。
不過小弟不懂"蚱蜢"何義
是昆蟲,只是連接不上。
這不重要:
VDS會出中文版嗎?我很需要 。
我不會英文,學習起VDS倍感吃力。
VB又難學。

期望VDS能出中文版。


我不认为中文版会获得释放
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> Multilingual Help 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