수다닷컴

Private Sub Command1_Click()MsgBox 프로세서를 잡아주도록 하세요...., vbExclamation, ERROREnd SubPrivate Sub Image1_Click()End SubPrivate Sub Command2_Click()
Timer1.Enabled = True
Command1.Enabled = False
End SubPrivate Sub Command3_Click()
MsgBox 스캔을 취소할게없습니다....스캔을 선택하세요, vbExclamation, 알림
End SubPrivate Sub Slider1_Click()End SubPrivate Sub Command4_Click()MsgBox Text2.Text + Text3.Text
MsgBox 코드입력에 실패하였습니다 다시시도해주세요., vbCritical, 알림End SubPrivate Sub Command5_Click()
If MsgBox(종료하시겠습니까?, vbYesNo + vbInformation, 종료) = vbYes Then
End
End IfEnd SubPrivate Sub Command6_Click()MsgBox 넥슨엔진6.0버젼은 벨류값을 먼저 선택하여야합니다., vbCritical, 예기치않은 오류
End SubPrivate Sub Option2_Click()
If MsgBox(All모드를 선택하시면 예기치않은 오류가날수 있습니다..정말로하시겠습니까?, vbInformation + vbYesNo, 알림) = vbYes Then
MsgBox 조심부탁드립니다....;;, vbCritical, 알림
Else
MsgBox 체크는됩니다 오류는 뜨지않습니다..하지만 역할은 하지못합니다, vbExclamation, 알림
End If
End SubPrivate Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
Timer1.Enabled = False
Command1.Enabled = TrueEnd If
If Command1.Enabled = True Then
MsgBox 스캔이 완료되었습니다 벨류값을 선택해주세요., vbExclamation, 알림
End If
End Sub이렇게만했는데 악성코드뜨네요;; 이런거 처음이라;;

신청하기