help me! Dùng VBScript xuất dữ liệu ra cổng LPT,cổng COM

[maxx]

Theo đề tài của tiền bối Bxngoc không ngờ gặp phải rắc rối lớn...mọi chuyện nói chung thuận lợi cho tới khi viết đoạn code VBscript xuất dữ liệu ra cổng LPT:
Khai báo và khởi tạo COM
' Biến tham chiếu đến COM
Dim objLPT
' Khởi tạo COM
Set objLPT=Server.CreateObject("MyLPTCOM.LPTAccess")

' Để đọc từ cổng vào ta gọi
Result = objLPT.InPort(&H379) ' Đọc thanh ghi trạng thái

' Để ghi ra cổng ta gọi
objLPT.OutPort(&H378, value)

' Khi kết thúc truy xuất nhớ gọi

Set objLPT = Nothing

trích nguyên văn của Tiền bối Bxngoc la dzậy,thắt mắc ở chổ objLPT.OutPort(&H378, value) value ở đây nhập sao cho đúng (0x255 hay 0xff hay...)
dung IE biên dịch đoạn code trên viết bằng ASP thì lúc nào cung báo lỗi phần đó(nhập bằng nhiều cách rồi T_T )
mong các bật cao nhân chỉ bảo thêm
Đa tạ mọi đóng góp ý kiến

[bxngoc]

value là giá trị bạn có thể nhập từ đâu đó bằng textbox hoặc nếu gán thẳng thì.
value = 255 // Dùng số thập phân
value = &HFF // Dùng số hex
Để VBScript hiểu giá trị một số hex thì phải dùng &H chứ không phải 0x

[maxx]

Ghê,bác Bxngoc bỏ "nhà" đi lâu quá làm em út điêu đứng cả tuần nay vì cái dụ xuất dữ liệu này.Thú thật với bác là em chọn đề tài tốt nghiệp là điều khiển thiết bị qua mạng internet,bài viết của bác giúp ích cho em nhiều.Nhân đây cho em hỏi thêm về phần broadcast hình ảnh trực tiếp lên web bằng WCam,em làm đúng từng bứơc như bài viết của bác,nhưng chỉ chạy đươc khi dùng Streaming media player, chạy trình duyệt IE thì bị báo lỗi : "could not connect to media server".Liệu có lưu ý nào nhỏ mà bác quên không đưa ra không.Mong bác chỉ giáo thêm,cảm ơn bác vì đã giúp đỡ

[bxngoc]

Bạn dùng IE để xem video bằng đoạn code nào?

	o.UseTCP();
	o.UseMediaServer("bxngoc.homelinux.com:5119");
	o.UseFile("My home");

hay

		o.UseHTTP();
		o.UseMediaServer("bxngoc.homelinux.com");
		o.UseLiveAlias("My home");

Trong cả 2 trường phải chắc mà máy tính của bạn không có firewall chặn ở port 5119 và 80. Nếu thử bằng IE trên máy tính của bạn thì không vấn đề gì như nếu thử từ ngoài Internet thì phải chắc là modem ADSL của bạn có NAT port hay tạo Virtual Server (tùy theo thuật ngữ của nhà sản xuất) đến 2 port trên. Vấn đề này rất dài không thể trình bày ở đây bạn có thể tham khảo ở các diễn đàn tin học.
Nếu dùng đoạn code thứ 2 thì phải cài thêm gói UHttpProxy.msi trong file UMediaServer.zip

[maxx]

Thú thiệt với anh là cả tháng nay lân la hỏi khắp các diễn đàn tin học,mà cuối cùng câu trả lời cũng là : "liên hệ với tác giả " nhiều lúc nản luôn.Tại hồi đó học hành không đến nơi giờ đâm ra vất vả làm đồ án,Firewall trong máy hay modem em đã disable,còn modem em chưa tìm được tài liệu hướng dẫn mở port trên các diễn đàn nhưng cấu hình portstart =80
portend = 80,portmap = 80 ,giao thức TCP. nói chung la lập được webserver bên ngoài truy cập vào được
Về đoạn code em xài đoạn thứ 2 và có cài UHttpProxy.msi
Đúng là vấn đề hơi dài dòng,nếu có thể bác cho em Mail để em hỏi thêm
Dù sao cũng cảm ơn anh nhiều

[phuchausp]

Tại sao objLPT vẫn là nothing

Theo đề tài của tiền bối Bxngoc không ngờ gặp phải rắc rối lớn...mọi chuyện nói chung thuận lợi cho tới khi viết đoạn code VBscript xuất dữ liệu ra cổng LPT:
Khai báo và khởi tạo COM
' Biến tham chiếu đến COM
Dim objLPT
' Khởi tạo COM
Set objLPT=Server.CreateObject("MyLPTCOM.LPTAccess")

' Để đọc từ cổng vào ta gọi
Result = objLPT.InPort(&H379) ' Đọc thanh ghi trạng thái

' Để ghi ra cổng ta gọi
objLPT.OutPort(&H378, value)

' Khi kết thúc truy xuất nhớ gọi

Set objLPT = Nothing

trích nguyên văn của Tiền bối Bxngoc la dzậy,thắt mắc ở chổ objLPT.OutPort(&H378, value) value ở đây nhập sao cho đúng (0x255 hay 0xff hay...)
dung IE biên dịch đoạn code trên viết bằng ASP thì lúc nào cung báo lỗi phần đó(nhập bằng nhiều cách rồi T_T )
mong các bật cao nhân chỉ bảo thêm
Đa tạ mọi đóng góp ý kiến

Các bác cho em hỏi: em làm đến đoạn objLPT.OutPort(&H378,value) thì nó báo lỗi, khi kiểm tra lại thì biết objLPT là nothing. Rõ ràng là em đã khởi tạo rồi Set objLPT=Server.CreateObject("MyLPTCOM.LPTAccess").
Hay bác nào đã làm được, cho em xin soured code nha.

[DuyTuanpdt]

Tôi có 1 chương trình chống trộm muốn xuất tín hiêu ra các cổng của PC để lấy các cấp điện áp đưa vào role đóng mở cho PLC logo thì làm thế nào các bác ơi!
Mong mọi người chỉ bảo tận tình