Public Class Form1 Dim a As Integer Sub open() OpenFileDialog1.FileName = "" OpenFileDialo…
Const HKCU=&H80000001 'HKEY_CURRENT_USER Const HKLM=&H80000002 'HKEY_LOCAL_MACHINE…
Sub PowerPointBasics_1() ' PowerPoint 的对象模型 Ojbect Model (OM)模型导航 ' 每个东东在 PowerPoint 中都是某个…
'截取字符串 strvalue(标题,字数) function strvalue(str,lennum) dim p_num dim i if strlen(str)<=le…
ActiveChart.CopyPicture _ Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture 复制当前图表作为…
Sub RangeToPresentation() ' Set a VBE reference to Microsoft PowerPoint Object Library Dim…
var ajax = { setDebugMode: function(){ this.debugMode = true; }, get: function (requestUrl…
Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate("about:blank") obj…
Dim RootDSE, DomainNC, Connection, Command, RecordSet ' BEGIN CALLOUT A Set RootDSE = GetO…
Private Structure SHFILEINFO Public hIcon As IntPtr Public iIcon As Integer Public dwAttri…
<!--filename : password generator -2.2.hta--> <!--Date : 2012/6/20--> <!--a…
<% '#######以下是一个类文件,下面的注解是调用类的方法################################################ '# 注意:…
从多个excel表格中合并到一个汇总excel表格中,相应的sheet序号对应
动态IP更新到dnspod的域名解析上还可以顺便发封邮件通知下