ต่อไป »

[CuEiHzO]

คือตอนนี้น้องที่ทำงานผมเขารับงานมาตัวหนึ่งแล้วมาขอความช่วยเหลือผม ผมเองก็หาข้อมูลแต่ก็ยังทำไม่ได้เลยครับ

คือแค่เขียน VB ให้มันรันก่อนเข้า WINDOWS คล้ายๆกับระบบ ของ 7/11ครับ หรือถ้ารันหลังเข้า WINDOWS ก็ได้
 แต่ต้องซ่อนมีเมนูบาร์ห้ามกด CTRL+F4 ขยายตัว VBเต็มหน้าจอและไม่สามารถกดปิดได้ ต้องปิดจะเมนูที่ทำให้เท่านั้น

ผมเองเขียน แต่ PHP,JSP ส่วน VB. ความรู้แค่หางเต่า ไว้ประดับหัว ใครพอช่วยได้ช่วยแนะหน่อยครับ หรือช่วยบอกเว็บที่ให้ความรู้เรื่องนี้ครับ
ขอแค่ บังคับขยายเต็มจอเมื่อรันโปรแกรมและไม่สามารถปิดตัวโปรแกรมได้ก็พอครับ

ขอบคุณมาก

[crazycat]

อา...อ่านแล้วงง แบบว่าไม่เคยเห็นว่าโปรแกรมของ 7/11 เป็นอย่างไรอะครับ

อันนี้เป็นโปรแกรมสำหรับ win form หรือว่า web form อะครับ

แล้ว windows อันนี้คุณหมายถึง OS หรือว่าเป็นพวกหน้าต่างของ webpage อะครับ



แล้วที่สำคัญที่สุดคือ คุณต้องการให้ vb ตัวนี้ทำอะไรได้เหรอครับ อ่านแล้ว งง... จริง ๆ ครับ
แบบว่าพอเรียกใช้ file นี้แล้วให้หน้าต่างที่เรียกใหม่มีขนาดเต็มจอไม่ว่าจะเป็นอย่างไงใช่ไหมครับ และที่ว่าไม่สามารถปิดตัวโปรแกรมได้นี่หมายความว่า ปิดหน้าต่างนี้ไม่ได้ใช่ไหมครับ หรือว่าให้เรียก file นี้ทำงานก่อนที่จะมีการรัน windows (ประมาณว่าพึ่งเปิดเครื่องแต่ให้โปรแกรมของเราทำงานก่อนที่เรียก windows)


ผมก็พอเขียน asp.net + vb เป็นครับ แต่ว่ามันเป็นสำหรับพวก web form อะครับ

ถ้าช่วยได้ผมก็จะช่วยนะครับ แต่ถ้าคุณหมายถึง win form สงสัยต่อรอให้ท่านต่อไปมาช่วยแล้วล่ะครับ

ต้องขอโทษด้วยนะครับที่ต้องให้ขยายความครับ

เดี๋ยวรอท่านต่อไปครับ

[Spamer]

 จะเอาไปทำไวรัสฝังเครื่องใครเหรอคับ 555 ขำนะคับ

 ผมว่าลองหา opensrc มาแงะดูดีกว่าคับมีเยอะแยะ 

[ADS2009]

ลองดูง่ายๆดังนี้ครับ

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
On Error GoTo exitsub
Dim thesendkeys
AppActivate "Windows Task Manager"
thesendkeys = "%{F4}"
SendKeys (thesendkeys)
Exit Sub
exitsub:
Exit Sub
End Sub

ส่วนการให้เรียกโปรแกรมก่อนเข้า Windows desktop ให้เรียกผ่าน Windows Registry ดังนี้ครับ (ใช้ Regedit.exe)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\

คุณสามารถหาข้อมูลได้ที่
hxxp://www.planetsourcecode.com/
มีตัวอย่างที่คุณต้องการเพียบครับ ให้ค้นหาว่า
disable alt-f4 หรือ disable alt-ctrl-del
และสำหรับการเรียกโปรแกรมให้ทำงานก่อนเข้า Windows ให้ค้นหาว่า
CurrentVersion\Run

 

[CuEiHzO]

***ขอบคุณ คุณ ADS2009 ครับที่เสนอแนะครับ เกือบใช่ทั้งหมดที่ผมต้องการเลยครับ


คือ มีคนมาเสนอให้ทำเว็บอ่ะครับ ผมเองก็ทำได้ถ้าเป็นเว็บ แต่สิ่งที่เขาต้องการคือ
1. ให้เรียกโปรแกรมทันทีที่เข้าสู่ windows (โดยผมทำแบบง่ายน่ะคือสร้างตัวเล่นเว็บด้วย VB ครับ คงเข้าใจ ผมเองก็ทำได้แค่นี้)
2. ห้ามให้ผู้ใช้เปิดโปรแกรมอื่น ที่จิงเขาบอกว่าจะถอด Keybord ออกให้ใช้แต่เมาส์
3. ตัวโปรแกรมที่ผมสร้างจาก VB ต้องรันเต็มจอไม่มีปุ๊มย่อ ปิด ซ่อน และอยู่หลังสุดเสมอเพื่อเรียกหน้าเว็บใหม่ขึ้นมาอ่ะครับ

ผมเองไม่เคยเขียน VB อ่ะ แต่พอรู้ว่ามันทำได้ครับ เพราะถ้าวันจันทร์ไม่สามารถแก้ปัญหาข้อนี้ได้สงสัยจะอดงานนี่ครับ
ระบบทั้งหมดเป็นว็บครับ แต่เพราะลูกค้าไม่อยากให้คนใช้เปิดโปรแกรมอื่น และปิดหน้าเว็บเขาผมเลยต้องเล่นแบบนี้

ส่วนพูดถึงระบบ 7/11 ที่ผมเห็นน่ะครับ เมือเราเปิดเครื่องมันจะเข้าสู่โปรแกรมของทาง 7/11เลย ก่อนเข้า WINDOWS
แต่ถ้าคิดไม่ออกก็จะคล้ายๆกับระบบของโปรแกรมเน็ตคาเฟ่ แต่ตัวนี้เข้าwindows ก่อนแล้วเรียกโปรแกรมขึ้นมา..

มีใครช่วยข้าน้อยได้มั่ง เท่าที่รู้คำสั่งไม่ถึง 50 บรรทัด แต่เพราะไม่เป็น VB

[crazycat]

ความรู้ใหม่ ต้องเก็บซะแล้วสิเนี่ย

[CuEiHzO]

ใครพอบอกเกี่ยวกับการซ่อน ปุ๊มย่อ ปิด ซ่อนของโปรแกรมที่สร้างจาก VB และทำให้โปรแกรมดังกล่าวอยู่หลังสุดของโปรแกรมอื่นเสมอไม่ครับ

[เสี่ยว]

เรื่องการซ่อนปุ่ม ปิด เปิด ย่อ นี่ไม่ต้องเขียนเลยครับ ไปตั้งค่า properties ของ form หลัก ให้เป็น type นั้นหน่ะครับ ผมก็จำไม่ได้ละ ไม่ได้เขียนมาหลายปี บอกได้แค่แก้ properties ก็เสร็จแล้วครับ  ส่วนจะทำให้เต็มจอ ใช้คำสั่งประมาณ

sub form_load

form.width = screen.width
form.height= screen.height

end sub


sub form_resize

form.width = screen.width
form.height= screen.height

end sub

ปล ตรง code ผมพิมพ์ มั่วๆ นะครับ น่าจะ run ไม่ผ่าน แต่หลักการประมาณนี้ครับ

[eable]

ซ่อนปุ่มย่อก็ form.ControlBox = False มั๊งครับ
ถ้าจะให้ดีก็ form.BorderStyle =0 (ไม่มีกรอบ ไปเลย) หรือเป็นอะไรก็ได้ที่ไม่ใช่แบบ sizable
ลืม ๆ ไปหมดแล้วเหมือนกัน
ทำเต็มจอก็ form.WindowState = 2

[mrbov]

ซ่อนปุ่มย่อก็ form.ControlBox = False มั๊งครับ
ถ้าจะให้ดีก็ form.BorderStyle =0 (ไม่มีกรอบ ไปเลย) หรือเป็นอะไรก็ได้ที่ไม่ใช่แบบ sizable
ลืม ๆ ไปหมดแล้วเหมือนกัน
ทำเต็มจอก็ form.WindowState = 2

ตามนี้เลยครับ
แล้ว เพิ่มตัวโปรแกรมใน start up ของวินโดว์ ก็น่าจะพอ

ปล มี app บางตัวที่ที่ทำงานพัฒนาเอง มีแต่จอกับเคส ไม่มีเม้าส์ ไม่มีคีย์บอร์ด เพราะใช้การป้อนคำสั่งจากฮาร์ดแวร์อื่น เป็นปุ่มกดเท่านั้นเอง

[CuEiHzO]

ขอบคุณมากครับ ผมเองมีความรู้เรื่อง VB นิดหน่อย นี้ก็ลองเขียนครั้งแรกเพื่อไปใช้กับงานตัวนี้ครับ
ถ้าโปรแกรมเมอร์ VB คงเขียนแค่ 30 นาที แต่ผมเขียน เป็นวันๆ เลย 

[ADS2009]

1.ตั้งค่า Properties ของ Form คือ BorderStyle ให้เป็น 0 (None)
2.ตั้งค่า Properties ของ Form คือ ShowInTaskbar = False
3.ตั้งค่า Properties ของ Form คือ WindowState = 2 (maximized)
4.ใช้ Function Ontop ค้นหาจากที่ผมให้ไว้ครับ
5.Disable Alt-F4
6.Disable Ctrl-Alt-Del
7.Run On Windows Start นั้นอันนี้เรียกโปรแกรม RegEdit.exe ทำด้วยมือก็ได้ครับไม่ต้องเขียนโปรแกรมครับ
8.อันนี้หากจะให้จอภาพถูกล็อคนิ่งคุณก็ใช้ Timer() ตั้งค่าให้โปรแกรมตรวจสอบค่า WindowState ของ Form ทุกๆ 1 วินาที ถ้าไม่ใช่ 2 ก็ให้มันปรับเป็น 2
อะไรประมาณนี้แหละครับ คุณค้นหาที่ผมบอก มีทุกอย่างที่คุณต้องการจริงๆครับ