VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 4065|回复: 8

[分享] 巧借VB申请4位数字的域名

[复制链接]
 楼主| 发表于 2010-6-15 19:10:12 | 显示全部楼层 |阅读模式
本帖最后由 ok-qiu 于 2010-6-15 19:53 编辑

今天打算买个域名,可思来想去不知道选怎么样的域名。现在注册个域名真难啊,没有别人想不到的,于是准备买一个数字域名,大概四位左右。太长不好记,太短没你的份,就四位,可是凭自己想出来的四位数字都被别人注册了,如果找一个随机生成4位的程序那选域名就轻松了。以下是用VB编写的一个四位数字随机生成器。界面是我设计的,代码是网上找的(惭愧啊~~)按照下面的界面设计窗体,代码见下。

2010-06-15_194429.jpg


  1. Private Function iRnd() As Integer
  2.     Randomize
  3.     Dim i As Integer
  4.     Do
  5.       i = Rnd() * 10000
  6.     Loop While i < 1000
  7.     iRnd = i
  8. End Function
  9. Private Sub Command1_Click()
  10. Text1 = iRnd
  11. End Sub
复制代码
 楼主| 发表于 2010-6-15 19:11:32 | 显示全部楼层
本帖最后由 ok-qiu 于 2010-6-15 19:54 编辑

附件: 四位数字随机生成.rar (14.38 KB, 下载次数: 856)
回复 支持 反对

使用道具 举报

发表于 2010-6-15 19:34:07 | 显示全部楼层
能注册到?

估计都被占着茅坑不拉shit的抢注了吧.
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-6-15 19:52:19 | 显示全部楼层
3# download

没办法,慢慢生成吧。
回复 支持 反对

使用道具 举报

发表于 2010-6-15 20:35:37 | 显示全部楼层
申请不到的.
早被卖域名的抢注了,还轮到你慢慢扫? -_-!
回复 支持 反对

使用道具 举报

发表于 2010-6-16 10:44:04 | 显示全部楼层
呵呵 4位域名让让人抢注完了 中国的站长 唉
回复 支持 反对

使用道具 举报

发表于 2010-6-16 12:56:39 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2010-6-16 22:32:50 | 显示全部楼层
真?????
回复 支持 反对

使用道具 举报

发表于 2011-12-9 13:26:25 | 显示全部楼层
没技术含量!!!  你要是能把查询域名是否被注册了这一功能加进去,那就完美了!!!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2021-1-17 07:40

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表