핵커의 프로그래밍 세상

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1

End Sub

Private Sub Timer1_Timer()

Dim Notice As String

Notice = Int(Rnd * 100000) + 1

Form1.Caption = Notice

End Sub

Dim WinHttp As New WinHttp.WinHttpRequest

Private Sub Command1_Click()

WinHttp.Open "POST", "http://smartfile.co.kr/member/loginCheck.php"

WinHttp.SetRequestHeader "Referer", "http://smartfile.co.kr"

WinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"

WinHttp.Send "Frame_login=Ok&keep=Y&m_id=" & Text1 & "&m_pwd=" & Text2 & "&idSave=0"

If InStr(StrConv(WinHttp.ResponseBody, vbUnicode), "등록된 회원이 아닙니다.") Then

MsgBox "등록된 회원이 아니당", 16, ""

ElseIf InStr(StrConv(WinHttp.ResponseBody, vbUnicode), "비밀번호") Then

MsgBox "비번이 정확하지않당", 16, ""

Else

MsgBox "로그인성공", 64, ""

End If

End Sub

public class MyThread extends Thread {//쓰레드 정의 private int id = -1; public MyThread(int id){ this.id = id;//생성할때 받을 인자 } public void run(){ System.out.println( id + "Thread" ); try { Thread.sleep(1000); //1초쉬고 } catch (InterruptedException e) { e.printStackTrace(); } System.out.println( "Thread OUT" );//쓰레드 끝 } public static void main(String[] args) { for(int i = 0 ; i < 10 ; i++ ){//10번 반복 MyThread t = new MyThread(i);//쓰레드 생성 t.start(); //쓰레드 시작 } System.out.println("End"); } }