给ListBox添加内容 If CheckBox8 = True Then---------------------------checkbox控件被选中 For i = 0 To ListBox1.ListCount - 1--------------循环将值赋到ListBox中 If i < ListBox1.ListCount Then ' If ListBox1.Selected(i) Then ' ListBox1.Remo
Windows Script Host 技术是一门很老的技术,它让 Windows 的自带脚本 VBScript 和 JScript 可以操作 Windows ActiveX 对象,这样的脚本具有本地权限,比如本地文件系统的访问,网络的访问等.我在邮件中收到一封来自联邦快递的邮件.附件为:Label_00979216.doc.js,很简单的混淆并压缩,代码如下, var a5 = 'va'; var a3 = 'l'; var a1 = ''; var a4 = 'e'; function op
在GOPaint的设计研究过程中,我一直希望能够实现这样的结果(A B C 3个步骤) 在我之前的博客里面,曾经有过缩略图显示的现就(http://www.cnblogs.com/jsxyhelu/p/5493329.html ),也应用到了实际的项目中.但是现在过了一段时间后回头再看,当时的实现放吧是粗糙的.基于MFC已经提供的基础库,通过c++自己的重载机制,应该能够得到精巧的实现,但是肯定需要去重写一些东西. 为了解决问题,达到效果,进行了一些研究. 一.CMFCShellList和
学习VBA,正好给财务制作一个小工具: Sub 打开人员信息表() Dim wb As Workbook, c As Integer Set wb = Workbooks.Open(, True) c = wb.Worksheets.Count If c < Then wb.Worksheets.Add after:=Worksheets(Worksheets.Count) wb.Worksheets().Select End Sub Sub 添加选中人员() Dim fw As Workshe
打开关闭工作簿等 1 Sub 打开工作簿() 2 Dim sFilePath As String 3 sFilePath = "D:\A.xls" 4 Dim oWB As Workbook 5 Set oWB = Excel.Workbooks.Open(sFilePath, ReadOnly:=False, writerespassword:="123") 6 delay (5) 7 If Not oWB.ReadOnly Then 8 9 oWB.Close
Windows Registry Editor Version 5.00[HKEY_CLASSES_ROOT\.txt]@="txtfile""Content Type"="text/plain"[HKEY_CLASSES_ROOT\.txt\ShellNew]"NullFile"=""[HKEY_CLASSES_ROOT\txtfile]@="文本文档"[HKEY_CLASSES_RO