• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Unicode Connection Controls - Hổ trợ kết nối

Các Module, Class, UserControl và thư viện OCX, DLL hỗ trợ cho Visual Basic
dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi dongphuong2999 » T.Tư 06/06/2012 9:43 pm

Tên: Unicode Connection Controls
Loại: Ocx
Ngôn ngữ lập trình: VB
Phiên bản: 1.0.26
Tác giả: X High Intell
Chức năng: Hổ trợ kết nối sử dụng mạng...
Trang Chủ: http://xhighintell.com/


Download 1.0.7: Version 1.0.7
-File OCX (*.zip):
-Không có giới hản gửi nhưng sẻ phát sinh lổi làm đơ form

Download 1.0.28: Version 1.0.28
-File OCX (*.zip):
-Sửa lổi Sock làm đơ form khi send file có kích thước lớn,nhưng giới hạn gửi~200triệu byte khoản 191mb
-{DDD00D8D-6FDD-4F95-85CB-E7C408D7C885} thay đổi trong file .vbp để nâng cấp
-Lưu ý các máy kết nối (dùng Sock) không nhất thiết phải dùng chung một version OCX.
-OCX mới sẻ giúp cho máy có nó chạy êm hơn khi nhận dử liệu,nếu bạn là sever thì nên nâng cấp OCX này.

=>Mình sẻ nâng cấp OCX theo kiểu không đụng chạm giữa các Version củ và mới,các bạn đừng lo lặng về vấn đề Version này, hảy nâng cấp ...
-Xin lổi các bạn cái bản 1.0.26 hum trước do mình không có thời gian test chỉ sửa rồi up theo yêu cầu góp ý nên có lổi,bản này là bản vá lổi + vài Class bổ ích




A.Một số Công cụ chính

1.Sock (gần giống như winsock của ms)
+Sock.SendText(Stringtext và Des (unicode lun)
và thằng kia sẻ nhận được trong event:
DataTextArrival(StringText As String, Description As String)

+Sock.SendFile(sPath, Description)
dùng để gửi file sPath
và event:
DataFileArrival(StringFile As String, Description As String)
và bạn dùng sock.CreateFileFromString(stringfile,path muốn lưu nó) để lưu file bên kia gửi đến

+Sock.SendFileProgress(sPath, Description)
-1.0.7 cao cấp hơn thằng trên bù lại nó sẻ hơi lag form nếu file qua lớn(>50 mb)
-1.0.26 Sẻ Không lag form và êm như nhau 1~191mb
tương tự như mấy thằng trên và event gán khi xong:
DataFileArrivalProgress(StringFile As String, Description As String)

Và event dùng cho sendfileProgress là
ArrivalProgress(SizeArrived As Long, BytesRemaining As Long, Description As String)
SendProgress(BytesSent As Long, BytesRemaining As Long, Description As String)
dùng cho cả người send và nhận

--khi SendText "anh iu em","Chat"
SendText "spam","Chat"
SendText "spam & spam","Chat"
3 dòng code chạy cùng 1 lượt nhưng thằng nhận vẩn nhận theo từng tự 3 lần trong event DataTextArrival . Và SendFile ,SendFileProgress củng thế bạn send 1 lượt chẳng cần lo j...Send text rồi file rồi text ...

mình sẻ viết ví dụ sau

2.Download
-dùng để download file kể cà trang html
DownLoader1.DownLoad "http://www.caulacbovb.com/file.7z", "key1", DownLoadFile, ipath, 80, "1.1"
ipath có hay không vẩn được
nếu có sẻ tốt hơn vì download đến đâu nó Put liền
+Nếu có idatastring sẻ ko có
+nếu không có thì khi xong idatadtring sẻ có cho bạn save ở đâu thì tùy..
DownLoadComplete(...iPathSave As Variant, iDataString ...)
+Event()
*DownLoadProgress(SizeArrived As Long, BytesRemaining As Long)
tiến trình download nếu có tùy và cái host bạn muốn down
nếu host không cho biết kích cở file sẻ down thì BytesRemaining=-1
*requestLocation(iLocationFile As Variant...
iLocationFile là đường dẩn ẩn chứa tróng link đó:ví dụ mình download
"http://www.mp3.zing.vn/anhnhớemnhìu?link=36" đó không phải đường dẩn thực của bản nhạc đó thì iLocationFile sẻ cho ta đường dẩn ẩn chứa nó

--Bạn có thể .DownLoad "http://www.caulacbovb.com/file.7z"
.DownLoad "http://www.caulacbovb.com/file1.7z"
.DownLoad "http://www.caulacbovb.com/file2.7z"
controls sẻ làm tuần tự khi xong mổi cái nếu có lổi thì nó củng tự bỏ Qua

3.Host Share
code sẻ dể hơn
HostShare1.List.Add "D:\music.mp3","/music.mp3","file/mp3"
HostShare1.Listen 81

bạn mở idm(hoặc trình duyệt) gỏ địa chỉ của mình vào và down thử ví dụ
"192.168.1.2:81/music.mp3" thì idm sẻ down nó (nếu như bạn ngắt và resume lại vẩn ok)
HostShare1.List.Add "D:\main.html","/","text/html" ' dùng trang html
HostShare1.List.Add "D:\Flash.swf","/Flash.swf","application/x-shockwave-flash Object" ' dùng nếu bạn muốn trình duyệt hỉu flash
--Các bạn có thể dùng Host Share như 1 công cụ Share file (mở port mình listen)
--Hoặc dùng tạo một trang web or Host tại nhà (dùng no-ip free nửa) sẻ ok.Bạn có thể dùng trang HTML soạn sẳn để sử dụng...
B.Class Modules
1.ToolExplorer
*NenFolder(iPath, iPathTo): dùng để gôm một folder chứa nhìu folder con và nhìu folder cháu...,cùng với tất cả các file nằm trong chúng thành một file (không phải nén nha mình chưa biết nén nhưng gì)
-iPath là đường dẩn folder cần nén : D:\Game , C:\Soft .. (không có dấu "\" phía sau "D:\Game\" <= Sai)
-iPathTo là đường dẩn file sẻ save lại khi nén ipath (kích thước file gôm lại sẻ có size tương đương or nhỏ hơn size của folder cần gôm)
*GiainenFolder(iPath, iPathTo)
-iPath là file cần bung nó ra (file này định dạng là *.x-men ẩn trong file lun nên nếu ko phải sẻ báo err)
-iPathTo là đường dẩn folder bạn muốn bung nó ra ở đó (ko có dấu "\" cuối)
Đây thực sự không thể gọi là nén được. mình sẻ nâng cấp hoàn thiện tốt hơn
-Đây là cách nén folder theo cấu trúc của mình chẳng cần dll rar hay zip gì và củng chỉ có ocx mới giải nén được
*Mình sẻ làm 1 vài ví dụ mong các bạn ủng hộ
Sửa lần cuối bởi dongphuong2999 vào ngày T.Năm 20/11/2014 7:39 am với 14 lần sửa.



dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Example HostShare,Sock,Downloader

Gửi bàigửi bởi dongphuong2999 » T.Năm 07/06/2012 10:23 am

Kiểu : Example
Điều khiển : HostShare,Sock,Downloader
Mô tả : Ví dụ này giới thiệu về 3 công cụ này
-----------------------------------------------------
1.Sock
--Sock đặt Propertise UniString=True cho cả hai Sock kết nối.
--Không mắt lổi khi gửi string "Lớp A5" => "Lớp Ạ"...,"u71" = >"ứ"...
--Việc send File hết sức đơn giản...
2.Downloader
--Không làm đơ form như dùng API.Thích hợp cho download các file lớn + tiến trình
Đây là các code ví dụ,có hơi vội vàng nhưng sẻ dể hỉu
Download
Vi Du.zip
Ví dụ về 3 controls chính
(143.9 KiB) Đã tải 570 lần
Sửa lần cuối bởi dongphuong2999 vào ngày T.Bảy 09/06/2012 7:52 pm với 1 lần sửa.

dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Example HostShare

Gửi bàigửi bởi dongphuong2999 » T.Bảy 09/06/2012 7:42 pm

Kiểu : Example
Điều khiển : HostShare + Webbrowser (của ms) = Mini Game
Mô tả : Ví dụ này giới thiệu thêm chức năng của HostShare.Dùng HostShare để chạy một game ăn cắp
---------------------------------------------------------------
Trên mạng đầy các file swf với nhìu ứng dụng tuyệt hay nhưng làm sao để lấy nó,dùng offline,...
Chỉ dùng IDM thôi thì chưa đủ vì các Flash bậy giờ nó rất cao tay.Flash chính load flash con....
Bạn cứ dùng IDM download flash cha rồi cho nó vào HostShare sẻ lấy được các url của các flash con thôi.và đây là kết quả của một game swf trên zing.
Thế là qua mặt được thiên hạ rồi
Hình ảnh
Ngoài lề:
Lần trước mình đăng bài này có bạn xin code nhưng chưa kiệp trả lời thì admin delete bài của mình không nhắn một câu.. bất ngờ :-O
Download Game
Bejeweled - Oxc.zip
Bejeweled mini.
ocx download ở trên
(5.48 MiB) Đã tải 600 lần

Hình đại diện của người dùng
VuVanHoanh
Thành viên danh dự
Thành viên danh dự
Bài viết: 1259
Ngày tham gia: T.Năm 03/06/2010 9:23 pm
Đến từ: Kim Sơn - Đông Triều - Quảng Ninh
Has thanked: 22 time
Been thanked: 137 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi VuVanHoanh » CN 10/06/2012 8:36 am

Thanks bạn, control rất hữu ích, mình đau đầu với cái thuật toán gửi file qua LAN bằng ws, may sao gặp đc cái này :) bạn tự viết à?
Since 2008...
One love! :x

dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi dongphuong2999 » CN 10/06/2012 10:48 am

Cảm ơn bạn.
Các control Sock này được nằm trong dự án Game trực tuyến của mình.Do Sock của ms không đáp ứng được như cầu gửi dụ liệu đơn giản rỏ ràng theo des nên mình đả phát triển nó...vì thế để chạy được ocx này cần có MSWINSCK.OCX.
Mình có thể để tên thật của mình vào ocx nhưng người dùng sẻ không thích.
VuVanHoanh đã viết:Thanks bạn, control rất hữu ích, mình đau đầu với cái thuật toán gửi file qua LAN bằng ws

gửi qua mạng LAN ,WAN đều ok.trong thi cử môn tin học mình dùng HostShare để gửi bài cho nhau , giáo viên biết nó copy nhưng ko có bằng chứng.Dùng HostShare chỉ cần một máy cài đặt là được,các máy khác dùng IE là có file cần.ví dụ trên chỉ cần cho máy khác ip lan máy mình

Hình đại diện của người dùng
VuVanHoanh
Thành viên danh dự
Thành viên danh dự
Bài viết: 1259
Ngày tham gia: T.Năm 03/06/2010 9:23 pm
Đến từ: Kim Sơn - Đông Triều - Quảng Ninh
Has thanked: 22 time
Been thanked: 137 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi VuVanHoanh » CN 10/06/2012 12:29 pm

à mà bn ơi, sao trong lúc gửi file = sock, cái form client lại bị đơ vậy? k làm cách nào để nó k đơ đc à? tớ thử xài cả DoEvents rồi mà vẫn bị treo :|
Since 2008...
One love! :x

dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi dongphuong2999 » CN 10/06/2012 5:11 pm

thằng gừi không sao nhưng thằng nhận lại bị đơ.
nguyện nhận gửi dự liệu qua LAN quá nhanh ,code sử lý của mình là dùng string để lưu file hiện tại người khác gửi s= s + data,và các hàm len() liên tiếp đc sử dụng với string s dài khung khiếp này. mình nghì bạn nên dùng SendFile sẻ ít đơ hơn thằng SendFileProgres.
Mình dùng SendFileProgres khi send file ~20mb qua mạng không hề đơ nhưng gần về cuối thì có dấu hiệu lag lag nhẹ ờ người nhận.
Nhưng mình sẻ cố gắn khắc phục.
để tiện cho nâng cấp và bài hướng dẩn bạn giúp mình tao chủ đề thắc mắc,góp ý riêng cho tiện.

ngki.tstarn
Thành viên chính thức
Thành viên chính thức
Bài viết: 23
Ngày tham gia: T.Tư 08/06/2011 2:55 pm
Đến từ: Pària
Been thanked: 1 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi ngki.tstarn » T.Hai 18/06/2012 11:29 am

em sử dụng trong mạng lan thì được nhưng sao trên mạng wan em connect không được vậy mọi người. hướng dẫn giúp mình với.

dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi dongphuong2999 » T.Tư 20/06/2012 1:02 pm

Bạn phải mở port trong modem.
trong phần chuyển hướng Port hoặc NAT còn tùy vào từng loại.
vào đây xem hình để nhận biết nó http://www.caulacbovb.com/forum/viewtop ... =22&t=1547

baohiep
Thành viên danh dự
Thành viên danh dự
Bài viết: 109
Ngày tham gia: CN 27/12/2009 6:37 pm
Đến từ: Tam Kỳ
Has thanked: 3 time
Been thanked: 9 time

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi baohiep » CN 01/07/2012 10:51 am

Bạn thêm phần LocalIP vào Sock được không? Sao HostShare có mà Sock lại không?
Bạn thêm vào application/x-mplayer(Windows Media Player) được không?
I'm Hiep.

dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi dongphuong2999 » T.Hai 09/07/2012 11:43 pm

baohiep đã viết:Bạn thêm phần LocalIP vào Sock được không? Sao HostShare có mà Sock lại không?
Bạn thêm vào application/x-mplayer(Windows Media Player) được không?

mình đả cập
cái HostShare1.List.Add "D:\file","/file",xxx
xxx là type của file bạn muốn gửi cho trình duyệt hiểu.Thực sự mình củng không biết hết mình chỉ down thử từ các host xem nó phản hồi cái j rồi áp dụng và thằng trình duyệt có hỉu nó hay không thì tùy
application/x-mplayer Object là gì thì mình không biết.
Nếu bạn muốn play một bản nhạc thì bạn dùng một file text/html code tạo object flash .flash load file music đó. mình không biết nhiều về HTML nhưng bạn có thể tìm trên các trang music rồi thử.

Hình đại diện của người dùng
ngochoan2006
Guru
Guru
Bài viết: 184
Ngày tham gia: T.Tư 25/10/2006 4:35 pm
Đến từ: Phúc Yên - Vĩnh Phúc !
Been thanked: 1 time

Re: Example HostShare

Gửi bàigửi bởi ngochoan2006 » T.Ba 10/07/2012 11:50 am

dongphuong2999 đã viết:Kiểu : Example
Điều khiển : HostShare + Webbrowser (của ms) = Mini Game
Mô tả : Ví dụ này giới thiệu thêm chức năng của HostShare.Dùng HostShare để chạy một game ăn cắp
---------------------------------------------------------------
Trên mạng đầy các file swf với nhìu ứng dụng tuyệt hay nhưng làm sao để lấy nó,dùng offline,...
Chỉ dùng IDM thôi thì chưa đủ vì các Flash bậy giờ nó rất cao tay.Flash chính load flash con....
Bạn cứ dùng IDM download flash cha rồi cho nó vào HostShare sẻ lấy được các url của các flash con thôi.và đây là kết quả của một game swf trên zing.
Thế là qua mặt được thiên hạ rồi
Hình ảnh
Ngoài lề:
Lần trước mình đăng bài này có bạn xin code nhưng chưa kiệp trả lời thì admin delete bài của mình không nhắn một câu.. bất ngờ :-O
Download Game
Bejeweled - Oxc.zip


Cái này download về sao ko đc nhẩy
Kiến thức là vô hạn!
Hiểu biết của tui thì có hạn !
Nên dừng có ngạc nhiên khi tôi không biết 1+2 =? !

dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi dongphuong2999 » T.Tư 11/07/2012 9:51 am

download được mà bạn. nếu không được thị do diển đàn lúc đó nó bị gì thôi hoặc mạng của bạn. mình đả down thừ thấy tốt mà

Hình đại diện của người dùng
mu057677
Thành viên chính thức
Thành viên chính thức
Bài viết: 27
Ngày tham gia: T.Tư 05/11/2008 12:44 pm
Đến từ: HCM
Has thanked: 4 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi mu057677 » T.Ba 08/01/2013 10:07 pm

Mình chưa sử dụng nhưng có vẻ như nó khá tuyệt với project chat online sắp làm của mình!
Thank for share :)

Hình đại diện của người dùng
mu057677
Thành viên chính thức
Thành viên chính thức
Bài viết: 27
Ngày tham gia: T.Tư 05/11/2008 12:44 pm
Đến từ: HCM
Has thanked: 4 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi mu057677 » T.Năm 21/02/2013 10:22 pm

Mình dùng trên máy của mình xài windows xp sp2
Tạo ứng dụng xài ocx này thì chạy trên máy tính trên trường và trong tiệm net không được?
Cứ bị lỗi

Mã: Chọn hết

Run-time error '372':

Failed to load control 'Sock' from uConnection.ocx. Your version of uConnection.ocx may be outdated. Make sure you are using the version of the control that was provided with your application.


Ai giúp mình với

dongphuong2999
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 54
Ngày tham gia: T.Sáu 02/07/2010 10:53 am
Has thanked: 1 time
Been thanked: 7 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi dongphuong2999 » T.Bảy 23/02/2013 1:27 pm

mu057677 đã viết:Mình dùng trên máy của mình xài windows xp sp2
Tạo ứng dụng xài ocx này thì chạy trên máy tính trên trường và trong tiệm net không được?
Cứ bị lỗi

Mã: Chọn hết

Run-time error '372':

Failed to load control 'Sock' from uConnection.ocx. Your version of uConnection.ocx may be outdated. Make sure you are using the version of the control that was provided with your application.


Ai giúp mình với

Chắt là do thiếu MSWINSCK.OCX của MS đó bạn. Khi đem chương trình thì mang theo cho chắt, đặt biết là các máy kểu như ở trường và tiệm net.
Trên win 7, vista, MSWINSCK.OCX củng không phải là ocx cơ bản như xp=> nó không có sẳn
để MSWINSCK.OCX chung vào folder của bạn và run as admin là được

Nhưng đọc cái lổi 372 thì nói nhắt đến vấn đề version, chả rành.
Thank for using.

Hình đại diện của người dùng
tungblt
Điều hành viên
Điều hành viên
Bài viết: 548
Ngày tham gia: T.Hai 22/12/2008 5:22 pm
Đến từ: quy nhơn
Has thanked: 6 time
Been thanked: 76 time
Liên hệ:

Re: Unicode Connection Controls - Hổ trợ kết nối

Gửi bàigửi bởi tungblt » CN 20/07/2014 2:56 pm

sendtext unicode tất cả đều được trừ chữ "ẹ" nhé bạn. fix lại hộ mình .. đang viết code chat online :">
love


Quay về “[VB] Module, Class, UserControl, OCX”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.1 khách