来源: 互联网  发布时间: 2014-02-18

输入起始Ip和结束Ip得到中间的Ip
因为我不懂网络和IP的知识，现在有这样的一个问题
对话框输入
起始IP地址：
结束IP地址：

怎么得到这个范围内所有可用的IP，就是范围内合法的IP地址？
我听到过什么把所有点都去掉按照整数比较是否在两个数之间，具体不是很明白，希望高手能够帮我仔细的说明一下，
就是一步一步，如何查找，谢谢！
我要把所有可能的IP得到后，存起来，写到txt中，谢谢


楼主就是想写个算法了，IP地址不是很简单

IPV4，4个整数组成字符串，中间通过"."来split()，每一个整数范围是1-255，去掉首尾两个广播地址，4个for循环不就出来了

如果要快速算法，直接移位，直接xor等等

test.bat

BatchFile code

@echo off
set headIP=192.168.0
set startIP=1
set endIP=255
(for /l %%a in (%startIP%,1,%endIP%) do (
    echo %headIP%.%%a
))>result.txt 

    

    来源: 互联网  发布时间: 2014-02-18

如何用vb6获取操作系统的版本号(需要补充)
下面有一段网友给的获取操作系统的版本（区别windows系统版本）：

VB code

Public Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Public Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128
End Type

Public Function GetVersion() As String
   Dim osinfo As OSVERSIONINFO
   Dim retvalue As Integer

   osinfo.dwOSVersionInfoSize = 148
   osinfo.szCSDVersion = Space$(128)
   retvalue = GetVersionExA(osinfo)

   With osinfo
    Select Case .dwPlatformId
        Case 1
                Select Case .dwMinorVersion
                    Case 0
                        GetVersion = "Windows 95"
                    Case 10
                        GetVersion = "Windows 98"
                    Case 90
                        GetVersion = "Windows Mellinnium"
                End Select
        Case 2
                Select Case .dwMajorVersion
                    Case 3
                        GetVersion = "Windows NT 3.51"
                    Case 4
                        GetVersion = "Windows NT 4.0"
                    Case 5
                        If .dwMinorVersion = 0 Then
                            GetVersion = "Windows 2000"
                        Else
                            GetVersion = "Windows XP"
                        End If
                End Select
         Case Else
               GetVersion = "Failed"
    End Select
   End With
End Function

该代码有点缺陷：就是不能区别win2003、vista和win7

有哪位大侠有上述系统，帮俺给补充完整了，谢谢。。。。。。。



最重要不就一句了，retvalue = GetVersionExA(osinfo)

这个与GetVersionExA()函数有关了，查ms的帮助

反正ver命令就可以查版本了，找下对应api了

BatchFile code

ver | find "5.0" >nul && (echo win2000)
ver | find "5.1" >nul && (echo winxp)
ver | find "5.2" >nul && (echo win2003)
ver | find "6.0" >nul && (echo vista)
ver | find "6.1" >nul && (echo win7) 

    

    来源: 互联网  发布时间: 2014-02-18

ping不通域名和IP 上网很慢 这是为什么？
我系统是2003的 发现我电脑ping任何的域名都没反应 ping外网的ip也是timeout 然后我这台是网络服务器，别人通过我这个电脑出去的 别人都可以上，网速也正常，有几台是通过我的代理上外网，也可以正常上网，我上网就非常慢，这是为什么？杀毒过也正常，没病毒的，我有两块网卡 本地网卡已经换过 外网网卡集成在主板上的 哪位大哥能帮忙看看不？


先把代理关了如何

两块网关，只启用外网的如何

问题一个个排除，双网卡去掉双网关

外网网卡查看路由和dns配置是正常，一切都OK后再启用代理测试