mout.bas

利用vb的Ｍscomm控件实现全站仪及ＧＰＳ的数据通信程序

Attribute VB_Name = "Module1"
Option Explicit
'ipApplicationName为段名
'ipKeyName为键名，若指定的段中不存在该键，则创建
'nSize为ipReturnString指定大小
'ipFileName为INI文件名

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public 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