vb.net 通过 IPIP.NET 数据库来查询IP地址

这篇文章已过时,官方已经不再提供 17monipdb.dat 数据库文件,最后一个.dat版文件为2018年3月释出。
如果您需要dat文件的ip数据库,请点击这里下载由博主分流的文件!


上一次介绍了利用纯真数据库查询IP地址详细信息的方法。
然而纯真数据库是由网友反馈所提供的,很多数据描述并不准确,所以我上网找了一些其他的IP数据库,最后就找到了 ipip.net 这个网站所提供的IP数据库。

IPIP所提供的数据库有付费和免费两个版本,我们可以直接使用其中的免费版本。
下载地址 https://www.ipip.net/download.html (需要先注册一个帐号)
压缩包内有一个PHP的解析类,还有一个 17monipdb.dat 文件就是数据库了,我们只需要用到它就可以了。

使用方法很简单:
Dim ret = IPIP.Find("127.0.0.1")
' 用换行分隔所有信息
Dim ipdesc = String.Join(vbCrLf, ret)

- 阅读全文 -

vb.net 通过纯真数据库查询IP地址

几年前从某个博客抄来的,已经忘记原地址了,如果需要C#版的,可以在博客园搜到吧。
我因为自己用,所以转换为了VBNET代码,而且也放置了很久,今天无意间翻出来,就分享给大家吧。

首先,先下载 纯真数据库,数据库文件名应该是 QQWry.dat
之后将数据库文件复制到程序的主目录即可。


使用方法很简单,如下:

Dim iploca = IPQuery.Query("127.0.0.1")
Dim ipdesc = String.Format("IP {0} 的详细地址为: {1} - {2}", iploca.IP, iploca.Country, iploca.Local)

- 阅读全文 -

类似OpenFileDialog样式的FolderBrowserDialog



.NET 默认的 FolderBrowserDialog 非常不好用,而这个类可以将文件夹选择窗体改成与文件选择窗体一致,更加亲切友好。

调用方法

Using fbd As New FolderBrowserDialog(Me)
    If fbd.ShowDialog = DialogResult.OK Then
        MsgBox(fbd.DirectoryPath)
    End If
End Using

- 阅读全文 -

vb.net 利用反射实现NotifyIcon托盘控件左键单击显示菜单

因为 NotifyIcon 控件只能使用鼠标右键才能显示菜单,那如何让其支持鼠标左键显示菜单呢???

Private Sub NotifyIcon1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
    Select Case e.Button
        Case Windows.Forms.MouseButtons.Left
            ' 这个方法不能很好解决内容菜单位置问题
            ' 并且对菜单外的鼠标操作没有取消菜单反应
            'ContextMenuStrip1.Show(Cursor.Position)
            
            ' 利用反射动态调用内容菜单的内部方法,完美解决所有问题
            Static mi As Reflection.MethodInfo = GetType(NotifyIcon).GetMethod("ShowContextMenu", Reflection.BindingFlags.NonPublic Or Reflection.BindingFlags.Instance)
            mi.Invoke(sender, Nothing)
            
        Case Windows.Forms.MouseButtons.Right
            Return
        Case Windows.Forms.MouseButtons.Middle
        
    End Select
End Sub

- 阅读全文 -

vb.net 鼠标拖拽窗体

简单的一个类型,可以让鼠标在窗体内任意位置进行拖拽。

使用方法很简单:

' 让当前窗体可以用鼠标拖拽
Dim dform As New DragForm(Me)

' 是否使用手型鼠标指针
dform.UseHandCursor = True

' 切换启用、关闭
dform.SwitchEnable()

' 关闭功能
dform.DragEnable = False
类型代码如下:

- 阅读全文 -

公告

欢迎您光临鄙人的小站,虽然没什么太专业的东西,不过如果本站的文章能让您有所收获、或者仅仅是博您一笑,那么也不枉费我建站的辛苦了!

有任何问题,可以在『关于页面』内留言或寻找我的联系方式!

本站所有内容禁止转载到大陆的商业网站(如CSDN、博客园、简书、微信公众号、豆瓣、B站、知乎等),但不限制您的个人站点,只需添加转载链接即可。

瞎哔哔

    站点已恢复直连,访问速度应该比之前快了。

    若再度出现不稳定的情况,可能会重新启用 cloudflare 托管。

  • 查看更多...

最新文章

随机文章

最近回复

分类

标签

归档

其它