icePubDll.dll vb版部分函数声明

'vb版部分函数声明
'gui
Private Declare  Function icePub_getInputText Lib "icePubDll.dll" (ByVal strInfo As String, ByVal  strTitle As String) As Integer
Private Declare Function icePub_getInputTextEx  Lib "icePubDll.dll" (ByVal strInfo As String, ByVal strTitle As String, ByVal  inputLen As Integer) As Integer
Private Declare Function icePub_dispText Lib  "icePubDll.dll" (ByVal strInfo As String, ByVal strTitle As String, ByVal  clipFlag As Integer) As Integer
Private Declare Function icePub_getLogonInfo  Lib "icePubDll.dll" (ByVal strUserId As String, ByVal strPassword As String,  ByVal strTitle As String) As Integer
Private Declare Function  icePub_getImageString Lib "icePubDll.dll" (ByVal strInfo As String, ByVal  strBmpFilename As String) As Integer
Private Declare Function  icePub_getImageString2 Lib "icePubDll.dll" (ByVal strInfo As String, ByVal  strBmpFilename As String, ByVal strTitle As String) As Integer
Private  Declare Function icePub_dispValue Lib "icePubDll.dll" (ByVal val As Long) As  Integer

'datetime
Private Declare Function icePub_getCurrentTimes  Lib "icePubDll.dll" (ByVal strTimes As String) As Integer

'socket
Private Declare Function icePub_tcpSendAndReceiveText Lib  "icePubDll.dll" (ByVal sendBuff As String, ByVal sendBuffLen As Integer, ByVal  recvBuff As String, ByVal recvMaxLen As Integer, ByVal serverIP As String, ByVal  serverPort As Integer) As Integer

Private Declare Function icePub_tcpDomain2ip Lib "icePubDll.dll" (ByVal  strDomain As String, ByVal strIP As String) As Integer

 

'mail
Private Declare Function icePub_sendMailText Lib "icePubDll.dll"  (ByVal strusername As String, ByVal strPassword As String, ByVal strSmtpServer  As String, ByVal sendMail As String, ByVal toMailList As String, ByVal  strSubject As String, ByVal strText As String) As Integer

Private Declare Function icePub_receiveMailText Lib "icePubDll.dll" (ByVal  strusername As String, ByVal strpwd As String, ByVal strsmtpsever As String,  ByVal strMailText As String, ByVal TextMaxLen As Integer, ByVal strFenge As  String, ByVal deleteFlag As Integer) As Integer
Private Declare Function  icePub_receiveMailTextToFile Lib "icePubDll.dll" (ByVal strusername As String,  ByVal strpwd As String, ByVal strsmtpsever As String, ByVal strFenge As String,  ByVal strFileName As String, ByVal appendFlag As Integer, ByVal deleteFlag As  Integer) As Integer

'image
Private Declare Function icePub_imgToBmp Lib "icePubDll.dll"  (ByVal strImgFilename As String, ByVal strBmpFilename As String, ByVal huiFlag  As Integer) As Integer
Private Declare Function icePub_bmpToJpg Lib  "icePubDll.dll" (ByVal strBMPFilename As String, ByVal strJPGFilename As String,  ByVal huiFlag As Integer) As Integer

Private Declare Function icePub_saveScreen Lib "icePubDll.dll" (ByVal  bmpFile As String) As Integer
Private Declare Function icePub_saveScreenJpg  Lib "icePubDll.dll" (ByVal jpgFile As String) As Integer

Private Declare Function icePub_imgReverse Lib "icePubDll.dll" (ByVal  strImgFilename As String, ByVal strBmpFilename As String, ByVal flag As Integer)  As Integer
Private Declare Function icePub_imgCircumgyrate Lib  "icePubDll.dll" (ByVal strImgFilename As String, ByVal strBmpFilename As String,  ByVal radian As Integer) As Integer

'ini
Private Declare Function icePub_getIniString Lib  "icePubDll.dll" (ByVal strDefaultValue As String, ByVal strGroupName As String,  ByVal strKeyName As String, ByVal strIniFilename As String, ByVal strResult As  String) As Integer

Private Declare Function icePub_getIniValue Lib "icePubDll.dll" (ByVal  valDefaultValue As Integer, ByVal strGroupName As String, ByVal strKeyName As  String, ByVal strIniFilename As String) As Integer

Private Declare Function icePub_setIniString Lib "icePubDll.dll" (ByVal  strValue As String, ByVal strGroupName As String, ByVal strKeyName As String,  ByVal strIniFilename As String) As Integer

 

'inet
Private Declare Function icePub_openUrl Lib "icePubDll.dll" (ByVal  currentUrlString As String, ByVal strHtmlText As String, ByVal TextMaxLen As  Integer) As Integer
Private Declare Function icePub_postUrl Lib  "icePubDll.dll" (ByVal hostAddress As String,ByVal strObject As String,ByVal  m_param As String,ByVal Referer As String,ByVal strHtmlText As String,ByVal  textMaxLen As Integer,ByVal strProxy As String) As Integer
Private Declare  Function icePub_openUrl2 Lib "icePubDll.dll" (ByVal currentUrlString As String,  ByVal strHtmlText As String, ByVal TextMaxLen As Integer) As Integer
Private  Declare Function icePub_postUrl2 Lib "icePubDll.dll" (ByVal hostAddress As  String,ByVal strObject As String,ByVal m_param As String,ByVal Referer As  String,ByVal strHtmlText As String,ByVal textMaxLen As Integer,ByVal strProxy As  String) As Integer

'machinecode
Private Declare Function icePub_machineGetInfo Lib  "icePubDll.dll" (ByVal typeFlag As Integer,ByVal strInfo As String) As  Integer

'system
Private Declare Function icePub_activForm Lib  "icePubDll.dll" (ByVal strFormTitle As String) As Integer

Private Declare Function icePub_reboot Lib "icePubDll.dll" () As  Integer
Private Declare Function icePub_shutdown Lib "icePubDll.dll" () As  Integer

 

 

'string
Private Declare Function icePub_countSubString Lib  "icePubDll.dll" (ByVal strInfo As String, ByVal strSubString As String) As  Integer

Private Declare Function icePub_countSubStringFromFile Lib "icePubDll.dll"  (ByVal strFilename As String, ByVal strSubString As String) As Integer

Private Declare Function icePub_getSubString Lib "icePubDll.dll" (ByVal  strText As String, ByVal strResult As String, ByVal strBegin As String, ByVal  strEnd As String, ByVal startIndex As Integer) As Integer

Private Declare Function icePub_getHrefLinks Lib "icePubDll.dll" (ByVal  strText As String, ByVal strLinkList As String, ByVal strTextList As String,  ByVal strFenge As String) As Integer

 

Private Declare Function icePub_getSelectPath Lib "icePubDll.dll" (ByVal  strPath As String,ByVal maxLen As Integer) As Integer

 

Private Declare Function icePub_UTF8toUnicode Lib "icePubDll.dll" (ByVal  strUtf8Info As String,ByVal strInfo As String,ByVal strMaxLen As Integer) As  Integer

 

'digest
Private Declare Function icePub_getMD5FromString Lib  "icePubDll.dll" (ByVal strData As String,ByVal strResult As String) As  Integer
Private Declare Function icePub_sha1FromString Lib "icePubDll.dll"  (ByVal strData As String,ByVal strResult As String) As Integer

 

'other
Private Declare Function icePub_open Lib "icePubDll.dll"  (ByVal strPath As String) As Integer

 

'path
Private Declare Function icePub_deleteFiles Lib  "icePubDll.dll" (ByVal strCurrentPath As String) As Integer