[置顶] [推荐]一键恢复专家最新在线帮助(2008-4-12 21:40:00)

最新公告  网站变更为http://hvpc.blog.163.com ，一键恢复专家2009版已发布,留言评论、下载及最新帮助等，欢迎登录新站点：

阅读全文(4580) | 评论:29 | 复制链接

电脑常现问题解答(2008-5-26 8:21:00)

点击进入>> http://wyh2007.vcmedu.com

阅读全文(953) | 评论:0 | 复制链接

VB获取硬盘个数(2008-4-30 14:20:00)

Private   Sub   Form_Load()
    Dim   i           As   Integer
    On   Local   Error   Resume   Next
    Set   wmiObjSet   =   GetObject( "winmgmts:{impersonationLevel=impersonate} ").InstancesOf( "Win32_DiskDrive ")
    For   Each   obj   In   wmiObjSet
            Debug.Print   "标题 ";   obj.Caption
            Debug.Print   "描述: ";   obj.Description
            Debug.Print   "分区个数: ";   obj.Partitions
            Debug.Print   "容量: ";   obj.Size
            i   =   i   +   1
    Next
    Debug.Print   "共有硬盘 "   &   i   &   "块 "
End   Sub

阅读全文(951) | 评论:2 | 复制链接

ini文件的读写及小字名和关键字的删除技巧(2008-4-30 14:17:00)

一.ini文件的读写

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Long

Private r As Long
Private entry As String

Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
   Dim RetStr As String
   RetStr = String(255, Chr(0))
   GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function

Private Sub Command1_Click()
    Text1.Text = GetFromINI("注册信息", "序列号", "c:\boot.ini")
End Sub

Private Sub Command8_Click()
    End
End Sub

Private Sub Command2_Click()
    Text2.Text = GetFromINI("用户信息", "姓名", c:\boot.ini")
End Sub
Private Sub Command4_Click()
    entry$ = Text1.Text
    r = WritePrivateProfileString("注册信息", "序列号", entry, c:\boot.ini")
    If r <> 1 Then MsgBox "写序列号出错！"
End Sub

Private Sub Command5_Click()
    entry = Text2.Text
    r = WritePrivateProfileString("用户信息", "姓名", entry, c:\boot.ini")
    If r <> 1 Then MsgBox "写姓名出错！"
End Sub

二、删除ini文件中的小字名或关键字

1.如何删除ini文件中指定区段和指定项:
          [abc1]    
          a=123    
          b=456    
             
          [abc2]   |    
          a=111   |删除此三行    
          b=222   |    
             
          [abc3]    
          a=888    
          b=999    
   
  其实WritePrivateProfileSection函数就可以完成这个工作。这函数的第二个参数如果为空就可以删除掉所有键。    
          如果你这样调用该API：    
          Private   Declare   Function   WritePrivateProfileSection   Lib   "kernel32"   Alias   "WritePrivateProfileSectionA"   (ByVal   lpAppName   As   String,   ByVal   lpString   As   String,   ByVal   lpFileName   As   String)   As   Long    
             
          Private   Sub   Command1_Click()    
            WritePrivateProfileSection   "abc2",   "",   "my.INI"    
          End   Sub    
          则运行后，.ini文件中abc2下将没有任何值，但[abc2]仍然有。    
          而如果这样调用该函数（请注意声明不同）    
          Private   Declare   Function   WritePrivateProfileSection   Lib   "kernel32"   Alias   "WritePrivateProfileSectionA"   (ByVal   lpAppName   As   String,   ByVal   lpString   As   Any,   ByVal   lpFileName   As   String)   As   Long    
             
          Private   Sub   Command1_Click()    
            WritePrivateProfileSection   "PanelSetup",   0&,   "myCADX2.INI"    
          End   Sub    
          则运行后，.ini文件中连abc2也没有了。

2.如何删除ini文件里某一键？
声明:
Declare   Function   WritePrivateProfileString&   Lib   "kernel32"   Alias   "WritePrivateProfileStringA"   (ByVal   lpApplicationName   As   String,   ByVal   lpKeyName   As   Any,   ByVal   lpString   As   String,   ByVal   lpFileName   As   String)  
说明:   
  lpApplicationName=小节名  
  lpKeyName=vbNullString   删除lpApplicationName   小节所有项  
  lpString=vbNullString   删除lpKeyName项所有串  
  lpFileName   =初始化文件的名字  
实例:
Private   Sub   Command4_Click()  
  Print   WritePrivateProfileString("BOOT",   "Shell",   vbNullString,   "tmp1.ini")     '删除Shell  
  Print   WritePrivateProfileString("BOOT",   vbNullString,   vbNullString,   "tmp1.ini")     '删除BOOT  
  End   Sub

阅读全文(1145) | 评论:0 | 复制链接

VB自定义鼠标指针为手指样式(2008-4-30 14:14:00)

将label1的mousepointer属性值设置为99 ，mouseicon属性设置为小手图标，可以到c:\windows\cursors目录下找。

阅读全文(1418) | 评论:0 | 复制链接

网线接口氧化导致上网不正常(2008-4-26 22:53:00)

        现在家庭比较流行通过路由器共享宽带上网，经济省钱，但使用一段时间后，可能会出现不能上网，或者时断时续，许多人会认为网卡坏了或是网线断了，其实很大可能这是因为网线插头金属铜片因长期氧化而导致接触不良，需要对所有网线插头进行清洗，用废旧牙刷和清洁济进行清洗数次，然后擦干，重新连接好，故障解决。

阅读全文(1275) | 评论:0 | 复制链接

为何开机需按F1键才能进入系统？(2008-4-26 22:52:00)

        电脑使用一年后，开机可能会出现按F1的提示，一般来说，您的电脑主板中的电池电量已严重不足，到电脑城买回一个换上，开机后，按DEL键，进入BIOS设置，看不懂英文的朋友，直接选择SAVE英文字母的一项，按回车键保存，退出后，以后开机免按F1键直接进入系统。(此故障在针式打印机口较常出现，您若有类似问题未能解决，欢迎留言！）

阅读全文(1786) | 评论:3 | 复制链接

电脑黑屏与BIOS芯片接触不良有关(2008-4-26 22:51:00)

        本人的近年维修主板中发现，主板BIOS芯片接触不良造成的故障比率很高，主板用一两年后，因金属脚氧化而接触不良，造成主动能启动，但黑屏，或经常无规律重启。解决办法，小心拆下BIOS芯片，用酒精清洗金属接触处数次，干燥后装回原处，开机正常。（此故障在针式打印机口较常出现，您若有类似问题未能解决，欢迎留言！）

阅读全文(1151) | 评论:2 | 复制链接

针式打印机无反应或乱码原因何在？(2008-4-26 22:50:00)

        今天，我维修他人的电脑时，移动了电脑，并插拔了针式打印机EPSON-LX300，之后打印文档时，不出现打印任务图标，无反映（或打印字符出现乱码），但打印机自检又正常，后拆开打印并口连线，发现一两跟线焊接部分断开，后用电烙铁焊好，装好并插回主机并口，打印正常。（此故障在针式打印机口较常出现，您若有类似问题未能解决，欢迎留言！）

阅读全文(1548) | 评论:0 | 复制链接

ATX电源的通病及维修方法(2008-4-26 22:49:00)

阅读全文(738) | 评论:0 | 复制链接