Mình có 1 đoạn code do mình không chuyên nên không hiểu đc mong mọi nguòi giúp đỡ
Code:
Private Sub auto_open()
Dim makt1 As String, s1 As String, v As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
pro = pro & objItem.ProcessorId
Next
m_pro = Len(pro)
Do Until m_pro = 0
textghi = Mid(pro, m_pro, 1)
textghi = Asc(textghi)
textghi = Val(textghi) * 3
check = check & textghi
m_pro = m_pro - 1
Loop
If Len(Dir("d:\dt_xlct\KTS.txt", vbHidden)) > 1 Then
Open "d:\dt_xlct\KTS.txt" For Input As #1
Do While Not EOF(1)
makt1 = makt1 & Input(1, #1)
Loop
Close
If makt1 = check Then
source = ThisWorkbook.Path
ChDrive Left(source, 2)
ChDir source
Let Application.Caption = ""
If Len(Dir("xlct.xla", vbHidden)) > 1 Then
Workbooks.Open Filename:="xlct.xla"
Else
MsgBoxUni UNC("TÖp M· nguån cña b¹n ®· bÞ h hoÆc mÊt "), , UNC("X©y l¾p CT ")
Application.DisplayAlerts = False
Application.Quit
End If
Else
Application.DisplayAlerts = False
Application.Quit
End If
Else
Application.DisplayAlerts = False
MsgBoxUni UNC("B¹n ®õng cè g¾ng n÷a! B¹n bÊm sè 113 ®Ó ®îc sù hç trî cña T¸c gi¶."), , UNC("X©y l¾p CT ")
Application.Quit
End If
Main.Show
End Sub
Private Sub auto_close()
Application.DisplayAlerts = False
ThisWorkbook.Close savechanges:=False
End Sub
Các bạn giúp mình tạo file KTS.txt có nội dung mà code trên đưa ra
file tạo tệp tham khảo:
Attribute VBA_ModuleType=VBAModule
an
Dim fs, objWMIService, colItems, objItem, s3 As String, s4 As String, tep1
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
SetAttr "d:\DQT_XLCT\vn12.txt", vbArchive
For Each objItem In colItems
s3 = objItem.ProcessorId
Rem Set tep1 = fs.CreateTextFile("d:\DQT_XLCT\vn12.txt", True)
tep1.Write (s4)
tep1.Close
Next
SetAttr "d:\DQT_XLCT\vn12.txt", vbHidden + vbReadOnly
Application.Quit
End Sub
Mong các bạn giúp đỡ
Code:
Private Sub auto_open()
Dim makt1 As String, s1 As String, v As String
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objItem In colItems
pro = pro & objItem.ProcessorId
Next
m_pro = Len(pro)
Do Until m_pro = 0
textghi = Mid(pro, m_pro, 1)
textghi = Asc(textghi)
textghi = Val(textghi) * 3
check = check & textghi
m_pro = m_pro - 1
Loop
If Len(Dir("d:\dt_xlct\KTS.txt", vbHidden)) > 1 Then
Open "d:\dt_xlct\KTS.txt" For Input As #1
Do While Not EOF(1)
makt1 = makt1 & Input(1, #1)
Loop
Close
If makt1 = check Then
source = ThisWorkbook.Path
ChDrive Left(source, 2)
ChDir source
Let Application.Caption = ""
If Len(Dir("xlct.xla", vbHidden)) > 1 Then
Workbooks.Open Filename:="xlct.xla"
Else
MsgBoxUni UNC("TÖp M· nguån cña b¹n ®· bÞ h hoÆc mÊt "), , UNC("X©y l¾p CT ")
Application.DisplayAlerts = False
Application.Quit
End If
Else
Application.DisplayAlerts = False
Application.Quit
End If
Else
Application.DisplayAlerts = False
MsgBoxUni UNC("B¹n ®õng cè g¾ng n÷a! B¹n bÊm sè 113 ®Ó ®îc sù hç trî cña T¸c gi¶."), , UNC("X©y l¾p CT ")
Application.Quit
End If
Main.Show
End Sub
Private Sub auto_close()
Application.DisplayAlerts = False
ThisWorkbook.Close savechanges:=False
End Sub
Các bạn giúp mình tạo file KTS.txt có nội dung mà code trên đưa ra
file tạo tệp tham khảo:
Attribute VBA_ModuleType=VBAModule
an
Dim fs, objWMIService, colItems, objItem, s3 As String, s4 As String, tep1
Set fs = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor")
SetAttr "d:\DQT_XLCT\vn12.txt", vbArchive
For Each objItem In colItems
s3 = objItem.ProcessorId
Rem Set tep1 = fs.CreateTextFile("d:\DQT_XLCT\vn12.txt", True)
tep1.Write (s4)
tep1.Close
Next
SetAttr "d:\DQT_XLCT\vn12.txt", vbHidden + vbReadOnly
Application.Quit
End Sub
Mong các bạn giúp đỡ
