#APS/Basic
高可配置的 MDI 的 Tab 控件
' returns a new gradient brush with the glass look Friend Function CreateGlassGradientBrus…
#APS/Basic
VBA中计算程序运行时间
Dim a As Date Dim b As Date a = Time Application.ScreenUpdating = False ''''''''''''''''''…
#APS/Basic
Access 2007/2010 VBA基于Windows认证的用户管理
Private Sub Form_Load() Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Select UserR…
#APS/Basic
清除bin和obj文件夹的内容并清理vss相关文件
Function DeleteSomeFiles(path) Dim file,folder,sfolder,fname,subfolder,files If Not objFSO…
#APS/Basic
ASP 连接 MYSQL 数据库
dim strserver,struid,strsapwd,strdbname strserver="127.0.0.1" struid="dbName" strsapwd="ro…
#APS/Basic
实现FTP上传功能、
'FTP服务器定义 Dim shuju, shuju2 As String Const Str_FtpServer As String = "ftp://chinxn.vipkj.…
#APS/Basic
将excel中的数据导入数据库
<% Response.CodePage=65001%> <% Response.Charset="UTF-8" %> <% wenjian = re…
#APS/Basic
AT指令集发送短信 VB程序
Attribute VB_Name = "TC35_API" Public Declare Function timeGetTime Lib "winmm.dll" () As L…
#APS/Basic
破解图片防盗链系统(ASP小偷代码)
<% '盗链判断 Dim server_v1,server_v2 server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")…
#APS/Basic
动态IP更新到dnspod的域名解析上还可以顺便发封邮件通知下
On Error Resume Next '========各种自定义设置开始======== getcipurl1 = "http://****1****" 'http://你自…
#APS/Basic
VBA在活动的Word文档光标处粘贴选中的Excel工作表范围
Sub RangeToDocument() ' Set a VBE reference to Microsoft Word Object Library Dim WDApp As …
#APS/Basic
用VBS读写二进制文件
Function ReadBinary(FileName) Dim Buf(), I With CreateObject("ADODB.Stream") .Mode = 3: .T…
-
如遇问题，请联系客服联系客服请注明来意 高端主题开发
