| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 705 人关注过本帖
标题:部件使用问题
只看楼主 加入收藏
snrtjat
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:山那边 海尽头
等 级:贵宾
威 望:22
帖 子:1115
专家分:7025
注 册:2013-1-21
结帖率:89.19%
收藏
已结贴  问题点数:30 回复次数:9 
部件使用问题
小弟碰到这么一个问题,现很迷茫求助:
图片附件: 游客没有浏览图片的权限,请 登录注册

1、command2 caption="unlock"时,Text2为不可编辑状态(锁定);
2、点击Command2(unlock)时caption="lock",text2 Backcolor="&H80000005&",Text2可编辑(可输入URL 路径)
3、点击command2(lock)时,判定text2中的URL是否能连上,能连上时caption="connect",connand2颜色为:&H00FFFF00&   
                                                不能连通时caption="Down",connand2颜色为:&H0000FFFF&
4、Text5显示Text2中的URL所指的盘符可用空间大小。

请版主们慷慨解囊,为小弟排忧,谢谢!
搜索更多相关主题的帖子: lock Text2 
2013-05-09 14:32
snrtjat
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:山那边 海尽头
等 级:贵宾
威 望:22
帖 子:1115
专家分:7025
注 册:2013-1-21
收藏
得分:0 
搞了半天,终于有一些头绪了
Private Sub Command2_Click()
If Command2.Caption = "Unlock" Then
    Text2.Enabled = True
    Command2.BackColor = &HFFFF&
    Text2.BackColor = &H8000000E
    Command2.Caption = "Lock"
   Else
    Command2.BackColor = &H8000000F
    Text2.Enabled = False
    Text2.BackColor = &H8000000F
    Command2.Caption = "Unlock"
End If
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim fso, a1path, a1, a2path, a2
If Text2.Text = "" Then
    Close      
    Else
    a1path = Text2.Text
    Set fso = CreateObject("scripting.filesystemobject")
    Set a1 = fso.getfolder(a1path)
    Text3.Text = a1.Files.Count
    a2path = Text2.Text & "\temp\"
    Set fso = CreateObject("scripting.filesystemobject")
    Set a2 = fso.getfolder(a2path)
    Text4.Text = a2.Files.Count
    Dim fso1 As New FileSystemObject, drv As Drive, R As Integer
    Set drv = fso1.GetDrive(fso1.GetDriveName(Text2.Text))
    R = drv.FreeSpace / 1024 / 1024 / 1024
    Text5.Text = "   " & R & "GB"
End If
现在还有一个地方没有搞出来,请班主们帮忙解决:
判定text2中的URL是否能连上,能连上时caption="connect",connand2颜色为:&H00FFFF00&   
                          不能连通时caption="Down",connand2颜色为:&H0000FFFF&


不怕错误,只怕知错不改.
2013-05-11 08:54
snrtjat
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:山那边 海尽头
等 级:贵宾
威 望:22
帖 子:1115
专家分:7025
注 册:2013-1-21
收藏
得分:0 
没人帮忙,自己解决(网上找的,但能行得通)哈哈~!
模块:
Option Explicit

Private Const IP_SUCCESS As Long = 0
Private Const IP_STATUS_BASE As Long = 11000
Private Const IP_BUF_TOO_SMALL As Long = (11000 + 1)
Private Const IP_DEST_NET_UNREACHABLE As Long = (11000 + 2)
Private Const IP_DEST_HOST_UNREACHABLE As Long = (11000 + 3)
Private Const IP_DEST_PROT_UNREACHABLE As Long = (11000 + 4)
Private Const IP_DEST_PORT_UNREACHABLE As Long = (11000 + 5)
Private Const IP_NO_RESOURCES As Long = (11000 + 6)
Private Const IP_BAD_OPTION As Long = (11000 + 7)
Private Const IP_HW_ERROR As Long = (11000 + 8)
Private Const IP_PACKET_TOO_BIG As Long = (11000 + 9)
Private Const IP_REQ_TIMED_OUT As Long = (11000 + 10)
Private Const IP_BAD_REQ As Long = (11000 + 11)
Private Const IP_BAD_ROUTE As Long = (11000 + 12)
Private Const IP_TTL_EXPIRED_TRANSIT As Long = (11000 + 13)
Private Const IP_TTL_EXPIRED_REASSEM As Long = (11000 + 14)
Private Const IP_PARAM_PROBLEM As Long = (11000 + 15)
Private Const IP_SOURCE_QUENCH As Long = (11000 + 16)
Private Const IP_OPTION_TOO_BIG As Long = (11000 + 17)
Private Const IP_BAD_DESTINATION As Long = (11000 + 18)
Private Const IP_ADDR_DELETED As Long = (11000 + 19)
Private Const IP_SPEC_MTU_CHANGE As Long = (11000 + 20)
Private Const IP_MTU_CHANGE As Long = (11000 + 21)
Private Const IP_UNLOAD As Long = (11000 + 22)
Private Const IP_ADDR_ADDED As Long = (11000 + 23)
Private Const IP_GENERAL_FAILURE As Long = (11000 + 50)
Private Const MAX_IP_STATUS As Long = (11000 + 50)
Private Const IP_PENDING As Long = (11000 + 255)
Private Const PING_TIMEOUT As Long = 500
Private Const WS_VERSION_REQD As Long = &H101
Private Const MIN_SOCKETS_REQD As Long = 1
Private Const SOCKET_ERROR As Long = -1
Private Const INADDR_NONE As Long = &HFFFFFFFF
Private Const MAX_WSADescription As Long = 256
Private Const MAX_WSASYSStatus As Long = 128

Public PingTime As Long
Private Type ICMP_OPTIONS
    Ttl             As Byte
    Tos             As Byte
    Flags           As Byte
    OptionsSize     As Byte
    OptionsData     As Long
End Type

Private Type ICMP_ECHO_REPLY
    Address         As Long
    status          As Long
    RoundTripTime   As Long
    DataSize        As Long
    DataPointer     As Long
    Options         As ICMP_OPTIONS
    Data            As String * 250
End Type

Private Type WSADATA
    wVersion As Integer
    wHighVersion As Integer
    szDescription(0 To MAX_WSADescription) As Byte
    szSystemStatus(0 To MAX_WSASYSStatus) As Byte
    wMaxSockets As Long
    wMaxUDPDG As Long
    dwVendorInfo As Long
End Type
Public Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Declare Function WSAStartup Lib "wsock32" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As Long
Private Declare Function WSACleanup Lib "wsock32" () As Long
Private Declare Function IcmpCreateFile Lib "icmp.dll" () As Long
Private Declare Function inet_addr Lib "wsock32" (ByVal s As String) As Long
Private Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal IcmpHandle As Long) As Long
Private Declare Function IcmpSendEcho Lib "icmp.dll" (ByVal IcmpHandle As Long, ByVal DestinationAddress As Long, ByVal RequestData As String, ByVal RequestSize As Long, ByVal RequestOptions As Long, ReplyBuffer As ICMP_ECHO_REPLY, ByVal ReplySize As Long, ByVal Timeout As Long) As Long
Private Function GetStatusCode(status As Long) As String
  On Error GoTo ErrLine
  Dim Msg As String
  GetStatusCode = ""
  Select Case status
        Case IP_SUCCESS:               Msg = "ip success"
        Case INADDR_NONE:              Msg = "inet_addr: bad IP format"
        Case IP_BUF_TOO_SMALL:         Msg = "ip buf too_small"
        Case IP_DEST_NET_UNREACHABLE:  Msg = "ip dest net unreachable"
        Case IP_DEST_HOST_UNREACHABLE: Msg = "ip dest host unreachable"
        Case IP_DEST_PROT_UNREACHABLE: Msg = "ip dest port unreachable"
        Case IP_DEST_PORT_UNREACHABLE: Msg = "ip dest port unreachable"
        Case IP_NO_RESOURCES:          Msg = "ip no resources"
        Case IP_BAD_OPTION:            Msg = "ip bad option"
        Case IP_HW_ERROR:              Msg = "ip hw_error"
        Case IP_PACKET_TOO_BIG:        Msg = "ip packet too_big"
        Case IP_REQ_TIMED_OUT:         Msg = "ip req timed out"
        Case IP_BAD_REQ:               Msg = "ip bad req"
        Case IP_BAD_ROUTE:             Msg = "ip bad route"
        Case IP_TTL_EXPIRED_TRANSIT:   Msg = "ip ttl expired transit"
        Case IP_TTL_EXPIRED_REASSEM:   Msg = "ip ttl expired reassem"
        Case IP_PARAM_PROBLEM:         Msg = "ip param_problem"
        Case IP_SOURCE_QUENCH:         Msg = "ip source quench"
        Case IP_OPTION_TOO_BIG:        Msg = "ip option too_big"
        Case IP_BAD_DESTINATION:       Msg = "ip bad destination"
        Case IP_ADDR_DELETED:          Msg = "ip addr deleted"
        Case IP_SPEC_MTU_CHANGE:       Msg = "ip spec mtu change"
        Case IP_MTU_CHANGE:            Msg = "ip mtu_change"
        Case IP_UNLOAD:                Msg = "ip unload"
        Case IP_ADDR_ADDED:            Msg = "ip addr added"
        Case IP_GENERAL_FAILURE:       Msg = "ip general failure"
        Case IP_PENDING:               Msg = "ip pending"
        Case PING_TIMEOUT:             Msg = "ping timeout"
        Case Else:                     Msg = "unknown msg returned"
  End Select
  GetStatusCode = Msg
  Exit Function
ErrLine:
End Function

Private Function Ping(sAddress As String, sDataToSend As String, ECHO As ICMP_ECHO_REPLY) As Long
  On Error GoTo ErrLine
  Dim hPort As Long
  Dim dwAddress As Long
  dwAddress = inet_addr(sAddress)
  If dwAddress <> INADDR_NONE Then
    hPort = IcmpCreateFile()
    If hPort Then
       Call IcmpSendEcho(hPort, dwAddress, sDataToSend, Len(sDataToSend), 0, ECHO, Len(ECHO), PING_TIMEOUT)
       Ping = ECHO.status
       Call IcmpCloseHandle(hPort)
    End If
  Else
    Ping = INADDR_NONE
  End If
  Exit Function
ErrLine:
  Ping = INADDR_NONE
End Function

Public Function PingIP(ByVal szIp As String) As Boolean
On Error GoTo ErrLine
Dim WSAD As WSADATA
Dim ECHO As ICMP_ECHO_REPLY
Dim ret As Long
'Delay 150
PingIP = False
PingTime = Empty
If WSAStartup(WS_VERSION_REQD, WSAD) = IP_SUCCESS Then
   ret = Ping(Trim(szIp), "tanaya", ECHO)
   PingTime = ECHO.RoundTripTime
   If InStr(1, GetStatusCode(ret), "success") <> 0 Then
      WSACleanup
      PingIP = True
      PingTime = ECHO.RoundTripTime
      Exit Function
   End If
End If
Exit Function
ErrLine:
End Function

按钮控件
Private Sub Command1_Click()
Dim pp1 As String
pp1 = Left(Mid(Text1.Text, "3", "16"), InStr(Mid(Text1.Text, "3", "16"), "\") - 1)
If PingIP(pp1) = True Then
    Text1.Enabled = False
    Command1.BackColor = &HFFFF00
    Command1.Caption = "Connect"
Else
    Command1.BackColor = &HFFFF&
    Command1.Caption = "Down"
End If
End Sub

如果你也在为此问题而头痛,请参考上面的内容进行解决;
如果你有更好的方法,请一定要进行指正哟。

不怕错误,只怕知错不改.
2013-05-11 16:47
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:5 
怎么要这么复杂?判断url是否有效有两个方法,方法一、用winsocket控件,对url的80端口发起ip连接请求,如果有响应则说明可以连接的上的。方法二、我不能确定,web控件中导航属性输入url,判断web响应状态也应该可以得到想要的结果的。
2013-05-11 17:16
snrtjat
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:山那边 海尽头
等 级:贵宾
威 望:22
帖 子:1115
专家分:7025
注 册:2013-1-21
收藏
得分:0 
winsocket没有用过,可以举个例子吗?
url:\\192.168.12.232\eng\office
用winsocket控件,对url的80端口发起ip连接请求,如果有响应则说明可以连接的上的。

不怕错误,只怕知错不改.
2013-05-11 19:14
snrtjat
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:山那边 海尽头
等 级:贵宾
威 望:22
帖 子:1115
专家分:7025
注 册:2013-1-21
收藏
得分:0 
再顶一下,期待用winsocket控件,对url的80端口发起ip连接请求,如果有响应则说明可以连接的上的编码

不怕错误,只怕知错不改.
2013-05-12 20:43
snrtjat
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:山那边 海尽头
等 级:贵宾
威 望:22
帖 子:1115
专家分:7025
注 册:2013-1-21
收藏
得分:0 
没人帮忙???

不怕错误,只怕知错不改.
2013-05-13 23:04
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
url:\\192.168.12.232\eng\office

这个不是 80 端口,
端口包括 : 137,138,139,445
协议包括: TCP 和 UDP 两种。

----------百度------------------
SMB(Server Message Block)协议在NT/2000中用来作文件共享,在NT中,SMB运行于NBT(NetBIOS over TCP/IP)上,使用137,139(UDP),139(TCP)端口。在2000中,SMB可以直接运行在tcp/ip上,而没有额外的NBT层,使用TCP 445端口。
当2000使用网络共享的时候,就面临着选择139或者445端口了。下面的情况确定会话使用的端口:
1、如果客户端启用了NBT,那么连接的时候将同时访问139和445端口,如果从445端口得到回应,那么客户端将发送RST到139端口,终止这个端口的连接,接着就从445端口进行SMB的会话了;如果没有从445端口而是从139得到回应,那么就从139端口进行会话;如果没有得到任何回应,那么SMB会话失败。
2、如果客户端禁用了NBT,他就将只从445端口进行连接。当然如果服务器(开共享端)没有445端口进行SMB会话的话,那么就会访问失败了,所以禁用445端口后,对访问NT机器的共享会失败。
3、如果服务器端启用NBT,那么就同时监听UDP 137、138端口和TCP139,445。如果禁用NBT,那么就只监听445端口了。

授人于鱼,不如授人于渔
早已停用QQ了
2013-05-14 09:17
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:15 
我觉得可以这样的,
调用 NET 命令,把这个 映射成一个盘符。  然后检查这个盘符是否存映射成功。
如果成功,说明这个 网络共享地址有效。不成功,说明无效。
然后再操作,取属性什么的。

最后可以再调用NET 命令,把这个映射 删除掉,不留痕迹。

[ 本帖最后由 风吹过b 于 2013-5-14 09:26 编辑 ]

授人于鱼,不如授人于渔
早已停用QQ了
2013-05-14 09:25
snrtjat
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:山那边 海尽头
等 级:贵宾
威 望:22
帖 子:1115
专家分:7025
注 册:2013-1-21
收藏
得分:0 
非常感谢您的解答,采取!

不怕错误,只怕知错不改.
2013-05-14 11:11
快速回复:部件使用问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018719 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved