소스 관련
C# 화면 흘러내림(Screen melt)
C# 화면 흘러내림(Screen melt)
2013.03.24main():IntPtr lngDC; int intX, intY; IntPtr hdc; int intWidth, intHeight; lngDC = clsModule.GetDC(IntPtr.Zero); hdc = clsModule.CreateCompatibleDC(lngDC); intWidth = Screen.PrimaryScreen.Bounds.Width; intHeight = Screen.PrimaryScreen.Bounds.Height; clsModule.BitBlt(hdc, 0, 0, intWidth, intHeight, lngDC, 0, 0, 13369376); timer3.Start(); timer3_Tick(): Random random = new Random(); intX = Convert...
2013-02-20 C# 마인크래프트 사이트 로그인
2013-02-20 C# 마인크래프트 사이트 로그인
2013.02.20public static bool minecraftLogin(string username, string password, ref string authToken, CookieContainer cookie) { authToken = Regex.Split(getResponse("http://minecraft.net/login", cookie), "authenticityToken\" value=\"(.*?)\"")[1]; HttpWebRequest request = (HttpWebRequest)WebRequest.Create("https://minecraft.net/login"); request.Method = "POST"; request.ContentType = "application/x-www-form-ur..
2013-02-20 FTP 파일 업로더
2013-02-20 FTP 파일 업로더
2013.02.20간단하게 FTP 서버에 있는 텍스트 파일을 수정하기 위하여 만들었던 프로그램입니다. using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; using System.Net; using System.IO; using System.Runtime.InteropServices; namespace FTPListUpload { public partial class Form1 : Form { [DllImport("kernel32.dll")] priv..
비주얼 베이직 6.0 멀티파트 관련 클래스 모듈
비주얼 베이직 6.0 멀티파트 관련 클래스 모듈
2013.02.14아래는 VB 6.0에서 작성된 멀티파트 관련 클래스 모듈입니다. '------------------------------------------------------------------------------------------------------------- ' 이름: clsMultipart.cls ' 날짜: 2013/02/14 ' ' 내용: 멀티파트 관련 클래스 모듈 '------------------------------------------------------------------------------------------------------------- Dim WinHttp As New WinHttpRequest Private Declare Sub CopyMemory Lib "kernel3..
C# 네이버 메일 이미지 업로드 코드
C# 네이버 메일 이미지 업로드 코드
2013.02.09예외처리는 하나도 하지 않았습니다. 손봐야 할부분이 몇군데 있는것 같지만 그냥 올립니다. public static string NaverImageUpload(string path, CookieContainer cookie) { HttpWebRequest request = (HttpWebRequest)WebRequest.Create("http://mail.naver.com/write/image/upload"); FileStream fs = new FileStream(path, FileMode.Open, FileAccess.Read); byte[] data = new byte[fs.Length]; fs.Read(data, 0, data.Length); fs.Close(); Stream DataStream =..
Visual Basic 6으로 만들어진 추첨기 코드
Visual Basic 6으로 만들어진 추첨기 코드
2013.02.05조금 오래전에 만든 추첨기의 코드입니다. 프로젝트 폴더를 정리하다가 추첨기 프로젝트가 있길래 올렸습니다. Option Explicit Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Sub ReleaseCapture Lib "user32" () Const WM_NCLBUTTONDOWN = &HA1 Const HTCAPTION = 2 Private Sub Command5_Click() List1.Clear End Sub Private Sub Co..
웹 관련 함수 생성기
웹 관련 함수 생성기
2013.01.20정작 만들고나서 보니까 괜찮기도 하고, 유용하지 않은것 같기도 하고 그러네요. 상당히 발코딩 & 노가다.. (세밀한 구문 하이라이팅 처리는 하지 않았습니다) using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Net; using System.Text.RegularExpressions; using System.Threading.Tasks; using System.Windows.Forms; namespace WindowsFormsApplication8 { pub..
정규 표현식 테스터(Regular Expression Tester)
정규 표현식 테스터(Regular Expression Tester)
2013.01.03소스가 많이 더럽습니다.using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Threading.Tasks; using System.Windows.Forms; using System.Text.RegularExpressions; namespace RegexExpression { public partial class Form1 : Form { MatchCollection colMatches; int numSel, nowCount, matchesCount; publi..
헤더를 VB6 코드로 쉽게 변환! (HEADER -> VB6 CODE CONVERTER)
헤더를 VB6 코드로 쉽게 변환! (HEADER -> VB6 CODE CONVERTER)
2013.01.02간단한 프로젝트. Option Explicit Private Sub Text1_Change() Dim headerLine() As String Dim dHeader As String, dValue As String Dim temp As String Dim i As Integer headerLine = Split(Text1.Text, vbCrLf) For i = 0 To UBound(headerLine) If InStr(headerLine(i), ":") > 0 Then dHeader = Split(headerLine(i), ":", 2)(0) dValue = Split(headerLine(i), ":", 2)(1) Else dHeader = headerLine(i) dValue = vbNullString..
POST 데이터 비교(POST Data Compare)
POST 데이터 비교(POST Data Compare)
2013.01.02소스가 많이 더럽습니다. Option Explicit Dim MinControl As Integer Dim i As Integer Private Sub BCompare_Click() Dim VCompareA() As String: VCompareA = Split(TCompareA, "&") Dim VCompareB() As String: VCompareB = Split(TCompareB, "&") Dim MaxControl As Integer TCompareA.BackColor = &HFFFFFF: TCompareB.BackColor = &HFFFFFF If TCompareA.Text = vbNullString Or TCompareB.Text = vbNullString Then MsgBox "Compar..
VB6 -> C# 포팅, 네이버 로그인, 네이버 쪽지 전송, 네이버 메일 전송
VB6 -> C# 포팅, 네이버 로그인, 네이버 쪽지 전송, 네이버 메일 전송
2012.12.02네이버 로그인: public static bool NaverLogin(string ID, string PW, CookieContainer cookie) { HttpWebRequest request = (HttpWebRequest)WebRequest.Create("http://nid.naver.com/nidlogin.login"); request.Method = "POST"; request.ContentType = "application/x-www-form-urlencoded"; request.Referer = "https://nid.naver.com/nidlogin.login"; request.CookieContainer = cookie; StreamWriter swriter = new StreamWri..
유용한 getImageFromURL, DownloadRemoteImageFile 함수
유용한 getImageFromURL, DownloadRemoteImageFile 함수
2012.12.02private static void DownloadRemoteImageFile(string uri, string fileName) { HttpWebRequest request = (HttpWebRequest)WebRequest.Create(uri); HttpWebResponse response = (HttpWebResponse)request.GetResponse(); if ((response.StatusCode == HttpStatusCode.OK || response.StatusCode == HttpStatusCode.Moved || response.StatusCode == HttpStatusCode.Redirect) && response.ContentType.StartsWith("image", Str..