问题一:如何用kenel32.dll的中的函数修改.ini文件的数据!例如:一个setup.ini文件内容为:
[Setup Information]
Server ip= 192.168.0.1
data name=data
data dsn=data
data user=sa
data passwd=sa
我现在要将它修改为:
[Setup Information]
Server ip= 192.168.0.2
data name=db
data dsn=db
data user=sa
data passwd=data
给出简单例程者得分。
问题2:如何实现对域名的解析,我在获得一个域名以后,我可以使用ping方法获得一个ip地址,然后,将得到的ip赋给Winsock1.RemoteHostIP.可是地址如何在vb程序中解析并如何获得呢?如果你有其他的方法望请赐教!
答题者请给出例程,先答对先得分
[Setup Information]
Server ip= 192.168.0.1
data name=data
data dsn=data
data user=sa
data passwd=sa
我现在要将它修改为:
[Setup Information]
Server ip= 192.168.0.2
data name=db
data dsn=db
data user=sa
data passwd=data
给出简单例程者得分。
问题2:如何实现对域名的解析,我在获得一个域名以后,我可以使用ping方法获得一个ip地址,然后,将得到的ip赋给Winsock1.RemoteHostIP.可是地址如何在vb程序中解析并如何获得呢?如果你有其他的方法望请赐教!
答题者请给出例程,先答对先得分
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString 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 LongPublic Function ReadString(cSection As String, cKey As String, cPath As String) As String
Dim cStrNum As Integer, cString As String * 128 GetPrivateProfileString cSection, cKey, "", cString, 128, cPath
cStrNum = InStr(cString, Chr(0))
ReadString = Trim(Left(cString, cStrNum - 1))
End FunctionPublic Function WriteString(cSection As String, cKey As String, cString As String, cPath As String) As Boolean
cString = cString & Chr(0)
If LenB(StrConv(cString, vbUnicode)) <= 128 Then
WritePrivateProfileString cSection, cKey, cString, cPath
WriteString = True
Else
MsgBox "对不起,字符串超出范围!", vbExclamation
WriteString = False
End If
End Function'调用'......................
'读取键值
'iniValue变量储存健值
'Dim IniValue As String
'IniValue = ReadString("字段", "属性", "路径")
'.....................'.....................
'写入键值
'变量CheckWrite判断写入是否成功
'Dim CheckWrite As Boolean
'CheckWrite = WriteString("字段", "属性", "键值", "路径")
'CheckWrite=True则表示写入成功,False表示写入失败
'.....................
Private Sub Command1_Click()
WriteString "Setup Information", "Server ip", "192.168.0.2", "d:\mc\setup.ini"
WriteString "Setup Information", "data name", "db", "d:\mc\setup.ini"
WriteString "Setup Information", "data dsn", "db", "d:\mc\setup.ini"
WriteString "Setup Information", "data user", "sa", "d:\mc\setup.ini"
WriteString "Setup Information", "data passwd", "data", "d:\mc\setup.ini"
End Sub