VB
巫妖天下
宇宙无敌超级变态的菜鸟技术淫才
展开
-
短信群发接口测试2(vb+dll)
>>原文书接上一回 http://blog.csdn.net/bibbykwan/archive/2010/08/04/5788010.aspx 这回来试试他们的dll,联系他们技术员,发来dll之:http://www.mmlj.cn/software/jxwork.rar 问他们要相应的技术文档,他说很容易的,只要能用,就能“点”出方法来,这兄台够搞笑了。。。 然后我就 Declare Function .... 玩了 很久,无果,又call对方,然后对方告诉我。。那个dll是vb写原创 2010-08-05 10:20:00 · 2402 阅读 · 0 评论 -
短信群发接口测试3(vb+webservice)
》》原文再接上一回:http://blog.csdn.net/bibbykwan/archive/2010/08/05/5789848.aspx他们的webservice地址是:http://121.37.58.18:8080进去看看。。服务是这个:http://121.37.58.18:8080/SMSWebService/services/SMS?wsdl好了,vb想用webservice,就要用到soap,下载地址http://download.csdn.net/source/2601802还是我们之原创 2010-08-09 10:43:00 · 3716 阅读 · 0 评论 -
VB-Base64 文件或字符加解密
<br />先引用:Scriping.runtime<br />Option Explicit Private Const BASE64CHR As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=" Private psBase64Chr(0 To 63) As String '从一个经过Base64的字符串中解码到源字符串 Public Function DecodeBase64Stri原创 2010-09-30 13:37:00 · 3011 阅读 · 0 评论 -
VB的URLEncode函数
Public Function URLEncode(ByVal strParameter As String) As String Dim s As String Dim I As Integer Dim intValue As Integer Dim TmpData() As Byte s = "" TmpData = StrConv(strParameter, vbFromUnicode) For I = 0 To UBound(TmpDa原创 2010-11-29 09:30:00 · 6370 阅读 · 0 评论 -
vb base64支持中文版
<br />Option Explicit Private Const cstBase64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" Private arrBase64() As String Public Function Base64Encode(strSource As String) As String On Error Resume Next If UBound(arr原创 2011-01-02 23:38:00 · 2170 阅读 · 0 评论 -
短信群发接口测试(vb+get/post)
某MIS需要短信功能,公司想购置短信猫,但短信猫价格不菲外加接入的技术必须很高,所以综合考虑之下,在网上找到一家较有实力的短信公司,他们提供的接口很多类型,有http/dll/webservice等。 自我感觉http的比较容易,今天就来试验一下这种方式 技术接入文档:http://www.mmlj.cn/software/Http-Post-Get.rar (大家可以去免费注册个账号试试 http://www.mmlj.cn/Registernew.php,自带8原创 2010-08-04 14:40:00 · 9140 阅读 · 3 评论