VBA 飞信免费短信接口(续),最新最快也最牛的接口 2012.10.26

ak47ok

一直在用，每次回帖、谢谢！辛苦了。

zhangyq0379

不会用，请明示

hnwc

楼主厉害{:soso_e183:}

高兴001

我对VBA一点也不懂，但我做物业收费正好需要这个功能，给业主发送当月的费用单。能给我一个傻瓜型的应用吗？

VBALELE

飞信2016没法使用这个程序模块，为啥呢？

qinlonghui

楼主好啊，window10，64位系统，提示这些需要修改，还不知道能不能发送。'Private Declare Function LoadLibrary Lib "kernel64" Alias "LoadLibraryW" (ByVal lpLibFileName As Long) As Long 'Private Declare Function GetAllSettings Lib "kernel64" (ByVal hModule As Long, ByVal lpProcName As String) As Long 'Private Declare Function FreeLibrary Lib "kernel64" (ByVal hLibModule As Long) As Long ''Private Declare Function CallAsmCode Lib "user32" Alias "CallWindowProcW" (FirstAsmCode As Long, ByVal pA As Long, ByVal pB As Long, ByVal pC As Long, lpD As Long) As Long 'Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long 'Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long 'Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long 'Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long 'Private Declare Function CloseClipboard Lib "user32" () As Long 'Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long 'Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long 'Private Declare Function EmptyClipboard Lib "user32" () As Long 'Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

32004726

楼主是否对微信有研究，谢谢

qdchyq

不能用了吧