Media Log


FILE.


prjMoss.exe


CONTENT.



* : 전신기에 짧게 입력합니다.

- : 전신기에 길게 입력합니다.


PROJECT.


VB6) MossConverter.zip


[출처] 모스 부호표|작성자 버드가지

SRC.

Dim sMossMsg As String, sNum As String, sResult As String

Dim sLen As Integer


    sMossMsg = InputBox("모스 부호를 입력하세요." & vbNewLine & "예) *--* *- *** *** *-- --- *-* -**", "I/O", "*--* *- *** *** *-- --- *-* -**")

    sNum = UBound(Split(sMossMsg, " "))

    sLen = sNum

    

    For i = 0 To sLen

        

        sNum = Split(sMossMsg, " ")(i)

        

        Select Case sNum

            Case "*-":      sResult = sResult + "A "

            Case "-***":    sResult = sResult + "B "

            Case "-*-*":    sResult = sResult + "C "

            Case "-**":     sResult = sResult + "D "

            Case "*":       sResult = sResult + "E "

            Case "**-*":    sResult = sResult + "F "

            Case "--*":     sResult = sResult + "G "

            Case "****":    sResult = sResult + "H "

            Case "**":      sResult = sResult + "I "

            Case "*---":    sResult = sResult + "J "

            Case "-*-":     sResult = sResult + "K "

            Case "*-**":    sResult = sResult + "L "

            Case "--":      sResult = sResult + "M "

            Case "-*":      sResult = sResult + "N "

            Case "---":     sResult = sResult + "O "

            Case "*--*":    sResult = sResult + "P "

            Case "--*-":    sResult = sResult + "Q "

            Case "*-*":     sResult = sResult + "R "

            Case "***":     sResult = sResult + "S "

            Case "-":       sResult = sResult + "T "

            Case "**-":     sResult = sResult + "U "

            Case "***-":    sResult = sResult + "V "

            Case "*--":     sResult = sResult + "W "

            Case "-**-":    sResult = sResult + "X "

            Case "-*--":    sResult = sResult + "Y "

            Case "--**":    sResult = sResult + "Z "

            Case "*----":   sResult = sResult + "1 "

            Case "**---":   sResult = sResult + "2 "

            Case "***--":   sResult = sResult + "3 "

            Case "****-":   sResult = sResult + "4 "

            Case "*****":   sResult = sResult + "5 "

            Case "-****":   sResult = sResult + "6 "

            Case "--***":   sResult = sResult + "7 "

            Case "---**":   sResult = sResult + "8 "

            Case "----*":   sResult = sResult + "9 "

            Case "-----":   sResult = sResult + "0 "

            Case "*-*-*-":  sResult = sResult + ". "

            Case "--**--":  sResult = sResult + ", "

            Case "**--**":  sResult = sResult + "? "

            Case "---***":  sResult = sResult + ".. "

            Case "-**-*":   sResult = sResult + "/ "

            Case "-****-":  sResult = sResult + "- "

            Case "-*--*":   sResult = sResult + "( "

            Case "-*--*-":  sResult = sResult + ") "

            Case "*******": sResult = sResult + "초기화(정정)"

        End Select

        

    Next i

    

    MsgBox "클립보드에 저장되었습니다. 메모장에 CTRL + V 해보세요." & vbNewLine & "변환된 값 : " & sResult

    

    Clipboard.Clear

    Clipboard.SetText sResult

    

    sResult = ""

    

    Unload Me



submit

    Dim WINHTTP As New WINHTTP.WinHttpRequest
    Dim wCookie As String, wPoke As String, wPokeURL As String, wPokeNum As String
    Dim uID As String, uPW As String
    
    uID = "facebook id or phoneNumber"
    uPW = "facebook password"
    
    With WINHTTP
                .Open "GET", "https://www.facebook.com/", False
                .Send
                
                wCookie = Split(Split(.GetAllResponseHeaders(), "Set-Cookie: ")(1), " ")(0)
                
                .Open "POST", "https://www.facebook.com/login.php?login_attempt=1"
                .SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8"
                .SetRequestHeader "Referer", "https://www.facebook.com/"
                .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
                .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/31.0.1650.57 Safari/537.36"
                .SetRequestHeader "Cookie", wCookie
                .Send "lsd=AVrpld2j" & _
                      "&email=" & uID & _
                      "&pass=" & uPW & _
                      "&default_persistent=0&timezone=-540&lgnrnd=115906_YNTr&lgnjs=1381863561&locale=ko_KR"
                      
                If InStr(.ResponseText, "https:\/\/fbstatic-a.akamaihd.net\/fbsbx\/fbsbx.php?1") Then
                    If InStr(.ResponseText, "<div id=""poke_option"">") Then
                        wPoke = Split(.ResponseText, "<div id=""poke_option"">")(1)
                        wPokeNum = UBound(Split(wPoke, "나도 콕 찔러보기"))

                        For i = 1 To wPokeNum
                            wPokeURL = Replace("https://m.facebook.com/pokes/inline/?dom_id_replace=" + Split(Split(wPoke, "/pokes/inline/?dom_id_replace=")(i), """><img src=""")(0), "amp;", "")
                            .Open "GET", wPokeURL
                            .SetRequestHeader "Cookie", wCookie
                            .Send
                        Next i
                    Else
                        MsgBox "콕 찌르신 분이 없습니다", vbInformation, "알림"
                    End If
                Else
                    MsgBox "로그인 실패"
                End If
    End With

:)
콕 찌르기가 오면 자동으로 콕 찔러지는 부분은, 위의 소스에서 [wPokeURL] 부분 활용하여 
하시면 되겠습니다.

그리고 프로젝트 > 참조(N) : Microsoft WinHTTP Service version 5.1 체크 해주세요.

다른언어로 사용하실 때는, HTTP 관련 부분을 참조하셔서, 사용하시면 되겠습니다!


  1. 난빨라 at 2013.11.19 15:55 [edit/del]

    카톡봇이나 어서 ... v(ㅎ_ㅎ)v

    Reply

submit

Dim WINHTTP As New WinHttpRequest

Private Sub btnMail_Click()

Dim sID As String '-- loginid
Dim sPW As String '-- loignpw
Dim sAttachld As String '-- Attachld
Dim sSubject As String '-- Subject
Dim sBody As String '-- Body
Dim sMail As String '-- Mail
Dim sSenderName As String '-- SenderName '-- 보내는 이의 로그인정보

    sID = "아이디"
    sPW = "비밀번호"
    
'-- 보내는 이의 메일정보
    sSubject = "메일제목"
    sBody = "메일내용"

'-- 받는 이의 메일주소
    sMail = "받는이"

    With WINHTTP
                .Open "POST", "http://nid.naver.com/nidlogin.login"
                .SetRequestHeader "Referer", "http://nid.naver.com/nidlogin.login"
                .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
                .Send "id=" & sID & "&pw=" & sPW & "&saveID=0&enctp=2&smart_level=-1&svctype=0"
                
                DoEvents
                    
                If InStr(StrConv(.ResponseBody, vbUnicode), "http://static.nid.naver.com/sso/cross-domain.nhn?sid=") Then
                    MsgBox "login", vbInformation, "Msg"
                Else
                    MsgBox "Not' login", vbExclamation, "Msg"
                        Exit Sub
                End If
                
                .Open "POST", "http://mail.naver.com/json/write/"
                .SetRequestHeader "Referer", "http://mail.naver.com/?n=1379438870663&v=f"
                .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0"
                .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
                .Send "orderType=new&lists=&u=" & sID
                      
                sAttachld = Split(Split(.ResponseText, "attachId"":""")(1), """,")(0)
                sSenderName = Split(Split(.ResponseText, "fromName"":""")(1), """,")(0)
                
                .Open "POST", "http://mail.naver.com/captcha/check/?u=" & sID
                .SetRequestHeader "Referer", "http://mail.naver.com/?n=1379438870663&v=f"
                .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0"
                .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
                .Send
                
                .Open "POST", "http://mail.naver.com/json/write/send/?aId=" & sAttachld & "&aCount=0&aSize=0"
                .SetRequestHeader "Referer", "http://mail.naver.com/?n=1379438870663&v=f"
                .SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.1; rv:23.0) Gecko/20100101 Firefox/23.0"
                .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
                .Send "senderName=" & sSenderName & _
                      "&to=" & sMail & _
                      "&cc=&bcc=" & _
                      "&subject=" & sSubject & _
                      "&body=" & sBody & _
                      "&contentType=html" & _
                      "&sendSeparately=false" & _
                      "&saveSentBox=true&type=new&fromMe=0" & _
                      "&attachID=" & sAttachld & _
                      "&reserveDate=&reserveGMT=&reserveTime=&calendarVal=&autoSaveMailSN=&attachCount=0" & _
                      "&attachSize=0&bigfile=&sessionID=&seqNums=&priority=0&ndriveFileInfos=&lists=&serviceID=" & _
                      "&bigfileCount=&uploaderType=html5&bigfileNotice=false&u=" & sID
                      
                      If InStr(.ResponseText, "메일을 성공적으로 보냈습니다.") Then
                        MsgBox "메일을 성공적으로 보냈습니다.", vbInformation, "알림"
                      Else
                        MsgBox "메일을 보내지 못하였습니다." & Chr(13) & Chr(13) & "오류내용-" & Chr(13) & Split(Split(.ResponseText, "MessageInDetail"":""")(1), """,")(0), vbCritical, "알림"
                      End If
        End With
            
End Sub


submit



"C:\Windows\system32\ieframe.dll\1 을 찾을수없습니다" 라는 에러

방법A
1. 시작 - 실행 - regsvr32 c:\windows\system32\shdocvw.dll /u 엔터

2. 시작 - 실행 - regsvr32 c:\windows\system32\shdocvw.dll 엔터


방법B

1. 아래의 파일을 다운로드 후 Sytem32 폴더에 덮어씌우기

shdocvw.dll

2. 시작 - 실행 - regsvr32 c:\windows\system32\shdocvw.dll /u 엔터

3. 시작 - 실행 - regsvr32 c:\windows\system32\shdocvw.dll 엔터

4. VB6 구성요소창에서 "찾아보기" 버튼을 눌러, Shadocvw.dll 추가



submit




마우스 이벤트까지 완료@_@


프로그램은, 프리웨어로 출시할 예정입니다.

디자인에 도움을 주신 도일님에게 감사드리며, 아이디어 제공 까지 해주셔서 감사합니다.


이 프로그램을 간단히 소개하자면,

컴퓨터를 사용하는 초보자 분들에게 도움이 될 수 있는 목적으로 제작되었고


흔한 요즘 인터넷 용어와 인기게임 그리고, 필수프로그램에 대한 사이트를 알려주어, 초보 사용자에

좀 더 도움이 될 수 있도록 제작 되었습니다.


그리고, 브라우저 "크롬" "파이어폭스" "사파리" 3가지 브라우저를 지원함으로써,

간단하게 설치페이지 까지 이동시켜주는 프로그램이라고 보시면 되겠습니다.


'프로그래밍 카테고리 > VB6.0' 카테고리의 다른 글

네이버 Mail 보내기 관련 소스  (0) 2013.09.20
"C:\Windows\system32\ieframe.dll\1 을 찾을수없습니다" 라는 에러  (0) 2013.09.01
인터넷 기초사용기  (0) 2013.08.27
BlackHouse.cjstyles  (0) 2013.06.27
BlackDragon.cjstyles  (0) 2013.06.27
MacX.cjstyles  (0) 2013.06.27

submit


  BlackHouse.cjstyles 에 담겨진, ini 파일들의 이름과 테마의 모양을 알아보자! 



 EXTRALARGENORMAL.INI



 

 LARGEFONTSNORMAL.INI

 


 NORMALNORMAL.INI

 



'프로그래밍 카테고리 > VB6.0' 카테고리의 다른 글

"C:\Windows\system32\ieframe.dll\1 을 찾을수없습니다" 라는 에러  (0) 2013.09.01
인터넷 기초사용기  (0) 2013.08.27
BlackHouse.cjstyles  (0) 2013.06.27
BlackDragon.cjstyles  (0) 2013.06.27
MacX.cjstyles  (0) 2013.06.27
XP.cjstyles  (0) 2013.06.27

submit


  BlackDragon.cjstyles 에 담겨진, ini 파일들의 이름과 테마의 모양을 알아보자! 



 NORMALAZENIS2.INI



 

LARGEFONTSAZENIS2.INI 

 


 EXTRALARGEAZENIS2.INI

 



'프로그래밍 카테고리 > VB6.0' 카테고리의 다른 글

인터넷 기초사용기  (0) 2013.08.27
BlackHouse.cjstyles  (0) 2013.06.27
BlackDragon.cjstyles  (0) 2013.06.27
MacX.cjstyles  (0) 2013.06.27
XP.cjstyles  (0) 2013.06.27
쿼리 관리기( MySQL Admin )  (0) 2013.06.15

submit


  MacX.cjstyles 에 담겨진, ini 파일들의 이름과 테마의 모양을 알아보자! 



EXTRALARGEMMW.INI 

 


 LARGEFONTSMMW.INI


 

 NORMALMMW.INI

 


 THEMES.INI

 



'프로그래밍 카테고리 > VB6.0' 카테고리의 다른 글

BlackHouse.cjstyles  (0) 2013.06.27
BlackDragon.cjstyles  (0) 2013.06.27
MacX.cjstyles  (0) 2013.06.27
XP.cjstyles  (0) 2013.06.27
쿼리 관리기( MySQL Admin )  (0) 2013.06.15
특정 프로세스 메모리 감지 후, 작업  (0) 2013.06.15

submit


  XP.cjstyles 에 담겨진, ini 파일들의 이름과 테마의 모양을 알아보자! 


EXTRALARGEBLUE.INI 


 

 EXTRALARGEHOMESTEAD.INI


 

 EXTRALARGEMETALLIC.INI

 


 LARGEFONTSBLUE.INI

 


 LARGEFONTSHOMESTEAD.INI

 


 LARGEFONTSMETALLIC.INI

 


 NORMALHOMESTEAD.INI

 


 NORMALMETALLIC.INI


 

 THEMES.INI

 


 WINDOWSXP.INI

 



'프로그래밍 카테고리 > VB6.0' 카테고리의 다른 글

BlackDragon.cjstyles  (0) 2013.06.27
MacX.cjstyles  (0) 2013.06.27
XP.cjstyles  (0) 2013.06.27
쿼리 관리기( MySQL Admin )  (0) 2013.06.15
특정 프로세스 메모리 감지 후, 작업  (0) 2013.06.15
파일함 게시글번호로 아이디/닉네임 추출하기  (1) 2013.06.15

submit






메이플스토리로 이용한 MySQL 간편 관리 프로그램

MySQL ODBC 5.1 사용합니다.


쿼리 관리기

( MySQL Admin )


1. 프로그램의 형태




< MYSQL 연결 폼 >


DBHOST 부터 포트까지 수정할 수 있게 되어 있으면서, DBHOST에 localhost 가 아닌

돌리미 아이피를 입력하여도 간편하게 연결 성공.



< 캐릭터 관련 폼 >


캐릭터 검색은 물론, 캐릭터의 레벨 그리고 캐릭터의 닉네임 또한 클릭으로 수정이 가능하며

정보 관련 창에서 힘, 덱스, 인트, 럭 또한 클릭으로 수정이 가능하다.


메소도 원하는 가격을 지급할 수 도 있고 그만큼 뺏어갈 수도 있는 기능을 갖추고 있으며

맵이동은 기본으로 해줄 뿐더러 맵코드와 맵이름 까지 출력된다.


GM세팅과 GM해제도 가능하다.



< 길드 관련 폼 >


길드부분을 출력하여 현재 서버에 존재하는 길드명과 길드 갯수를 출력시킨다.

길드마스터의 캐릭 고유번호를 수정함으로써 길드마스터를 변경할 수 있으며

길드의 이름 또한 수정이 가능하다.


GP포인트도 변경할 수 있는 기능은 기본기본!



< 계정 관련 폼 >


이 부분은 메이플스토리 계정부분을 나타내 주는 폼인데,

계정아이디는 물론 패스워드 그리고 2차비밀번호 까지 출력이 된다.


마지막 접속한 시간과 접속자의 아이피도 그대로 출력이 된다.

또한, 넥슨캐쉬를 지급할 수 있는 기능은 기본으로 되어 있다.


게임 로그아웃을 시킬수 있으면서 접속한 모든 사람을 로그아웃을 시키는 기능도 존재


버프 관련 기능은 현재 개발 중지된 상태라 개발을 하지 않았으며


계정아이디 형태를 아이디/비밀번호.txt로 저장하는 기능도 갖추고 있다.




 프로그램은 프리웨어가 아닙니다, 문의는 네이트온 taeminimini@nate.com 으로, 


submit