+ -
当前位置:首页 → 问答吧 → 好久不玩VB了,连最简单的 msbgox判断都不会了,大家帮我看看?谢谢

好久不玩VB了,连最简单的 msbgox判断都不会了,大家帮我看看?谢谢

时间:2011-08-06

来源:互联网

Private Sub Comm_Restore_Click()


'读出INI配置 密码
  Dim ret As Long
  Dim buff As String
   
  buff = String(255, 0)
  ret = GetPrivateProfileString("PassWord", "Restore_Pass", "", buff, 256, "c:\config.ini")
  '若.ini文件中标题中无内容,则采用参数三的值。
   
  Dim Restore_Pass_input As String
  Restore_Pass_input = String(255, 0)
  Restore_Pass_input = InputBox("请输入恢复密码,防止误操作!")
   
   
  If Restore_Pass_input = buff Then
  MsgBox "密码正确"
  Else
  MsgBox "密码错误"
  End If




End Sub



c:\config.ini


[PassWord]
Restore_Pass =1
Backup_Pass =backup
PE_Pass = pe


[Ghost]
Ghost.EXE_Path =
GHO_Path = 
Ghost_Restore_CMD = 
Ghost_Backup_CMD =

[Other]





不管在我 InputBox 里面输入 什么,

  都提示: 密码错误。


 为什么呢?


作者: ww111222   发布时间: 2011-08-06

因为 Restore_Pass_input = buff 为 假

作者: yiguangqiang88   发布时间: 2011-08-06

引用 1 楼 yiguangqiang88 的回复:
因为 Restore_Pass_input = buff 为 假



  可是 我用 msgbox buff 显示 为 1

  而我在inputbox 里输入 的也是1

 但 还是显示错误

作者: ww111222   发布时间: 2011-08-06

热门下载

更多