27 มกราคม 2557

ถอดรหัสไฟล์ XLSX

วิธีเอารหัสผ่านออกจากไฟล์ xlsx ของ Excel 2007 ขึ้นไป
กรณีบันทึกด้วยเวอร์ชั่นที่ต่ำกว่าให้เปิดด้วย Excel 2007 Up ก่อนแล้ว เลือกเมนู บันทึกเป็น เลือกประเภทไฟล์เป็น Excel Workbook (*.xlsx) นะครับ

1. เปลี่ยนนามสกุลเป็น.rar หรือ .zip ก่อน

2. แตกไฟล์ไปไว้ที่ DIR ที่ต้องการ
3. เปิดไฟล์ในโฟลเดอร์ที่แตกไว้ \xl\worksheets\ชื่อชี้ต.xml ด้วย editor เช่น notepad,notepad++,edit plus

4. มองหา sheetProtection แล้วลบส่วนนี้เสีย (ลบตั้งแต่ นะครับ)
 

HTML tag ไม่ให้ Browser จำ Username และ password

ใช้ autocomplete="off" เพิ่มเข้าใน tag textbox และ password

17 มกราคม 2557

ฟังก์ชั่นสำเร็จรูปใช้ในการส่งเมลล์แบบภาษาไทย UTF8 (PHP)


$MailTo = 'myemail@hotmail.com' ;
$MailFrom = 'emailfrom@mywebsite.com' ;
$MailSubject = 'ทดสอบส่งอีเมลล์';
$MailMessage = 'แบบไทยๆ';
send_email($MailTo, $MailSubject , $MailMessage, $MailFrom);
//---------------------------ใช้ฟังก็ชั่นด้านล่างนี้
function send_email($MailTo, $MailSubject , $MailMessage, $MailFrom)
    {
            $Headers = "MIME-Version: 1.0' . \r\n";
            $Headers .= "Content-type: text/html; charset=utf-8\r\n";
            $Headers .= "From: ".$MailFrom." <".$MailFrom.">\r\n" ;
            $Headers .= "Reply-to: ".$MailFrom." <".$MailFrom.">\r\n" ;
            $Headers .= "X-Priority: 3\r\n" ;
            $Headers .= "X-Mailer: PHP mailer\r\n" ;
            $MailSubject = "=?UTF-8?B?".base64_encode($MailSubject)."?=";
            if(mail($MailTo, $MailSubject , $MailMessage, $Headers, $MailFrom))
            {
            return(TRUE);
            }else{
            return(FALSE);
            }
    }
   
   


?>

15 มกราคม 2557

Sub Open File In VB.NET

    Private Sub OpenFile(ByVal FileName As String)
        Try
            Dim p As New System.Diagnostics.Process
            Dim s As New System.Diagnostics.ProcessStartInfo(FileName)
            s.UseShellExecute = True
            s.WindowStyle = ProcessWindowStyle.Normal
            p.StartInfo = s
            p.Start()
        Catch ex As Exception
            MessageBox.Show("ไม่พบไฟล์'" & FileName & "' ในระบบ!", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub

วิธีเปิด Exploerer และ เลือกไฟล์ไว้รอ ใน VB.NET


Call Shell("explorer /select," & sPath, AppWinStyle.NormalFocus)

การ Hilight Selected Item ใน Listview

บางทีเมื่อเราเลือก Listview แล้วต้องการไปคลิกเลือก Object อื่น แต่อยากแสดงให้เห็นว่าเราเลือก Listview บรรทัดนั้นๆแล้ว ดังนี้ครับ

ListView1.HideSelection = False 'ไฮไล้การเลือก Listview

10 มกราคม 2557

Access Connection String In VB.NET


Imports System.Data.Odbc
Module ModDB
 Public dbConfig As String = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=MyAccessFile.mdb;UID=Admin;PWD=1234"
   Public conn As New OdbcConnection
    Public Sub Connect()
        On Error GoTo ConnectERR
        conn.ConnectionString = dbConfig
        If conn.State = ConnectionState.Closed Then
            conn.Open()
        End If
        Exit Sub
ConnectERR:
        MsgBox("ผิดพลาดในการเชื่อมต่อกับฐานข้อมูล" & Err.Description, MsgBoxStyle.OkOnly, "ผิดพลาด")
    End Sub
End Module