VB这个怎么用？
VB这个怎么用？
补充：本例演示了怎样通过API的调用向一个IP地址发送一个包的数据并等待回音。新建一个工程，添加一个标准模块，写入以下代码：Option ExplicitPublic Const IP_STATUS_BASE = 11000Public Const IP_SUCCESS = 0Public Const IP_BUF_TOO_SMALL = (11000 + 1)Public Const IP_DEST_NET_UNREACHABLE = (11000 + 2)Public Const IP_DEST_HOST_UNREACHABLE = (11000 + 3)Public Const IP_DEST_PROT_UNREACHABLE = (11000 + 4)Public Const IP_DEST_PORT_UNREACHABLE = (11000 + 5)Public Const IP_NO_RESOURCES = (11000 + 6)Public Const IP_BAD_OPTION = (11000 + 7)Public Const IP_HW_ERROR = (11000 + 8)Public Const IP_PACKET_TOO_BIG = (11000 + 9)Public Const IP_REQ_TIMED_OUT = (11000 + 10)Public Const IP_BAD_REQ = (11000 + 11)Public Const IP_BAD_ROUTE = (11000 + 12)Public Const IP_TTL_EXPIRED_TRANSIT = (11000 + 13)Public Const IP_TTL_EXPIRED_REASSEM = (11000 + 14)Public Const IP_PARAM_PROBLEM = (11000 + 15)Public Const IP_SOURCE_QUENCH = (11000 + 16)Public Const IP_OPTION_TOO_BIG = (11000 + 17)Public Const IP_BAD_DESTINATION = (11000 + 18)Public Const IP_ADDR_DELETED = (11000 + 19)Public Const IP_SPEC_MTU_CHANGE = (11000 + 20)Public Const IP_MTU_CHANGE = (11000 + 21)Public Const IP_UNLOAD = (11000 + 22)Public Const IP_ADDR_ADDED = (11000 + 23)Public Const IP_GENERAL_FAILURE = (11000 + 50)Public Const MAX_IP_STATUS = 11000 + 50Public Const IP_PENDING = (11000 + 255)Public Const PING_TIMEOUT = 200Public Const WS_VERSION_REQD = &H101Public Const WS_VERSION_MAJOR = WS_VERSION_REQD \ &H100 And &HFF&Public Const WS_VERSION_MINOR = WS_VERSION_REQD And &HFF&Public Const MIN_SOCKETS_REQD = 1Public Const SOCKET_ERROR = -1Public Const MAX_WSADescription = 256Public Const MAX_WSASYSStatus = 128Public Type ICMP_OPTIONSTtl As ByteTos As ByteFlags As ByteOptionsSize As ByteOptionsData As LongEnd TypeDim ICMPOPT As ICMP_OPTIONSPublic Type ICMP_ECHO_REPLYAddress As Longstatus As LongRoundTripTime As LongDataSize As IntegerReserved As IntegerDataPointer As LongOptions As ICMP_OPTIONSData As String * 250End TypePublic Type HOSTENThName As LonghAliases As LonghAddrType As IntegerhLen As IntegerhAddrList As LongEnd TypePublic Type WSADATAwVersion As IntegerwHighVersion As IntegerszDescription(0 To MAX_WSADescription) As ByteszSystemStatus(0 To MAX_WSASYSStatus) As BytewMaxSockets As IntegerwMaxUDPDG As IntegerdwVendorInfo As LongEnd TypePublic Declare Function IcmpCreateFile Lib "icmp.dll" () As LongPublic Declare Function IcmpCloseHandle Lib "icmp.dll" (ByVal IcmpHandle As Long) As LongPublic Declare Function IcmpSendEcho Lib "icmp.dll" (ByVal IcmpHandle As Long, ByVal DestinationAddress As Long, ByVal RequestData As String, ByVal RequestSize As Integer, ByVal RequestOptions As Long, ReplyBuffer As ICMP_ECHO_REPLY, ByVal ReplySize As Long, ByVal Timeout As Long) As LongPublic Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As LongPublic Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Long, lpWSADATA As WSADATA) As LongPublic Declare Function WSACleanup Lib "WSOCK32.DLL" () As LongPublic Declare Function gethostname Lib "WSOCK32.DLL" (ByVal szHost As String, ByVal dwHostLen As Long) As LongPublic Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal szHost As String) As LongPublic Declare Sub RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)Public Function GetStatusCode(status As Long) As StringDim msg As StringSelect Case statusCase IP_SUCCESS: msg = "ip success"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 prot 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 SelectGetStatusCode = CStr(status) & " [ " & msg & " ]"End FunctionPublic Function HiByte(ByVal wParam As Integer)HiByte = wParam \ &H1 And &HFF& End FunctionPublic Function LoByte(ByVal wParam As Integer)LoByte = wParam And &HFF& End FunctionPublic Function Ping(szAddress As String, ECHO As ICMP_ECHO_REPLY) As LongDim hPort As LongDim dwAddress As LongDim sDataToSend As StringDim iOpt As LongsDataToSend = "Echo This"dwAddress = AddressStringToLong(szAddress)hPort = IcmpCreateFile()If IcmpSendEcho(hPort, dwAddress, sDataToSend, Len(sDataToSend), 0, ECHO, Len(ECHO), PING_TIMEOUT) Then'the ping succeeded,'.Status will be 0'.RoundTripTime is the time in ms for the ping to complete,'.Data is the data returned (NULL terminated)'.Address is the Ip address that actually replied'.DataSize is the size of the string in .DataPing = ECHO.RoundTripTimeElsePing = ECHO.status * -1End IfCall IcmpCloseHandle(hPort)End FunctionFunction AddressStringToLong(ByVal tmp As String) As LongDim i As IntegerDim parts(1 To 4) As Stringi = 0'we have to extract each part of the'123.456.789.123 string, delimited by'a periodWhile InStr(tmp, ".") & 0i = i + 1parts(i) = Mid(tmp, 1, InStr(tmp, ".") - 1)tmp = Mid(tmp, InStr(tmp, ".") + 1)Wendi = i + 1parts(i) = tmpIf i && 4 ThenAddressStringToLong = 0Exit FunctionEnd If'build the long value out of the'hex of the extracted stringsAddressStringToLong = Val("&H" & Right("00" & Hex(parts(4)), 2) & _Right("00" & Hex(parts(3)), 2) & _Right("00" & Hex(parts(2)), 2) & _Right("00" & Hex(parts(1)), 2))End FunctionPublic Function SocketsCleanup() As BooleanDim X As LongX = WSACleanup()If X && 0 ThenMsgBox "Windows Sockets error " & Trim$(Str$(X)) & " occurred in Cleanup.", vbExclamationSocketsCleanup = FalseElseSocketsCleanup = TrueEnd IfEnd FunctionPublic Function SocketsInitialize() As BooleanDim WSAD As WSADATADim X As IntegerDim szLoByte As String, szHiByte As String, szBuf As StringX = WSAStartup(WS_VERSION_REQD, WSAD)If X && 0 ThenMsgBox "Windows Sockets for 32 bit Windows " & "environments is not successfully responding."SocketsInitialize = FalseExit FunctionEnd IfIf LoByte(WSAD.wVersion) & WS_VERSION_MAJOR Or (LoByte(WSAD.wVersion) = WS_VERSION_MAJOR And HiByte(WSAD.wVersion) & WS_VERSION_MINOR) ThenszHiByte = Trim$(Str$(HiByte(WSAD.wVersion)))szLoByte = Trim$(Str$(LoByte(WSAD.wVersion)))szBuf = "Windows Sockets Version " & szLoByte & "." & szHiByteszBuf = szBuf & " is not supported by Windows " & "Sockets for 32 bit Windows environments."MsgBox szBuf, vbExclamationSocketsInitialize = FalseExit FunctionEnd IfIf WSAD.wMaxSockets & MIN_SOCKETS_REQD ThenszBuf = "This application requires a minimum of " & Trim$(Str$(MIN_SOCKETS_REQD)) & " supported sockets."MsgBox szBuf, vbExclamationSocketsInitialize = FalseExit FunctionEnd IfSocketsInitialize = TrueEnd Function在Form中添加一个命令按钮Command1，一个文本框Text2，创建一个TextBox数组(Text1(0)到Text1(5))。在窗体中写入如下代码：Private Sub Command1_Click() Dim ECHO As ICMP_ECHO_REPLY Dim pos As Integer Call Ping(Text2.Text, ECHO) Text1(0) = GetStatusCode(ECHO.status) Text1(1) = ECHO.Address Text1(2) = ECHO.RoundTripTime & " ms" Text1(3) = ECHO.DataSize & " bytes" If Left$(ECHO.Data, 1) && Chr$(0) Then pos = InStr(ECHO.Data, Chr$(0)) Text1(4) = Left$(ECHO.Data, pos - 1) End If Text1(5) = ECHO.DataPointer End Sub
不区分大小写匿名
你讲的是哪个？是VB用途吗？初学VB可以做一些小程序啊。然后学的多了，就可以做一个系统，比如学生信息管理系统。
粘贴不上~==再试！
具体怎么用自然是一言难尽了，建议你购买相关书籍，这里简单说一下VB6.0（这是VB使用人数最多的版本）：
打开VB后，可以选择所要设计的工程（工程可大致理解为一个程序）类型，其中“标准EXE”最常用，这里简单介绍它：
打开标准EXE后，系统自动添加了一个窗体可供设计，可利用工具箱在上面添加控件。例如，如果想在窗体上面添加一个文本框，可在工具箱中找到添加文本框的按钮，双击它即可添加；或者单击后在窗体上拖动出一个文本框。这要就是所谓的“可视化”设计，不必添写太多的代码来定义窗体。
可以在代码窗口中添加代码（也就是编写程序），这正是VB的灵魂所在。这样，一个简单的程序就设计好了。
另外，VB还可以添加其它窗体、添加标准模块、设计ActivateX控件、嵌入Word、Excel、Flash等等
你认为放一堆代码,有人会看吗?加上这个代码贴出来后,就没有缩近了,看起来费劲
要发数据包,如果是HTTP的,用XMLHTTP 或INET就可以了,
如果是二进制的SOCKES 用WINSOCK控件就可以了,
何必用API呢,
虽然有很多人说WINSOCK会丢包,会出错,可是我使用一来,从未丢包从未出错,
并且下载文件,网页代码, 发送POST,上传二进制文件,都良好,没有网上说的问题呢
也许在于如何使用吧,如果学过C C++的人,来用它可能就不会说控件有很多问题了.
两个字:封装
等待您来回答
编程领域专家这个怎么用？_吉他吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：558,855贴子：
这个怎么用？收藏
这么怎么用有准吗？求大什指教
<div class="clearfix BAIDU_CLB_AD BAIDU_CLB_AD_pb" id="BAIDU_CLB_AD_">
手机下载的
这个软件挺好的 我以前一直用这个
点击最右边那个键
百度一下每根吉他弦的频率 照着来就行了
看我发的帖子　　　　　　　　　　　　　　　　　-------------- 作为一个怪兽，我的愿望是至少消灭一个奥特曼。　
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
使用签名档&&
为兴趣而生，贴吧更懂你。或这个怎么用?_国际闲人吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：46,611贴子：
这个怎么用?收藏
觉得牛就顶
<div class="clearfix BAIDU_CLB_AD BAIDU_CLB_AD_pb" id="BAIDU_CLB_AD_">
这萝卜长的
我真的真的不水,你难道不相信吗?你不信就算了；水贴二人组,贴吧侠侣回帖专用
登录百度帐号我的游戏推荐游戏
后查看最近玩过的游戏
使用签名档&&
为兴趣而生，贴吧更懂你。或这个怎么用？_百度知道
提问者采纳
“确认”的上下左右四个键有些电视没用，有些电视就是上下两个键视频切换，左右两个键是音量调节。往上一些，v+也是电视频道切换至后面，v-就是切换至前面。往左边看，上下两个箭头，就不用管。再往左边，上面的是音量调大，下面的是音量调小。上面的数字就是到几频道，直接摁数字。给我个最佳答案吧，这样就有悬赏啦！
提问者评价
太给力了，你的回答完美的解决了我的问题！
其他类似问题
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}