컴퓨터 썸네일형 리스트형 [VB6.0]UFT8 인코딩 소스 Private Function Utf82String(ByRef data() As Byte) As String 'UTF8 인코딩 Dim objStream Dim strTmp As String Set objStream = CreateObject("ADODB.Stream") objStream.Charset = "utf-8" objStream.Mode = 3 objStream.Type = 1 objStream.Open objStream.Write data objStream.Flush objStream.Position = 0 objStream.Type = 2 strTmp = objStream.ReadText objStream.Close Set objStream = Nothing Utf82String = strTm.. 더보기 [VB6.0]프로세스리스트를 불러오고 해당 프로세스를 종료하는 소스 프로세스 리스트 불러오기 Dim ProcessList Dim Processes Set ProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process ") For Each Processes In ProcessList List1.AddItem Processes.Name Next Set ProcessList = Nothing Set Processes = Nothing 프로세스 종료 sProcess = title Set ProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process where name = '" & sProcess & "'") For Each oProc.. 더보기 이전 1 ··· 17 18 19 20 다음