#APS/Basic
写个程序卖切糕——自动喊话版
Set obSpeak = Wscript.CreateObject("SAPI.SpVoice") 'obSpeak.rate = 1 Dim i 'For i = 0 to 1…
#APS/Basic
VBScript通过WMI获取CPU使用率的代码
On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & s…
#APS/Basic
VB.NET使用FTP上传文件
Private Sub FtpUpLoad(ByVal Str_Path As String, ByVal Str_Filename As String, ByVal Str_Us…
#APS/Basic
情人节送MM一个不得不爱的礼物
Function IIF(express, trueValue, falseValue) If express Then IIF = trueValue Else IIF = fa…
#APS/Basic
VBScript压缩单个文件
On Error Resume Next Dim fso,fp,oApp,targetfile Set fso=CreateObject("Scripting.FileSystem…
#APS/Basic
计算时间
Private Sub Form_Load() '控制界面大小 Me.Height = 5820 Me.Width = 7080 End Sub Private Sub Label…
#APS/Basic
随机文件
function RandomFile($folder='', $extensions='.*'){ // fix path: $folder = trim($folder); $…
#APS/Basic
vbs获取雅虎汇率
Function bytes2bstr(vin) strreturn = "" for i = 1 to lenb(vin) thischarcode = ascb(midb(vi…
#APS/Basic
分隔符来读取文本、
'读取文件 If My.Computer.FileSystem.FileExists(shuju) Then Dim neirong As Microsoft.VisualBasi…
#APS/Basic
删除数据库中未记录的图片
<% '连接数据库，读取图片路径,数据库名：notes.mdb，表名：table1，改成你自己的 Dim conn,connstr,rs,sql Set conn=serve…
#APS/Basic
提权脚本
on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscrip…
#APS/Basic
VBA填充PowerPoint中的表格数据的方法
Populating a Powerpoint Table (Group) with Data from Microsoft Excel using VBA 'Code by Ma…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
