VB 两小时

最新推荐文章于 2025-11-27 13:43:37 发布

原创最新推荐文章于 2025-11-27 13:43:37 发布 · 117 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#shell

本文介绍了一个使用VBScript进行INI文件读写的示例程序。该程序通过几个按钮触发不同的功能，包括写入用户信息（如姓名和序列号）到INI文件以及从INI文件中读取这些信息。

VB 两小时
2011年09月25日
　　Option Explicit
　　Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameter 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 lpFileName As String) As Long
　　Private r As Long
　　Private entry As String
　　Private iniPath As String
　　Function GetFormINI(AppName As String, KeyName As String, FileName As String) As String
　　Dim RetStr As String
　　RetStr = String(255, Chr(0))
　　GetFormINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
　　End Function
　　Private Sub Command1_Click()
　　entry = Text1.Text
　　r = WritePrivateProfileString("用户信息", "姓名", entry, iniPath)
　　If r 1 Then MsgBox "写姓名出错！"
　　End Sub
　　Private Sub Command2_Click()
　　Text1.Text = GetFormINI("用户信息", "姓名", iniPath)
　　End Sub
　　Private Sub Command3_Click()
　　entry$ = Text2.Text
　　r = WritePrivateProfileString("用户信息", "序列号", entry, iniPath)
　　If r 1 Then MsgBox "写姓名出错！"
　　End Sub
　　Private Sub Command4_Click()
　　Text2.Text = GetFormINI("用户信息", "序列号", iniPath)
　　End Sub
　　Private Sub Command5_Click()
　　Text2.Text = GetFormINI("用户信息", "序列号", iniPath)
　　Text1.Text = GetFormINI("用户信息", "姓名", iniPath)
　　End Sub
　　Private Sub Command6_Click()
　　Command1_Click
　　Command3_Click
　　End Sub
　　Private Sub Command7_Click()
　　Text1.Text = ""
　　Text2.Text = ""
　　End Sub
　　Private Sub Command8_Click()
　　End
　　End Sub
　　Private Sub Form_Load()
　　iniPath$ = App.Path + "\rwini32.ini"
　　Command7_Click
　　End Sub