风帆小筑

心有多大 世界就有多大

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

承接各种软件开发业务,数据库方面 二次开发。 QQ: 475847 mail: jinesc@163.com

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

搜索
控制面板
您好,欢迎到访网站!
  查看权限
网站分类
最新留言
«    2021年6月    »
123456
78910111213
14151617181920
21222324252627
282930

Powered By Z-BlogPHP 1.7.0

© © 2002-2026 jinesc 版权所有 ICP证: 沪ICP备16005980号-1 沪ICP备16005980号-2 沪ICP备16005980号-3