陋博

昨晚收到网易邮箱发来的名为"提醒CSDN注册用户修改密码的重要通知" 原文: “尊敬的网易邮箱用户： 今天（2011年12月21日）网上有黑客公开了CSDN网站http://www.csdn.net的用户数据库，600多万个注册邮箱和密码被曝光。 我们发现您曾经使用网易邮箱注册过CSDN网站的帐号。 如果您注册CSDN时使用的密码，和您的邮箱密码相同，请马上 修改您的邮箱密码 ，并尽快 绑定手机 ，以免帐号被盗。 网易邮箱提醒您，您的邮箱帐号是互联网的...

废话不说,直接进入正题.建一个 按钮Command1 和一个 Textbox Text1 ,下面只以男名为例.女名同理. 原代码: Private Sub Command1_Click() Dim x1, x2, x3, x4, x5, x6, x7, x8, x9, z, o, o2, o3, o4 As String o = "伟勇毅俊峰强平保东文辉力明永健世广志义兴良海山仁波宁贵福生龙元胜学祥才发武新利清飞彬富顺信子杰昌成星光天达安岩中茂进林有坚和博诚先敬震振壮会思群心邦承乐绍功松善厚庆磊民友裕河江超浩亮政谦亨奇翰朗...

首先要[工程]－[引用] Microsoft Scriptting Runtime Private Sub Command1_Click() Dim fso As New FileSystemObject If fso.FolderExists("c:abc") Then   MsgBox ("文件夹已存在") Else   fso.CreateFolder ("c:abc") End If End Sub Private Sub Command2_Click() Dim fso As New FileSystemObject If Not fso.FolderExists("c:abc") Then   MsgBox ("文件夹不存在") Else   fso.DeleteFolder ("c:ab...

首先新建一个.exe工程，然后在窗体中加入timer控件，设置timer的interval＝1，双点timer控件，输入以下代码Private Sub Timer1_Timer() Dim files As StringDim nr As StringDim c As StringStatic count As Long  ‘声明变量，其中“count”为静态变量，以便生成不同的文件c = "c:\Program Files\" ’定义要把生成的文件存放在那个目录文件下nr = "哈哈，被黑的感觉的不错吧"  ’生成文件的内容files = FreeFileIf a = a ...

下面是一个关于VB的农历算法´日期数据定义方法如下´前12个字节代表1-12月为大月或是小月，1为大月30天，0为小月29天，´第13位为闰月的情况，1为大月30天，0为小月29天，第14位为闰月的月´份，如果不是闰月为0，否则给出月份，10、11、12分别用A、B、C来表´示，即使用16进制。最后4位为当年家农历新年-即农历1月1日所在公历´的日期，如0131代表1月31日。´GetYLDate函数使用方式如下tY...

模块代码 Option Explicit Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long...