- 博客(8)
- 资源 (4)
- 收藏
- 关注
RSS订阅原创 VB 进程间同步通讯
<br />例子的来源是MSDN,很早在MSDN上面看到的,后来找不到了,这次是从MSDN中VB例程cofee例程上摘录的,原理相同,都是用active,自定义事件.<br /><br />1创建一个Active Exe工程,我叫pro_comm_pro吧,<br />2 添加一个标注模块 , Module1.bas:<br /> Public gCLS1 As cls1 '全局变量,保存对分发消息的类对象cls1的引用,以前没有定义为Public,不可以运行<br />3 添加类cls1.Cls<br
2011-04-22 13:49:00
1147
原创 Ajax GET 和 POST 的使用
<br />GET：<br /><script type="text/javascript"><br /><!-- <br /> var xmlHttpRequest; <br /> function createXMLHttpRequest(){ <br /> try <br /> { <br /> // Firefox, Opera 8.0+, Safari <br /> xmlHttpRequest=new XML
2011-04-20 10:15:00
643
原创 正则表达式检验网址是否合法
<br />//检查网址是否合法<br />function IsURL(str_url){ <br />var strRegex = “^((https|http|ftp|rtsp|mms)?://)” <br />+ “?(([0-9a-z_!~*'().&=+$%-]+: )?[0-9a-z_!~*'().&=+$%-]+@)?” //ftp的user@ <br />+ “(([0-9]{1,3}/.){3}[0-9]{1,3}” // IP形式的URL- 199.194.52.184 <br />+
2011-04-15 05:19:00
1066
原创 ASP如何增加 删除ACCESS表和字段
<br /><%<br />''''''''''''''''''''''''''''''''''''<br />' 增加、删除表和字段<br />' ├Create Table 表名(field1 type[(size)] [null|not null] [default eExpression] [primary key][,field2...])<br />' type:counter;text(num);char(num),varchart(num);memo;s
2011-04-14 15:28:00
1581
原创 cookies 的操作
<br />如何写入Cookies？ <br />Response.Cookies( "字段名 ")=变量或字符串， <br />例如:Response.Cookies( "name2 ")= "Dingdang " <br /><br />如何设置Cookies时间？ <br />Response.Cookies( "字段名 ").expires=时间函数+N， <br />例如:Response.Cookies( "name2 ").expires=date+1，表示Cookies保存1天， <br /
2011-04-14 15:12:00
678
原创 Enc-Base64位加密程序包括源代码（支持中文和特殊符号）
Enc-Base64位加密程序包括源代码（支持中文和特殊符号） 创建一个新类，即可调用该类的加密和解密方法 Option Explicit 'Base64编码函数：Base64Encode 'Instr1 编码前字符串 'Outstr1 编码后字符串 Public Function Base64Encode(InStr1 As String) As String Dim mInByte(3) As Byte, mOu
2011-04-12 15:18:00
3538
原创 VB 判断文件是否存在
<br />方法一：<br /> 在编程时经常会用到判断文件是否存在，比如对文件做读写操作前，或是判断密钥文件是否存在等。判断的方法有很多，有些方法虽很实用，但有点繁琐。其实还可以有更简单的方法，就是使用vb 6.0提供的filesystemobject对象。<br /> filesystemobject对象不是vb内置对象，使用前必须首先选择[工程]→[引用]，在出现的窗口中选择“microsoft scripting runtime”，然后利用filesystemobject的fileexist
2011-04-12 11:49:00
25734
原创 vb 管道共享
<br />Dim hReturn As Long<br /> Dim dwOpenMode As Long, dwPipeMode As Long<br /> dwOpenMode = FILE_FLAG_OVERLAPPED Or PIPE_ACCESS_DUPLEX<br /> dwPipeMode = PIPE_NOWAIT Or PIPE_TYPE_MESSAGE Or PIPE_READMODE_MESSAGE<br /> hNamePipe = CreateNamedP
2011-04-01 13:08:00
1780
1
video-retalking项目的模型等相关大文件的下载
2023-12-14
解决iTunes安装错误的程序
2021-05-04
通讯调试软件集成串口、并口、USB、TCP、UDP、MQTT、蓝牙、WIFI、摄像头调试功能
2021-01-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人