vb中如何调用主机地址或ip地址?

dai_er 2004-11-22 03:51:51
请问有没人知道如何在vb中如何调用主机地址或ip地址?有没有什么简单的函数,不用太复杂的代码。
...全文
126 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lxcc 2004-11-22
  • 打赏
  • 举报
回复
简单就用
Private Sub Command1_Click()
MsgBox Winsock1.LocalHostName
MsgBox Winsock1.LocalIP
End Sub
fishmans 2004-11-22
  • 打赏
  • 举报
回复
加载一个winsock

winsock1.locaIP主是本机IP了

或者用shell "ping \\servername >d:\www.txt",再分析www.txt文件好了
1,codenet5.ZIP 网络五子棋(84KB)2,mailcheck.ZIP 邮件检查程序(8KB)3,sendmail.ZIP 简单电子邮件发送程序(4KB)4,whois.ZIP Whois 示例程序(2KB)5,mailsender_plus.ZIP 发送电子邮件附件(15KB)6,mailchecker_plus.ZIP 邮件检查程序(28KB)7,wst.ZIP Winsock Terminal示例程序(7KB)8,client.ZIP 点对点聊天(客户端)(8KB)9,download.ZIP 一个下载程序(4KB)10,FTP.ZIP FTP程序(19KB)11,ping.ZIP 一个PING程序(4KB)12,server.ZIP 点对点聊天(服务器端)(9KB)13,webBroswer.ZIP 浏览器(7KB)14,downpage.ZIP 利用Microsoft Internet Transfer Control下载Web页面(3KB)15,src2html.ZIP 将VB源程序转换成HTML格式(4KB)16,netdde.ZIP 演示怎样与Netscape Navigator进行DDE通行(2KB)17,vbftp.ZIP 一个利用VB编写的FTP客户端程序(8KB)18,hostname.ZIP 一个可以利用Windows API获得机器IP地址的程序(3KB)19,cgi4vb.ZIP 加入一个用VB编写CGI的VB源程序。(你需要在Win98上首先安装20,Personal WebServer)(48KB)20,autodial.ZIP 一个简单的拨号程序 (3KB)21,iphost.ZIP 获得主机的IP地址(3KB)22,connect.ZIP 建立拨号连接(2KB)23,smtp.ZIP 一个简单的SMTP邮件发送程序(5KB)24,netcon.ZIP 一个检查是否连接Internet的程序(17KB)25,openurl.ZIP 建立可自动打开超连接的Label,可以使用缺省的浏览器打开诸如http://www.apple.com类的地址,可以使用缺省的电子邮件程序打开类似于mailto:vbcode@21cn.com这样的电子邮件地址。(3KB)26,vb4comms.ZIP 实现通讯的例子 (27KB)27,htmlview.ZIP HTML、JPG、GIF文件浏览器(利用IE控件)(2KB)28,html.ZIP 建立自己的浏览器,(你必须已经安装IE3.X以上版本)(2KB)29,netdrive.ZIP 建立和短开网络映射驱动器的源程序(2KB)30,ftpcl.ZIP 又一个VB实现FTP客户端功能的源程序(37KB)31,cethernetaddress.ZIP 获得以太网卡的地址(3KB)32,htmledit.ZIP 一个简单的HTML文件编辑器。(6KB)33,netwatch.ZIP 监视网络联接的程序,并且将获得的信息保存到一个Access数据库。(11KB)34,tapi_src.ZIP 一个比较完成的tapi程序,包括一个包含全部tapi定义的模块和一个tapi类,包括查看以建立的tapi连接、拨号、断连接以及对线路和拨号进行设置。(38KB)35,rashangup.ZIP ras程序,可以查找到所有的ras连接并且关闭这些连接。(7KB)36,internetshort.ZIP 演示如何添加URL快捷方式到收藏夹、开始菜单和桌面上。(4KB)37,telnet.ZIP 一个只使用Winsock控件实现的Telnet程序(39KB)38,cnetworkinfo.ZIP 一个在Windows NT/2000下的程序。这个程序可以获得当前登陆的网络用户名、工作站ID、IP地址等信息。(5KB)39,nwhood.ZIP 一个可以显示网络邻居以及所有可共享目录的信息的程序。(14KB)40,connect_to_net.ZIP 检测是否连接到Internet以及是通过何种方式(Modem,LAN,Proxy)连接到Internet的。(3KB)41,urlincache.ZIP 一个检测一个URL是否在Cache的程序。(3KB)42,nettools.ZIP 十分Cool的程序,一个网络工具箱,可以实现包括主机察看、网络测速、Ping、段口扫描、路由跟踪等功能。不可不看。推荐下载。(71KB)43,webserver.ZIP 一个利用VB实现的Web Server程序。(85KB)44,hotmail_check.ZIP 一个可以检查HotMail邮件的程序,你可以使用改程序检查你的Hotmail账户是否有邮件而不用登陆到www.hotmail.com上了。使用HotMail的朋友一定要下载。(56KB)45,simplyhack.ZIP 一个远程控制软件,利用TCP/IP可以控制远端机器运行程序,监视远端机器的运行状况。(不过据斑竹分析来看,这个程序有一点象Hacker程序,另外改程序使用的好像是德语,如果是英文就好了)值得下载。(119KB)46,http_download.ZIP 类似GoZilla或者GetRight那样的Http下载程序。但是有网友说无法实现下载,感兴趣的朋友可以下载看一下。(80KB)47,inetdial.ZIP 利用Wininet实现建立Internet拨号连接和断开连接(2KB)48,getallserveronnet.ZIP 相当不错和完整的程序。利用API获得当前网络的所有计算机名称以及获得当前可用的服务器、SQL服务器、RAS服务器的名称、属性等。推荐下载。(21KB)49,seeopen.ZIP 一个可以看现在计算机上有那些端口已经被打开的程序。利用了Windows提供的IPHelpApi.DLL提供的输出函数来实现端口监视功能。(34KB)50,winsock_cool.ZIP 通过Winsock控件建立的客户、服务器文件传输程序。支持多用户连接到服务器;支持用户名、密码管理;支持定义共享目录。对于其的一些错误,斑竹做了修正并增加了一些注释。绝对值得下载。(169KB)51,browser.ZIP 使用ie4的dll, 实现forward, back, stop, home等功能 (6KB)52,linkpars.ZIP 从html分析提取链接(url) (5KB)53,downshow.ZIP 利用 microsoft internet transfer control 下载文件,并显示 html rtf text 类型的文件。(3KB) 54,cgi.ZIP 安装windows web server后用vb写cgi scripts (14KB)55,striptxt.ZIP 去掉html的链接后写到文本文件 (41KB)56,winsock.ZIP 使用windsock进行网络编程的三个例子 (165KB)57,vb5mail.ZIP 演示接收和发送邮件, 需要mapi controls, grid controls (15KB)58,starturl.ZIP 实现web页面链接的点击效果 (8KB)59,downloadweb.ZIP 下载web页面并显示文件的内容 (7KB)60,weblink.ZIP 启动一个默认的页面链接 (2KB)61,stocks.ZIP 从yahoo.com上下载股票的报价 (8KB)62,netsaddr.ZIP 得到netscape navigator当前显示的页面链接(url) (3KB)63,irc-code.ZIP irc客户端程序 (80KB)64,news.ZIP 阅读newsgroups的例子 (34KB)65,udtchat.ZIP chat程序例子 (12KB)66,code_download_display.ZIP 下载web页面并显示html内容, 需要internet transfer control (9KB)67,chatclnt.ZIP chat客户端程序 (22KB)68,chatserv.ZIP chat服务器端程序 (25KB)69,inter.ZIP 检测你是否连接上internet, 对windows 95/98有效 (2KB)70,e-checker.ZIP 使用winsock控制检测是否有邮件, 邮件服务器必须支持pop3 (30KB)71,webbrows.ZIP 一个使用ie动态库的详尽文档, 帮助你创建自己的web浏览器 (27KB)72,see4vb21.ZIP 使用smtp/pop3库实现邮件程序的例子(107KB)73,wsc4vb23.ZIP 实现通讯的例子 (128KB)74,html2text.zip 超文本转换成纯文本(3KB)75,popmail.zip 检查您的邮件(37KB)76,dmvbtest.zip 完整的邮件发送邮件源代码,可发送附件(3KB)77,hyperlinksl.zip 使用两行代码创建超链接(7KB)78,emaillmapi.zip 使用 MAPI 控件发送邮件(7KB)79,icqp.zip 从 VB 应用程序发送 ICQ 信息(13KB)80,getdomains.zip 获取局域网内所有的域和工作组(4KB)81,getip.zip 获取本机及其名和Ip地址(使用Winsock控件)(2KB)82,gifplayer.zip 播放Gif动画(使用WebBrowse控件)(28KB)83,sendmessage.zip 在局域网内发送消息(2KB)84,mapdrive.zip 映射网络驱动器(2KB)85,getipaddress.zip 获取局域网内指定机器名的Ip地址(3KB)86,speak.ZIP 网络聊天室(20KB)87,readini.ZIP INI范例(4KB)88,zhongduan.ZIP vb终端(13KB)89,pic.ZIP 看图程序(38KB)90,webliuyan.ZIP web留言簿(40KB)91,www.ZIP Www浏览器(32KB) 92,email.ZIP 收发电子邮件(16KB)93,search.ZIP 网络搜索(22KB)94,zhuce.ZIP 远程注册程序(203KB)95,mapdriver.zip 用VB影射网络驱动器、打开网络驱动器程序源(10KB)96,i038_smtp.zip用VB编写SMTP发信程序(14KB)97,i037_source.zip一个邮件检测程序(6KB)98,i036_liuliang.zipINTETNET 流量管理系统 (303KB)99,i035_fee.zip东莞的一位网友编写的一个网络计费,需要您对它进行完善(76KB)100,i034_0048831.zip用Winsock实现发信(3KB)101,i033_zm039.zip一个漂亮的浏览器(30KB)102,i032_zm037.zip完整的FTP程序,功能很强大哦(43KB)103,i031_pingtest.zip检测是否网络连接(2KB)104,i030_zm036.zip可以列出并删除Internet Cache的文件(4KB)105,i029_zm034.zip即输入字符后会出现动态的输入提示(3KB)106,i028_oledrag.zip拖放超链接到自身的监视窗口(1KB)107,i027_zbsrc.zip就是定时刷新,使计数器加1,我不知是否真的能刷新,如果能的话就发达了(212KB)108,i026_HTMLViewerSample.zip浏览器示例程序(22KB)109,i025_chatserv.zip一个利用TCP/IP实现Chat功能的程序(服务器端程序)(25KB)110,i024_chatclnt.zip一个利用TCP/IP实现Chat功能的程序(客户端程序)(22KB)111,i023_Download.zip如何实现文件下载?(2KB)112,i021_browser.zip使用IE4的DLL, 实现forward, back, stop, home等功能(6KB)113,i020_downloadweb.zip下载Web页面并显示文件的内容(7KB)114,i019_autodial.zip电话拨号源程序(3KB)115,i018_networ~1.zip显示局域网的相关信息(6KB)116,i017_e-checker.zip使用Winsock控制检测是否有邮件, 邮件服务器必须支持POP3(30KB)117,i016_map.zip用API函数映射和断开网络驱动器(3KB)118,i015_labellink.ziplabel的超级链接(4KB)119,i014_zm012.zip用VB来实现代理服务器的源码(5KB)120,i013_zm032.zipAOL的在线聊天系统的客户端,Cool!(73KB)121,i012.zip如何在vb调用i/o口的例子(10KB)122,i011.zip演示连接/断开network(3KB)123,i010.zipchat程序例子(12KB)124,i009.zip简单的邮件发送例子 (13KB)125,i008.zip启动一个默认的页面链接(2KB)126,i007.zip实现Web页面链接的点击效果(8KB)127,i006.zip检测你是否连接上Internet, 对Windows 95/98有效(2KB)128,i005.zip实现通讯的例子(27KB)129,i004.zip一个类似WsFTP的FTP程序(63KB)130,i003.zipHTML与TEXT的转换(41KB)131,i002.zip一个简单的拨号程序(3KB)132,i001.zip一个完整的HTML编辑器,功能强大。强烈推荐!(308KB)133,GuestBook.zip 留言簿(2KB)134,vblibcgi.zip CGI32 (10KB)135,bpmail.zip 发送邮件(14KB)136,links.zip 首页管理Perl(8KB)137,vb-gb.zip 编写留言本(11KB)138,zbsrc.zip 作弊器(212KB)139,Dial.zip 拨号程序(2KB)140,130.zip 用Winsock发送邮件,可发送附件(43KB)141,194.zip 同步设置GMT标准时间(4KB)142,116.zip 检查POP信箱有无邮件(30KB)143,115.zip 使用Winsock控件发送邮件(4KB)144,114.zip Ping一个IP地址(5KB)145,58.zip 比较完整的浏览器源码(6KB)146,131.zip 一个32位的FTP客户端程序(37KB)147,143.zip 一个使用IE动态库的详尽文档, 帮助你创建自己的Web浏览器(27KB)148,177.zip 检测你是否连接上Internet (2KB)149,fakemailer.zip 又1个用Winsock控件发送Email的例子(22KB)150,CInetStatus.zip 控制拨号连接的类,提供拨号,挂段,脱机工作等方法,检测连接状态 (8KB)151,网络五子棋.zip 网络五子棋(24KB)152,ChPass.zip 修改 Network 网的密码(15KB)153,CheckDrives.zip 检测所有驱动器的类型(3KB)154,CustEditXML.zip 一个 XML 的编辑器(16KB)155,ieseek197575.zip 网吧监控软件(9KB)156,run.zip 启动Windows程序自动运行(放入到注册表的Run)(2KB)157,HappyRun.zip 一种让共享软件的时间过期的软件(49KB)158,mapi_all_v.zip 用MAPI控件批量发送文件(10KB)159,0046929.zip 用 Winsock 实现聊天的程序(3KB)160,0048826.zip 用Winsock实现文件的下载(2KB)161,0048831.zip 用Winsock实现发信(3KB)162,004101102.zip TreeView的基本操作(5KB)163,00415944.zip 用MAPI发送邮件(4KB)
一、WinSock简介 Socket(套接字)最初是由加利福尼亚大学Berkeley(伯克利)分校为UNIX操作系统开发的网络通信接口,随着UNIX的广泛使用,Socket成为当前最流行的网络通信应用程序接口之一。20世纪90年代初,由Sun Microsystems,JSB,FTP software,Microdyne和Microsoft等几家公司共同定制了一套标准,即Windows Socket规范,简称WinSock。 VB编写网络程序主要有两种方式:1.winsock控件 2.winsockAPI 二、WinSock控件的使用 1.WinSock控件的主要属性 LocalHostName属性 本地机器名 LocalIP属性 本地机器IP地址 LocalPort属性 本地机器通信程序的端口(0<端口<65536) RemoteHost属性 远程机器名 RemotePort属性 远程机器的通信程序端口 Protocol属性 通过Protocol属性可以设置WinSock控件连接远程计算机使用的协议。可选的协议是TCP和UDP对应的VB的常量分别是sckTCPProtocol和sckUDPProtocol,Winsock控件默认协议是TCP。注意:虽然可以在运行时设置协议,但必须在连接未建立或断开连接后。 SocketHandle属性 返回当前socket连接的句柄,这是只读属性。 RemoteHostIP属性 属性返回远程计算机的IP地址。在客户端,当使用了控件的Connect方法后,远程计算机的IP地址就赋给了RemoteHostIP属性,而在服务器端,当ConnectRequest事件后,远程计算机(客户端)的IP地址就赋给了这个属性。如果使用的是UDP协议那么当DataArrival事件后,发送UDP报文的计算机的IP才赋给了这个属性。 ByteReceived属性 返回当前接收缓冲区的字节数 State属性 返回WinSock控件当前的状态 常数 值 描述 sckClosed 0 缺省值,关闭。 SckOpen 1 打开。 SckListening 2 侦听 sckConnectionPending 3 连接挂起 sckResolvingHost 4 识别主机。 sckHostResolved 5 已识别主机 sckConnecting 6 正在连接。 sckConnected 7 已连接。 sckClosing 8 同级人员正在关闭连接。 sckError 9   错误 2.WinSock主要方法 Listen方法 方法用于服务器程序,等待客户访问。格式:Winsock对象.listen Connect方法 用于向远程主机发出连接请求。格式:Winsock对象.connect [远程主机IP,远程端口] Accept方法 用于接受一个连接请求。格式:Winsock对象.accept Request ID Senddata方法 用于发送数据。格式:Winsock对象.senddata 数据 Getdata方法 用来取得接收到的数据。格式:Winsock对象.getdata 变量 [,数据类型 [,最大长度]] Close方法 关闭当前连接。格式:Winsock对象.close Bind方法 用Bind方法可以把一个端口号固定为本控件使用,使得别的应用程序不能再使用这个端口。 Listen方法Listen方法只在使用TCP协议时有用。它将应用程序置于监听检测状态。 Connect方法 当本地计算机希望和远程计算机建立连接时,就可以调用Connect方法。Connect方法调用的规范为:Connect RemoteHost,RemotePort Accept方法 当服务器接收到客户端的连接请求后,服务器有权决定是否接受客户端的请求。 SendData方法当连接建立后,要发送数据就可以调用SendData方法,该方法只有一个参数,就是要发送的数据。 GetData方法 当本地计算机接收到远程计算机的数据时,数据存放在缓冲区,要从缓冲区取出数据,可以使用GetData方法。GetData方法调用规范如下:GetData

1,486

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧