คิดว่า เจ้านายคงจะเล็งเห็นการพัฒนาระบบบน Windows (Winform) ที่มีตัวช่วยมากมาย ง่ายในการพัฒนาระบบและความเร็วของโปรแกรม แต่ติดขัดที่การเรียกใช้งานผ่าน Web (Internet) แต่อย่างไรก็ตามยังมีวิธีดัดแปลงช่วยได้ดังนี้ครับ
พอเป็นแนวนะครับ
1. ใช้บริการผ่าน Web Service
2. ใช้ วิธี Remote ผ่าน Function ของ Windows วิธีนี้จะเร็วมาก เหมือนประหนึ่งเราไปนั่งทำที่ Server เลย
3. ใช้ Dial Up
4. PC Any Where
***. ทำอย่างไรก็ได้ ขอให้เครื่องลูกข่ายมองเห็น Server ที่ติดตั้ง Database เท่านั้น เป็นอันเสร็จพิธี...****
Imports System.Security
Public Class LoginG
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'2013-05-24 Support Windows Client & All Application
If Request.QueryString("UserName") <> Nothing AndAlso Request.QueryString("Password") <> Nothing Then
Dim strUserName As String = Request.QueryString("UserName") '***** Decrypt
Dim strPassword As String = Request.QueryString("Password") '***** Decrypt
' ******************************************************************************************
' Insert user validation here
' For example, check the username and password in the database, encrypt/decrypt algorithm
' *******************************************************************************************
FormsAuthentication.SetAuthCookie(strUserName, False)
'FormsAuthentication.RedirectFromLoginPage(strUserName, False)
' Create cookie and return it
Dim ticket As New FormsAuthenticationTicket(1,
strUserName,
DateTime.Now,
DateTime.Now.AddDays(30),
False,
"SignalR",
FormsAuthentication.FormsCookiePath)
' Encrypt the ticket.
Dim encTicket As String = FormsAuthentication.Encrypt(ticket)
' Create the cookie.
Response.Write(encTicket)
Response.End()
Else
FormsAuthentication.SetAuthCookie("Guest", False) 'Test only for www.goodluck.smpksme.com
End If
End Sub