一种在.NET开发环境下就在执行的方案[有点与宏功能相似]:
1.定义一自定义控件.
2.在控件的InitializeComponent部份,建一线程 如:
Me.Timer1 = New System.Threading.Timer(New Threading.TimerCallback(AddressOf Timer1_Tick))
并实现此线程及Timer1_Tick过程.
3.再把此控件拖拉到FORM窗体.试一试.此控件就已经开始执行了
4.这样此项目已经无法正常开启,项目打开,系统会自动建一个exe进程.这东西可以写一写病毒.
留用..
Windows Mobile 5.0 Emulator Images for Pocket PC - CHS.msi(Pocket PC简体中文仿）都无法下载，找了很久，不知园子里的朋友能否帮个忙，提供一个可以下载的连接。。先行谢谢
今天我的前一个软件公司发生代码遗失情况，那是几人次一年的代码，汗啊。。亡羊补牢，，快总结一下，自已也不为过。。这工作好象看来是有一点费人费事，但这种补救动作做得越好，发生事情时就越可能把灾难减少到最低。所以写几笔再次提醒以警种自己，希望大家也不要怕花这一点时间。所以放在首页给大家提个醒。希望大家能理解。
１.代码备份最少要备份二份，且备份名称要规范。
２.及时备份，两个备份的地方要同时备份，及时的话做到当日工作编码完毕时，也就是说等今天工作结束或些项目已经完成要进行一次备份动作。备份两份的话，要在两个不同的地方，最好是两台的电脑，异城[异区域]进行备份存储。
３.备份时有的人采用的是一些版本控件软件，有的人采用后一版本覆盖前一版本，两种方法都可以，但最好是把备份文档的名称写清楚。
现在非常流行“绿色”软件，不需要什么安装程序只要一个 EXE 文件就可以运行程序了，而在 VB 的编程中有许多地方需要调用第三方的控件（很难用 API 函数搞定所有的功能），这就需要制做一个安装程序，把所需要的控件、DLL 文件或其他文件打包进去了，
那么在 VB 中怎么用变通的方法实现“绿色”软件呢，请看示例：
1、主程序.EXE
用 VB6.0 编写的程序，调用了 Winsock 控件，如果在没有安装VB5.0、6.0 的机器上运行则会出现错误，导致程序运行失败，这时如果按一般的方法，只有把这个程序用VB5.0、6.0 的安装程序进行打包，不然只有用用2的方法来解决了。
2、注册程序.EXE
用 VB6.0 编写的程序，使用资源文件的方法，把 Winsock 控件封装到本程序中，在运行主程序.EXE之前，先运行本程序，通过API函数GetSystemDirectory取得系统的Winddows\System的目录，然后把Winsock控件复制到该目录下，并用Shell来完成控件的注册。
⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加 Winsock 控件（C：\Winddows\System\nsck.ocx），再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：
类型： “OCX”
标识号： 101
语言： 中文（中国）
⑶保存资源文件，写如下代码：
Option EXPlicit
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Const MAX_PATH = 260 注释：定义足够长的字符串
Private Sub Form_Load()
Dim TempFile() As Byte
Dim FileNum As Integer
Dim TempDir As String
TempDir = GetWinSysDir 注释：自定义函数取得系统的 Winddows\System 的目录
TempFile = LoadResData(101, "OCX") 注释：用以从资源 (.res) 文件装载若干可能类型的数据，并返回一个 Byte 数组
FileNum = FreeFile
Open TempDir & "\nsck.ocx" For Binary Access Write As #FileNum 注释：新建文件(把 Winsock 控件复制到指定目录下)
Put #FileNum, , TempFile
Close #FileNum
注释：Shell "regsvr32 " & TempDir & "\nsck.ocx ", vbNormalFocus 注释：注册控件,有弹出对话框
Shell "regsvr32 " & TempDir & "\nsck.ocx /s", vbNormalFocus 注释：注册控件,无弹出对话框
MsgBox "注册成功，现在本程序可正常运行了！！", vbOKOnly, "注册控件"
Unload Me
End Sub
Public Function GetWinSysDir() 注释：定义读取Winddows\System 的所在目录的函数
Dim S As String, Length As Long
S = String(MAX_PATH, 0) 注释：赋值
Length = GetSystemDirectory(S, MAX_PATH) 注释：S为取得目录，MAX_PATH 为长度
S = Left(S, InStr(S, Chr(0)) - 1) 注释：去掉多余的空格
GetWinSysDir = S
End Function
注释：补充：S 和 MAX_PATH 的值是可以随便赋的，
注释：如: Dim S As String * 20
注释： Length = GetSystemDirectory(S, 20)
3、补充说明
在用 VB6.0 保存上述两个程序后，请再使用 VB5.0 重新打开这两个程序，并编译为主程序.EXE、注册文件.EXE。（用 VB5.0 编译的程序，在 Win98、2000 下不需要任何 DLL 文件）
4、程序运行
将主程序.EXE、注册文件.EXE两个文件，复制到任意机器上，先运行注册文件.EXE注册第三方的控件，再运行主程序.EXE，就不会有任何的错误了，一个变通的“绿色”软件就完成了。
摘要: kap 是不是把字写别啦,,供大家学习中愉悦一下.要申明的是:本人不是国内瑞星请的枪手啊 呵呵..
阅读全文
摘要: 今天接到一个任务,把应用程序与数据库打包成一个EXE可执行文件实例,就如同与"极品列车表"软件一样,看上去好象这种数据库应用程序没有数据库一样,其实它是把数据库给隐藏起来啦.好现在就来看一个实例...操作步骤如下;1.建一个vb工程2.建一个数据库,建一个表,表时填写一些测试数据3.在VB工程中建一个与数据库ACCESS应用.注意一定要在界面上显视数据库中的数据哦,不然就不好显视这个应用的效果啦....
阅读全文
摘要: 请园子里的兄弟姐妹帮帮小弟。。先谢谢开发环境：widows 2000 sp4 ,sql 2000,vs2005 Microsoft Speech SDK 5.1 问题：我用的是插件式结构，在调式单个插件时没有问题，此插件中包括了声音的调用，但是当我把此插件生成一个DLL，再用构架去调用的时候就出错啦。。错误提示如上图[未能加载文件或程序集"interop.speechlib,version=5.1...
阅读全文