全局代码
Public Declare Function SATODBC_Install Lib "satrda.dll"(ByVal quiet As Boolean) As Boolean
Public Declare Function SATODBC_Uninstall Lib "satrda.dll"(ByVal quiet As Boolean) As Boolean
Public Declare Sub SatWebApp_Attach Lib "satrda.dll"(ByVal hWebApp As IntPtr, ByVal hWindow As IntPtr, ByVal nCmdShow As Long)
Public Declare Sub SatWebApp_Send Lib "satrda.dll"(ByVal hWebApp As IntPtr, ByVal cmd As String, ByVal param As String)
Public Declare Function SatWebApp_GetData Lib "satrda.dll"(ByVal lparam As Long) As String
Public Declare Sub SatRDA_CheckUpdate Lib "satrda.dll"(ByVal url As String, ByVal appName As String, ByVal path As String, ByVal hwnd As IntPtr)
Public Property WebPtr As IntPtr
Public Sub ParseCommand(ByVal command As String)
Dim sArray As String() = command.Split(";"c)
WebPtr = CType(Convert.ToInt32(sArray(0)), IntPtr)
End Sub
Public Const WS_CHILD As Integer = &H40000000
加好友 
发短信
Post By：2019/8/8 14:51:00 [只看该作者]
此主题相关图片如下：微信截图_20190808170612.png
