2023年10月7日
摘要：
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName A 阅读全文
摘要：
Function ReadText(FileName As String) As String With CreateObject("ADODB.Stream") .Type = 2 .Mode = 3 .Open .LoadFromFile FileName .Charset = "UTF-8" 阅读全文
摘要：
Function GetIP() As String Dim OpSysSet As Object, Op As Object, Ip Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate}//localhost").E 阅读全文
摘要：
Function GetDesktop() As String With CreateObject("wscript.shell") GetDesktop = .Regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ 阅读全文
摘要：
Sub CreateFile(FileText As String, Fil As String) With CreateObject("ADODB.Stream") .Type = 2 .Charset = "Unicode" .Open .WriteText FileText .SavetoFi 阅读全文