การล้าง Printer และ Add ใหม่ (Network)

reg delete HKCU\Printers\Connections /f
reg add HKCU\Printers\Connections

@start \\itcenter01\CanoniP1

วิธีแก้ไข Android เข้า Market ไม่ได้

This could be a temporary problem or your phone may not be provisioned for data services. If it continues, call Customer Care.

จะใส่ account เราต้อง factory reset ก่อนนะครับ
Setting > Privacy > Factory Data Reset

boot ขึ้นมาค่อยใส่ gmail หลัก
การต่อ edge ต้องไปตั้งค่า APN สำหรับเครือข่ายมือถือที่ใช้อยู่ด้วยนะครับ
Setting > Wireless > Mobile Network > Access Point Names

ค่าดูจากนี้ครับ
http://www.droidsans.com/node/1660

วิธีทำ load balance ทั้ง win xp และ win 7 หน่อยครับ

อย่าไปเรียกว่า Loadbalance ครับ ให้เรียกว่า MultiWan จะถูกต้องกว่าครับ

กรณี WinXP ทำโดยตัวมันเองไม่ได้ครับ... แต่ก็มีSoftwareหลายตั้วที่ทำได้(ซึ่งก็ไม่เห็นว่าจะWorkสักตัว)


ส่วนกรณี Windows 7 ทำได้ทันทีและง่ายมาก...

แนะนำเอาเป็นไกด์ไลน์นะครับ
- เริ่มจากหาทางเชื่อมเราเตอร์สองตัวเข้า Windows 7 ให้ได้ก่อน.. อาจใช้การ์ดแลนสองใบ หรือ ถ้ามีการ์ดแลนออนบอร์ดอันเดียว ก็สามารถเสียบเราเตอร์สองตัวเข้า"สวิตซิง"แล้วค่อยเขาการืดแลนก็ได้ครับ

- ตั้งเราเตอร์ทุกตัวให้มันทำงานเป็นGateway(เปิดPPPoE ให้เราเตอร์ทำหน้าติดต่ออินเตอร์เน็ตเอง)

- กรณีเครื่องคอมของเรามีการ์ดแลนสองใบ ก็ให้เข้าไปที่ หน้าเซตติง IPv4 ของการ์ดแลนใบนั้นๆ แล้วตั่งค่า Metric ให้เป็นเลขเดียวกัน เช่น เลข1ทั้งสองใบ.. เท่านี้ก็จะพร้อมใช้ทันที

- กรณีต่อเราเตอร์ผ่าน Switch.. แบบนี้ที่เราเตอร์ทุกตัวจะต้องตั้งค่าIPให้เราเตอร์แต่ล่ะตัว(ใช้DHCPที่เรา เตอร์ไม่ได้) แล้วให้เราตั้งค่า Gateway/DNS ของเราเตอร์แต่ล่ะตัวให้ครบ.. เท่านี้ก็จะพร้อมใช้ทันที

- สุดท้ายแถม เพื่อให้ Windows7 ทำงานกับ Multiwanได้ดีขึ้น ให้เข้าไปแก้ REG นิดหน่อย เพื่อให้ Window7มันทำการสุมWanทุกครั้งที่โอนถ่ายข้อมูล

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NetBT\Parameters
แล้วให้เพิ่มDword Keys/Values ดังนี้
RandomAdapter = 1
SingleResponse = 1
* เมื่อทำแบบนี้แล้ว จะแก้ปัญหากรณีเน็ตสายใดสายนึงหลุดแล้วค้างได้ครับ

มันทำไม่ยากครับ ลองSearchในgoogleดูก็ได้ครับ มีรูป มีที่สอนทำเยอะแยะเลยครับ
(ลองขุดๆกระทู้เก่าๆดูนะครับ มีทั้งรูป แล้ววิธีการแนะนกันไว้เยอะแล้วครับ)


Ref http://www.overclockzone.com/forums/showthread.php/1271793-%E0%B8%82%E0%B8%AD%E0%B8%A7%E0%B8%B4%E0%B8%98%E0%B8%B5%E0%B8%97%E0%B8%B3-load-balance-%E0%B8%97%E0%B8%B1%E0%B9%89%E0%B8%87-win-xp-%E0%B9%81%E0%B8%A5%E0%B8%B0-win-7-%E0%B8%AB%E0%B8%99%E0%B9%88%E0%B8%AD%E0%B8%A2%E0%B8%84%E0%B8%A3%E0%B8%B1%E0%B8%9A

ERROR The terminal server has exceeded the maximum number of allowed connections

สืบเนื่องจากบทความที่แล้ว ต้องมีการ remote ไปยัง server บ่อยมาก
โดยปกติ windows server 2003 จากอนุญาติให้เข้าใช้ server ได้เพียง 2 session เท่านั้น

ปัญหาเกิดก็คือ user ของผมกับเพื่อนหลุดพร้อมๆ กัน ทำให้ session มัน disconnect ไม่ใช่ log off ทำให้ไม่สามารถเข้าใช้ซ้ำกันได้ เมื่อพยายามจะรีโมตมันก็ฟ้องว่า
"Terminal server has exceeded maximum number of allowed connection"

เลยต้องหาวิธีตามเน็ตก็พบว่า เพียงใช้คำสั่ง

mstsc /v:<ไอพีของเครื่องเซิร์ฟเวอร์> /f -admin

ก็จะ log in เข้าระบบได้ แต่บางบทความก็พบว่าให้ใช้คำสั่งนี้แทน

mstsc -v:<ไอพีของเครื่องเซิร์ฟเวอร์> /f -console

ref http://www.demoncodez.com/os-network/145-error-the-terminal-server-has-exceeded-the-maximum-number-of-allowed-connections.html

Batch File แก้ปญหา : “Terminal Server Has Exceeded the Maximum Number of Allowed Connections”

1. สร้าง batch file ตาม code ทางด้านล่าง
2. เปิด batch file
3. ป้อน ชื่อ Server
4. ป้อน Username
5. ป้อน Password
6. ใส่ ID ที่ต้องการ Reset Session

@ECHO OFF
SET EXEC=%SYSTEMROOT%\system32\dllcache

SET SERVER=
SET /P SERVER=Enter IP or server name: %=%

SET USER=
SET /P USER=Enter user name: %=%

SET PASS=
SET /P PASS=Enter password: %=%

NET USE \\%SERVER% /user:%USER% %PASS%

:START

%EXEC%\query session /server:%SERVER%

SET SID=
SET /P SID=Enter session ID to reset: %=%

%EXEC%\reset session %SID% /server:%SERVER%

SET CONT=
SET /P CONT=Reset more sessions? %=%

IF /i “%CONT%” EQU “y” GOTO START

SET REMOTE=
SET /P REMOTE=Launch remote desktop? %=%

IF /i “%REMOTE%” NEQ “y” GOTO END

mstsc /v:%SERVER% /f

:END

ref http://km.ru.ac.th/computer/?p=359

การทำโปรแกรม ปิง (Ping)

Public Class PingCheck_V2
Dim tmp(10) As String

Private Sub PingCheck_V2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
string_ip()
Button1.Enabled = False
Button2.Enabled = True
timer_data()
End Sub
Private Sub string_ip()
tmp(1) = "xx.xx.xx.xx"
tmp(2) = ""xx.xx.xx.xx"
tmp(3) = ""xx.xx.xx.xx"
tmp(4) = "209.85.175.147" 'Google
tmp(5) = "xx.xx.xx.xx"
tmp(6) = "xx.xx.xx.xx"
tmp(7) = "xx.xx.xx.xx"
tmp(8) = "xx.xx.xx.xx"
tmp(9) ="xx.xx.xx.xx"
tmp(10) = "xx.xx.xx.xx"
End Sub
Private Sub check_ip(ByVal string_ip As String, ByVal tag_name As Integer)
If My.Computer.Network.Ping(string_ip) Then
alert_string(tag_name, Color.Green)
Else
alert_string(tag_name, Color.Red)
End If
End Sub
Private Sub alert_string(ByVal tag_name As Integer, ByVal string_color As Color)

For Each object_label As Object In Me.Controls
If TypeOf object_label Is Label Then
If CType(object_label, Label).Tag = tag_name Then
If string_color = Color.Red Then
CType(object_label, Label).ForeColor = Color.Red
Else
CType(object_label, Label).ForeColor = Color.Green
End If
End If
End If
Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Button1.Enabled = False
Button2.Enabled = True
PictureBox1.Image = ProPing.My.Resources.Resources.sonic
ProgressBar1.Value = 30
timer_data()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Button1.Enabled = True
Button2.Enabled = False
PictureBox1.Image = ProPing.My.Resources.Resources.sonicwarp
ProgressBar1.Value = 0
Timer1.Stop()
Timer2.Stop()
Label1.ForeColor = Color.Orange
Label2.ForeColor = Color.Orange
Label3.ForeColor = Color.Orange
Label4.ForeColor = Color.Orange
Label5.ForeColor = Color.Orange
Label6.ForeColor = Color.Orange
Label7.ForeColor = Color.Orange
Label8.ForeColor = Color.Orange
Label9.ForeColor = Color.Orange
Label10.ForeColor = Color.Orange
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Time_Count.Text = Time_Count.Text - 1
ProgressBar1.Value = Time_Count.Text
If Time_Count.Text = "0" Then
Time_Count.Text = "30"
timer_data()
End If
End Sub
Private Sub timer_data()

Timer1.Interval = 30000 '1000 = 1 วินาที
Timer1.Enabled = True
Timer2.Interval = 1000 '1000 = 1 วินาที
Timer2.Enabled = True
Time_Count.Text = "30" 'Now.Second
Timer1.Start()
Timer2.Start()
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 30
For i As Integer = 1 To 10
check_ip(tmp(i), i)
Next

End Sub
End Class

การ Import Excel ทั้งหมดลง Datagrid

Public Class Test_Import_Excel

Dim sFilePath, sFileName As String
Dim sSlash As Single

Dim strConnection As System.Data.OleDb.OleDbConnection
Dim myPath As String = sFilePath & sFileName

Private Sub Test_Import_Excel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'B a s s i e
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With OpenFileDialog1
.Title = "Import Sage CSV file"
.InitialDirectory = "C:\Documents and Settings\htran\My Documents\vbnet\Welcome"
.Filter = "File (*.xls;*.csv;*.txt)|*.xls;*.csv;*.txt|All files (*.*)|*.*"

.ShowDialog()

sSlash = InStrRev(.FileName, "\")
sFilePath = Mid(.FileName, 1, sSlash)
sFileName = Mid(.FileName, sSlash + 1, Len(.FileName))
TextBox1.Text = .FileName
End With

myPath = sFilePath & sFileName

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try

Dim objDataSet As System.Data.DataSet
Dim objAdapter As System.Data.OleDb.OleDbDataAdapter

strConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source='" & myPath & " '; " & "Extended Properties=Excel 8.0;")
objAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [sheet1$]", strConnection)
objDataSet = New System.Data.DataSet
objAdapter.Fill(objDataSet, "Customers")
DataGridView1.DataSource = objDataSet.Tables(0).DefaultView
strConnection.Close()

Catch ex As Exception
Dim er As String
strConnection.Close()
End Try
End Sub

End Class

การ Import Excel แบบเลือกจุดได้

Option Explicit On
'Option Strict On
Imports Microsoft.Office.Interop
Imports System.Object
Imports System.Exception
Imports System.SystemException
Imports System.Runtime.InteropServices.ExternalException
Imports System.Runtime.InteropServices.COMException

Public Class Test_Import_Excel_V2

Dim sFilePath, sFileName As String
Dim sSlash As Single
Dim myPath As String

Private Sub Test_Import_Excel_V2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'B a s s i e
End Sub

Private Sub export_to_excel()
OpenLgExcel()
Dim xlAPP As Excel.Application
Dim xlWB As Excel.Workbook
Dim XlWs As Excel.Worksheet

xlAPP = CreateObject("Excel.Application")
'##########################################################################################
'EX
'xlWB = xlAPP.Workbooks.Open(Application.StartupPath & "\Template\" & "Invoice.xls"))
xlWB = xlAPP.Workbooks.Open(myPath)
'##########################################################################################
'EX
'XlWs = xlWB.Sheets("Invoice")
'XlWs = xlWB.Sheets(2)
XlWs = xlWB.Sheets(2)
'##########################################################################################

TextBox2.Text = XlWs.Range("D2").Value

xlAPP.Visible = True
xlAPP.Workbooks.Close()
xlAPP.Quit()
XlWs = Nothing
xlWB = Nothing
xlAPP = Nothing
CloseLgExcel()
End Sub

Public Sub OpenLgExcel()
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("en-US")
End Sub

Public Sub CloseLgExcel()
System.Threading.Thread.CurrentThread.CurrentCulture = New System.Globalization.CultureInfo("th-TH")
kill_process_Excel()
End Sub

Public Sub kill_process_Excel()
Try
Process.GetProcessesByName("EXCEL")(0).Kill()
Catch ex As Exception
End Try
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With OpenFileDialog1
.Title = "Import Sage CSV file"
.InitialDirectory = "C:\Documents and Settings\htran\My Documents\vbnet\Welcome"
.Filter = "File (*.xls;*.csv;*.txt)|*.xls;*.csv;*.txt|All files (*.*)|*.*"

.ShowDialog()

sSlash = InStrRev(.FileName, "\")
sFilePath = Mid(.FileName, 1, sSlash)
sFileName = Mid(.FileName, sSlash + 1, Len(.FileName))
TextBox1.Text = .FileName
End With

myPath = sFilePath & sFileName
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
export_to_excel()
End Sub

End Class

วิธีแก้ไขปัญหา เปิด Excel แล้วช้า

1.เปิดไฟล์ excel กด F5

2.เลือกแบบพิเศษ เลือก วัตถุ กด Delete 1 ที แล้วเซฟ

เปิดแล้วปิดใหม่ จบ


อ้างอิงจาก http://www.excelexperttraining.com/forums/showthread.php?t=594&page=1

"ให้กด เลือกทั้งหมด และกด F5 สั่งค้นหา Object กด Delete 1 ครั้ง"

และก้อ Save ลองเปิดดูใหม่ เร็วแล้วครับ ( ขอบคุณเพื่อนใน MSN ครับ)

"ใน Sheet มี Object ซึ่งไม่ทราบว่ามันมาได้ไง เป็น Object ที่มองไม่เห็น จริง ๆ ด้วย"

โหมด Auto P A S M ของกล้อง แตกต่างกันอย่างไร

โหมด Auto P A S M ของกล้อง แตกต่างกันอย่างไร โหมด ถ่ายภาพของกล้องนั้น หลายๆรุ่นอาจจะมีไม่เหมือนกัน แล้วแต่ลูกเล่นของแต่ละค่าย แต่ที่มีอยู่แบบมาตรฐานๆ ทั่วๆไปก็มี Auto, P, A, S, M ทั้งหมด 5 โหมดนี่หละครับ ที่ใช้กันบ่อยที่สุด

เรามาดูกันดีกว่าว่าแต่ละโหมดมีหน้าที่อย่างไรกันบ้าง

Auto : ชื่อ ก็บอกอยู่แล้วว่า Auto ก็คือการทำงานของกล้องแบบอัตโนมัติ ไม่ว่าจะอยู่ในสถานการณ์ใดก็ตาม ท่านสามารถถ่ายได้อย่างรวดเร็ว กด "ฉับ" เดียวได้รูปเลยครับ แต่ก็ต้องแลกมาด้วยภาพที่อาจจะไม่ค่อยดีเท่าที่กล้องควรจะทำได้ ถ้าเราลองถ่ายในสภาพแสงที่น้อยๆ มีความแปรปรวนของสภาพแสงมากหน่อย การใช้โหมด Auto อาจไม่ใช่คำตอบครับ

P : ก็คือ Program โหมดนี้ก็คือโหมด Auto แปลงร่างมานั่นเอง ซึ่งการทำงานโหมดนี้ กล้องจะคำนวนรูรับแสงและความไวชัตเตอร์ ให้โดยอัตโนมัติ แต่เราสามารถกำหนด ISO และการชดเชยแสงได้ โหมดนี้เหมาะสำหรับคนที่พอควบคุมกล้องได้บ้าง ถ่ายสนุกดีครับ แต่ก็ยังไม่สามารถรีดประสิทธิภาพของกล้องได้ไม่เต็มที่เช่นเดียวกับโหมด Auto

A, AV : ก็คือ Aperture Priority เป็นโหมดที่เรากำหนดรูรับแสงเอง โดยกล้องจะคำนวณความไวชัตเตอร์ให้โดยอัตโนมัติ เหมาะกับการถ่ายภาพบุคคล หรือภาพอะไรก็ตาม ที่ต้องการกำหนดรูรับแสงไว้ค่าใดค่าหนึ่งเสมอ แต่มีข้อควรระวังคือ เราต้องคอยดูความไวชัตเตอร์ไว้เสมอ เพราะถ้าไม่พอภาพก็อาจจะเบลอ เสียได้ครับ ทาแก้ก็คือ ดันISO เพิ่มขึ้นครับ เราจะได้ความไวชัตเตอร์ที่มากขึ้น

S : ก็คือ Shutter Priority คือโหมดที่เรากำหนดความไวชัตเตอร์เอง โดยกล้องจำคำนวณรูรับแสงให้โดยอัตโนมัติ เหมาะกับการถ่ายแบบ แพนกล้อง ถ่ายภาพAction ภาพกีฬา หรือภาพใดๆที่เราต้องการหยุดการเคลื่อนไหวของแบบเอาไว้ แต่ระวังภาพมืดนะครับ ถ้าหากเราปรับความไวชัตเตอร์มากไป แต่ลืมดูไปว่ารูรับแสงกว้างพอสำหรับสภาพแสงขณะนั้นหรือไม่ ทางแก้ก็คือ ดันISO ช่วยอีกแล้วครับ ^ ^

M : Manual คือโหมดที่เราควบคุมกล้องเองทั้งหมด ไม่ว่าจะเป็นรูรับแสง หรือความเร็วชัตเตอร์ เป็นโหมดที่ทำให้เราสามารถสร้างสรรค์ภาพของเราได้อย่างเต็มที่ครับ อาจจะช้าสำหรับการปรับตั้งค่าก่อนถ่าย ทำให้ไม่เหมาะกับการถ่ายภาพที่ต้องเร่งรีบซักเท่าไหร่ เว้นแต่ใครที่ปรับเก่งๆ ไวๆ วัดแสงแม่นๆ ก็ทำให้กล้องสามารถ สร้างภาพถ่าย ที่ดีที่สุดออกมาได้ครับ

ref http://www.jirath.com/%E0%B8%9A%E0%B8%97%E0%B8%84%E0%B8%A7%E0%B8%B2%E0%B8%A1%E0%B8%96%E0%B9%88%E0%B8%B2%E0%B8%A2%E0%B8%A0%E0%B8%B2%E0%B8%9E/%E0%B9%82%E0%B8%AB%E0%B8%A1%E0%B8%94-Auto-P-A-S-M-%E0%B8%82%E0%B8%AD%E0%B8%87%E0%B8%81%E0%B8%A5%E0%B9%89%E0%B8%AD%E0%B8%87-%E0%B9%81%E0%B8%95%E0%B8%81%E0%B8%95%E0%B9%88%E0%B8%B2%E0%B8%87%E0%B8%81%E0%B8%B1%E0%B8%99%E0%B8%AD%E0%B8%A2%E0%B9%88%E0%B8%B2%E0%B8%87%E0%B9%84%E0%B8%A3-243