源自混沌,归于混沌... 我的意志就是我的力量... 冲破千年封印的束缚... 我的眼中既没有光明,也没有黑暗...只剩下一片迷茫...

仙剑魔的个人资料

  • 昵称: 仙剑魔
  • 性别: 男
  • 生日: 0-1-2
  • 婚恋状况: 保密
  • 星座: 摩羯座
  • 民族: 汉族
  • 血型: A
  • 身高: 170－175公分
  • 性格特征: 儒雅,现实,幽默,智慧,运动,浪漫,古典,独立
  • 体型: 苗条/纤细
  • 常用E-Mail: 527264200@QQ.COM
  • 职业: 其它
  • 职业头衔: 其他
  • 是否吸烟: 不吸烟
  • 是否喝酒: 不喝酒
  • 兴趣爱好: 美食,唱歌,电影,音乐,聊天,电脑,网络,游戏,绘画,阅读,运动
  • 省份: 浙江
  • 地区: 杭州

管理 给我的留言

我 留言于2008-07-24 14:26:16
請告訴我，我QQ是858921768
我 留言于2008-07-24 14:25:24
怎么把酒和肉和在一起啊
echo 留言于2008-05-18 16:34:15
兄弟:能否帮下忙,我的vb小程序不知道该怎么写了.我的QQ是371753447 一般在线,帮帮忙.谢谢!!
Guest 留言于2008-04-27 21:19:44
悄悄话，只给空间主人查看...
怕腥的猫 留言于2008-01-25 13:46:05
http://www.vbgood.com/viewthread.php?tid=57914&extra=page=1
你曾经修正过的一个CRC32的程序,小弟因为课程设计要用到这个程序.但这个程序好象有点问题,就是不管输入的信息码是多少,得到的结果都是一样的.而且,得到的CRC码应该只有1个,而那个程序得到多个数据,希望你能帮我.回家在急啊.
如果你有时间,请帮忙看看改改,谢谢
QQ:125673926
MAIL:yuelei486@yahoo.com.cn
虚空之刃 仙剑魔 留言于2007-12-19 16:06:13
好的,以后多写点说明
不过我语文不太好,呵呵
Guest 留言于2007-12-19 13:41:07
兄弟，给你提点建议，
你编的程序应该给各说明什么的，
你只是发个软件，不是很明白软件能干什么。
佩轩 留言于2007-12-16 17:32:57
悄悄话，只给空间主人查看...
魔灵圣域之ＶＢ世界 icecept 留言于2007-11-28 12:40:05
你好啊，仙剑魔，我是你的崇拜者，你的程序结构严谨，算法精湛，从你的四则运算程序中可见一斑。认识你是我的荣幸。
Guest 留言于2007-11-17 13:51:07
你好牛啊。
你学的是哪个专业，几年了？
hydxcx720913 留言于2007-11-08 20:05:04
怎么才能联系上你,你有QQ吗,我的QQ号是243960907,电话是86100665
仙剑魔 留言于2007-10-03 19:50:43
谢谢了,有空我研究研究
魔灵圣域之ＶＢ世界 icecept 留言于2007-10-03 18:25:43
建立自已的文件类型，可以图标关联


Option Explicit
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_PERFORMANCE_DATA = &H80000004
Const HKEY_CURRENT_CONFIG = &H80000005
Const HKEY_DYN_DATA = &H80000006

Const REG_NONE = 0
Const REG_SZ = 1
Const REG_EXPAND_SZ = 2
Const REG_BINARY = 3
Const REG_DWORD = 4
Const REG_DWORD_BIG_ENDIAN = 5
Const REG_MULTI_SZ = 7
'-注册表 API 声明...
'---------------------------------------------------------------
Private 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
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Sub Command1_Click()
        '建立文件类型
        Dim ret As Long, ExePath As String, hKey As Long
        '定义 .hrd文件
        ret = RegCreateKey(HKEY_CLASSES_ROOT, ".hrd", hKey)
        '定义文件的类型,注意最后一个数字，它是 "hrdfile"的字节数 + 1
        ret = RegSetValue(HKEY_CLASSES_ROOT, ".hrd", REG_SZ, "hrdfile", 9)
         '定义"hrdfile"
        ret = RegCreateKey(HKEY_CLASSES_ROOT, "hrdfile", hKey)
        '定义文件类型文本说明
        ret = RegSetValueEx(hKey, "", 0, REG_SZ, ByVal "华容道存盘文件", LenB(StrConv("华容道存盘文件", vbFromUnicode)) + 1)
        '注： RegSetValueEx第二项为空时把值填入第一行的默认项
         '定义它的操作
        ret = RegCreateKey(HKEY_CLASSES_ROOT, "hrdfile\shell", hKey)
         '具体定义操作的名称
        ret = RegCreateKey(HKEY_CLASSES_ROOT, "hrdfile\shell\open", hKey)
        '定义操作的动作
        ret = RegCreateKey(HKEY_CLASSES_ROOT, "hrdfile\shell\open\command", hKey)
         '获得VB程序名称
        ExePath = App.Path & "\" & "华容道" & ".exe %1"
        '以下是最关键的一步！将 "hrdfile" 的打开（open)操作和我们的程序关联起来
        ret = RegSetValue(HKEY_CLASSES_ROOT, "hrdfile\shell\open\command", REG_SZ, ExePath, LenB(StrConv(ExePath, vbFromUnicode)) + 1)
        '改变图标
        ret = RegCreateKey(HKEY_CLASSES_ROOT, "hrdfile\DefaultIcon", hKey)
         ret = RegSetStringValue(hKey, "", App.Path & "\华容道.exe,0", True)
        '如果资源文件里包含两个图标,第一个图标的序号为0,第二个图标的序号为1
        'E:\VB文件夹\图标库\图标ico\华容道.ico可以换为%SystemRoot%\System32\shell32.dll,-160,其中-160便是shell32.dll中的图标标识.
        If ret Then
        MsgBox "改变图标成功", vbInformation, "提示"
     Else
        MsgBox "改变图标失败", vbExclamation, "提示"
     End If
        '关闭注册表项
        RegCloseKey hKey
End Sub
Private Sub Form_Load()
    'Dim ss As String    '定义一个字符变量
       'ss = Command()      '最关键的一步！用这个函数来获得命令行参数！！就是上面提到的 "%1" ,换句话来说，就是文件名！
       'Me.Caption = ss     '好了，窗体上面就是你的文件名了！（当然，有了文件名，想干什么，你就自己决定吧！）
End Sub
Private Function RegSetStringValue(ByVal hKey As Long, ByVal strValueName As String, _
    ByVal strData As String, Optional ByVal fLog) As Boolean
     Dim lResult As Long
     On Error GoTo 0
     lResult = RegSetValueEx(hKey, strValueName, 0&, REG_SZ, ByVal strData, _
        LenB(StrConv(strData, vbFromUnicode)) + 1)
     If lResult = 0 Then
        RegSetStringValue = True
     Else
        RegSetStringValue = False
     End If
End Function
魔灵圣域之ＶＢ世界 icecept 留言于2007-10-03 18:16:59
谢谢你给我的魔剑压缩机。

应用程序加入右键菜单和删除右键菜单

Option Explicit
'=====================================
'     注册表的读写    声明
'=====================================
'' 关闭打开的键
Private Declare Function RegCloseKey Lib "advapi32.dll" _
                          (ByVal hKey As Long) As Long
'建立键
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
                          (ByVal hKey As Long, _
                          ByVal lpSubKey As String, _
                          phkResult As Long) As Long
'写入启动值
Private Declare Function RegSetValueEx Lib "advapi32" Alias "RegSetValueExA" ( _
                          ByVal hKey As Long, ByVal lpValueName As String, _
                          ByVal Reserved As Long, ByVal dwType As Long, _
                          ByVal lpData As String, ByVal cbData As Long) As Long
'删除项目
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
'打开注册表subkey的hkey
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" ( _
                          ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const REG_SZ = 1
Private Sub Command1_Click()
    '把应用程序加入右键菜单
    Dim hKey As Long, ret As Long
    '建立注册表项
    RegCreateKey HKEY_CLASSES_ROOT, "*\shell\Any To Icon\command", hKey  'Any To Icon为右键菜单显示的名称
    '设置右键菜单项目
    ret = RegSetValueEx(hKey, "", 0, REG_SZ, ByVal App.Path & "\" & App.EXEName & ".exe", ByVal LenB(StrConv(App.Path & "\" & App.EXEName & ".exe", vbFromUnicode)) + 1)
    If ret = 0 Then
        MsgBox "右键菜单写入成功"
    Else
        MsgBox "右键菜单写入失败"
    End If
    RegCloseKey hKey '关闭注册表项
End Sub
'注：RegSetValeEx的第五个值可改为 ByVal RegXy,第六句可改为 lenB(RegXy)
'Dim RegXy as long:RegXy =app.path & "\记事薄.exe"
'regsetvalueex第二项为空时把值填入第一行的默认项,非空时，把值填入指定项目中的最后一行
Private Sub Command2_Click()
    '这里必须分步执行，如同删除文件夹一样，不能删除非空的文件夹，此处重要。
    DeleteKey HKEY_CLASSES_ROOT, "*\shell\Any To Icon", "command"
    DeleteKey HKEY_CLASSES_ROOT, "*\shell", "Any To Icon"
    MsgBox "成功删除右键菜单项", , "提示"
End Sub
'删除注册表键函数
Function DeleteKey(RootKey As Long, ParentKeyName As String, SubKeyName As String)
    Dim hKey As Long
    RegOpenKey RootKey, ParentKeyName, hKey
    RegDeleteKey hKey, SubKeyName
    RegCloseKey hKey
End Function
留言两句

　　

(可选)

Open Toolbar