해피보노가 들려주는 프로그래밍 스토리 for Developers

• 일시 : 매주 화요일 저녁 7 시 부터 9 시 까지 (2 시간 소요), 5월 22일 ~ 9월 4일 (총 16 강)
• 장소 : 137 William Street, Norwood SA 5067, Australia. 로욜라관 15번 방 (교리실)
• 분야 : Microsoft Word
• 비용 : 무료
• 발표자 : 문재웅 (빈첸시오)
• 도우미 : 이주민 (사도요한)
• 인원 제한 : 13 명 내외
• 후원사 : Microsoft Australia
  
  

using System;
using System.Management;
using System.Collections;

namespace WMI_TEST
{
    class clsFunction
    {
        readonly string strWMIQry = "SELECT * FROM Win32_StartupCommand";

        // C#에서는 VB와 같은 Variant의 개념이 엄스므로 

        // 호출시에도 .NET2.0에서 지원하는 ArrayList를 이용해서 호출해야 한다.(아래와 같이)

        // ArrayList aryRet = new ArrayList();

        // 프로젝트.clsFunction oWMI = new clsFunction();

        // aryRet = oWMI .GetStartupInfo();
        // ********************************************************************************************
        public ArrayList GetStartupInfo()
        {
            ArrayList strAry = new ArrayList();
            int cnt = 0;
            string[] strV = new string[3];
            ManagementObjectSearcher oWMI = new ManagementObjectSearcher(new SelectQuery(strWMIQry));

            foreach (ManagementObject oItem in oWMI.Get())
            {
                strV[0] = oItem.GetPropertyValue("Name").ToString();                    //  프로그램명
                strV[1] = oItem.GetPropertyValue("Command").ToString();     // 프로그램의 FullName
                strV[2] = oItem.GetPropertyValue("Location").ToString();     // 레지스트리 경로
                strAry.Add(strV);
                cnt++;
            }
            return strAry;
        }
    } 
}

Sub Main()
Dim p As New Process()
p.StartInfo.FileName = "C:\Windows\System32\notepad.exe"
p.StartInfo.UseShellExecute = True

'Verb를 runas로 (관리자 권한으로 실행 명령)
p.StartInfo.Verb = "runas"

p.Start()
End Sub

Imports System.Security.Principal '네임스페이스 추가

Sub Main()
Dim user As WindowsIdentity = WindowsIdentity.GetCurrent()
Dim pu As WindowsPrincipal = New WindowsPrincipal(user)

If pu.IsInRole("Administrators") Then
MessageBox.Show("관리자 권한으로 실행중입니다.")
Else
MessageBox.Show("관리자 권한으로 실행중이 아닙니다.")
End If
End Sub

[내용 추가] 2012-05-12 오전 2:10

본 방법은 포커스 S 제품 뿐 아니라, 옴니아 W, 포커스, 포커스 2 제품에도 적용 가능하오니 이용에 참고하여
주시기 바랍니다.

using System;
using System.IO;

namespace Dir_Monitor
{

    public partial class Form1 : Form
    {

        private readonly string MAIN_TARGET_FOLDER = @"C:\Program Files\Target_Dir";
        DateTime dt;
 
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Load(object sender, EventArgs e)
        {

            try
            {
                this.textBox1.multiline = true;             
                dt = DateTime.Now;           
                start_monitor(MAIN_TARGET_FOLDER, true);
            }

            catch(SocketException ex)
            {
                System.Diagnostics.Debug.WriteLine(ex.ToString());
            }

        }

        void Dir_monitoring_Created(object sender, RenamedEventArgs e)
        {
            string str = "Created:" + e.FullPath + "/" + e.Name + ":" + dt.ToShortTimeString() + (char)10;
            this.textBox1.Text = str;
        }
       
        void Dir_monitoring_Renamed(object sender, RenamedEventArgs e)
        {
            string str = "Renamed:" + e.FullPath + "/" + e.Name + ":" + dt.ToShortTimeString() + (char)10;
            this.textBox1.Text = str;
        }

        void Dir_monitoring_Deleted(object sender, FileSystemEventArgs e)
        {
            string str = "Deleted:" + e.FullPath + "/" + e.Name + ":" + dt.ToShortTimeString() + (char)10;
            this.textBox1.Text = str;
        }

        void Dir_monitoring_Changed(object sender, FileSystemEventArgs e)
        {
            string str = "Changed:" + e.FullPath + "/" + e.Name + ":" + dt.ToShortTimeString() + (char)10;
            this.textBox1.Text = str;
        }

        private void start_monitor(string strTarget, bool bSubDir)
        {
            FileSystemWatcher Dir_monitoring = new FileSystemWatcher();
            Dir_monitoring.Path = strTarget;  //감시할 폴더
            Dir_monitoring.Filter = "*.*";    //필터링

            Dir_monitoring.NotifyFilter = NotifyFilters.LastAccess | NotifyFilters.LastWrite |
                                          NotifyFilters.FileName | NotifyFilters.DirectoryName;
            Dir_monitoring.IncludeSubdirectories = bSubDir;    // 하위 디렉토리까지 검색
            Dir_monitoring.Created += new FileSystemEventHandler(Dir_monitoring_Created);
            Dir_monitoring.Changed += new FileSystemEventHandler(Dir_monitoring_Changed);
            Dir_monitoring.Deleted += new FileSystemEventHandler(Dir_monitoring_Deleted);
            Dir_monitoring.Renamed += new RenamedEventHandler(Dir_monitoring_Renamed);
            Dir_monitoring.EnableRaisingEvents = true;
        }
    }
}

using System;
using System.Collections.Generic;
using System.Text;
using System.Net;
using System.IO;

namespace FTP_RE
{
    class Program
    {
        [STAThread]

        static void Main(string[] args)
        {
            clsFTP cFTP = new clsFTP();
            bool bRet = cFTP.FTPUpload("211.**.***.**",
                                      "21",
                                      "targetFolder",
                                      "id",
                                      "password",
                                      "C:\\Test\\test.txt",
                                      "test.txt");
            if (bRet == true)
            {
                Console.WriteLine("성공");
                Console.ReadLine();
            }
        }
    } 

    class clsFTP
    {
        public Boolean FTPUpload(string strSeverAddress,
                                 string strPort,
                                 string strTargetDir,
                                 string strID,
                                 string strPW,
                                 string strUploadFile,
                                 string strUploadFileShort)
        {
           
            Boolean bRet = false;
            Stream _ReqStream = null;
            FileStream _fileStream = null;
            FtpWebResponse _upResponse = null;

            try
            {
                FtpWebRequest _FWReq = (FtpWebRequest)WebRequest.Create("ftp://"
                                                                        + strSeverAddress + ":"
                                                                        + strPort + "/"
                                                                        + strTargetDir + "/"
                                                                        + strUploadFileShort);

                _FWReq.Proxy = null;
                _FWReq.Method = WebRequestMethods.Ftp.UploadFile;
                _FWReq.Credentials = new NetworkCredential(strID, strPW);

                _ReqStream = _FWReq.GetRequestStream();
                _fileStream = File.Open(strUploadFile, FileMode.Open);

                byte[] buf = new byte[1024];
                int bytesRead = 0;
                while (true)
                {
                    bytesRead = _fileStream.Read(buf, 0, buf.Length);
                    if (bytesRead == 0) break;
                    _ReqStream.Write(buf, 0, bytesRead);
                }
                _ReqStream.Close();
               
                _upResponse = (FtpWebResponse)_FWReq.GetResponse();

                bRet = true;
            }

            catch (Exception ex)
            {
                Console.WriteLine("ERROR : " + ex.Message); bRet = false;
                Console.ReadLine();
            }

            finally
            {
                if (_upResponse != null) _upResponse.Close();
                if (_fileStream != null) _fileStream.Close();
                if (_ReqStream != null) _ReqStream.Close();
            }

            return bRet;
        }
    }
}

StringBuilder query = new StringBuilder("http://www.google.com");

string u = query.ToString();
object urls = u;
System.Type oType = System.Type.GetTypeFromProgID("InternetExplorer.Application");
object o = System.Activator.CreateInstance(oType);
o.GetType().InvokeMember("menubar", System.Reflection.BindingFlags.SetProperty, null, o, new object[]{ 0 });
o.GetType().InvokeMember("toolbar", System.Reflection.BindingFlags.SetProperty, null, o, new object[]{ 0 });
o.GetType().InvokeMember("statusBar", System.Reflection.BindingFlags.SetProperty, null, o, new object[] { 0 });
o.GetType().InvokeMember("addressbar", System.Reflection.BindingFlags.SetProperty, null, o, new object[]{ 0 });
o.GetType().InvokeMember("width", System.Reflection.BindingFlags.SetProperty, null, o, new object[] { 570 });
o.GetType().InvokeMember("height", System.Reflection.BindingFlags.SetProperty, null, o, new object[] { 590 });
o.GetType().InvokeMember("Resizable", System.Reflection.BindingFlags.SetProperty, null, o, new object[] { false });
o.GetType().InvokeMember("Visible", System.Reflection.BindingFlags.SetProperty, null, o, new object[] { true });
o.GetType().InvokeMember("Navigate", System.Reflection.BindingFlags.InvokeMethod, null, o, new object[]{ urls });

   '// FileWatcher를 사용하기 위한 네임스페이스
    Imports System.IO    '// 멀티쓰레드 환경에서 안전한 코딩
    Delegate Sub SetTextCallback(ByVal [text] As String)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '// 감시대상은 C:\
        Dim fsw As New FileSystemWatcher("C:\")

        '// *.txt 파일을 주 감시 대상으로 한다
        fsw.Filter = "*.txt" 
        fsw.NotifyFilter = (NotifyFilters.LastAccess Or NotifyFilters.LastWrite Or NotifyFilters.FileName Or NotifyFilters.DirectoryName)

        AddHandler fsw.Changed, New FileSystemEventHandler(AddressOf OnChanged)
        AddHandler fsw.Created, AddressOf OnChanged
        AddHandler fsw.Deleted, AddressOf OnChanged

         '// 감시시작
        fsw.EnableRaisingEvents = True
    End Sub

    Private Sub OnChanged(ByVal source As Object, ByVal e As FileSystemEventArgs)
        SetText("File: " & e.FullPath & " " & e.ChangeType)
    End Sub

    Private Sub SetText(ByVal [text] As String)
        If lblWat.InvokeRequired Then
            Dim d As New SetTextCallback(AddressOf SetText)
            Me.Invoke(d, New Object() {[text]})
        Else
            label.Text = [text]
        End If
    End Sub