소스 관련
POST/GET Transmitter 프로젝트.
POST/GET Transmitter 프로젝트.
2012.12.02더 기능을 추가하려고 했으나 시험 기간인 덕분인지 추가할 시간도 없네요. 소스가 많이 더럽습니다. Private Declare Function GetCapture Lib "user32" () As Long Private Declare Function SetCapture Lib "user32" (ByVal Hwnd As Long) As Long Private Declare Function ReleaseCapture Lib "user32" () As Long Dim WinHttp As New WinHttpRequest Private Sub bMinus_Click() Dim bIndex As Integer bIndex = arrCheck.UBound ' 최소 입력란 초과 If bIndex = 0 Then Ms..
프로세스 클리너 프로젝트 진행 중 개발 중단
프로세스 클리너 프로젝트 진행 중 개발 중단
2012.11.23아래는 프로세스 클리너 프로젝트 내 modCleaner.bas의 코드입니다. 여러 프로젝트가 함께 겹치다보니, 프로세스 클리너가 불완전한, 완성되지 못한 상태로 남아있었습니다. 제대로 동작하지 않을 수도 있으니, 그저 참고용으로 쓰시면 되겠네요. Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Funct..
캡션에 특정 단어가 들어가있으면 프로세스 종료 TerminateTask.
캡션에 특정 단어가 들어가있으면 프로세스 종료 TerminateTask.
2012.08.01Option Explicit Private Declare Function IsWindow Lib "user32" (ByVal hWnd As Long) As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As LongPrivate Declare Function CloseHandle Lib "ker..
위젯 용량체크 프로그램 소스
위젯 용량체크 프로그램 소스
2012.07.18Private Sub Command1_Click()Base = FileLen(App.Path & "\Base.wz")Character = FileLen(App.Path & "\Character.wz")Effect = FileLen(App.Path & "\Effect.wz")Etc = FileLen(App.Path & "\Etc.wz")Item = FileLen(App.Path & "\Item.wz")List = FileLen(App.Path & "\List.wz")Map = FileLen(App.Path & "\Map.wz")Mob = FileLen(App.Path & "\Mob.wz")Morph = FileLen(App.Path & "\Morph.wz")Npc = FileLen(App.Path & "\..
네이버 카페 최신글 불러오기 소스
네이버 카페 최신글 불러오기 소스
2012.07.14Dim WinHttp As New WinHttpRequest Private Sub Command1_Click()WinHttp.Open "GET", "http://cafe.naver.com/ArticleList.nhn?search.clubid=" & ClubID & "&search.questionTab=A&search.specialmenutype=&userDisplay=20&search.page=1"WinHttp.Send tmp = Split(StrConv(WinHttp.ResponseBody, vbUnicode), "")(1), "")(0)List1.AddItem tmp2End IfNext iEnd Sub
비주얼베이직 네이트온 접속 관련 소스
비주얼베이직 네이트온 접속 관련 소스
2012.06.28Private Sub Sock_Connect() Sock.SendData "PVER 1 1.1.0.301 3.0 ko.linuxm" & vbCrLf Text2.Text = Text2.Text & "PVER 1 1.1.0.301 3.0 ko.linuxm" & vbCrLf End Sub Private Sub Sock_DataArrival(ByVal bytesTotal As Long) Dim Packet$ Sock.GetData Packet ' load received data into Packet If InStr(Packet, "PVER") > 0 Then Sock.SendData "AUTH 2 DES" & vbCrLf Text2.Text = Text2.Text & "AUTH 2 DES" & vbCrLf E..
비주얼베이직 네이트온 접속 관련 함수
비주얼베이직 네이트온 접속 관련 함수
2012.06.28Function MakePCID() As String Dim RANDOM_INT_RANGE As Integer Randomize RANDOM_INT_RANGE = Int(Rnd * 999) MakePCID = "0" & Format(Now, "yyyymmddhhmmss") & Format(RANDOM_INT_RANGE, "000") End Function Function GetLockey() As String Dim chfl As String: chfl = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYGabcdefghijklmnopqrstuvwxyz" Dim chfl_len As Integer: chfl_len = Len(chfl) Dim sr As Integer Randomize F..
스타크래프트 로그인 시 메세지 한글화
스타크래프트 로그인 시 메세지 한글화
2012.06.28handle_bnet.c를 여신 후에, _client_loginreq2 함수 정의부분을 보시면 해당 유저가 이미 로그인 중이거나, 계정이 잠겨있거나, 비밀번호가 틀릴때의 메세지를 여기서 수정할 수 있습니다. 이렇게 출력되는 비밀번호 입력시 뜨는 메세지를 약간 바꿀려면, wrong password 이벤트 로그 아래있는 bn_int_set을 바꿉니다. bn_int_set(&rpacket->u.server_loginreply2.message, SERVER_LOGINREPLY2_MESSAGE_BADPASS);를 bn_int_set(&rpacket->u.server_loginreply2.message, SERVER_LOGINREPLY2_MESSAGE_LOCKED);packet_append_string(rpacke..
네이버 카페 인증 예제소스
네이버 카페 인증 예제소스
2012.06.28Private WinHttp As New WinHttpRequest는 맨 윗부분에. WinHttp.Open "POST", "http://nid.naver.com/nidlogin.login"WinHttp.SetRequestHeader "Referer", "https://nid.naver.com/nidlogin.login"WinHttp.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"WinHttp.Send "id=" & 아이디 & "&pw=" & 비밀번호 & "&enctp=2&smart_level=-1"If InStr(WinHttp.ResponseText, "sso/cross-domain.nhn") ThenWinHttp.Open "GE..
위젯 용량체크 모듈
위젯 용량체크 모듈
2012.06.28'wz 파일의 용량을 보려면 속성 -> 크기에서 바이트를 읽으면 된다.'프로그램 경로에 반드시 wz 파일이 있어야 합니다. Function WzChecking()Dim SkillwzByte As LongDim BasewzByte As LongDim CharacterwzByte As LongDim MapwzByte As Long 'wz 파일의 용량 설정SkillwzByte = 110082192BasewzByte = 6540CharacterwzByte = 367150412MapwzByte = 874505709 WzChecking = False If Len(Dir("Skill.wz")) = 0 ThenMsgBox "폴더 내에 Skill.wz가 없습니다!", vbExclamation, "에러!": Exit Fu..
배틀넷 PHP 트래커 by MuleSlow
배틀넷 PHP 트래커 by MuleSlow
2012.03.14http://www.muleslow.net/files/phptracker/
C# 배틀넷 레지스트리 편집
C# 배틀넷 레지스트리 편집
2012.03.14private void Form1_Load(object sender, EventArgs e) { string[] after; RegistryKey key = Registry.CurrentUser.CreateSubKey(@"Software\Battle.net\Configuration"); after = (string[])key.GetValue("Battle.net gateways"); foreach (string str in after) { textBox1.Text += str + Environment.NewLine; } key.Close(); } private void Form1_FormClosing(object sender, FormClosingEventArgs e) { string[] before =..